Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 179
  • Last Modified:

Azrasound or You, Will you help me on this issue

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
g_handa
Asked:
g_handa
1 Solution
 
g_handaAuthor Commented:
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
 
cookreCommented:
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
 
g_handaAuthor Commented:
Well, cookre

I don't know what r u saying. Can you post an example..?
0
Concerto Cloud for Software Providers & ISVs

Can Concerto Cloud Services help you focus on evolving your application offerings, while delivering the best cloud experience to your customers? From DevOps to revenue models and customer support, the answer is yes!

Learn how Concerto can help you.

 
g_handaAuthor Commented:
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
 
hesCommented:
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
 
g_handaAuthor Commented:
Hello hes,

Is there any way to do this without using any external file..?
0
 
g_handaAuthor Commented:
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
 
hesCommented:
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
 
g_handaAuthor Commented:
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
 
g_handaAuthor Commented:
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
 
DanRollinsCommented:
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
 
Computer101Commented:
Question placed in PAQ

Computer101
E-E Admin
0

Featured Post

Concerto's Cloud Advisory Services

Want to avoid the missteps to gaining all the benefits of the cloud? Learn more about the different assessment options from our Cloud Advisory team.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now