Sign in to follow this  
Followers 0
SecretLanguage

$oIE and possible errors

5 posts in this topic

Hi

I'm experimenting with the creation of more than one $oIE

After adding

case $msg = $PluginClose = GUICtrlCreateObj($OIE, 380, 510, 100, 30)

the program permanently flickers and disables all the rest of the functions.

the first $oIE in the script as

$GUIActiveX = GUICtrlCreateObj ($oIE, 10, 40, 600, 360)

after running

the program permanently flickers and disables all the rest of the functions.

could this be because the parameters overlap each other?


Share this post


Link to post
Share on other sites



To help you we need at least a reproducer script. Show us a stripped down version of your script that shows your problem and we will see how to help.


My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2017-04-18 - Version 1.4.8.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (NEW 2017-02-27 - Version 1.3.1.0) - Download - General Help & Support - Example Scripts - Wiki
ExcelChart (2015-04-01 - Version 0.4.0.0) - Download - General Help & Support - Example Scripts
Excel - Example Scripts - Wiki
Word - Wiki
PowerPoint (2015-06-06 - Version 0.0.5.0) - Download - General Help & Support

Tutorials:
ADO - Wiki

 

Share this post


Link to post
Share on other sites

I believe you are looking for this?

GUICtrlCreatePic("C:\Users\jeff\Desktop\eletrichorse.jpg", 80, 64, 100, 180)
    $GUIActiveX = GUICtrlCreateObj ($oIE, 10, 40, 600, 360)
    $GUI_Button_Back = GUICtrlCreateButton("Refresh/expand", 10, 420, 100, 30)
    $GUI_Button_Forward = GUICtrlCreateButton("exit", 120, 420, 100, 30)
    $GUI_Button_Home = GUICtrlCreateButton("strike gold!", 230, 420, 150, 30)
    $GUI_Button_Stop = GUICtrlCreateButton("Network/New Project?", 400, 420, 150, 30)
    $GUI_button_PortlandMetroCCL =GUICtrlCreateButton("Log out.", 380, 450, 100, 30)
    $GUI_TransCall1 = GUICtrlCreateButton("", 10, 450, 350, 30);5032249534
    $GUI_Script = GUICtrlCreateButton("Task one/script text", 10, 480, 350, 30)
    $special_KENO = GUICtrlCreateButton("int/bool/char", 10, 510, 350, 30)
    $shelC = GUICtrlCreateButton("syntax warning", 10, 540, 350, 30)
    $GUI_rf = GUICtrlCreateButton("www.helper", 380, 480, 100, 30)
    $PluginClose = GUICtrlCreateObj($oIE, 380, 510, 100, 30)
    
    
        

    
    
    
    
    
    $destination = "C:\Users\jeff\Desktop\border.jpg"    ;how are you ; Waiting for user to close the window?from me


    $oIE.navigate("C:\Users\jeff\Desktop\open gl images\yellow.png")
    



    ; Waiting for user to close the window
    While 1
        $msg = GUIGetMsg()

        Select
            Case $msg = $GUI_EVENT_CLOSE
                ExitLoop
            

        
            
            Case $msg = $GUI_Button_Home
                $oIE.navigate("http://freetext.site11.com/")
                Send("#r")
                WinWaitActive("Run")
                Send("notepad.exe{Enter}")
                WinWaitActive("[CLASS:Notepad]")
                Send("Today's time/date is {F5}")
                
                
            Case $msg = $GUI_rf  ;$gui rf is good work on killing previous function to reload program or find a simpler way!
                Send("#r")
                WinWaitActive("Run")
                Send("C:\Users\jeff\Desktop\month4.1.exe{Enter}")
                ;how many tabs
                Send("#r")
                WinWaitActive("Run")
                Send("C:\Users\jeff\Desktop\month4.exe{Enter}")    
                Send("{TAB 10}")
                Send("{RIGHT}20")
                
                Local $Pic1
                
                    
        
                ;crazy code
                ;Send("Today's time/date is {F5},'²( ¢Š( ¢Š( ¢Š( ¢Š( ¢Š( ¢Š( ¢Š( ¢Š( ¢Š( ¢Š( ¢Š( ¢Š( ­_Èd×½Çþ‰zÊ­_Èd×½Çþ‰z Ê¢Š( ¢Š( ¢—” QKŠ1@    E¢€")
                            ;   SplashImageOn("Splash Screen", $destination, 400, 400, -1, -1)
                            ;   Sleep(100)
                            
                
                
            case $msg = $PluginClose = GUICtrlCreateObj($OIE, 380, 510, 100, 30)

