本文目录一览：
- 1、怎么用vb6.0 做一个QQ登陆器
- 2、VB制作QQ登录窗口教程和代码
- 3、用VB6.0怎么做qq登录器
- 4、关于用VB制作QQ本地盗号程序的问题
- 5、vb制作一个假的QQ登陆器登陆之后密码就会自动发送到指定的邮箱
- 6、谁回用vb6.0来编一个QQ盗密器
怎么用vb6.0 做一个QQ登陆器
先要抓包，记录QQ登录时向服务器发送的信息
然后用VB做个程序，先打开，QQ，然后向服务器发送抓包抓出来的那些信息即可！
VB制作QQ登录窗口教程和代码
1、在桌面上，鼠标左键双击程序，打开VB编程软件，在左边工具栏上，单击【Label】按钮，在Form1窗口上绘制出两标签，用来写文字的说明。
2、接着，根据窗口的大小，感觉文字小了，可以在Label属性窗口上，修改Font属性值，单击其选择按钮就可以更改字体的大小了。
3、在弹出的字体对话框中，选择四号字的大小，单击【确定】。
4、接着，在程序左边工具栏上，单击【TextBox】按钮，在Form1窗口上绘制出两文本框，并在TextBox属性面板上，修改Text的值，将其清空。
5、然后，在程序左边工具栏上，单击【CommandButton】按钮，在Form1窗口上绘制出两命令按钮在其属性面板上，将Caption的值改为确定，另一个改为取消。
6、最后，在程序左边工具栏上，单击【Image】按钮，在Form1窗口上绘制出两图框，并修改其两处属性值。
7、最后点击运行，如下图所示就完成了。
用VB6.0怎么做qq登录器
首先要知道QQ的服务器IP，端口，以及登录时的指令，没有这些数据怎么登录呢？IP和端口可能好找，指令是不好找的，如果各个指令都能找到的话，QQ就要面临被攻击的危险了。。。。
关于用VB制作QQ本地盗号程序的问题
哦，这个啊，可以用label控件的啊，点一下弹出，再点下收进去
要源代码加我 505833944
vb制作一个假的QQ登陆器登陆之后密码就会自动发送到指定的邮箱
VB不好,用DELPHI编吧,VB的库太大,不适合传播
界面自然简单,大不了截图放上
发送邮件使用imapi或JMAIL都可以,更简单的方法自然是将帐号和密码加密,在程序中加一个webbrowser控件,直接GET到浏览器，保存到数据库
谁回用vb6.0来编一个QQ盗密器
盗QQ主要用hook
找到登录界面的句柄，获得号码和密码的句柄，纪录号码和密码。
我有一个拦截键盘的hook的代码，你参考下吧~！
——————————————————————————————
'以下在.Bas
Option Explicit
Declare Function SetWindowsHookEx Lib "user32" Alias _
"SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, _
ByVal hmod As Long, ByVal dwThreadId As Long) As Long
Declare Function UnhookWindowsHookEx Lib "user32" _
(ByVal hHook As Long) As Long
Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, _
ByVal ncode As Long, ByVal wParam As Long, lParam As Any) As Long
Public hnexthookproc As Long
Public Const HC_ACTION = 0
Public Const WH_KEYBOARD = 2
Public Sub UnHookKBD()
If hnexthookproc 0 Then
UnhookWindowsHookEx hnexthookproc
hnexthookproc = 0
End If
End Sub
Public Function EnableKBDHook()
If hnexthookproc 0 Then
Exit Function
End If
hnexthookproc = SetWindowsHookEx(WH_KEYBOARD, AddressOf _
MyKBHFunc, App.hInstance, 0)
If hnexthookproc 0 Then
EnableKBDHook = hnexthookproc
End If
End Function
Public Function MyKBHFunc(ByVal iCode As Long, _
ByVal wParam As Long, ByVal lParam As Long) As Long
'这三个叁数是固定的，不能动，而MyKBHFunc这个名称只要和
'SetWindowsHookex()中 AddressOf后的名称一样便可，不一定叫什麽
'wParam 是传入按了哪个key的virtual-key code
'如果您将以下的两行unmark则所有键盘的输入皆没有作用
'MyKBHFunc = 1 '吃掉讯息
'Exit Function
MyKBHFunc = 0 '讯息要处理
If iCode 0 Then
MyKBHFunc = CallNextHookEx(hnexthookproc, iCode, wParam, lParam)
Exit Function
End If
If wParam = vbKeySnapshot Then '侦测 有没有按到PrintScreen键
MyKBHFunc = 1 '在这个Hook便吃掉这个讯息
Debug.Print "haha"
Else
Call CallNextHookEx(hnexthookproc, iCode, wParam, lParam)
End If
End Function
'以下在Form
Private Sub Form_Load()
Call EnableKBDHook
End Sub
Private Sub Form_Unload(Cancel As Integer)
Call UnHookKBD
End Sub