Jump to content

_IEQuit($oIE) Not Closing Hidden Window IE Crashing

atnextc
 Share

Recommended Posts

atnextc Adventurer

atnextc

Posted
Posted (edited)

Hey guys,

I have a script that opens a internal wikipage and pulls the HTML data and pulls variables for use in our network configuration automation.  I've noticed a few issues.  Namely as the title says "IEQUIT" isn't killing the process that it opens like its supposed to.  Also after running 3+ pages IE crashes.  This just started. I can't see anything in the code that would be causing this.

Any help would be appreciated.

;MAINTENCE EMAIL NOTIFICATION WORKING CORRECTLY.....
;STILL TO DO ---TRAFFIC ADD, AND HARDWARE TESTING
;Date 6-26-13


#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIComboBox.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
#include <IE.au3>
#include <String.au3>

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; GUI CREATION BELOW
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

$C4Automation = GUICreate("  C4 Automation", 615, 438, 188, 121)
$Label1 = GUICtrlCreateLabel("  C4 Automation", 32, 24, 564, 41)
GUICtrlSetFont(-1, 24, 800, 0, "MS Sans Serif")
$ProjectSiteCombo = GUICtrlCreateCombo("", 184, 104, 145, 25, BitOR($CBS_DROPDOWNLIST, $CBS_SORT))
$ProjectTypeCombo = GUICtrlCreateCombo("", 184, 136, 145, 25, BitOR($CBS_DROPDOWNLIST, $CBS_SORT))
$ProjectNameInputBox = GUICtrlCreateInput("Project Name", 184, 168, 161, 21, $ES_UPPERCASE)
$NumberofProjects = GUICtrlCreateInput("Number of Projects", 184, 200, 161, 21)
$Submit = GUICtrlCreateButton("Submit", 136, 264, 75, 25)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Exit = GUICtrlCreateButton("Exit", 256, 264, 75, 25)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("Choose Your Project Type:", 24, 140, 156, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label3 = GUICtrlCreateLabel("Choose Your Project Site:", 24, 108, 150, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label4 = GUICtrlCreateLabel("Input Your Project Name:", 24, 172, 147, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label5 = GUICtrlCreateLabel("Input Number of Projects", 24, 204, 145, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label6 = GUICtrlCreateLabel("Choose Your Project Side", 24, 236, 149, 17)
GUICtrlSetState(-1, $GUI_HIDE)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$ProjectSideCombo = GUICtrlCreateCombo("", 184, 232, 145, 25, BitOR($CBS_DROPDOWN, $CBS_SORT))
GUICtrlSetState(-1, $GUI_HIDE)

$EmailEdit = GUICtrlCreateEdit("", 32, 72, 761, 401, BitOR($ES_MULTILINE, $WS_VSCROLL))
GUICtrlSetState(-1, $GUI_HIDE)
GUICtrlSetData(-1, "")
$CopyButton = GUICtrlCreateButton("Copy To Clipboard", 680, 480, 99, 25)
GUICtrlSetState(-1, $GUI_HIDE)

GUISetState(@SW_SHOW)
Global $I = 0

GUICtrlSetData($ProjectTypeCombo, "C4|RDC Interconnect|System Connection", "")
GUICtrlSetData($ProjectSideCombo, "A-Side|Z-Side", "")
GUICtrlSetData($ProjectSiteCombo, "Duke|Baton Rouge|Hampton Roads|Kansas|Las Vegas (Northwest)|New Orleans|NOVA|OKC|Omaha|Orange County|Phoenix (Chandler)|Rhode Island|San Diego (Federal)|El Cajon (San Diego)|McDowell (Phoenix)|Las Vegas (Southeast)|Virginia Beach (Hampton Roads)|Cleveland|Gainesville|Macon|Pensacola|Roanoke|Tulsa|Deer Valley|Ashburn|Los Angeles|Marietta|New York|San Jose", "Choose A Site") ; add other item snd set a new default


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; GUI CREATION ABOVE
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Exit
            Exit

        Case $ProjectTypeCombo
            If GUICtrlRead($ProjectTypeCombo) = ("C4") Then
                GUICtrlSetState($ProjectSideCombo, $GUI_SHOW)
                If GUICtrlRead($ProjectTypeCombo) = ("C4") Then
                    GUICtrlSetState($Label6, $GUI_SHOW)
                EndIf
            EndIf
        Case $Submit

            If GUICtrlRead($ProjectTypeCombo) = "System Connection" Then;;Looks to see that the "System Connection" selection was made in the drop down box.
            EndIf

            If GUICtrlRead($ProjectTypeCombo) = "C4" Then;;Looks to see that the " C4" selection was made in the drop down box.
                _C4Project_Maintenance_Email_Notification()
            EndIf

            If GUICtrlRead($ProjectTypeCombo) = "RDC Interconnect" Then ;;Looks to see that the "RDC Interconnect" selection was made in the drop down box.
            EndIf


        Case $CopyButton ; When the copy to clipboard button is pressed on the email screen it will copy the contents of the "emailedit" box to the clipboard so that it can be pasted into another application.
            ClipPut(GUICtrlRead($EmailEdit))
    EndSwitch

WEnd

Func _C4Project_Maintenance_Email_Notification()

    Local $oIE = _IECreate("https://internalsite/mediawiki/index.php?title=" & GUICtrlRead($ProjectNameInputBox) & "&action=edit", 0, 0, 1, 1)
    _IELinkClickByText($oIE, "Continue to this website (not recommended).")
    Local $data = $oIE
    Local $string = _IEBodyReadHTML($oIE)
    _IEQuit($oIE)

    Local $projectnextstep = _StringBetween($string, '|NextStep=', @CRLF);;;;;; WORKS AND IS IN A LOOP
    Local $circuitid = _StringBetween($string, '|CircuitID=', @CRLF);;;;;;;;;;;;;;;;;;;;;;;;;;;WORKS AND IS IN A LOO
    Local $asideengineer = _StringBetween($string, '|ASideAssignedEngineer=', @CRLF)
    Local $zsideengineer = _StringBetween($string, '|ZSideAssignedEngineer=', @CRLF)
    Local $asidenextstep = _StringBetween($string, '|ASideNextStep=', @CRLF)
    Local $zsidenextstep = _StringBetween($string, '|ZSideNextStep=', @CRLF)
    Local $asiderouter = _StringBetween($string, '|ALocation=', @CRLF)
    Local $zsiderouter = _StringBetween($string, '|ZLocation=', @CRLF)
    Local $asideinterface = _StringBetween($string, '|AInterface=', @CRLF)
    Local $zsideinterface = _StringBetween($string, '|ZInterface=', @CRLF)
    Local $asidetransport = _StringBetween($string, '|ATransportLocation=', @CRLF)
    Local $zsidetransport = _StringBetween($string, '|ZTransportLocation=', @CRLF)
    Local $asidefpc = _StringBetween($string, '|AFPC=', @CRLF)
    Local $zsidefpc = _StringBetween($string, '|ZFPC=', @CRLF)
    Local $asidepic = _StringBetween($string, '|APIC=', @CRLF)
    Local $zsidepic = _StringBetween($string, '|ZPIC=', @CRLF)
    Local $asideoptics = _StringBetween($string, '|AOptics=', @CRLF)
    Local $zsideoptics = _StringBetween($string, '|ZOptics=', @CRLF)
    Local $asidetam = _StringBetween($string, '|ATAM=', @CRLF)
    Local $zsidetam = _StringBetween($string, '|ZTAM=', @CRLF)
    Local $asidetom = _StringBetween($string, '|ATOM=', @CRLF)
    Local $zsidetom = _StringBetween($string, '|ZTOM=', @CRLF)
    Local $asidetestip = _StringBetween($string, '|ATestingIP=', @CRLF)
    Local $zsidetestip = _StringBetween($string, '|ZTestingIP=', @CRLF)
    Local $bypassname = _StringBetween($string, '|BypassName=', @CRLF)

    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

    $c4file = FileOpen("c4.txt", 1)
    FileWrite($c4file, GUICtrlRead($ProjectSiteCombo))
    FileWrite($c4file, ",")
    FileWrite($c4file, @CRLF & @CRLF)
    FileWrite($c4file, "We recently have launched the below C4 projects for your system. We need on site assistance to perform the maintenance. Please let us know who the Point of Contact for this activity will be so we can ship the hardware and plan the maintenance. " & @CRLF & @CRLF & @CRLF & @CRLF & "Details for Capacity Projects:")
    FileWrite($c4file, @CRLF & @CRLF)
    FileWrite($c4file, "Project: ")
    FileWrite($c4file, GUICtrlRead($ProjectNameInputBox))
    FileWrite($c4file, @CRLF & @CRLF)
    FileWrite($c4file, "These projects are to add an additional ")
    FileWrite($c4file, GUICtrlRead($NumberofProjects) * 10)
    FileWrite($c4file, "GB of capacity between ")
    FileWrite($c4file, $asiderouter[0])
    FileWrite($c4file, " and ")
    FileWrite($c4file, $zsiderouter[0])
    FileWrite($c4file, ".")
    FileWrite($c4file, @CRLF & @CRLF)
    If GUICtrlRead($ProjectSideCombo) = ("A-Side") Then
        FileWrite($c4file, $asiderouter[0])
        FileWrite($c4file, ": Connect fiber into ")
        FileWrite($c4file, $asideinterface[0])
        FileWrite($c4file, @CRLF)
        FileWrite($c4file, "Infinera: Connect fiber into ")
        FileWrite($c4file, $asidetransport[0])
        FileWrite($c4file, @CRLF)
        FileClose($c4file)
        If Not $asidefpc = "" Then
            $c4file = FileOpen("c4.txt", 1)
            FileWrite($c4file, $asiderouter[0])
            FileWrite($c4file, ": Install FPC into slot ")
            $aArray = _StringBetween($asideinterface[0], "-", "/", 3)
            FileWrite($c4file, _ArrayToString($aArray))
            FileWrite($c4file, @CRLF)
            FileClose($c4file)
        EndIf
        If Not $asidepic = "" Then
            $c4file = FileOpen("c4.txt", 1)
            FileWrite($c4file, $asiderouter[0])
            FileWrite($c4file, ": Install PIC into slot ")
            $aArray2 = _StringBetween($asideinterface[0], "/", "/", 3)
            FileWrite($c4file, _ArrayToString($aArray) & "/" & _ArrayToString($aArray2))
            FileWrite($c4file, @CRLF)
            FileClose($c4file)
        EndIf
        If Not $asideoptics = "" Then
            $c4file = FileOpen("c4.txt", 1)
            FileWrite($c4file, $asiderouter)
            FileWrite($c4file, ": Install Optics into slot ")
            FileWrite($c4file, $asideinterface)
            FileWrite($c4file, @CRLF)
            FileClose($c4file)
        EndIf
    EndIf
    If GUICtrlRead($ProjectSideCombo) = ("Z-Side") Then
        FileWrite($c4file, $zsiderouter[0])
        FileWrite($c4file, ": Connect fiber into ")
        FileWrite($c4file, $zsideinterface[0])
        FileWrite($c4file, @CRLF)
        FileWrite($c4file, "Infinera: Connect fiber into ")
        FileWrite($c4file, $zsidetransport[0])
        FileWrite($c4file, @CRLF)
        FileClose($c4file)
        If Not $zsidefpc = "" Then
            $c4file = FileOpen("c4.txt", 1)
            FileWrite($c4file, $zsiderouter[0])
            FileWrite($c4file, ": Install FPC into slot ")
            $aArray = _StringBetween($zsideinterface, "-", "/", 3)
            FileWrite($c4file, _ArrayToString($aArray))
            FileWrite($c4file, @CRLF)
            FileClose($c4file)
        EndIf
        If Not $zsidepic = "" Then
            $c4file = FileOpen("c4.txt", 1)
            FileWrite($c4file, $zsiderouter)
            FileWrite($c4file, ": Install PIC into slot ")
            $aArray2 = _StringBetween($zsideinterface[0], "/", "/", 3)
            FileWrite($c4file, _ArrayToString($aArray) & "/" & _ArrayToString($aArray2))
            FileWrite($c4file, @CRLF)
            FileClose($c4file)
        EndIf
        If Not $zsideoptics = "" Then
            $c4file = FileOpen("c4.txt", 1)
            FileWrite($c4file, $zsiderouter[0])
            FileWrite($c4file, ": Install Optics into slot ")
            FileWrite($c4file, $zsideinterface[0])
            FileWrite($c4file, @CRLF)
            FileClose($c4file)
        EndIf

    EndIf

    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    ; This will check to see the number of projects is less than $I, if so it will increment
    ;by one to then see if $I = the number of projects.  If so then it will Ask if you are done or if you have more projects to add.
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

    If (GUICtrlRead($NumberofProjects)) > 1 Then
        $I = $I + 1
        Call("_MultipleC4Projects")

    EndIf
    If (GUICtrlRead($NumberofProjects)) = 1 Then
        $c4file = FileOpen("c4.txt", 1)
        FileWrite($c4file, @CRLF)
        FileWrite($c4file, "Connect fiber between ports.")
        FileClose($c4file)
        $Question = MsgBox(4, "C4 Automation", "Do you have more projects for this site?")
        If $Question = 6 Then
            GUICtrlSetData($ProjectNameInputBox, "")
            GUICtrlSetData($NumberofProjects, "")
            _GUICtrlComboBox_SetCurSel($ProjectSiteCombo, 0)
            _GUICtrlComboBox_SetCurSel($ProjectTypeCombo, 0)
            ;_GUICtrlComboBox_ResetContent($ProjectSiteCombo)
            GUICtrlSetState($ProjectSiteCombo, $gui_focus)
        EndIf
        If $Question = 7 Then
            Call("_NoMoreC4Projects")
        EndIf
    EndIf



EndFunc   ;==>_C4Project_Maintenance_Email_Notification



Func _MultipleC4Projects()

    Do

        Local $aprojincr = StringRegExp(GUICtrlRead($ProjectNameInputBox), "(?<=-\d{2})([A-Z])(?=-Q)", 3)
        Local $incr_char = Chr(Asc($aprojincr[0]) + 1)
        GUICtrlSetData($ProjectNameInputBox, StringRegExpReplace(GUICtrlRead($ProjectNameInputBox), _
                "(?<=-\d{2})([A-Z])(?=-Q)", $incr_char))


        Local $oIE = _IECreate("https://internalsite/mediawiki/index.php?title=" & GUICtrlRead($ProjectNameInputBox) & "&action=edit", 0, 0, 1, 1)
        _IELinkClickByText($oIE, "Continue to this website (not recommended).")
        Local $data = $oIE
        Local $string = _IEBodyReadHTML($oIE)
        _IEQuit($oIE)

        Local $projectnextstep = _StringBetween($string, '|NextStep=', @CRLF);;;;;; WORKS AND IS IN A LOOP
        Local $circuitid = _StringBetween($string, '|CircuitID=', @CRLF);;;;;;;;;;;;;;;;;;;;;;;;;;;WORKS AND IS IN A LOO
        Local $asideengineer = _StringBetween($string, '|ASideAssignedEngineer=', @CRLF)
        Local $zsideengineer = _StringBetween($string, '|ZSideAssignedEngineer=', @CRLF)
        Local $asidenextstep = _StringBetween($string, '|ASideNextStep=', @CRLF)
        Local $zsidenextstep = _StringBetween($string, '|ZSideNextStep=', @CRLF)
        Local $asiderouter = _StringBetween($string, '|ALocation=', @CRLF)
        Local $zsiderouter = _StringBetween($string, '|ZLocation=', @CRLF)
        Local $asideinterface = _StringBetween($string, '|AInterface=', @CRLF)
        Local $zsideinterface = _StringBetween($string, '|ZInterface=', @CRLF)
        Local $asidetransport = _StringBetween($string, '|ATransportLocation=', @CRLF)
        Local $zsidetransport = _StringBetween($string, '|ZTransportLocation=', @CRLF)
        Local $asidefpc = _StringBetween($string, '|AFPC=', @CRLF)
        Local $zsidefpc = _StringBetween($string, '|ZFPC=', @CRLF)
        Local $asidepic = _StringBetween($string, '|APIC=', @CRLF)
        Local $zsidepic = _StringBetween($string, '|ZPIC=', @CRLF)
        Local $asideoptics = _StringBetween($string, '|AOptics=', @CRLF)
        Local $zsideoptics = _StringBetween($string, '|ZOptics=', @CRLF)
        Local $asidetam = _StringBetween($string, '|ATAM=', @CRLF)
        Local $zsidetam = _StringBetween($string, '|ZTAM=', @CRLF)
        Local $asidetom = _StringBetween($string, '|ATOM=', @CRLF)
        Local $zsidetom = _StringBetween($string, '|ZTOM=', @CRLF)
        Local $asidetestip = _StringBetween($string, '|ATestingIP=', @CRLF)
        Local $zsidetestip = _StringBetween($string, '|ZTestingIP=', @CRLF)
        Local $bypassname = _StringBetween($string, '|BypassName=', @CRLF)

        $c4file = FileOpen("c4.txt", 1)
        FileWrite($c4file, @CRLF)
        If GUICtrlRead($ProjectSideCombo) = ("A-Side") Then
            FileWrite($c4file, $asiderouter[0])
            FileWrite($c4file, ": Connect fiber into ")
            FileWrite($c4file, $asideinterface[0])
            FileWrite($c4file, @CRLF)
            FileWrite($c4file, "Infinera: Connect fiber into ")
            FileWrite($c4file, $asidetransport[0])
            FileWrite($c4file, @CRLF)
            FileClose($c4file)
            If Not $asidefpc = "" Then
                $c4file = FileOpen("c4.txt", 1)
                FileWrite($c4file, $asiderouter[0])
                FileWrite($c4file, ": Install FPC into slot ")
                $aArray = _StringBetween($asideinterface[0], "-", "/", 3)
                FileWrite($c4file, _ArrayToString($aArray))
                FileWrite($c4file, @CRLF)
                FileClose($c4file)
            EndIf
            If Not $asidepic = "" Then
                $c4file = FileOpen("c4.txt", 1)
                FileWrite($c4file, $asiderouter[0])
                FileWrite($c4file, ": Install PIC into slot ")
                $aArray2 = _StringBetween($asideinterface[0], "/", "/", 3)
                FileWrite($c4file, _ArrayToString($aArray) & "/" & _ArrayToString($aArray2))
                FileWrite($c4file, @CRLF)
                FileClose($c4file)
            EndIf
            If Not $asideoptics = "" Then
                $c4file = FileOpen("c4.txt", 1)
                FileWrite($c4file, $asiderouter)
                FileWrite($c4file, ": Install Optics into slot ")
                FileWrite($c4file, $asideinterface)
                FileWrite($c4file, @CRLF)
                FileClose($c4file)
            EndIf
        EndIf
        If GUICtrlRead($ProjectSideCombo) = ("Z-Side") Then
            FileWrite($c4file, $zsiderouter[0])
            FileWrite($c4file, ": Connect fiber into ")
            FileWrite($c4file, $zsideinterface[0])
            FileWrite($c4file, @CRLF)
            FileWrite($c4file, "Infinera: Connect fiber into ")
            FileWrite($c4file, $zsidetransport[0])
            FileWrite($c4file, @CRLF)
            FileClose($c4file)
            If Not $zsidefpc = "" Then
                $c4file = FileOpen("c4.txt", 1)
                FileWrite($c4file, $zsiderouter[0])
                FileWrite($c4file, ": Install FPC into slot ")
                $aArray = _StringBetween($zsideinterface, "-", "/", 3)
                FileWrite($c4file, _ArrayToString($aArray))
                FileWrite($c4file, @CRLF)
                FileClose($c4file)
            EndIf
            If Not $zsidepic = "" Then
                $c4file = FileOpen("c4.txt", 1)
                FileWrite($c4file, $zsiderouter)
                FileWrite($c4file, ": Install PIC into slot ")
                $aArray2 = _StringBetween($zsideinterface[0], "/", "/", 3)
                FileWrite($c4file, _ArrayToString($aArray) & "/" & _ArrayToString($aArray2))
                FileWrite($c4file, @CRLF)
                FileClose($c4file)
            EndIf
            If Not $zsideoptics = "" Then
                $c4file = FileOpen("c4.txt", 1)
                FileWrite($c4file, $zsiderouter[0])
                FileWrite($c4file, ": Install Optics into slot ")
                FileWrite($c4file, $zsideinterface[0])
                FileWrite($c4file, @CRLF)
                FileClose($c4file)
            EndIf

        EndIf


        $I = ($I + 1)

    Until $I = (GUICtrlRead($NumberofProjects))

    If $I = (GUICtrlRead($NumberofProjects)) Then
        $Question = MsgBox(4, "C4 Automation", "Do you have more projects for this site?")
        If $Question = 6 Then

            GUICtrlSetData($ProjectNameInputBox, "")
            GUICtrlSetData($NumberofProjects, "")
            _GUICtrlComboBox_SetCurSel($ProjectSiteCombo, 0)
            _GUICtrlComboBox_SetCurSel($ProjectTypeCombo, 0)
            GUICtrlSetState($ProjectSiteCombo, $gui_focus)
        EndIf
        If $Question = 7 Then
            $c4file = FileOpen("c4.txt", 1)
            FileWrite($c4file, @CRLF)
            FileWrite($c4file, "Connect fiber between ports.")
            FileClose($c4file)
            Call("_NoMoreC4Projects")
        EndIf
    EndIf
EndFunc   ;==>_MultipleC4Projects

Func _NoMoreC4Projects()
    Local $c4file
    GUISetState(@SW_HIDE)
    ClipPut($c4file = FileOpen("c4.txt", 1))
    $EmailForm = GUICreate("   Maintenance Email Notification", 831, 518, 188, 222)
    $CoxLabel = GUICtrlCreateLabel("  Maintenance Email Notification ", 25, 22, 780, 41)
    GUICtrlSetFont(-1, 24, 400, 0, "MS Sans Serif")
    $EmailEdit = GUICtrlCreateEdit("", 32, 72, 761, 401, BitOR($ES_MULTILINE, $WS_VSCROLL))
    GUICtrlSetState(-1, $GUI_HIDE)
    GUICtrlSetData(-1, "")
    $CopyButton = GUICtrlCreateButton("Copy To Clipboard", 680, 480, 99, 25)
    Local $test = FileRead("c4.txt")
    ClipPut($test)
    FileClose($c4file)
    FileDelete("c4.txt")
    GUICtrlSetData($EmailEdit, ClipGet())
    GUICtrlSetState($EmailEdit, $GUI_SHOW)
    GUISetState(@SW_SHOW)
EndFunc   ;==>_NoMoreC4Projects
Edited by atnextc
Link to comment
Share on other sites
DaleHohm Universalist

DaleHohm

Posted
Posted

Too much code.  Create a small reproducer.

Free Internet Tools: DebugBar, AutoIt IE Builder, HTTP UDF, MODIV2, IE Developer Toolbar, IEDocMon, Fiddler, HTML Validator, WGet, curl

MSDN docs: InternetExplorer Object, Document Object, Overviews and Tutorials, DHTML Objects, DHTML Events, WinHttpRequest, XmlHttpRequest, Cross-Frame Scripting, Office object model

Automate input type=file (Related)

Alternative to _IECreateEmbedded? better: _IECreatePseudoEmbedded  Better Better?

IE.au3 issues with Vista - Workarounds

SciTe Debug mode - it's magic: #AutoIt3Wrapper_run_debug_mode=Y

Doesn't work needs to be ripped out of the troubleshooting lexicon. It means that what you tried did not produce the results you expected. It begs the questions 1) what did you try?, 2) what did you expect? and 3) what happened instead?

Reproducer: a small (the smallest?) piece of stand-alone code that demonstrates your trouble

Link to comment
Share on other sites
atnextc Adventurer

atnextc

Posted
  • Author
Posted 

Local $oIE = _IECreate("https://internalsite/mediawiki/index.php?title=" & GUICtrlRead($ProjectNameInputBox) & "&action=edit", 0, 0, 1, 1)
    _IELinkClickByText($oIE, "Continue to this website (not recommended).")
    Local $data = $oIE
    Local $string = _IEBodyReadHTML($oIE)
    _IEQuit($oIE)

Thats the part in question dale

Link to comment
Share on other sites
DaleHohm Universalist

DaleHohm

Posted
Posted

That's less code, but it is not a reproducer.

Dale

Free Internet Tools: DebugBar, AutoIt IE Builder, HTTP UDF, MODIV2, IE Developer Toolbar, IEDocMon, Fiddler, HTML Validator, WGet, curl

MSDN docs: InternetExplorer Object, Document Object, Overviews and Tutorials, DHTML Objects, DHTML Events, WinHttpRequest, XmlHttpRequest, Cross-Frame Scripting, Office object model

Automate input type=file (Related)

Alternative to _IECreateEmbedded? better: _IECreatePseudoEmbedded  Better Better?

IE.au3 issues with Vista - Workarounds

SciTe Debug mode - it's magic: #AutoIt3Wrapper_run_debug_mode=Y

Doesn't work needs to be ripped out of the troubleshooting lexicon. It means that what you tried did not produce the results you expected. It begs the questions 1) what did you try?, 2) what did you expect? and 3) what happened instead?

Reproducer: a small (the smallest?) piece of stand-alone code that demonstrates your trouble

Link to comment
Share on other sites
BrewManNH Universalist

BrewManNH

Posted
Posted

It is actually as it opens up a web page and it's supposed to close it but doesn't..what exactly are you looking for dale

Something that can actually be run, that code can not.

If I posted any code, assume that code was written using the latest release version unless stated otherwise. Also, if it doesn't work on XP I can't help with that because I don't have access to XP, and I'm not going to.
Give a programmer the correct code and he can do his work for a day. Teach a programmer to debug and he can do his work for a lifetime - by Chirag Gude
How to ask questions the smart way!

I hereby grant any person the right to use any code I post, that I am the original author of, on the autoitscript.com forums, unless I've specifically stated otherwise in the code or the thread post. If you do use my code all I ask, as a courtesy, is to make note of where you got it from.

Back up and restore Windows user files _Array.au3 - Modified array functions that include support for 2D arrays.  -  ColorChooser - An add-on for SciTE that pops up a color dialog so you can select and paste a color code into a script.  -  Customizable Splashscreen GUI w/Progress Bar - Create a custom "splash screen" GUI with a progress bar and custom label.  -  _FileGetProperty - Retrieve the properties of a file  -  SciTE Toolbar - A toolbar demo for use with the SciTE editor  -  GUIRegisterMsg demo - Demo script to show how to use the Windows messages to interact with controls and your GUI.  -   Latin Square password generator

Link to comment
Share on other sites
atnextc Adventurer

atnextc

Posted
  • Author
Posted

Can't you just replace the URL with "google.com" for example?  I mean I doubt the issue is occurring only on our internal website.  The issue is simply, the _IEQuit isn't closing the session of IE that is opened...

Link to comment
Share on other sites
DaleHohm Universalist

DaleHohm

Posted
Posted

Can't you just replace the URL with "google.com" for example?  I mean I doubt the issue is occurring only on our internal website.  The issue is simply, the _IEQuit isn't closing the session of IE that is opened...

 

As you should see by running JohnOne's code above, your assumption is false.  You should discover this yourself while creating a reproducer and not waste our time doing it for you.  You can then work to figure out what is different about your site and ask for help once you have discovered what it is.

Dale

Free Internet Tools: DebugBar, AutoIt IE Builder, HTTP UDF, MODIV2, IE Developer Toolbar, IEDocMon, Fiddler, HTML Validator, WGet, curl

MSDN docs: InternetExplorer Object, Document Object, Overviews and Tutorials, DHTML Objects, DHTML Events, WinHttpRequest, XmlHttpRequest, Cross-Frame Scripting, Office object model

Automate input type=file (Related)

Alternative to _IECreateEmbedded? better: _IECreatePseudoEmbedded  Better Better?

IE.au3 issues with Vista - Workarounds

SciTe Debug mode - it's magic: #AutoIt3Wrapper_run_debug_mode=Y

Doesn't work needs to be ripped out of the troubleshooting lexicon. It means that what you tried did not produce the results you expected. It begs the questions 1) what did you try?, 2) what did you expect? and 3) what happened instead?

Reproducer: a small (the smallest?) piece of stand-alone code that demonstrates your trouble

Link to comment
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
 Share
Go to topic listing

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...