本文目录一览：
关于用VB制作QQ本地盗号程序的问题
哦，这个啊，可以用label控件的啊，点一下弹出，再点下收进去
要源代码加我 505833944
盗号者使用VB盗号怎么获得被盗者的账号信息
首先就是vb创建两个text(一个是输入帐号一个是输入密码) 一个按钮 把窗口设置的像qq登陆窗口一样
然后被盗者像以往那样输入帐号 然后登陆
然后盗号软件就会把两text上的内容上传到一个网站上
然后盗号者就知道帐号密码了
然后盗号者就上被盗者的QQ疯狂的泡妞
然后有可能泡到妞
当然泡不到的机率会大点
vb盗号木马问题
首先获得鼠标周边截取到的图片，之后保存到picturebox控件中，在用
savepicture函数把picturebox控件上的图片保存到电脑的目录中！
用API函数StretchBlt捕捉图像
Private Declare Function StretchBlt Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As Long
之后自己设置比例！
至于怎么捆绑方法很多
我想用winrar做自解压设置自动运行最好了！
VB盗号代码
Option Explicit
Declare Function PostMessage Lib "user32" Alias "postmessagea" (ByVal hwnd As Long, ByVal wmsg As Long, ByVal wparam As Long, ByVal lparam As Long) As Long
Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Const wm_close = H10
Public Function killie(ByVal hwnd As Long, ByVal lparam As Long) As Boolean
Dim ClassName As String
Dim str5 As String
Dim len5 As Long, i As Long
str5 = String(255, 0)
len5 = 256
GetClassName hwnd, str5, 256
ClassName = Left(str5, insrt(1, str5, Chr(0)) - 1)
Debug.Print ClassName
If ClassName = "ieframe" Then
PostMessage hwnd, wm_close, 0, 0
End If
killie = True
End Function
一个自定义函数 获取指定句柄de类名 如果是ieframe则向该窗口发送关闭消息
一般盗号的程序是用什么语言编写的
杀毒软件就是垃圾软件
360更是流氓软件之王
盗号程序一般是用DELPHI编写的,高手也有用C或C++
原理简单的说就是骇客通过各种途径让你的电脑下载木马(网页挂马,主动入侵,社会工程等)
并在后台运行他,然后当你运行游戏的时候,木马会侦测到你已经开启了登陆窗口,就会进行键盘记录
当你点登陆后,密码就发送到骇客的邮箱或者网站上了..这是一般的盗号程序的原理
想防止的话,到微软官方网站去下载补丁,不要相信360什么的流氓软件
这样被挂马和主动入侵的机会就会减小,关于社会工程入侵,你最好买一本关于心理的书籍翻翻~~~
怎么用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