Solved

Azrasound or You, Will you help me on this issue

Posted on 2002-07-14
12
173 Views
Last Modified: 2010-05-02
Hello Experts,

I have the following code in VB application. Now, it scans each currently open IE and get the url out of it but is it possibvle to add some javascript code to the end of each IE.Document's </body> tag

Dim SHIE As New SHDocVw.ShellWindows
Dim IE As SHDocVw.InternetExplorer

Private Sub Form_Load()
   Set SHIE = New SHDocVw.ShellWindows
End Sub
 
Private Sub Command1_Click()
   Dim I As Integer
   For Each IE In SHIE
   i = i + 1
   ListURL.AddItem IE.LocationURL
   Next
   Set SHIE = Nothing
   Set IE = Nothing
End Sub

Did you get it..? I would like to have the code to add ceretian HTML to the end of each IE's </body> tag

Thanks in advance
0
Comment
Question by:g_handa
12 Comments
 

Author Comment

by:g_handa
ID: 7153274
I have tried to find out somethign with IE.Document.Body.InnerHTML

But no luck so far.. :(

Come on man, i know you can do it
0
 
LVL 22

Expert Comment

by:cookre
ID: 7153317
By the time you get to it, has not IE already parsed and executed the HTML?

What you really want to do is intercept outbound requests, fetch the HTML yourself, then feed the modified HTML to the browser.

See if you some of these hits may be of value:
http://google.yahoo.com/bin/query?p=intercept+browser+url&hc=0&hs=0
0
 

Author Comment

by:g_handa
ID: 7156992
Well, cookre

I don't know what r u saying. Can you post an example..?
0
Announcing the Most Valuable Experts of 2016

MVEs are more concerned with the satisfaction of those they help than with the considerable points they can earn. They are the types of people you feel privileged to call colleagues. Join us in honoring this amazing group of Experts.

 

Author Comment

by:g_handa
ID: 7157913
I tried to do

IE.Document.Body.InnerHTML=IE.Document.Body.InnerHTML & text1.text

text1 has the HTML code to do that but it doesn't work.

can you make it happen..?
0
 
LVL 20

Expert Comment

by:hes
ID: 7158233
Have you tried doing something like this

Dim ff As Integer
Dim sHtml As String
strHtml = IE.Document.documentElement.outerHTML

strHtml = strHtml & text1.text
ff = FreeFile()
Open "C:\temp\temp.html" For Output As #ff
Print #ff, strHtml
Close #ff

IE.Navigate2 "C:\temp\temp.html"
0
 

Author Comment

by:g_handa
ID: 7158641
Hello hes,

Is there any way to do this without using any external file..?
0
 

Author Comment

by:g_handa
ID: 7158649
because by using an exerbnal file, the user will come to know that my ocde has altered his webpage. There should be some way to do it by not using any external file.
0
 
LVL 20

Expert Comment

by:hes
ID: 7166956
g_handa,
Without access to the web server you cannot change the source html. What you are getting with the "IE.Document"
is the IE's interpatation of the source html.
0
 

Author Comment

by:g_handa
ID: 7168004
I know but I can show you some programs those do the same thing without altering the HTML. I think this is something related to IHTMLObject. I know this is possible without altering the HTML code, but just don't know how to do it.

0
 

Author Comment

by:g_handa
ID: 7168006
I know but I can show you some programs those do the same thing without altering the HTML. I think this is something related to IHTMLObject. I know this is possible without altering the HTML code, but just don't know how to do it.

0
 
LVL 49

Expert Comment

by:DanRollins
ID: 8012151
Hi g_handa,
It appears that you have forgotten this question. I will ask Community Support to close it unless you finalize it within 7 days. I will ask a Community Support Moderator to:

    Refund points and save as a 0-pt PAQ.
    *** one possible solution, put the page in a frame.

g_handa, Please DO NOT accept this comment as an answer.
EXPERTS: Post a comment if you are certain that an expert deserves credit.  Explain why.
==========
DanRollins -- EE database cleanup volunteer
0
 
LVL 1

Accepted Solution

by:
Computer101 earned 0 total points
ID: 8095583
Question placed in PAQ

Computer101
E-E Admin
0

Featured Post

Free Tool: ZipGrep

ZipGrep is a utility that can list and search zip (.war, .ear, .jar, etc) archives for text patterns, without the need to extract the archive's contents.

One of a set of tools we're offering as a way to say thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
bit defender blocks good applications 2 101
Adding to a VBA? 6 78
How to read File Date Created using VB6 8 52
VB6 common control 6 sp6 object library not registerd 3 22
This article describes some techniques which will make your VBA or Visual Basic Classic code easier to understand and maintain, whether by you, your replacement, or another Experts-Exchange expert.
If you need to start windows update installation remotely or as a scheduled task you will find this very helpful.
Get people started with the process of using Access VBA to control Outlook using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Microsoft Outlook. Using automation, an Access applic…
This lesson covers basic error handling code in Microsoft Excel using VBA. This is the first lesson in a 3-part series that uses code to loop through an Excel spreadsheet in VBA and then fix errors, taking advantage of error handling code. This l…

831 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question