找回密码
 加入
搜索
查看: 1641|回复: 1

[AU3基础] 时时彩开奖视频

[复制链接]
发表于 2010-8-10 14:15:37 | 显示全部楼层 |阅读模式
#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
发表于 2010-8-10 14:18:38 | 显示全部楼层
是不是发错地方了?
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-11-15 10:23 , Processed in 0.160618 second(s), 23 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表