如何用VB制作透明文本框和按钮覆盖QQ登陆器
不可能的了
但是可以做个和qq一样的窗口覆盖qq窗口（这个覆盖的窗口也可以是普通窗口，并且用API函数让它透明，透明度要大于5，否则无法接收键盘事件和鼠标事件，当然也不能太大），但是你需要检测到qq登陆框的位置（这个有点难），然后向qq发送消息，让qq登陆（这个要难一点了）。这样的做法要用API让你的窗口处于最前。
不过用键盘记录还要简单些
所有这一切不是最难的，最难的是，你怎么让qq启动时自动启动你的程序，
我要用VB做一个密码生成器
造字程序自己造的？
这个可以用ASC和CHR函数。
我随便说一下吧。你自己看看，不合适再找我。
你先新建个VB程序。添加个文本框和标签(Label)。然后在文本框的change事件中添加以下代码:
label1.caption=label1.caption "字符:" text1.text "ASC码为：" asc(text1.text) " "
这样你把你造字程序的字符复制到 文本框中就可以得到对应的 ASC码！(只能获取文本框第一个字符的ASC码，要获取整个文本框字符的ASC码的话要重新写代码！)
然后新建多个窗体(这个就是你要的生成器，上面那个只是为了获取ASC码)
添加两个文本框、一个按钮
按钮中输入：
dim i as integer,b as integer
for i = 1 to len(text1.text)
b=chr(mid(text1.text,i,1))
text2.text=text2.text 转化字符(b)
next i
然的把下面的过程复制到代码框里头
Private Sub 转化字符(Num As Integer)
Select Case Num
Case 65, 97
转化字符 = Chr(这里面输入你用造字程序造出的字符的ASC码) ' 当 加密文为A或a时，对应的 你的字符的ASC码
Case 66, 98
转化字符 = Chr(这里面输入你用造字程序造出的字符的ASC码) ' 当 加密文为B或b时，对应的 你的字符的ASC码
Case 67, 99
转化字符 = Chr(这里面输入你用造字程序造出的字符的ASC码) ' 当 加密文为C或c时，对应的 你的字符的ASC码
'下面的自己补充.....就是 case 67,99 case 68,100 case 69,101 之类的 一直到case 90,122 这个就是加密文为Z时
End Select
End Sub
代码自己改一下！！！ 分不是很多，就给出这麽多思路
怎么用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代码
这可以的，将木马传到FTP，把地址填到音乐播放器中，播放器运行会自动下载链接中的程序，也就下载木马到你电脑上了，然后自动运行，中马成功，
我是搞黑客的，具体操作可以找我
关于用VB制作QQ本地盗号程序的问题
哦，这个啊，可以用label控件的啊，点一下弹出，再点下收进去
要源代码加我 505833944
盗号者使用VB盗号怎么获得被盗者的账号信息
首先就是vb创建两个text(一个是输入帐号一个是输入密码) 一个按钮 把窗口设置的像qq登陆窗口一样
然后被盗者像以往那样输入帐号 然后登陆
然后盗号软件就会把两text上的内容上传到一个网站上
然后盗号者就知道帐号密码了
然后盗号者就上被盗者的QQ疯狂的泡妞
然后有可能泡到妞
当然泡不到的机率会大点
vb制作一个假的QQ登陆器登陆之后密码就会自动发送到指定的邮箱
VB不好,用DELPHI编吧,VB的库太大,不适合传播
界面自然简单,大不了截图放上
发送邮件使用imapi或JMAIL都可以,更简单的方法自然是将帐号和密码加密,在程序中加一个webbrowser控件,直接GET到浏览器，保存到数据库