Erhalten Sie Web-Seite Text in msgbox

Ich versuche, eine msgbox zu erscheinen, sobald mein Code gesendet wurde. Ich möchte den inneren Text anzeigen.Erhalten Sie Web-Seite Text in msgbox

Bisher habe ich

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)

Aber dies zeigt system.object.blah.blah

Quelle

2016-07-17 shaggs

Vb Skript sehen sorry ich falsch Tag – shaggs

Das Problem hinzugefügt wird mit 'ToString()', die Sie gerade gibt eine String-Darstellung des Objekts Sie rufen es gegen ''System.Object'' usw. verwenden. Verwenden Sie' InnerHTML() 'und' innerText() 'stattdessen, um entweder die HTML-Darstellung des DOM-Elements oder nur die textuelle Darstellung zurückzugeben. – Lankymart

@Lankymart können Sie bitte ein Beispiel als Antwort geben, so kann ich als beantwortet, wenn richtig, bitte markieren – shaggs

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

Setzen Sie diese nach navigate ist. Sie müssen warten, bis die Seite geladen ist.

Dies weist HTML-Text einer Seite zu und extrahiert dann reinen Text.

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

Quelle

2016-07-17 21:10:16

Ich hatte dieses Etwas ähnlich in meinem echten aber gleichen Ergebnis – shaggs

Probieren Sie für diesen Code:

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

Quelle

2016-07-17 21:32:58 Hackoo

Antwort

Verwandte Themen