msgboxのウェブページのテキストを取得

Question

私のコードが送信されたら、msgboxを表示しようとしています。 内部のテキストを表示したいと思います。

は、これまでのところ私は

ie = CreateObject("InternetExplorer.Application") 
ie.Navigate("http://www.webpage.com.au/") 
ie.Visible = True 
mesg = TextBox1.Text.ToString() 
pw = "....." ie.Document.All("password").Value = pw 
ie.Document.All("idpagers").Value = Id 
ie.Document.All("message").Value = mesg 
ie.Document.All("Send").Click() 
pID = ie.Document.All().ToString 

MessageBox.Show(pID) 

を持っている。しかし、これは、これがナビゲートした後で入れsystem.object.blah.blah

Answer 1

Do 
    wscript.sleep 50    
Loop Until ie.document.readystate = "complete" 

を示しています。ページが読み込まれるまで待つ必要があります。

これは、ページにhtmlテキストを割り当てて、プレーンテキストを抽出します。

Set ie = CreateObject("InternetExplorer.Application") 
ie.Visible = 0 
ie.Silent = 1 
ie.Navigate2 "file://" & FilterPath & "Filter.html" 
Do 
    wscript.sleep 50    

Loop Until ie.document.readystate = "complete" 
ie.document.body.innerhtml = Inp.readall 
Outp.write ie.document.body.innertext 

Answer 2

このコードのために試してみて：

Const TriStateTrue = -1 ' Pour la prise en charge de l'Unicode 
URL = InputBox("Entrez l'URL pour y extraire son Code Source HTML "&vbcr&vbcr&_ 
"Exemple ""http://www.google.fr""","Extraction du Code Source © Hackoo © 2013","http://www.google.fr") 
If URL = "" Then WScript.Quit 
Titre = "Extraction du Code Source de " & URL 
Set ie = CreateObject("InternetExplorer.Application") 
Set objFSO = CreateObject("Scripting.FileSystemObject") 
ie.Navigate(URL) 
ie.Visible=false 
DO WHILE ie.busy 
LOOP 
DataHTML = ie.document.documentElement.innerHTML 
strFileHTML = "CodeSourceHTML.txt" 
Set objHTMLFile = objFSO.OpenTextFile(strFileHTML, 2, True, TriStateTrue) 
objHTMLFile.WriteLine(Titre&vbcrLF&String(120,"*")) 
objHTMLFile.WriteLine(DataHTML) 
objHTMLFile.Close 
ie.Quit 
Set ie=Nothing 
wscript.echo DataHTML 
Ouvrir(strFileHTML) 
wscript.Quit 

Function Ouvrir(File) 
    Set ws=CreateObject("wscript.shell") 
    ws.run "Notepad.exe "& File,1,False 
end Function