Suche Coder für "Bot"

[aiimsh0ckz]

Heyho,

ich suche jemanden, der mit einen kleinen "Bot" für Nos schreiben kann.
Geht eigentlich nur um einen Bot der quasi eine spezifische Taste so lange x mal pro Sekunde drückt, bis man den Bot schließt (evtl Start/Stop Button).

Leider konnte ich das ganze zwar in VBS realisieren, aber geht halt nicht im Client selbst...

 Spoiler

Option Explicit

Dim fsShell, i

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

WScript.Sleep 5000

WScript.Echo "Bot wurde gestartet."

For i=1 To 1000
  fsShell.SendKeys "{q}"
  WScript.Sleep 50
Next

WScript.Echo "Bot wurde beendet."

Könnte mir jemand da unter die Arme greifen o. Ä.?

Wie gesagt, Funktion eig wie folgt:
Bot wird gestartet/injected.
Man hat ein kleines Fenster mit Start/Stop.
Taste Q wird alle 100ms 1x gedrückt, bis man auf Stop drückt.

Joa..


Greez, aiimsh0ckz. :>

[Apourtartt]

I don't understand a piece of german, but if I understood : you're looking for a bot that press Q every 0,1s ?

I can propose you that, in Autoit :

 Spoiler

HotKeySet("a", "start") ' press a to start botting
HotKeySet("z", "pause") ' you have to press z to make the bot sleep
HotKeySet("e", "stop") ' you have to press e to exit the bot

While True
   Sleep(50)
WEnd

Func start()
   While True
      Send("q") 'press q
      Sleep(100) 'wait 100ms
   WEnd ' and repeat...
EndFunc

Func pause()
   While True
   Sleep(50)
   WEnd
EndFunc

Func stop()
   Exit
EndFunc

You need to have autoit on your computer and to launch this script as administrator.
There isn't any window, everything is done by 3 keys : a z e, as I commented on the code.
I can't test it because I don't have it, but I don't see any mistakes in the code.

Have I understood what you were looking for ?

[aiimsh0ckz]

Originally Posted by Apourtartt

I don't understand a piece of german, but if I understood : you're looking for a bot that press Q every 0,1s ?

I can propose you that, in Autoit :

 Spoiler

HotKeySet("a", "start") ' press a to start botting
HotKeySet("z", "pause") ' you have to press z to make the bot sleep
HotKeySet("e", "stop") ' you have to press e to exit the bot

While True
   Sleep(50)
WEnd

Func start()
   While True
      Send("q") 'press q
      Sleep(100) 'wait 100ms
   WEnd ' and repeat...
EndFunc

Func pause()
   While True
   Sleep(50)
   WEnd
EndFunc

Func stop()
   Exit
EndFunc

You need to have autoit on your computer and to launch this script as administrator.
There isn't any window, everything is done by 3 keys : a z e, as I commented on the code.
I can't test it because I don't have it, but I don't see any mistakes in the code.

Have I understood what you were looking for ?

You understood me like 90%, yes.

I just need it to be injectable into the Nostale Client / Launcher.
Otherwise it won't work.

[Apourtartt]

Oh, you want it to run on multiple NT's windows ?

[aiimsh0ckz]

Originally Posted by Apourtartt

Oh, you want it to run on multiple NT's windows ?

Doesn't really need to run on multiple windows. Just needs to work and, as far as I know, for that case it needs to be injected. (has a Protection)

[Apourtartt]

I really think this script should work as you desired, Autoit just simulate your keyboard. It is supposed to work correctly !

[Singleplayer™]

u can use ControlSend with autoit this should work how u want it

[aiimsh0ckz]

Originally Posted by Singleplayer™

u can use ControlSend with autoit this should work how u want it

Guess I'm using the ControlSend function wrong lol

HotKeySet("{r}", "start") ;press r to start botting
HotKeySet("{t}", "pause") ;press t to make the bot sleep
HotKeySet("{e}", "stop") ;press e to exit the bot

While True
   Sleep(50)
WEnd

Func start()
   MsgBox ( 0, "", "Bot started ... ")
   While True
	  ControlSend("NosTale","", 1, "q")
      ;Send("{q}") ;press q
      Sleep(100) ;wait 100ms
   WEnd ;and repeat...
EndFunc

Func pause()
   MsgBox ( 0, "", "Bot paused ... ")
   While True
   Sleep(50)
   WEnd
EndFunc

Func stop()
   MsgBox ( 0, "", "Bot closed ... ")
   Exit
EndFunc

[Singleplayer™]

maybe take a look here , last time i used autoit was some years ago sry ...

[Apourtartt]

Do you have troubles with the Send function ?

Btw, I think you need a control ID to use ControlSend. I don't think this is possible on NosTale, you can check with WindowsInfo, provided by Autoit. Control's infos is empty.
Maybe there is a way to get the control ID, but I don't know how.

[IKAonPC]

 Spoiler

#RequireAdmin
HotKeySet("r", "Start")
HotKeySet("t", "pause")
HotKeySet("e", "quit")

While 1
Sleep(100)
WEnd


Func start()
MsgBox ( 0, "", "Bot started ... ")
While 1
sleep(100)
Controlsend("NosTale","","", "q")
WEnd
Endfunc


Func pause()
MsgBox ( 0, "", "Bot paused ... ")
While True
Sleep(1000)
WEnd
Endfunc


Func quit()
MsgBox ( 0, "", "Bot closed ... ")
Exit
Endfunc

Try this code it should work, also always put #RequireAdmin on top of every autoit code

[Limoo]

Can move mouse with autoIT in NosTale?

[zeraptor]

Wie wäre es, wenn du es einfach mit autohotkey realisierst? Sollte eigentlich klappen wenn du dein Programm dann als Admin startest

[IKAonPC]

Originally Posted by Limoo

Can move mouse with autoIT in NosTale?

Yes u can,

[Limoo]

Originally Posted by IKAonPC

Yes u can,

Thanks Automatic TS 73 incoming :P