criticalmass Posted June 29, 2011 Share 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. Link to comment Share on other sites More sharing options...
guinness Posted June 29, 2011 Share 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 Link to comment Share on other sites More sharing options...
Tvern Posted June 29, 2011 Share 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 Link to comment Share on other sites More sharing options...
criticalmass Posted June 29, 2011 Author Share 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. Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now