Hallo,
ich habe da ein kleines prob. mit einem afk bot. Also ich möchte, das er nach dem d immer die enter taste automa. drückt. ....
Option Explicit
Dim objWS
Set objWS = CreateObject("WScript.Shell")
do
objWS.SendKeys "d"
objWS.SendKeys "d"
objWS.SendKeys "d"
objWS.SendKeys "d"
WScript.Sleep 3000
objWS.SendKeys "a"
objWS.SendKeys "a"
objWS.SendKeys "a"
objWS.SendKeys "a"
WScript.Sleep 3000
loop
mfg
Roaand
ich habe da ein kleines prob. mit einem afk bot. Also ich möchte, das er nach dem d immer die enter taste automa. drückt. ....
Option Explicit
Dim objWS
Set objWS = CreateObject("WScript.Shell")
do
objWS.SendKeys "d"
objWS.SendKeys "d"
objWS.SendKeys "d"
objWS.SendKeys "d"
WScript.Sleep 3000
objWS.SendKeys "a"
objWS.SendKeys "a"
objWS.SendKeys "a"
objWS.SendKeys "a"
WScript.Sleep 3000
loop
mfg
Roaand