criticalmass 0 Posted June 29, 2011 So i am made a program for work my first autoit program but i been looking in the help and i cant figure out how to make a button go to a URl when u click on it expandcollapse popup; Create Form GUICreate($WINTITLE, 400, 400, (@DesktopWidth - 4) / 2, (@DesktopHeight - 400) / 2, $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS) ; 2.Error Rerport $okbutton = GUICtrlCreateButton("2. Error Report", 285, 10, 85, 26) ; 1. Screen Capture $okshot = GUICtrlCreateButton("1. Screen Capture", 10, 10, 95, 26) ;. 3. OK Mystery $okmystery = GUICtrlCreateButton("?", 175, 10, 20, 26) ; Create Labels CreateLabels() ; Create Inputs CreateInputs() ; Main Loop - Wait for User Input for Option 2. 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 = _IE_Example ("basic") _IEImgClick ($okmystery, "http://www.youtube.com/watch?v=oHg5SJYRHA0&playnext=1&list=PL9597876E8DF8EBA1") Case Default ; Do Nothing EndSelect WEnd Exit( 0 ) if someone could help me its the red text i wanna rick roll him since he got me today at work. Share this post Link to post Share on other sites
guinness 1,478 Posted June 29, 2011 An off topic question, but couldn't you've made a program that was a little more productive for you work? UDF List: _AdapterConnections() • _AlwaysRun() • _AppMon() • _AppMonEx() • _ArrayFilter/_ArrayReduce • _BinaryBin() • _CheckMsgBox() • _CmdLineRaw() • _ContextMenu() • _ConvertLHWebColor()/_ConvertSHWebColor() • _DesktopDimensions() • _DisplayPassword() • _DotNet_Load()/_DotNet_Unload() • _Fibonacci() • _FileCompare() • _FileCompareContents() • _FileNameByHandle() • _FilePrefix/SRE() • _FindInFile() • _GetBackgroundColor()/_SetBackgroundColor() • _GetConrolID() • _GetCtrlClass() • _GetDirectoryFormat() • _GetDriveMediaType() • _GetFilename()/_GetFilenameExt() • _GetHardwareID() • _GetIP() • _GetIP_Country() • _GetOSLanguage() • _GetSavedSource() • _GetStringSize() • _GetSystemPaths() • _GetURLImage() • _GIFImage() • _GoogleWeather() • _GUICtrlCreateGroup() • _GUICtrlListBox_CreateArray() • _GUICtrlListView_CreateArray() • _GUICtrlListView_SaveCSV() • _GUICtrlListView_SaveHTML() • _GUICtrlListView_SaveTxt() • _GUICtrlListView_SaveXML() • _GUICtrlMenu_Recent() • _GUICtrlMenu_SetItemImage() • _GUICtrlTreeView_CreateArray() • _GUIDisable() • _GUIImageList_SetIconFromHandle() • _GUIRegisterMsg() • _GUISetIcon() • _Icon_Clear()/_Icon_Set() • _IdleTime() • _InetGet() • _InetGetGUI() • _InetGetProgress() • _IPDetails() • _IsFileOlder() • _IsGUID() • _IsHex() • _IsPalindrome() • _IsRegKey() • _IsStringRegExp() • _IsSystemDrive() • _IsUPX() • _IsValidType() • _IsWebColor() • _Language() • _Log() • _MicrosoftInternetConnectivity() • _MSDNDataType() • _PathFull/GetRelative/Split() • _PathSplitEx() • _PrintFromArray() • _ProgressSetMarquee() • _ReDim() • _RockPaperScissors()/_RockPaperScissorsLizardSpock() • _ScrollingCredits • _SelfDelete() • _SelfRename() • _SelfUpdate() • _SendTo() • _ShellAll() • _ShellFile() • _ShellFolder() • _SingletonHWID() • _SingletonPID() • _Startup() • _StringCompact() • _StringIsValid() • _StringRegExpMetaCharacters() • _StringReplaceWholeWord() • _StringStripChars() • _Temperature() • _TrialPeriod() • _UKToUSDate()/_USToUKDate() • _WinAPI_Create_CTL_CODE() • _WinAPI_CreateGUID() • _WMIDateStringToDate()/_DateToWMIDateString() • Au3 script parsing • AutoIt Search • AutoIt3 Portable • AutoIt3WrapperToPragma • AutoItWinGetTitle()/AutoItWinSetTitle() • Coding • DirToHTML5 • FileInstallr • FileReadLastChars() • GeoIP database • GUI - Only Close Button • GUI Examples • GUICtrlDeleteImage() • GUICtrlGetBkColor() • GUICtrlGetStyle() • GUIEvents • GUIGetBkColor() • Int_Parse() & Int_TryParse() • IsISBN() • LockFile() • Mapping CtrlIDs • OOP in AutoIt • ParseHeadersToSciTE() • PasswordValid • PasteBin • Posts Per Day • PreExpand • Protect Globals • Queue() • Resource Update • ResourcesEx • SciTE Jump • Settings INI • SHELLHOOK • Shunting-Yard • Signature Creator • Stack() • Stopwatch() • StringAddLF()/StringStripLF() • StringEOLToCRLF() • VSCROLL • WM_COPYDATA • More Examples... Updated: 22/04/2018 Share this post Link to post Share on other sites
Tvern 7 Posted June 29, 2011 An off topic question, but couldn't you've made a program that was a little more productive for you work? All work and no play makes criticalmass a dull boy? This should be plenty annoying: $hGUI = GUICreate("Some GUI",300,300) GUICtrlCreateLabel("Some controls here",10,10) GUISetState() While 1 Switch GUIGetMsg() Case -3 GUIDelete($hGUI) Opt("TrayIconHide",1) AdlibRegister("_RickRoll",10000) ExitLoop EndSwitch WEnd While 1 ;might want to add an exit method Sleep(10) WEnd Func _RickRoll() ShellExecute("http://www.youtube.com/watch?v=oHg5SJYRHA0&feature=slpl") EndFunc Share this post Link to post Share on other sites
criticalmass 0 Posted June 29, 2011 i wish i could post all the code but its freaking long. the program is awesome it is a system spec checker with error log reporting for apache and sql and framework. Share this post Link to post Share on other sites
