QQ控制电脑关机

精易求精丶 · 发表于 2016-3-31 11:15:46

本帖最后由充值精币于 2016-3-31 11:51 编辑

闲得无聊搞的，勿喷

总是有狗来咬人对吧 @2019516385 说我是吾爱的，你去吾爱找出来。还有是不是管你啥事？跟你有关系？看不惯我？站出来证明你厉害？不服去举报我偷源码快去。

窗口程序集名	保留	保留	备注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备注
_按钮1_被单击

子程序名	返回值类型	公开	备注
获取	字节集

变量名	类型	静态	数组	备注
A	字节集

A ＝ HTTP读文件 (“http://q3.qlogo.cn/headimg_dl?bs=qq&dst_uin=” ＋编辑框1.内容＋ “&src_uin=” ＋编辑框1.内容＋ “&fid=” ＋编辑框1.内容＋ “&spec=40&url_enc=0&referer=bu_interface&term_type=PC”)
返回 (A)

子程序名	返回值类型	公开	备注
正则取中间	文本型
参数名	类型	参考	可空	数组	备注
欲取全文本	文本型
左边文本	文本型
右边文本	文本型

变量名	类型	静态	数组	备注
a	正则表达式
b	搜索结果
结果	文本型

a.创建 (左边文本＋ “(.*?)” ＋右边文本, )
b ＝ a.搜索 (欲取全文本, 1, )
结果＝ b.取子匹配文本 (欲取全文本, 1, )
返回 (结果)

子程序名	返回值类型	公开	备注
取中间	文本型
参数名	类型	参考	可空	数组	备注
欲取全文本	文本型
左边文本	文本型
右边文本	文本型

变量名	类型	静态	数组	备注
左边出现的位置	整数型
右边出现的位置	整数型
文本长度	整数型

左边出现的位置＝寻找文本 (欲取全文本, 左边文本, , 假)
右边出现的位置＝寻找文本 (欲取全文本, 右边文本, , 假)

如果真 (左边出现的位置＝ -1 或右边出现的位置＝ -1)

返回 (“”)
文本长度＝取文本长度 (左边文本)
返回 (取文本中间 (欲取全文本, 左边出现的位置＋文本长度, 右边出现的位置－左边出现的位置－文本长度))

子程序名	返回值类型	公开	备注
__启动窗口_创建完毕

时钟1.时钟周期＝ 500
时钟2.时钟周期＝ 500
写注册项 ( #本地机器, “software\microsoft\windows\CurrentVersion\Run\ggkj”, 取运行目录 () ＋ “\ggkj.exe”)
' 删除注册项 (#本地机器, “software\microsoft\windows\CurrentVersion\Run\ggkj”)

子程序名	返回值类型	公开	备注
_时钟1_周期事件

变量名	类型	静态	数组	备注
a	文本型
怪怪	字节集

a ＝到文本 (HTTP读文件 (“http://users.qzone.qq.com/fcg-bi ... k=1&uins=1817474747”))
编辑框2.内容＝正则取中间 (a, “,” ＋ #引号, #引号＋ “,”)

如果真 (编辑框2.内容＝ “隐藏”)

_启动窗口.可视＝假

如果真 (编辑框2.内容＝ “显示”)

_启动窗口.可视＝真

如果真 (编辑框2.内容＝ “关机”)

运行 (“shutdown.exe -s -t 0”, 假, )

如果真 (编辑框2.内容＝ “重启”)

运行 (“shutdown -r -t 0”, 假, )

如果真 (编辑框2.内容＝ “关QQ”)

终止进程 (“QQ.exe”)

i支持库列表	支持库注释
internet	互联网支持库
RegEx	正则表达式支持库
eAPI	应用接口支持库

.版本 2<br />
.支持库 internet<br />
.支持库 RegEx<br />
.支持库 eAPI<br />
<br />
.程序集 窗口程序集_启动窗口<br />
<br />
.子程序 _按钮1_被单击<br />
<br />
<br />
<br />
.子程序 获取, 字节集<br />
.局部变量 A, 字节集<br />
<br />
A ＝ HTTP读文件 (“http://q3.qlogo.cn/headimg_dl?bs=qq&dst_uin=” ＋ 编辑框1.内容 ＋ “&src_uin=” ＋ 编辑框1.内容 ＋ “&fid=” ＋ 编辑框1.内容 ＋ “&spec=40&url_enc=0&referer=bu_interface&term_type=PC”)<br />
返回 (A)<br />
<br />
.子程序 正则取中间, 文本型<br />
.参数 欲取全文本, 文本型<br />
.参数 左边文本, 文本型<br />
.参数 右边文本, 文本型<br />
.局部变量 a, 正则表达式<br />
.局部变量 b, 搜索结果<br />
.局部变量 结果, 文本型<br />
<br />
a.创建 (左边文本 ＋ “(.*?)” ＋ 右边文本, )<br />
b ＝ a.搜索 (欲取全文本, 1, )<br />
结果 ＝ b.取子匹配文本 (欲取全文本, 1, )<br />
返回 (结果)<br />
<br />
.子程序 取中间, 文本型<br />
.参数 欲取全文本, 文本型<br />
.参数 左边文本, 文本型<br />
.参数 右边文本, 文本型<br />
.局部变量 左边出现的位置, 整数型<br />
.局部变量 右边出现的位置, 整数型<br />
.局部变量 文本长度, 整数型<br />
<br />
左边出现的位置 ＝ 寻找文本 (欲取全文本, 左边文本, , 假)<br />
右边出现的位置 ＝ 寻找文本 (欲取全文本, 右边文本, , 假)<br />
.如果真 (左边出现的位置 ＝ -1 或 右边出现的位置 ＝ -1)<br />
    返回 (“”)<br />
.如果真结束<br />
文本长度 ＝ 取文本长度 (左边文本)<br />
返回 (取文本中间 (欲取全文本, 左边出现的位置 ＋ 文本长度, 右边出现的位置 － 左边出现的位置 － 文本长度))<br />
<br />
.子程序 __启动窗口_创建完毕<br />
<br />
时钟1.时钟周期 ＝ 500<br />
时钟2.时钟周期 ＝ 500<br />
写注册项 (#本地机器, “software\microsoft\windows\CurrentVersion\Run\ggkj”, 取运行目录 () ＋ “\ggkj.exe”)<br />
' 删除注册项 (#本地机器, “software\microsoft\windows\CurrentVersion\Run\ggkj”)<br />
<br />
.子程序 _时钟1_周期事件<br />
.局部变量 a, 文本型<br />
.局部变量 怪怪, 字节集<br />
<br />
a ＝ 到文本 (HTTP读文件 (“<a href="http://users.qzone.qq.com/fcg-bin/cgi_get_portrait.fcg?get_nick=1&uins=1817474747" rel="nofollow" rel="nofollow" target="_blank">http://users.qzone.qq.com/fcg-bi ... k=1&uins=1817474747</a>”))<br />
编辑框2.内容 ＝ 正则取中间 (a, “,” ＋ #引号, #引号 ＋ “,”)<br />
.如果真 (编辑框2.内容 ＝ “隐藏”)<br />
    _启动窗口.可视 ＝ 假<br />
.如果真结束<br />
<br />
.如果真 (编辑框2.内容 ＝ “显示”)<br />
    _启动窗口.可视 ＝ 真<br />
.如果真结束<br />
<br />
.如果真 (编辑框2.内容 ＝ “关机”)<br />
    运行 (“shutdown.exe -s -t 0”, 假, )<br />
.如果真结束<br />
<br />
.如果真 (编辑框2.内容 ＝ “重启”)<br />
    运行 (“shutdown -r -t 0”, 假, )<br />
.如果真结束<br />
<br />
.如果真 (编辑框2.内容 ＝ “关QQ”)<br />
    终止进程 (“QQ.exe”)<br />
.如果真结束