按钮 = AutoIT 中的网站链接

Question

我在 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 )

Answer 1

看起来您需要更改“$okmystery”case 语句以匹配其他 case 语句（如果这些语句都按预期工作）。

然后您可以尝试 ShellExecute() 该 url。

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