|
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Opt("TrayAutoPause",0)
Opt('MustDeclareVars', 1)
Example()
Func Example()
Local $oIE, $GUIActiveX, $GUI_Button_cqssc, $GUI_Button_Forward
Local $GUI_Button_Home, $GUI_Button_jxssc, $GUI_Button_hssc, $msg
$oIE = ObjCreate("Shell.Explorer.2")
GUICreate("时时彩开奖视频", 460, 213, (@DesktopWidth - 460) / 2, (@DesktopHeight - 213) / 2, BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS, $WS_CLIPCHILDREN))
$GUIActiveX = GUICtrlCreateObj ($oIE, 0, 0, 460, 180)
$GUI_Button_cqssc = GUICtrlCreateButton("重 庆", 5, 183, 60, 25)
$GUI_Button_jxssc = GUICtrlCreateButton("江 西", 67, 183, 60, 25)
$GUI_Button_hssc = GUICtrlCreateButton("黑龙江", 129, 183, 60, 25)
$GUI_Button_Home = GUICtrlCreateButton("刷 新", 323, 183, 60, 25)
$GUI_Button_Forward = GUICtrlCreateButton("退 出", 385, 183, 60, 25)
GUISetState()
$oIE.navigate("http://bonusvideo.shishicai.com/Images/CQSSCAwardNumberShow.swf")
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $GUI_Button_cqssc
$oIE.navigate("http://bonusvideo.shishicai.com/Images/CQSSCAwardNumberShow.swf")
Case $msg = $GUI_Button_jxssc
$oIE.navigate("http://bonusvideo.shishicai.com/Images/JXSSCAwardNumberShow.swf")
Case $msg = $GUI_Button_hssc
$oIE.navigate("http://bonusvideo.shishicai.com/Images/HLJSSCAwardNumberShow.swf")
Case $msg = $GUI_Button_Home
$oIE.navigate("http://bonusvideo.shishicai.com/Images/CQSSCAwardNumberShow.swf")
Case $msg = $GUI_Button_Forward
TrayTip( "稳馨提示", "谢谢你的使用!",3)
sleep(2000)
Exit
EndSelect
WEnd
GUIDelete()
EndFunc |
|