Visual Basic Script Formularfeld einer Intranet Seite auslesen und den Wert anzeigen
Hey Leute,
ich bekam die Aufgabe in der Weboberfläche von Druckern, ein bestimmtes Formular Feld auszulesen und den Wert der in diesem Feld eingetragen ist, anzuzeigen.
Mein Problem ist, das ich zwar die Seite aufrufen kann, aber bis jetzt noch keine Ahnung habe, wie ich das Formular Feld auslesen kann.
Mein bisheriger Code sieht so aus:
Wie bekomme ich mein Problem gelöst?
Danke für eure Hilfe
Gruß
0cool
ich bekam die Aufgabe in der Weboberfläche von Druckern, ein bestimmtes Formular Feld auszulesen und den Wert der in diesem Feld eingetragen ist, anzuzeigen.
Mein Problem ist, das ich zwar die Seite aufrufen kann, aber bis jetzt noch keine Ahnung habe, wie ich das Formular Feld auslesen kann.
Mein bisheriger Code sieht so aus:
var1 = "0.mfp.10.5"
set Inet1 = createobject("internetexplorer.application")
Inet1.visible=True
Text1 = Inet1.navigate ("http://drucker001/cgi-bin/dynamic/config/net/seite.html")
Wie bekomme ich mein Problem gelöst?
Danke für eure Hilfe
Gruß
0cool
Please also mark the comments that contributed to the solution of the article
Content-ID: 184716
Url: https://administrator.de/contentid/184716
Printed on: October 7, 2024 at 23:10 o'clock
5 Comments
Latest comment
Hallo,
da das Formularfeld ja sicher eine eindeutige Bezeichnung hat kannst du den Beginn des Feldes mittels Instr suchen und dann wieder mittels Instr die Länge des Feldes ermitteln und den Text auslesen.
Tom
da das Formularfeld ja sicher eine eindeutige Bezeichnung hat kannst du den Beginn des Feldes mittels Instr suchen und dann wieder mittels Instr die Länge des Feldes ermitteln und den Text auslesen.
Tom
Hallo,
Etwas lesen und probieren hättest du auch selbst können... ;)
Du musst dir den Inhalt der Seite in eine Variable (z.Bsp. strSite) laden.
Dort suchst du dann mittels instr den Anfang des Feldes
Dann noch das Ende des Feldes
Und dann kannst du dir mit "Mid" diesen Teil herausfiltern.
Ungetestet!
Tom
Etwas lesen und probieren hättest du auch selbst können... ;)
Du musst dir den Inhalt der Seite in eine Variable (z.Bsp. strSite) laden.
Dort suchst du dann mittels instr den Anfang des Feldes
lPos1=instr(1,strSite,"wert1234")
lPos2=instr(lPos1,strSite,"KeineAhnungWieDasFeldEndet")
Text1=Mid(strSite,lPos1,lPos2-lPos1)
Ungetestet!
Tom
Hallo Ocool,
Tommy70 hat ja schon einen sehr guten Ansatz.
Vielleicht hilft beim "Groschenfallen" dieses kleine Beispiel:
Gruss
Tsuki
Ps.: Wenn man eine Beispiel-HTML hätte, gabe es sicher noch mehr/einfachere Wege nach Rom
Tommy70 hat ja schon einen sehr guten Ansatz.
Vielleicht hilft beim "Groschenfallen" dieses kleine Beispiel:
URLPfad = "http://www.wieistmeineip.de/"
suchtemp1 = "<h1 class=" & Chr(34) & "ip" & Chr(34) & ">" 'Text der vor meinem Suchwert steht
suchtemp2 = "</h1>" 'Text der direkt nach meinem Suchwert steht
Set Http=CreateObject("WinHttp.WinHttpRequest.5.1")
Http.Open "GET",URLPfad,False
Http.Send
temp = split(Http.ResponseText,suchtemp1)
temp1 = split(temp(1),suchtemp2)
ExtIP = temp1(0) 'Hier mein Suchwert
Wscript.Echo "[" & ExtIP & "]"
Gruss
Tsuki
Ps.: Wenn man eine Beispiel-HTML hätte, gabe es sicher noch mehr/einfachere Wege nach Rom