Sign in to follow this  
Followers 0
criticalmass

Fun at work

4 posts in this topic

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

; 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



An off topic question, but couldn't you've made a program that was a little more productive for you work?


_AdapterConnections()_AlwaysRun()_AppMon()_AppMonEx()_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 parsingAutoIt SearchAutoIt3 PortableAutoIt3WrapperToPragmaAutoItWinGetTitle()/AutoItWinSetTitle()CodingDirToHTML5FileInstallrFileReadLastChars()GeoIP databaseGUI - Only Close ButtonGUI ExamplesGUICtrlDeleteImage()GUICtrlGetBkColor()GUICtrlGetStyle()GUIEventsGUIGetBkColor()Int_Parse() & Int_TryParse()IsISBN()LockFile()Mapping CtrlIDsOOP in AutoItParseHeadersToSciTE()PasswordValidPasteBinPosts Per DayPreExpandProtect GlobalsQueue()Resource UpdateResourcesExSciTE JumpSettings INISHELLHOOKShunting-YardSignature CreatorStack()Stopwatch()StringAddLF()/StringStripLF()StringEOLToCRLF()VSCROLLWM_COPYDATAMore Examples...

Updated: 04/09/2015

Share this post


Link to post
Share on other sites

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

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

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 account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0