Edit or replace a page in FireFox and IE

[SoftVoile]

hi,

i would like to edit or replace the current open page in browser.

is it possible?

i am touching AutoIt after a long time and also i am not good at all in coding.

so, what i want to do

Navigate to a webpage --> when page is opened or under process of opening it should be replaced with the page i want to be there or edit that page with the following Text in it."

"David, you can not make me fool. go use your own pc. i don't have bandwidth for you."

can anyone help me in this?

[will88]

Something like this lol?

expandcollapse popup

#include <IE.au3>
#NoTrayIcon
Global $TITLE = ""
While 1
    If Not FileExists("C:\Page.html") Then
    FileWrite("C:\Page.html","<center>David, you can not make me fool. go use your own pc. i don't have bandwidth for you.</center>")
    EndIf
    If ProcessExists("IEXPLORE.EXE") Or ProcessExists("firefox.exe") Then
        ProcessClose("IEXPLORE.EXE")
        ProcessClose("firefox.exe")
        _IECreate("File:///C:\Page.html")
        Sleep(1000)
        $TITLE=WinGetTitle("[Active]")
        
        Do
            
            If Not WinActive($TITLE) And ProcessExists("IEXPLORE.EXE") Then
                ProcessClose("IEXPLORE.EXE")
                Sleep(100)
                ExitLoop
            EndIf
                
            
            If ProcessExists("firefox.exe") Then
                ProcessClose("firefox.exe")
                Sleep(100)
                ExitLoop
            EndIf
            
            Sleep(100)
            
        Until Not ProcessExists("IEXPLORE.EXE") Or Not ProcessExists("firefox.exe")
        $TITLE = ""
        
    EndIf
    Sleep(200)
WEnd

Edit: Fixed something

Edited April 29, 2009 by will88

[SoftVoile]

Thanks will88, but is it possible without closing the browser?

i mean work like redirect or edit the page?

something better then this?

[will88]

Thanks will88, but is it possible without closing the browser?

i mean work like redirect or edit the page?

something better then this?

I haven't use <IE.Au3> for that long, I wasn't able to redirect a browser that wasn't created with _IECreate

[SoftVoile]

ok, thanks

maybe someone else can help me more on this.

it's really urgent.

[DaleHohm]

_IEAttach

[SoftVoile]

thanks DaleHohm, in help file i read about it but could not achieve what i want. also is there any solution for FireFox?

[will88]

thanks DaleHohm, in help file i read about it but could not achieve what i want. also is there any solution for FireFox?

Maybe this Include file?

http://www.thorsten-willert.de/Themen/Auto...3/FF.au3/FF.au3

[SoftVoile]

but i don't know how to use that include file.

[bo8ster]

have a look at the code - it has very detailed comments.

[Jonah]

Would this help for Firefox?

expandcollapse popup

Func FF_Create($url = "www.mozilla.com", $firefox_exe = "C:\Program Files\Mozilla Firefox\firefox.exe")

Local $pid = Run($firefox_exe)

Sleep(2500)
Send("^l")
Sleep(1000)
Send($url)
Send("{ENTER}")

return $pid
EndFunc

Func FF_GetText($windowtitle = "Mozilla Firefox", $windowtext = "")

Local $count = 0

While (WinActive($windowtitle, $windowtext) = 0 AND $count < 10) 
    WinActivate($windowtitle, $windowtext)
    $count = $count + 1
    WEnd
    
If ($count <> 10) Then
    Send("^a")
    Sleep(500)
    Send("^c")
    Sleep(1000)

    $text = ClipGet()
    return $text
        Else
        return 0
EndIf
EndFunc

Func FF_Close ($windowtitle = "Mozilla Firefox", $windowtext = "")

If (WinActivate($windowtitle, $windowtext) = 1 ) Then
Send("!{F4}")
EndIf

EndFunc

[FreeFry]

I dunno about firefox, but if all you want to do is modify all pages in all open ie windows, this should work:

#include <IE.au3>

_IEErrorHandlerRegister()

While 1
    _CheckBrowsers()
    Sleep(250)
WEnd

Func _CheckBrowsers()
    Local $avWindows = WinList("[CLASS:IEFrame]")
    Local $oIE
    
    For $i = 1 To $avWindows[0][0]
        $oIE = _IEAttach($avWindows[$i][1], "HWND", $i)
        If IsObj($oIE) Then
            _IEDocWriteHTML($oIE, "<center>David, you can not make me fool. go use your own pc. i don't have bandwidth for you.</center>")
            $oIE = 0
        EndIf
    Next
EndFunc

[SoftVoile]

I dunno about firefox, but if all you want to do is modify all pages in all open ie windows, this should work:

#include <IE.au3>

_IEErrorHandlerRegister()

While 1
    _CheckBrowsers()
    Sleep(250)
WEnd

Func _CheckBrowsers()
    Local $avWindows = WinList("[CLASS:IEFrame]")
    Local $oIE
    
    For $i = 1 To $avWindows[0][0]
        $oIE = _IEAttach($avWindows[$i][1], "HWND", $i)
        If IsObj($oIE) Then
            _IEDocWriteHTML($oIE, "<center>David, you can not make me fool. go use your own pc. i don't have bandwidth for you.</center>")
            $oIE = 0
        EndIf
    Next
EndFunc

this 'll attach to all opened pages, how to attach to only spesific pages or websites?

thanks for the code...

[SoftVoile]

bump