|
楼主 |
发表于 2018-4-22 15:09:48
|
显示全部楼层
山东省青岛市
你强悍,你看:
.版本 2
.支持库 iext
.支持库 HtmlView
.子程序 __启动窗口_创建完毕
.如果 (文件是否存在 (“NeuzD.dll”) = 假)
信息框 (“请将此程序放到客户Duan内运行!”, 0, )
结束 ()
.否则
进程存在 (“Neuz.exe”)
读取配置 ()
运行 (取运行目录 () + “\neuz.exe ” + #启动命令行 + “ ” + 线路ip, 假, )
结束 ()
读取配置 ()
.如果真 (是否显示选择线路 = 假)
载入 (选择xl, , 真)
.如果真结束
禁止多开 ()
控件透明美化 ()
标签_版本号.标题 = 到文本 (“当前版本号 VER:” + 取两文本中间 (到文本 (读入文件 (取运行目录 () + “/list.txt”)), “VER:”, #换行符))
超文本浏览框1.地址 = #公告页
执行子程序 ()
.如果结束
原窗口 = 设置窗口信息_ (取窗口句柄 (), #GWL_WNDPROC, &窗口处理函数) ' 这用于处理窗口消息,以限制窗口不要拖出屏幕外.
状态 = 4
步进值 = 15 ' 这里可以调节
隐藏值 = 5 ' 这里可以调节
|
|