Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Visual Basic Script Formularfeld einer Intranet Seite auslesen und den Wert anzeigen

Frage Entwicklung Visual Studio

Mitglied: 0cool

0cool (Level 2) - Jetzt verbinden

09.05.2012, aktualisiert 14:59 Uhr, 4013 Aufrufe, 5 Kommentare

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:
01.
var1 = "0.mfp.10.5" 
02.
 
03.
set Inet1 = createobject("internetexplorer.application") 
04.
Inet1.visible=True 
05.
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
Mitglied: Tommy70
09.05.2012 um 14:59 Uhr
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
Bitte warten ..
Mitglied: 0cool
09.05.2012 um 15:47 Uhr
Hallo Tom,

da ich im Moment noch keinen Ansatz Punkt habe und mir auch nicht klar ist, wie ich mit Instr den Inhalt des Formular Feldes auslesen kann, bitte ich Dich um ein Beispilel.

Das Formular Feld besitzt den Wert: wert123


Gruß

0cool
Bitte warten ..
Mitglied: Tommy70
10.05.2012 um 08:54 Uhr
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
01.
lPos1=instr(1,strSite,"wert1234")
Dann noch das Ende des Feldes
01.
lPos2=instr(lPos1,strSite,"KeineAhnungWieDasFeldEndet")
Und dann kannst du dir mit "Mid" diesen Teil herausfiltern.
01.
Text1=Mid(strSite,lPos1,lPos2-lPos1)
Ungetestet!

Tom
Bitte warten ..
Mitglied: TsukiSan
10.05.2012 um 09:46 Uhr
Hallo Ocool,

Tommy70 hat ja schon einen sehr guten Ansatz.

Vielleicht hilft beim "Groschenfallen" dieses kleine Beispiel:
01.
URLPfad = "http://www.wieistmeineip.de/" 
02.
suchtemp1 = "<h1 class=" & Chr(34) & "ip" & Chr(34) & ">" 'Text der vor meinem Suchwert steht 
03.
suchtemp2 = "</h1>" 'Text der direkt nach meinem Suchwert steht 
04.
 
05.
Set Http=CreateObject("WinHttp.WinHttpRequest.5.1") 
06.
 
07.
Http.Open "GET",URLPfad,False 
08.
Http.Send 
09.
 
10.
temp = split(Http.ResponseText,suchtemp1) 
11.
temp1 = split(temp(1),suchtemp2) 
12.
 
13.
ExtIP = temp1(0) 'Hier mein Suchwert 
14.
 
15.
Wscript.Echo "[" & ExtIP & "]"
Gruss
Tsuki

Ps.: Wenn man eine Beispiel-HTML hätte, gabe es sicher noch mehr/einfachere Wege nach Rom
Bitte warten ..
Mitglied: 0cool
10.05.2012 um 19:50 Uhr
Hey Leute,

inzwischen bin ich auf die Lösung gekommen. So ählich wie es Tommy geschrieben hat.
Danke für eure Tatkräftige Hilfe!

Da ich nichtmehr im Geschäft bin, kann ich euch auch nicht die löschung präsentieren. Das kommt auch noch, bevor ich den Beitrag schliesse.

Schönen Abend euch noch.

Gruß
0cool
Bitte warten ..
Ähnliche Inhalte
Visual Studio
Pastebin auslesen mit Visual Basic?
gelöst Frage von UltraZzVisual Studio2 Kommentare

Hey,ich würde gerne wissen wie man (z.B. für ein Passwort welches man immer wieder ändern kann,ohne das Programm zu ...

Entwicklung
Seriennummer auslesen über Visual Basic
gelöst Frage von nico-3012Entwicklung3 Kommentare

Hallo, ich würde gerne die Seriennummer von meinem Fujitsu PC auslesen und in eine Textbox ausgeben, hat jemand vielleicht ...

VB for Applications
Visual Basic Wert in Tabelle eintragen und erweitern
gelöst Frage von TermimanVB for Applications4 Kommentare

Hallo liebe Leute, ich bekam damals schon einen sehr guten Tipp für meine kleine Excel Tabelle. Nun würde ich ...

VB for Applications
Visual Basic - Werte in ausgeblendete Zeilen eintragen
gelöst Frage von TermimanVB for Applications2 Kommentare

Guten Abend liebe Leute, ich habe vor einiger Zeit eine super Hilfestellung bei meiner kleinen Excel Liste bekommen. siehe ...

Neue Wissensbeiträge
Internet

Was nützt HTTPS, wenn es auch von Phishing Web-Seiten genutzt wird

Information von Penny.Cilin vor 2 TagenInternet17 Kommentare

HTTPS richtig einschätzen Ob man eine Webseite via HTTPS aufruft, zeigt ein Schloss neben der Adresse im Webbrowser an. ...

Webbrowser

Bugfix für Firefox Quantum released - Installation erfolgt teilweise nicht automatisch!

Erfahrungsbericht von Volchy vor 3 TagenWebbrowser7 Kommentare

Hallo zusammen, gem. dem Artike von heise online wurde mit VersionFirefox 57.0.1 sicherheitsrelevante Bugs behoben. Entgegen der aktuellen Veröffentlichung ...

Sicherheit

Teamviewer Sessions können gekapert werden - Update tw. verfügbar

Information von sabines vor 3 TagenSicherheit6 Kommentare

In bestimmten Konstellationen können Teamviewer Sessions gekapert werden, wahrscheinlich aber ein recht unwahrscheinliches Szenario. Da der Teamviewer gerne für ...

Digitiales Fernsehen

Apple TV: Amazon Prime App ist verfügbar

Information von Frank vor 4 TagenDigitiales Fernsehen4 Kommentare

Die Amazon Prime Video App kann ab sofort auf einem Apple TV ab der 3 Generation installiert werden. Einfach ...

Heiß diskutierte Inhalte
Vmware
Installation Windows 10 VMware
Frage von Ghost108Vmware17 Kommentare

Hallo zusammen, versuche gerade mit Hilfe des vshpere clients eine virtuelle Windows 10 maschine aufzusetzen. 1. virtuelle Maschine erstellt ...

Exchange Server
SBS 2011 E-Mails können gesendet werden, aber nicht von extern empfangen
Frage von andreas1234Exchange Server14 Kommentare

Hallo Community, ich habe das Problem, dass seit knapp zwei Wochen die E-Mails von meinem SBS 2011 einwandfrei gesendet ...

Voice over IP
Telefonstörung - Ortsrufnummern kein Verbindungsaufbau
Frage von Windows10GegnerVoice over IP10 Kommentare

Hallo, sowohl bei uns als auch beim Opa ist es über VoIP nicht möglich Ortsrufnummern anzurufen. Es kommt nach ...

Windows Server
Server 2012 über Eingabeaufforderung devmgmt.msc geht nicht
gelöst Frage von achim222Windows Server9 Kommentare

Hallo, ich habe hier einen Server 2012 der im Reparaturmodus startet. Es liegt an einem falschen VirtIO Treiber für ...