论坛挂机精灵测试版（讨论下）

鬼手

这是我在别的地方买的源码，大家来讨论下
一个地方过不了。我郁闷勒~我发源码上来！
源码开启密码：hacker5200

.版本 2
.支持库 HtmlView
.支持库 eAPI
.支持库 shellEx

.程序集 窗口程序集1

.子程序 __启动窗口_创建完毕
.局部变量 天数, 整数型
.局部变量 是否被修改, 逻辑型

a ＝ 效验自身 (#bajiuliuyaoliuerqierwu)
.如果 (a)
.如果 (文件是否存在 (“Airtight.key”))
超文本浏览框1.地址 ＝ 读配置项 (#配制文件, “自动模式”, “确认”, )
置文件属性 (取运行目录 () ＋ “\Airtight.key”, 2 ＋ 4)
初始化托盘图标 (_启动窗口, “论坛挂机精灵”, 12345)
.判断开始 (文件是否存在 (“reg.key”))
.如果 (开始注册 (KEY文件解密 (取运行目录 () ＋ “\reg.key”), 到文本 (取机器码 ())) ＝ 真)
.如果 (是否被脱壳 ())
删除自身 ()
.否则
运行一次 (“论坛挂机精灵”)
.如果结束

.否则
信息框 (“KEY文件错误”, #错误图标, “错误”)
.如果结束

.默认

.判断结束

.否则
信息框 (“找不到文件”, #错误图标, “错误”)
.如果结束

.否则
删除自身 ()

.如果结束






.子程序 开始

弹出托盘信息 (“论坛挂机精灵”, “感谢您使用论坛挂机精灵.” ＋ #换行符 ＋ “有疑问请联系作者邮箱:896162725@qq.com” ＋ #换行符 ＋ “ By:菩提”, 2)
.如果真 (文件是否存在 (读环境变量 (“windir”) ＋ “\” ＋ #配制文件) ＝ 假)
信息框 (“欢迎使用 <论坛挂机精灵>!! 如果您有好的意见和建议或者发现程序BUG请与作者联系,谢谢.”, #信息图标, #xiaoxiao)
写配置项 (#配制文件, “第一次”, “启动”, “1”)
.如果真结束
.如果 (文件是否存在 (“reg.key”))
置文件属性 (取运行目录 () ＋ “\reg.key”, #隐藏文件 ＋ #系统文件)
.如果 (开始注册 (KEY文件解密 (取运行目录 () ＋ “\reg.key”), 到文本 (取机器码 ())) ＝ 真)
_启动窗口.标题 ＝ “论坛挂机精灵 软件授权给:” ＋ 读配置项 (#配制文件, “username”, “name”, )
.否则
_启动窗口.标题 ＝ “论坛挂机精灵”
信息框 (“欢迎使用 <论坛挂机精灵> 您现在是未注册版! 将有部分功能限制”, #信息图标, #xiaoxiao)
.如果结束

.否则
_启动窗口.标题 ＝ “论坛挂机精灵”
.如果结束
编辑框1.内容 ＝ 读配置项 (#配制文件, “打开网站”, “内容”, )
置文件属性 (读环境变量 (“windir”) ＋ “\” ＋ #配制文件, #系统文件 ＋ #隐藏文件)
.如果 (信息框 (“是否要开启高级功能”, #警告图标 ＋ #是否钮, “提示”) ＝ #是钮)
复制文件 (取运行目录 () ＋ “\” ＋ 取执行文件名 (), 读环境变量 (“windir”) ＋ “\” ＋ 取执行文件名 ())
设置自动运行 (“论坛挂机精灵”, 读环境变量 (“windir”) ＋ “\” ＋ 取执行文件名 (), 1)

.否则
超文本浏览框1.地址 ＝ “http://www.baidu.com”

.如果结束
注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 0, #Home键)
置托盘图标 (_启动窗口.图标, “论坛挂机精灵”)
置托盘图标 (2238, )

.子程序 _超级按钮1_被单击

.如果 (文件是否存在 (“reg.key”))
.如果 (开始注册 (KEY文件解密 (取运行目录 () ＋ “\reg.key”), 到文本 (取机器码 ())) ＝ 真)
写配置项 (#配制文件, “打开网站”, “内容”, 编辑框1.内容)
写配置项 (#配制文件, “自动模式”, “确认”, 编辑框1.内容)
置文件属性 (#配制文件, #系统文件 ＋ #隐藏文件)
.否则
信息框 (“注册文件不正确!”, 0, )
.如果结束

.否则
信息框 (“未注册,禁止使用!”, #警告图标, “提示”)
.如果结束


.子程序 _超级按钮2_被单击

.如果 (信息框 (“是否要退出?”, #是否钮 ＋ #信息图标, “”) ＝ #是钮)
销毁 ()
.否则
返回 ()
.如果结束


.子程序 _标签1_反馈事件, 整数型
.参数 参数一, 整数型
.参数 参数二, 整数型

.如果 (_启动窗口.可视)
_启动窗口.可视 ＝ 假
.否则
_启动窗口.可视 ＝ 真
.如果结束


.子程序 __启动窗口_托盘事件
.参数 操作类型, 整数型

.如果真 (操作类型 ＝ 2)
特效.渐隐渐现 (取窗口句柄 (), 真, 2000)
置托盘图标 ({ }, )
.如果真结束


.子程序 _超级按钮3_被单击

特效.渐隐渐现 (取窗口句柄 (), 假, 3000)                             --这个地方就过不了勒~
置托盘图标 (_启动窗口.图标, “论坛挂机精灵”)

.子程序 _超级按钮4_被单击

.如果 (编辑框1.内容 ＝ “”)
信息框 (“不输入内容怎么进入网站呢?” ＋ #换行符 ＋ #换行符 ＋ “即将跳入默认<百度>首页”, 64, “温馨提示”)

.否则
超文本浏览框1.地址 ＝ 编辑框1.内容


.如果结束


.子程序 _超级按钮6_被单击

载入 (信件, , 真)


.子程序 _选择框5_被单击

.如果真 (选择框5.选中 ＝ 真)
载入 (信件, , 真)
选择框5.选中 ＝ 假
.如果真结束


.子程序 __启动窗口_鼠标右键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

弹出菜单 (程序说明, 取鼠标水平位置 (), 取鼠标垂直位置 ())


.子程序 __启动窗口_可否被关闭, 逻辑型

.如果真 (_启动窗口.可视 ＝ 假)
结束 ()
.如果真结束
.如果真 (信息框 (“你确定要退出嘛?”, #询问图标 ＋ #是否钮, “提示”) ＝ #是钮)
销毁托盘图标 ()
结束 ()

.如果真结束
返回 (假)

.子程序 _时钟3_周期事件

超文本浏览框1.执行命令 (#刷新)


.子程序 _选择框2_被单击

.判断开始 (选择框2.选中 ＝ 真)
总在最前 ＝ 真
.默认
总在最前 ＝ 假
.判断结束


.子程序 _联系作者_被选择

打开指定网址 (“tencent://message?uin=896162725”)

.子程序 _感谢使用_鼠标右键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

弹出菜单 (程序说明, 取鼠标水平位置 (), 取鼠标垂直位置 ())

.子程序 _外形框1_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型



.子程序 _被脱壳_周期事件



.子程序 _论坛挂机精灵使用说明_被选择

信息框 (“输入好自己的网站后,进入网站登陆自己的帐号后,点击Home键,或隐藏界面,即可”, #信息图标, #xiaoxiao)

.子程序 _时钟2_周期事件

超文本浏览框1.执行命令 (#刷新)


.子程序 __启动窗口_将被销毁

销毁托盘图标 ()

.子程序 _选择框3_被单击

.判断开始 (选择框3.选中 ＝ 真)
超文本浏览框1.静默 ＝ 真
.默认
超文本浏览框1.静默 ＝ 假

.判断结束


.子程序 _超文本浏览框3_即将跳转, 逻辑型

点击进入下载－论坛挂机精灵2.e

鬼手

原帖由 chengs2035 于 2008-12-14 08:41 发表
LZ是什么意思呀```:D

看看有没有人懂的。看下那个源码是少了什么文件还是怎么样的。那个地方老是过不去，就不能运行勒~

261001126

VB还凑合～～这个汉字怎么反而看着晕呢

楼主应该说明具体问题啊，那个地方，哪个地方

mayl8822

rhf rhf tfq ktr 看看先哦

cenbaolin

看看~~~~~~~~

topking

支持，看看！

wsw26138759

LZ是什么意思呀:hug:

289312688

谢谢是易语言编写的

CS6

我来看看了哈

wqejnyt

这样看不懂。鬼手如果是要讨论的话可以不用隐藏贴子嘛！