Guten Tag,
ich habe ein kleines Problem mit einem Vb Script:
Auf einer Internetplattform geht es darum, mehrere User täglich zu bewerten. Um diese Bewertungen so angenehm wie möglich zu gestalten, habe ich mir ein kleines Script geschrieben:
Set wshShell = CreateObject("Wscript.Shell")
wshShell.Run "Firefox.exe Hier gehört der Link hin"
WScript.Sleep 3000
wshShell.AppActivate "Bewertung - Firefox"
WshShell.SendKeys "{Tab}"
WshShell.SendKeys "{Tab}"
WshShell.SendKeys "{Tab}"
WshShell.SendKeys "{Tab}"
WshShell.SendKeys "{Tab}"
WshShell.SendKeys "{Tab}"
WshShell.SendKeys "{Tab}"
WshShell.SendKeys "{Tab}"
WshShell.SendKeys "{Tab}"
WshShell.SendKeys "{Tab}"
WScript.Sleep 1000
WshShell.SendKeys "{down}"
WshShell.SendKeys "{down}"
WshShell.SendKeys "{down}"
WshShell.SendKeys "{down}"
WshShell.SendKeys "{down}"
WshShell.SendKeys "{down}"
WshShell.SendKeys "{down}"
WshShell.SendKeys "{down}"
WshShell.SendKeys "{down}"
WshShell.SendKeys "{down}"
WScript.Sleep 1000
WshShell.SendKeys "{Tab}"
WScript.Sleep 1000
WshShell.SendKeys "~"
WScript.Sleep 5000
WshShell.SendKeys "^{w}"
WScript.Quit
Bei mir läuft die Bewertung 100%ig ab. Ich stelle dieses Script aber auch meinen Buddys zur Verfügung und erhalte von vielen immer wieder die Nachricht, dass viele nicht bewertet wurden. Nur kurz zur Info: Es handelt sich um über 70 Bewertungen.
Nach WshShell.SendKeys "~" öffnet sich die Seite, dass die Bewertung registriert wurde.
Und nun meine Frage: Wie kann ich dem Script beibringen, dass es im Fall der Nichtbewertung solange wiederholt, bis die Bewertung registriert wurde. Mein Gedanke hierzu geht über "If" "Then" "If End". Aber dafür muss ich dem Script sagen, wie die URL der Bestätigungsseite heißt. Und hier komme ich nicht weiter.
Ich hoffe, dass ich mich verständlich ausgedrückt habe und bin für jede noch so kleine Hilfe sehr Dankbar.
Lg
Tagay
ich habe ein kleines Problem mit einem Vb Script:
Auf einer Internetplattform geht es darum, mehrere User täglich zu bewerten. Um diese Bewertungen so angenehm wie möglich zu gestalten, habe ich mir ein kleines Script geschrieben:
Set wshShell = CreateObject("Wscript.Shell")
wshShell.Run "Firefox.exe Hier gehört der Link hin"
WScript.Sleep 3000
wshShell.AppActivate "Bewertung - Firefox"
WshShell.SendKeys "{Tab}"
WshShell.SendKeys "{Tab}"
WshShell.SendKeys "{Tab}"
WshShell.SendKeys "{Tab}"
WshShell.SendKeys "{Tab}"
WshShell.SendKeys "{Tab}"
WshShell.SendKeys "{Tab}"
WshShell.SendKeys "{Tab}"
WshShell.SendKeys "{Tab}"
WshShell.SendKeys "{Tab}"
WScript.Sleep 1000
WshShell.SendKeys "{down}"
WshShell.SendKeys "{down}"
WshShell.SendKeys "{down}"
WshShell.SendKeys "{down}"
WshShell.SendKeys "{down}"
WshShell.SendKeys "{down}"
WshShell.SendKeys "{down}"
WshShell.SendKeys "{down}"
WshShell.SendKeys "{down}"
WshShell.SendKeys "{down}"
WScript.Sleep 1000
WshShell.SendKeys "{Tab}"
WScript.Sleep 1000
WshShell.SendKeys "~"
WScript.Sleep 5000
WshShell.SendKeys "^{w}"
WScript.Quit
Bei mir läuft die Bewertung 100%ig ab. Ich stelle dieses Script aber auch meinen Buddys zur Verfügung und erhalte von vielen immer wieder die Nachricht, dass viele nicht bewertet wurden. Nur kurz zur Info: Es handelt sich um über 70 Bewertungen.
Nach WshShell.SendKeys "~" öffnet sich die Seite, dass die Bewertung registriert wurde.
Und nun meine Frage: Wie kann ich dem Script beibringen, dass es im Fall der Nichtbewertung solange wiederholt, bis die Bewertung registriert wurde. Mein Gedanke hierzu geht über "If" "Then" "If End". Aber dafür muss ich dem Script sagen, wie die URL der Bestätigungsseite heißt. Und hier komme ich nicht weiter.
Ich hoffe, dass ich mich verständlich ausgedrückt habe und bin für jede noch so kleine Hilfe sehr Dankbar.
Lg
Tagay