Webseite öffnen und eingeben (VBS) Verfasst am: 11.10.2011, 12:14
Hallo,
ich habe mal eine kleine Frage zur Programmierung:
Ich möchte gerne, dass sich beim Aufrufen einer VBS-Datei eine Webseite öffnet und der dann automatisch in das erste Eingabefeld was es in der Webseite gibt ein Text eingegeben wird und dann per Tab in das nächste Feld gesprungen wird, dann per Tab auf den Absendenbutton getippt wird und, dass dann wiederholt wird. Nochmal zum Verständnis ein Ablauf:
Öffne Webseite=>Springe ins erste Eingabefeld=>Text eingeben=>Springe ins nächste Eingabefeld=>Text eingeben=>Auf den Antwortbutton springe der gleich danach kommt=>Klicken (Enter)=>Schließe Tab=>Loop (Wiederholen)
Ich bin bei mir bisher nur so weit gekommen:
Code:
Dim Beispiel
Set Beispiel = CreateObject("WScript.Shell")
Beispiel.Run "http://www.domain.de/index.php"
Beispiel.SendKeys "{TAB}"
Weiß jemand wie ich den ganzen Ablauf vollführen kann?
Gruß
Die Mathematik
christopher.g Überflieger
Anmeldedatum: 03.05.2008 Beiträge: 565
Verfasst am: 12.10.2011, 13:54
das heist du möchtest also so eine art bruteforce für eine webseite versuchen...
ich würde das aber nicht mit sendkey sondern mit
Code:
webbrowser1.Document.Forms(0).User.Value = "Admin" 'statt user musst du dir den namen der textbox aus dem quelltext der seite
'und zum bestätigen
webbrowser1.Document.Forms(0).submit.Click
viel erfolg
lg
Die Mathematik Newbie
Anmeldedatum: 11.10.2011 Beiträge: 3
Verfasst am: 12.10.2011, 13:59
Ach nein einen Bruteforceangriff oder der gleichen bösartiges war bisher nicht mein Ziel. Ich werde ich mal daran versuchen danke.
Das sehe ich als Schritt aber etwas kompliziert an, erst auch noch den Namen einzugeben oder der gleichen, kann man das nicht einfacher machen. Hat jemand eine fertige Scriptvorlage, die man benutzen könnte oder so? Ich stehe da etwas auf dem Schlauch.
Registrieren
Login
