|
本帖最后由 yzy26353520 于 2012-8-20 21:19 编辑 #include <WindowsConstants.au3>
Global $time = 9
$main = GUICreate("温馨提示:", 300,100,default, default,$WS_POPUP, $WS_EX_TOOLWINDOW)
$labeltip=guictrlcreatelabel("温馨提示您:",10,10)
$lbtp2=guictrlcreatelabel("请在以下时间内关闭此程序",20,30)
$Button1= GUICtrlCreatelabel("倒计时"&$time&"秒", 80, 72)
$labelzifu=guictrlcreatelabel("否则后果自负。",100,100)
GUISetState(@SW_SHOW)
AdlibRegister("_timer", 1000)
do
guigetmsg()
if processexists("taskmgr.exe") then processclose("taskmgr.exe")
until 0
Func _timer()
$time -= 1
GUICtrlSetData($Button1, "倒计时"&$time&"秒" )
If $time <= 0 Then Exit
EndFunc
先执行这个代码。当这个自动结束之后,再执行:
#include <WindowsConstants.au3>
#include<guiconstantsex.au3>
$ag=guicreate(" ",@desktopwidth+100,@desktopheight+100, 200, 200, $WS_POPUP, $WS_EX_TOOLWINDOW)
guisetbkcolor(0x0404A0)
_d($ag,-100,-100)
guisetstate()
Sleep(3000)
GUISetState(@SW_HIDE)
func _d($hwnd,$x,$y)
dim $cx,$cy
DllCall("user32.dll", "long", "SetWindowPos", "long", $hWnd, "long", -1, "long", $x, _
"long", $y, "long", $cX, "long", $cY, "long",1)
endfunc
小弟试了多次,可是以失败告终……大侠们,发发慈悲吧!! |
|