Solved

Azrasound or You, Will you help me on this issue

Posted on 2002-07-14
12
172 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
Courses: Start Training Online With Pros, Today

Brush up on the basics or master the advanced techniques required to earn essential industry certifications, with Courses. Enroll in a course and start learning today. Training topics range from Android App Dev to the Xen Virtualization Platform.

 

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

Live: Real-Time Solutions, Start Here

Receive instant 1:1 support from technology experts, using our real-time conversation and whiteboard interface. Your first 5 minutes are always free.

Question has a verified solution.

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

Suggested Solutions

Title # Comments Views Activity
Access 2016 VB code 9 115
Excel VBA, find a string in a column, update a cell 7 77
Added a column screws up code 5 57
How to read File Date Created using VB6 8 38
Introduction I needed to skip over some file processing within a For...Next loop in some old production code and wished that VB (classic) had a statement that would drop down to the end of the current iteration, bypassing the statements that were c…
I’ve seen a number of people looking for examples of how to access web services from VB6.  I’ve been using a test harness I built in VB6 (using many resources I found online) that I use for small projects to work out how to communicate with web serv…
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…
Show developers how to use a criteria form to limit the data that appears on an Access report. It is a common requirement that users can specify the criteria for a report at runtime. The easiest way to accomplish this is using a criteria form that a…

786 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