criticalmass Posted June 29, 2011 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.
guinness Posted June 29, 2011 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
Tvern Posted June 29, 2011 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
criticalmass Posted June 29, 2011 Author 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.
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