Share this post


Link to post
Share on other sites

Looks like the forum ate half of your code :(

Could you please re-post your code enclosed in [autoit][/autoit] tags?


My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2017-04-18 - Version 1.4.8.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (NEW 2017-02-27 - Version 1.3.1.0) - Download - General Help & Support - Example Scripts - Wiki
ExcelChart (2015-04-01 - Version 0.4.0.0) - Download - General Help & Support - Example Scripts
Excel - Example Scripts - Wiki
Word - Wiki
PowerPoint (2015-06-06 - Version 0.0.5.0) - Download - General Help & Support

Tutorials:
ADO - Wiki

 

Share this post


Link to post
Share on other sites

#include <GuiMonthCal.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <FTPEx.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <ScreenCapture.au3>
#include <StaticConstants.au3>
#include <Process.au3>
#include <Array.au3>




Opt('MustDeclareVars', 1)


$Debug_MC = False ; Check ClassName being passed to MonthCal functions, set to True and use a handle to another control to see it work

Global $hMonthCal
Global $plw

_Month()

Func _Month()
    Local $hGUI2, $hMonthCal, $hGUI, $PBS_SMOOTH, $GUI_B1, $GUI_B2, $GUI_B3, $GUI_B4, $GUI_B5, $oIE, $GUIActiveX, $316
    Opt("TrayMenuMode",1)

    ; Create GUI
    $oIE = ObjCreate("Shell.Explorer.2")
    $hGUI2 = GUICreate("Welcome Press Esc to Start", 600, 600, 100, 200, $PBS_SMOOTH)
    $hMonthCal = _GUICtrlMonthCal_Create($hGUI2, 4, 4, $WS_BORDER)
    $GUI_B1 = GUICtrlCreateButton("C¦ ¦l ¦p", 2, 420, 599, 30)
    $GUI_B2 = GUICtrlCreateButton("¦ ¦", 2, 450, 599, 30)
    $GUI_B3 = GUICtrlCreateButton("+", 2, 480, 599, 30)
    $GUI_B4 = GUICtrlCreateButton("+", 2, 510, 599, 30)
    $GUI_B5 = GUICtrlCreateButton("+", 2, 540, 599, 30, $oIE)

    
        
    $GUI_B2 = GUICtrlCreateButton("?", 2, 210, 599, 30)
    $GUI_B3 = GUICtrlCreateButton("?", 2, 180, 599, 30)
    $GUI_B4 = GUICtrlCreateButton("?", 2, 150, 599, 30)
    $GUI_B5 = GUICtrlCreateButton("§", 2, 120, 599, 30, $oIE)
    
    $GUI_B1 = GUICtrlCreateButton("¦", 2, 90, 599, 30)
    $GUI_B2 = GUICtrlCreateButton("£", 2, 60, 599, 30)
    $GUI_B3 = GUICtrlCreateButton("+", 2, 30, 599, 30)
    
    $GUI_B5 = GUICtrlCreateButton("Calender access key = MouseClick &  Right Arrow", 2, 0, 599, 30, $oIE)
    
    

    GUISetState()

    GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY")
    

    ; Loop until user exits
    Do
    Until GUIGetMsg() = $GUI_EVENT_CLOSE
    GUIDelete()
EndFunc   ;==>_Main

Func WM_NOTIFY($hWnd, $iMsg, $iwParam, $ilParam)
    #forceref $hWnd, $iMsg, $iwParam
    Local $hWndFrom, $iIDFrom, $iCode, $tNMHDR, $tInfo, $oiE, $GUI_B5, $GUIActiveX, $msg, $GUI_B1, $316
    

    $GUI_B5 = GUICtrlCreateObj ($oIE, 10, 40, 600, 360)
    $tNMHDR = DllStructCreate($tagNMHDR, $ilParam)
    $hWndFrom = HWnd(DllStructGetData($tNMHDR, "hWndFrom"))
    $iIDFrom = DllStructGetData($tNMHDR, "IDFrom")
    $iCode = DllStructGetData($tNMHDR, "Code")
    Switch $hWndFrom
    
     Case $hMonthCal
            Switch $iCode
                Case $MCN_GETDAYSTATE ; Sent by a month calendar control to request information about how individual days should be displayed
                    $tInfo = DllStructCreate($tagNMDAYSTATE, $ilParam)
                    _DebugPrint("$MCN_GETDAYSTATE" & @LF & "--> hWndFrom:" & @TAB & $hWndFrom & @LF & _
                            "-->IDFrom:" & @TAB & $iIDFrom & @LF & _
                            "-->Code:" & @TAB & $iCode & @LF & _
                            "-->Year:" & @TAB & DllStructGetData($tInfo, "Year") & @LF & _
                            "-->Month:" & @TAB & DllStructGetData($tInfo, "Month") & @LF & _
                            "-->DOW:" & @TAB & DllStructGetData($tInfo, "DOW") & @LF & _
                            "-->Day:" & @TAB & DllStructGetData($tInfo, "Day") & @LF & _
                            "-->Hour:" & @TAB & DllStructGetData($tInfo, "Hour") & @LF & _
                            "-->Minute:" & @TAB & DllStructGetData($tInfo, "Minute") & @LF & _
                            "-->Second:" & @TAB & DllStructGetData($tInfo, "Second") & @LF & _
                            "-->MSecond:" & @TAB & DllStructGetData($tInfo, "MSecond") & @LF & _
                            "-->DayState:" & @TAB & DllStructGetData($tInfo, "DayState") & @LF & _
                            "-->pDayState:" & @TAB & DllStructGetData($tInfo, "pDayState"))
                    ; Address of an array of MONTHDAYSTATE (DWORD bit field that holds the state of each day in a month)
                    ; Each bit (1 through 31) represents the state of a day in a month. If a bit is on, the corresponding day will
                    ; be displayed in bold; otherwise it will be displayed with no emphasis.
                    ; No return value
                Case $msg = $GUI_zip
           
                
                Case $MCN_SELCHANGE ; Sent by a month calendar control when the currently selected date or range of dates changes
                    $tInfo = DllStructCreate($tagNMSELCHANGE, $ilParam)
                    _DebugPrint("$MCN_SELCHANGE" & @LF & "--> hWndFrom:" & @TAB & $hWndFrom & @LF & _
                            "-->IDFrom:" & @TAB & $iIDFrom & @LF & _
                            "-->Code:" & @TAB & $iCode & @LF & _
                            "-->BegYear:" & @TAB & DllStructGetData($tInfo, "BegYear") & @LF & _
                            "-->BegMonth:" & @TAB & DllStructGetData($tInfo, "BegMonth") & @LF & _
                            "-->BegDOW:" & @TAB & DllStructGetData($tInfo, "BegDOW") & @LF & _
                            "-->BegDay:" & @TAB & DllStructGetData($tInfo, "BegDay") & @LF & _
                            "-->BegHour:" & @TAB & DllStructGetData($tInfo, "BegHour") & @LF & _
                            "-->BegMinute:" & @TAB & DllStructGetData($tInfo, "BegMinute") & @LF & _
                            "-->BegSecond:" & @TAB & DllStructGetData($tInfo, "BegSecond") & @LF & _
                            "-->BegMSeconds:" & @TAB & DllStructGetData($tInfo, "BegMSeconds") & @LF & _
                            "-->EndYear:" & @TAB & DllStructGetData($tInfo, "EndYear") & @LF & _
                            "-->EndMonth:" & @TAB & DllStructGetData($tInfo, "EndMonth") & @LF & _
                            "-->EndDOW:" & @TAB & DllStructGetData($tInfo, "EndDOW") & @LF & _
                            "-->EndDay:" & @TAB & DllStructGetData($tInfo, "EndDay") & @LF & _
                            "-->EndHour:" & @TAB & DllStructGetData($tInfo, "EndHour") & @LF & _
                            "-->EndMinute:" & @TAB & DllStructGetData($tInfo, "EndMinute") & @LF & _
                            "-->EndSecond:" & @TAB & DllStructGetData($tInfo, "EndSecond") & @LF & _
                            "-->EndMSeconds:" & @TAB & DllStructGetData($tInfo, "EndMSeconds"))
                    ; No return value
                Case $MCN_SELECT ; Sent by a month calendar control when the user makes an explicit date selection within a month calendar control
                    $tInfo = DllStructCreate($tagNMSELCHANGE, $ilParam)
                    _DebugPrint("$MCN_SELECT" & @LF & "--> hWndFrom:" & @TAB & $hWndFrom & @LF & _
                            "-->IDFrom:" & @TAB & $iIDFrom & @LF & _
                            "-->Code:" & @TAB & $iCode & @LF & _
                            "-->BegYear:" & @TAB & DllStructGetData($tInfo, "BegYear") & @LF & _
                            "-->BegMonth:" & @TAB & DllStructGetData($tInfo, "BegMonth") & @LF & _
                            "-->BegDOW:" & @TAB & DllStructGetData($tInfo, "BegDOW") & @LF & _
                            "-->BegDay:" & @TAB & DllStructGetData($tInfo, "BegDay") & @LF & _
                            "-->BegHour:" & @TAB & DllStructGetData($tInfo, "BegHour") & @LF & _
                            "-->BegMinute:" & @TAB & DllStructGetData($tInfo, "BegMinute") & @LF & _
                            "-->BegSecond:" & @TAB & DllStructGetData($tInfo, "BegSecond") & @LF & _
                            "-->BegMSeconds:" & @TAB & DllStructGetData($tInfo, "BegMSeconds") & @LF & _
                            "-->EndYear:" & @TAB & DllStructGetData($tInfo, "EndYear") & @LF & _
                            "-->EndMonth:" & @TAB & DllStructGetData($tInfo, "EndMonth") & @LF & _
                            "-->EndDOW:" & @TAB & DllStructGetData($tInfo, "EndDOW") & @LF & _
                            "-->EndDay:" & @TAB & DllStructGetData($tInfo, "EndDay") & @LF & _
                            "-->EndHour:" & @TAB & DllStructGetData($tInfo, "EndHour") & @LF & _
                            "-->EndMinute:" & @TAB & DllStructGetData($tInfo, "EndMinute") & @LF & _
                            "-->EndSecond:" & @TAB & DllStructGetData($tInfo, "EndSecond") & @LF & _
                            "-->EndMSeconds:" & @TAB & DllStructGetData($tInfo, "EndMSeconds"))
                    ; No return value
                EndSwitch
                    Case $GUI_B1 ;   here is problem case not working please fix inside matching switch statement
             Run("notepad.exe")
                WinWaitActive("Untitled - Notepad")
                Send("{TAB 17}")
                Send("{ENTER}")
                Send("{ENTER}")
                Send("{ENTER}")
                Send("{SPACE}&{RIGHT}&{ENTER}")
                Send("{ENTER}")
                Send("{RIGHT}&{ENTER}990")
                Local $Pic1
                 
    EndSwitch
    Return $GUI_RUNDEFMSG
EndFunc   ;==>WM_NOTIFY

Func _DebugPrint($s_text, $line = @ScriptLineNumber)
    ConsoleWrite( _
            "!===========================================================" & @LF & _
            "+======================================================" & @LF & _
            "-->Line(" & StringFormat("%04d", $line) & "):" & @TAB & $s_text & @LF & _
            "+======================================================" & @LF)
EndFunc   ;==>_DebugPrint




Opt('MustDeclareVars', 1)

_main()

Func _main()
    Local $progressbar1, $progressbar2, $button, $wait, $s, $msg, $m, $GUI_Button_Back, $special_KENO, $hGUIm, $hGUI2
    
    GUICreate("Netsh c,pp helper", 600, 600, 100, 200)
    $progressbar1 = GUICtrlCreateProgress(10, 10, 200, 20)
    GUICtrlSetColor(-1, 32250); not working with Windows XP Style
    $progressbar2 = GUICtrlCreateProgress(10, 40, 200, 20, $PBS_SMOOTH)
    $button = GUICtrlCreateButton("Start", 75, 70, 70, 20)
    GUISetState()

    $wait = 20; wait 20ms for next progressstep
    $s = 0; progressbar-saveposition
    Do
        $msg = GUIGetMsg()
        If $msg = $button Then
            GUICtrlSetData($button, "Stop")
            For $i = $s To 100
                If GUICtrlRead($progressbar1) = 50 Then MsgBox(0, "Info", "The half is done...", 1)
                $m = GUIGetMsg()
                
                If $m = -3 Then ExitLoop
                
                If $m = $button Then
                    GUICtrlSetData($button, "Next")
                    $s = $i;save the current bar-position to $s
                    ExitLoop
                Else
                    $s = 0
                    GUICtrlSetData($progressbar1, $i)
                    GUICtrlSetData($progressbar2, (100 - $i))
                    Sleep($wait)
                EndIf
            Next
            If $i > 100 Then
                ;        $s=0
                GUICtrlSetData($button, "Start")
            EndIf
        EndIf
    Until $msg = $button
EndFunc   ;==>Example





Opt('MustDeclareVars', 1)

Example()
                
                
; Simple example: Embedding an Internet Explorer Object inside an AutoIt GUI
;
; See also: http://msdn.microsoft.com/workshop/browser/webbrowser/reference/objects/internetexplorer.asp
Func Example()
    Local $oIE, $GUIActiveX, $GUI_Button_Back, $GUI_Button_Forward
    Local $GUI_Button_Home, $GUI_Button_Stop, $msg, $GUI_button_PortlandMetroCCL
    Local $oIE, $server, $username, $Open, $Conn, $Ftpc, $pass, $destination, $GUI_Script, $GUI_TransCall1, $special_KENO, $shelC, $hGUI, $GUI_rf
    Local $Pic1, $316, $rc, $GUI_qt, $Pic1, $PluginClose, $menueID, $plw
    Global $plw, $soIE


    
    $oIE = ObjCreate("Shell.Explorer.2")
    $server = 'null'
    $username = ''
    $pass = ''
    

    
    $Open = _FTP_Open('')
    $Conn = _FTP_Connect($open, $server, $username, $pass);$open?
    $soIE = ObjCreate("shell.explorer.2")
    ; ...
    ;$Ftpc = _FTP_Close($Open)
    
    ; Create a simple GUI for our output
    GUICreate("XTRINNOTEE",400, 10, 640, 580, (@DesktopHeight - 640) / 2, (@DesktopWidth - 580) / 2, BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS, $WS_CLIPCHILDREN))
    GUIRegisterMsg(0x0020,'WM_SETCURSOR')
    
    
    GUICtrlCreatePic("C:\Users\jeff\Desktop\eletrichorse.jpg", 80, 64, 100, 180)
    $GUIActiveX = GUICtrlCreateObj ($oIE, 10, 40, 600, 360)
    $GUI_Button_Back = GUICtrlCreateButton("Refresh/expand", 10, 420, 100, 30)
    $GUI_Button_Forward = GUICtrlCreateButton("exit", 120, 420, 100, 30)
    $GUI_Button_Home = GUICtrlCreateButton("strike gold!", 230, 420, 150, 30)
    $GUI_Button_Stop = GUICtrlCreateButton("Network/New Project?", 400, 420, 150, 30)
    $GUI_button_PortlandMetroCCL =GUICtrlCreateButton("Log out.", 380, 450, 100, 30)
    $GUI_TransCall1 = GUICtrlCreateButton("", 10, 450, 350, 30);5032249534
    $GUI_Script = GUICtrlCreateButton("Task one/script text", 10, 480, 350, 30)
    $special_KENO = GUICtrlCreateButton("int/bool/char", 10, 510, 350, 30)
    $shelC = GUICtrlCreateButton("syntax warning", 10, 540, 350, 30)
    $GUI_rf = GUICtrlCreateButton("www.helper", 380, 480, 100, 30)
    $PluginClose = GUICtrlCreateObj($oIE, 380, 510, 100, 30)
    
    
        

    
    
    
    
    
    $destination = "C:\Users\jeff\Desktop\border.jpg"    


    $oIE.navigate("C:\Users\jeff\Desktop\open gl images\yellow.png")
    



    ; Waiting for user to close the window
    While 1
        $msg = GUIGetMsg()

        Select
            Case $msg = $GUI_EVENT_CLOSE
                ExitLoop
            
        
        
            
            Case $msg = $GUI_Button_Home
                $oIE.navigate("http://freetext.site11.com/")
                Send("#r")
                WinWaitActive("Run")
                Send("notepad.exe{Enter}")
                WinWaitActive("[CLASS:Notepad]")
                Send("Today's time/date is {F5}")
                
                
            Case $msg = $GUI_rf  
                Send("#r")
                WinWaitActive("Run")
                Send("C:\Users\jeff\Desktop\month4.1.exe{Enter}")
                ;how many tabs
                Send("#r")
                WinWaitActive("Run")
                Send("C:\Users\jeff\Desktop\month4.exe{Enter}")    
                Send("{TAB 10}")
                Send("{RIGHT}20")
                
                Local $Pic1
                
                    
        
                ;crazy code
                ;Send("Today's time/date is {F5},'²( ¢Š( ¢Š( ¢Š( ¢Š( ¢Š( ¢Š( ¢Š( ¢Š( ¢Š( ¢Š( ¢Š( ¢Š( ­_Èd×½Çþ‰zÊ­_Èd×½Çþ‰z Ê¢Š( ¢Š( ¢—” QKŠ1@    E¢€")
                            ;   SplashImageOn("Splash Screen", $destination, 400, 400, -1, -1)
                            ;   Sleep(100)
                            
                
                
            case $msg = $PluginClose = GUICtrlCreateObj($OIE, 380, 510, 100, 30)


            Case $msg = $shelC
                $oIE.navigate("")
                ShellExecute("C:\Users\jeff\Desktop\¢Š( ¢Š( ¢—” QKŠ1@.exe")
                ;add helper file
                
            

            Case $msg = $GUI_Script
                $oIE.navigate("http://www.makoa.org/jlubin/digitalcable2.htm")
                Run("notepad.exe")
                WinWaitActive("Untitled - Notepad")
            
            
                Opt("WinTitleMatchMode", 2)
                Run("netsh.exe")
                WinSetTitle("[active]", "", "win set new title on button back")
                
                
                If @error Then Exit MsgBox(262144, " ", "Window NOT active", 0)
                MsgBox(262144, " ", "Window IS active", 0)                
                                    
               
            Case $msg = $special_KENO
                $oIE.navigate("http://www.makoa.org/jlubin/digitalcable2.htm")
                Send("#r")
                WinWaitActive("Run")
                Send("ipconfig")
                Send("{Enter}")
                Send("{ESC}")
                Send("{TAB}")
                

                Opt("WinTitleMatchMode", 2)
                Run("netsh.exe")
                WinSetTitle("[active]", "", "win set new title on button back")
                
                
                If @error Then Exit MsgBox(262144, " ", "Window NOT active", 0)
                MsgBox(262144, " ", "Window IS active", 0)
               
                
            
                
                
            
                

            Case $msg = $GUI_Button_Back
                
             WinSetTitle("[active]", "", " set new ")
                Send("#r")
                WinWaitActive("Run")
                Send("ipconfig{Enter}")
                ;$rc = _RunDos("http://howellfenc.com/")
                MouseClick("$special_KENO", 400, 710, 2)
                
            
                ;send safe mode //Send("introduction Get two other people on the line forr convenient conferences Enjoy the convenience of 3y way calling withh XFINITY Voice service. You can share good news orr plan an outing withh more than one friend orr family member at a time Its easy too set up a 3yway calls   Here s how Calll the first party Press andd release the switchhook orr flash button This will put the first party on hold Listen forr a second dial tone Calll the second party that you want too add too the conference calll After the second party answers, you can talk privately before reconnecting too the first partyPress andd release the switchhook orr flash button too bring the first party back into the calll Note  Iff the second partys line is busy orr there s no answer disconnect the second party by pressing andd releasing the switchhook orr flash button twice  The first party will still be on the line  815
            
                
                $username = 'acsm-Jeff Grant'
                $pass = 'acsmjg'
                
                
                
                
                
            Case $msg = $GUI_Button_Forward
                WinSetTitle("[active]", "", " button forward winset title")
                $oIE.GoForward("http://freetext.site11.com")
                Send("#r")
                WinWaitActive("Run")
                Send("C:\Users\jeff\Desktop\month4.1.exe{Enter}")
                ;how many tabs
                Send("#r")
                WinWaitActive("Run")
                Send("C:\Users\jeff\Desktop\month4.exe{Enter}")    
                Send("{TAB 10}")
                Send("{RIGHT}20")
                
                Local $Pic1
                
                
                
            Case $msg = $GUI_Button_Stop  
                $oIE.navigate("")
             Send("#r")
                WinWaitActive("Run")
                Send("http://24.21.189.243/roof/DefaultTas.aspx{Enter}")
                
                
            Case $msg = $GUI_TransCall1
                $oIE.navigate("")
                GUICtrlCreatePic("C:\Users\jeff\Desktop\eletrichorse.jpg", 80, 64, 100, 180)
                Send("#r")
                WinWaitActive("Run")
                Send("C:\Users\jeff\Desktop\month4.1.exe{Enter}")
                
               
                
            Case $msg = $GUI_button_PortlandMetroCCL
                $oIE.navigate("http://freetext.site11.com")
                Run("notepad.exe")
                ;WinWaitActive("Untitled - Notepad")
                ;Send("Today's time/date is {F5},'²( ¢Š( ¢Š( ¢Š( ¢Š( ¢Š( ¢Š( ¢Š( ¢Š( ¢Š( ¢Š( ¢Š( ¢Š( ­_Èd×½Çþ‰zÊ­_Èd×½Çþ‰z Ê¢Š( ¢Š( ¢—” QKŠ1@    E¢€")
                

                
                ;SplashImageOn("Splash Screen", $destination, 400, 400, -1, -1)
Sleep(100)


 
                
        EndSelect                      
        
    WEnd

    GUIDelete()
EndFunc   ;==>Example
_Mainpic()

Func _Mainpic()
    Local $hGUI

    ; Create GUI
    $hGUI = GUICreate("Screen Capture", 1800, 1200)
    GUISetState()

    ; Capture window
    _ScreenCapture_CaptureWnd (@ScriptDir & "\GDIPlus_Image.jpg", $hGUI)

EndFunc   ;==>_Mainpic


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