Button =网站链接在AutoIT

我在AutoIT中为我们制作的这个程序制作了一个按钮，我们将其称为$ okmystery，并且我想要$ okmystery喜欢到我公司的网站。下面是代码片段我到目前为止有：Button =网站链接在AutoIT

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)

来源

2011-06-29 Alex

看起来你需要改变“$ 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

来源

2011-06-29 23:40:39

Button =网站链接在AutoIT

回答

相关问题