0

仕事用に作成しているこのプログラムのボタンを AutoIT で作成しました。これを $okmystery と呼び、会社の Web サイトに $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" ケース ステートメントを他のケース ステートメントと一致するように変更する必要があるようです (それらが想定どおりに機能している場合)。

ShellExecute()その後、URLを試すことができます。

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

これは、デフォルトの Web ブラウザーで会社の Web サイトを開くボタンを備えた GUI の実例です。

#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 に答える