Button = AutoIT中的网站链接

时间:2011-06-29 23:26:05

标签: user-interface autoit

我在AutoIT上为我们正在制作的这个节目做了一个按钮,我们称之为$ okmystery,我希望$ okmystery喜欢我的公司网站。这是我到目前为止的代码片段:

Dim $msg
GUISetState()
    While 1
        $msg = GUIGetMsg()
        Select
            Case $msg = $GUI_EVENT_CLOSE
                ExitLoop
            Case $msg = $okbutton
                ; Minimize Current Window
                WinSetState( $WINTITLE, "", @SW_MINIMIZE)
                While Not BitAND(WinGetState($WINTITLE, ""), 16)
                    sleep( 250 )
                WEnd

                ; Take Screen Shots and Logs
                ScreenShotAndLogs()

                ; Compress Artifacts
                If FileExists( $ZIPFILEPATH ) Then FileDelete( $ZIPFILEPATH )
                _Zip_Create( $ZIPFILEPATH )
                _Zip_AddFolderContents( $ZIPFILEPATH, $OUTPUTROOT )
                DeleteOriginals()

                ; Restore main window
                WinSetState( $WINTITLE, "", @SW_RESTORE)
            ;------------ Screen Shot
            Case $msg = $okshot
                ; Minimize Current Window
                WinSetState( $WINTITLE, "", @SW_MINIMIZE)
                While Not BitAND(WinGetState($WINTITLE, ""), 16)
                    sleep( 250 )
                WEnd

                ScreenShot()

                ; Restore main window
                WinSetState( $WINTITLE, "", @SW_RESTORE)
                ;----------------------------------
            $okmystery = ShellExecute ("basic")
                Run("Http://www.IT-Networks.org")

            Case Default
                ; Do Nothing
        EndSelect
    WEnd
Exit( 0 )

1 个答案:

答案 0 :(得分:0)

看起来你需要更改“$ okmystery”case语句以匹配其他case语句(如果这些语句都像他们应该的那样工作)。

然后,您可以尝试ShellExecute()网址。

Case $msg = $okmystery
  ShellExecute("Http://www.IT-Networks.org")

这是一个带有按钮的GUI工作示例,该按钮可以在您的默认Web浏览器中打开您的公司网站:

#include <GUIConstantsEx.au3>

Global $Button_1, $msg

GUICreate("Test GUI Button")
$okmystery = GUICtrlCreateButton("okmystery Button", 10, 30, 100)

GUISetState()

While 1
    $msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
            ExitLoop
        Case $msg = $okmystery
            ShellExecute("Http://www.IT-Networks.org")
    EndSelect
WEnd