0

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

1 回答 1

0

看起来您需要更改“$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
于 2011-06-29T23:40:39.317 回答