天涯 发表于 2010-8-10 14:21:26

时时彩开奖视频

#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
页: [1]
查看完整版本: 时时彩开奖视频