[e]
.版本 2
.支持库 HtmlView
.支持库 iext
.支持库 shell
.支持库 internet
.支持库 sock
.支持库 eAPI

.程序集 窗口程序集1
.程序集变量 窗口截图, 字节集

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

函数_加载皮肤 (#界面_积木)
超文本浏览框1.地址 ＝ “www.2345.com/?k372837226”
透明标签1.标题 ＝ 到文本 (取星期几 (取现行时间 ()))
透明标签3.标题 ＝ 到文本 (取年份 (取现行时间 ())) ＋ “ ” ＋ “年”
透明标签4.标题 ＝ 到文本 (取月份 (取现行时间 ())) ＋ “ ” ＋ “月”
透明标签5.标题 ＝ 到文本 (取日 (取现行时间 ())) ＋ “ ” ＋ “日”
时钟1.时钟周期 ＝ 1000
分组框8.可视 ＝ 假
状态条1.置文本 (3, “本软件由绥德汉工作室-绥德小高制作”)
状态条1.置文本 (1, “稳定”)

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

超文本浏览框1.地址 ＝ “www.2345.com/?k372837226”

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

.如果真 (编辑框1.内容 ＝ “”)
    信息框 (“地址不能为空！”, 0, )
    返回 ()
.如果真结束
超文本浏览框1.地址 ＝ 编辑框1.内容


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

超文本浏览框1.地址 ＝ “www.shuobar.cn”

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

超文本浏览框1.地址 ＝ “www.weilaikj.cn”

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

.如果真 (编辑框2.内容 ＝ “”)
    信息框 (“搜索内容不能为空！”, 0, )
    返回 ()
.如果真结束
超文本浏览框1.地址 ＝ “http://www.baidu.com/s?wd= ” ＋ 编辑框2.内容


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

载入 (关于, _启动窗口, 真)


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

透明标签6.标题 ＝ 到文本 (取现行时间 ())
状态条1.置文本 (2, “      现在是 ： ” ＋ 到文本 (取现行时间 ()))


.子程序 __启动窗口_尺寸被改变

超文本浏览框1.宽度 ＝ _启动窗口.宽度 － 18
超文本浏览框1.高度 ＝ _启动窗口.高度 － 173


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

超文本浏览框1.地址 ＝ “www.r816.com”

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

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


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

超文本浏览框1.执行命令 (0)


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

超文本浏览框1.执行命令 (5)

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

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


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

载入 (收藏, _启动窗口, 真)


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

.判断开始 (分组框8.可视 ＝ 真)
    分组框8.可视 ＝ 假
.判断 (分组框8.可视 ＝ 假)
    分组框8.可视 ＝ 真
.默认

.判断结束


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

分组框8.可视 ＝ 假

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

运行 (“control.exe inetcpl.cpl”, 假, )

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

载入 (工具, _启动窗口, 真)


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

载入 (it人, _启动窗口, 真)


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

窗口截图 ＝ 截图 ()
通用对话框1.类型 ＝ 1
通用对话框1.默认文件后缀 ＝ “bmp”
.如果真 (通用对话框1.打开 () ＝ 真)
    写到文件 (通用对话框1.文件名, 窗口截图)
    信息框 (“保存完毕！”, 0, “消息：”)
.如果真结束


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

执行 (, “calc”, , “C:\Windows\system32”, )

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

载入 (窗口1, _启动窗口, 真)


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

运行 (取运行目录 () ＋ “/” ＋ “zmht” ＋ “/” ＋ “zmht.exe”, 假, )


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

运行 (取运行目录 () ＋ “/” ＋ “yy” ＋ “/” ＋ “yy.exe”, 假, )


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

超文本浏览框1.地址 ＝ “http://www.52suide.com/plugin.php?id=damei_tv:tv”

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

运行 (取运行目录 () ＋ “/” ＋ “xz” ＋ “/” ＋ “xz.exe”, 假, )


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

.如果真 (编辑框5.内容 ＝ “”)
    信息框 (“对不起！建议不能为空”, 0, )
    返回 ()
.如果真结束
.如果真 (编辑框6.内容 ＝ “”)
    信息框 (“请输入你的QQ！”, 0, )
    返回 ()

.如果真结束
连接发信服务器 (“smtp.qq.com”, 25, “[email protected]”, “18791262004”, )
发送邮件 (“浏览器建议”, “建议：” ＋ 编辑框5.内容 ＋ #换行符 ＋ “建议人QQ：” ＋ 编辑框6.内容 ＋ #换行符 ＋ “IP：” ＋ 到文本 (取本机IP ()) ＋ #换行符 ＋ “计算机名：” ＋ 到文本 (取本机名 ()) ＋ #换行符 ＋ “网卡名：” ＋ 到文本 (取本机网卡名 ()) ＋ #换行符 ＋ “网卡物理地址：” ＋ 到文本 (取本机网卡物理地址 ()), “[email protected]”, “[email protected]”, “[email protected]”, “[email protected]”, “[email protected]”)

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

.如果真 (编辑框3.内容 ＝ “”)
    信息框 (“搜索内容不能为空！”, 0, )
    返回 ()
.如果真结束


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

.如果真 (编辑框4.内容 ＝ “”)
    信息框 (“播放地址不能为空！”, 0, )
    返回 ()
.如果真结束
[/e]

已经解决了

已经解决了

上源码是唯一解决方法。

不上传源码，你在问谁？