F8 Taste für Onlinespiel automatisieren.

[eventilaya]

Hallo,

hab schon viel gelesen und auch probiert, aber leider klapt es nicht.
Ich möchte das ein Scribt alle 10 Sekunden die F8 Taste drückt, um eine Textnachricht die ich im Spiel vorher eingegeben habe abschickt. Das Abschicken funktioniert mit der F8 Taste.
Ich hab das in eine txt Datei geschrieben und dann in vbs umbenannt.


Dim oShell, StartTime, Elapsed
Set oShell = WScript.CreateObject("WScript.Shell")
StartTime = Timer

Do
Elapsed = Timer - StartTime

If Elapsed Mod 10 = 0 Then oShell.SendKeys("F8")

WScript.Sleep 10
Loop


Es funktioniert aber nicht. Was ist da falsch?

Gruß Ilaya

Ps. Ich nutze Win XP Prof. SP3

 

[miac]

Soweit ich vermute, muß F8 in geschweifte Klammern stehen.

 

[xxMuahdibxx]

oder man nimmt ein externes Programm was Tastatur und Mauseingaben selber aufzeichnet und abspielt ....



Die Frage ist ob sowas überhaupt in dem Game erlaubt ist ...

 

[eventilaya]

Ja, erlaubt ist es für die F8 Funktion. Den Recorder von Kartronic hab ich versucht, bekomme aber dauernd dadurch einen Bluescreen. Mir wurde dann eben vom TEAM empfolen es mit einem vbs Makro zu versuchen.
Jo und das ist eben bei rausgekommen.


Gruß Ilaya

Ergänzung (30. Dezember 2012)

Habs jetzt mal s versucht.

Dim oShell, StartTime, Elapsed
Set oShell = WScript.CreateObject("WScript.Shell")
StartTime = Timer

Do
Elapsed = Timer - StartTime

If Elapsed Mod 10 = 0 Then oShell.SendKeys{"F8"}

WScript.Sleep 10
Loop

So klappt es aber auch nicht. Bekomme die Fehlermeldung:

Windows Scribt Host
Skribt: C:\Dokumente und Einstellungen\Ilaya\Desktop\Enter.vbs
Zeil: 8
Zeichen: 45
Fehler: Ungültiges Zeichen
Code: 800A0408
Quelle: Kompilierungsfehler in Microsoft VBScript

Kann das dann nur mit OK bestätigen.

Freu mich über Eure hilfreichen Antworten.

Gruß Ilaya

 

[miac]

versuche mal
If Elapsed Mod 10 = 0 Then oShell.SendKeys({F8})
bzw
If Elapsed Mod 10 = 0 Then oShell.SendKeys("{F8}")


Ich glaube aber, es müßte eher

If Elapsed Mod 10 = 0 Then oShell.SendKeys.Send("{F8}")

sein

 

[eventilaya]

Hallo

leider funktioniert das auch nicht, bekomme immer noch die gleiche Fehlermeldung.

Zum Verständniss, der Text der mit der F8 Taste alle 10 Sekunden abgesendet werden soll, wird im Chatfenster des Spiels mit //TradeSellBuy hier steht dann mein Text. geschrieben. Damit der Trade dann nicht im normalen Chat sichtbar ist, sondern nur im Handelschat, wird statt der Enter Taste die F8 Taste gedrückt.
Das drücken der F8 Taste soll dann eben alle 10 Sekunden geschehen.

Das ist schon alles.

Kenn noch jemand weiter helfen? bekomme es nicht zum laufen.

Gruß Ilaya

P.s. Wünsche Euch schon mal einen gesunden und erfolgreichen Rutsch ins neue Jahr.

 

[frogger9]

Option Explicit

Dim WshShell

Set WshShell = WScript.CreateObject("WScript.Shell")

DO

Wscript.Sleep 10000
WshShell.SendKeys "{F8}"

LOOP

mehr braucht es eigentlich nicht.

 

[eventilaya]

Frohes neues

vielen Dank =)
Nu kann ich meine Waren auch endlich im Handelschat anbieten.