Autohotkey Skillbot zu VB Skillbot

[Andi Arbeit]

Nabend

ich habe einen alten Skillbot von mir wieder auf dem PC gefunden der mit Autohotkey geschrieben ist... leider funktioniert der nicht mehr mit Autohotkey.

Deshalb möchte ich gerne die Programmiersprache ändern undzwar von Autohotkey zu VisualBasic.

Hier erstmal der Autohotkey Code:

MsgBox,0,SkillBot, ~SkillBot~`n`n



InputBox, t, Welche Taste ..., Welche Taste soll ich drücken ?,,300,130,,,,,1
if ErrorLevel
			{
			MsgBox,,Bot beendet ..., ohne Eingabe geht es nicht.`n`nBot wird beendet.
			exit
			}


InputBox, z, Sekunden ..., alle wieviel Sekunden soll ich > %t% < drücken?,,300,130,,,,,300
if ErrorLevel
			{
			MsgBox,,Bot beendet ..., ohne Eingabe geht es nicht.`n`nBot wird beendet.
			exit
			}
	if z is not integer
		{
		MsgBox,,Bot beendet ..., Das war keine Zahl.`n`nBot wird beendet.
		exit
		}

	z := z*1000

loop
{
	IfWinExist LastChaos
			{
			sleep 100
			}
		else
			{
			MsgBox, Zuerst LC starten ! ! !
			exit
			}
ControlSend, ,%t%, LastChaos -
Sleep %z%

}

Ich möchte nun gerne eine neue Version machen wo man in 2 Textboxen reinschreibt welche "F" Taste gedrückt werden soll und in welchen Zeitabstand (Sekunden) die "F" Taste gedrückt werden soll.

wäre nett wenn mir da einer helfen könnte wie ich das mit VB hinbekomme

lg

[-AmA-]

würde es dich stören wenn ich das auch kurz in autohotkey mache und dan das kompilierte skript hochlade?

Edit:
Dein Skript funkt wunderbar...
Hast wahrscheinlich falsche ahk Version...

PHP Code:

MsgBox,0,Klickbot,Klickbot`n`n



InputBox, t, Welche Taste ..., Welche Taste soll ich drücken ?,,300,130,,,,,1
if ErrorLevel
            {
            MsgBox,,Bot beendet ..., ohne Eingabe geht es nicht.`n`nBot wird beendet.
            exit
            }


InputBox, z, Sekunden ..., alle wieviel Sekunden soll ich > %t% < drücken?,,300,130,,,,,300
if ErrorLevel
            {
            MsgBox,,Bot beendet ..., ohne Eingabe geht es nicht.`n`nBot wird beendet.
            exit
            }
    if z is not integer
        {
        MsgBox,,Bot beendet ..., Das war keine Zahl.`n`nBot wird beendet.
        exit
        }

    z := z*1000

InputBox, a, Welches Fenster ...,An welches Fenster soll die Taste gesendet werden?,,300,130,,,,,Untitled - Notepad
if ErrorLevel
            {
            MsgBox,,Bot beendet ..., ohne Eingabe geht es nicht.`n`nBot wird beendet.
            exit
            }

loop
{
    IfWinExist %a%
            {
            sleep 100
            }
        else
            {
            MsgBox, Zuerst %a% starten ! ! !
            exit
            }
ControlSend, ,%t%, %a%
Sleep %z%

} 


Noch n bischen modifiziert

Im Anhang das Tool

[Andi Arbeit]

Originally Posted by -AmA-

würde es dich stören wenn ich das auch kurz in autohotkey mache und dan das kompilierte skript hochlade?

Edit:
Dein Skript funkt wunderbar...
Hast wahrscheinlich falsche ahk Version...

PHP Code:

MsgBox,0,Klickbot,Klickbot`n`n



InputBox, t, Welche Taste ..., Welche Taste soll ich drücken ?,,300,130,,,,,1
if ErrorLevel
            {
            MsgBox,,Bot beendet ..., ohne Eingabe geht es nicht.`n`nBot wird beendet.
            exit
            }


InputBox, z, Sekunden ..., alle wieviel Sekunden soll ich > %t% < drücken?,,300,130,,,,,300
if ErrorLevel
            {
            MsgBox,,Bot beendet ..., ohne Eingabe geht es nicht.`n`nBot wird beendet.
            exit
            }
    if z is not integer
        {
        MsgBox,,Bot beendet ..., Das war keine Zahl.`n`nBot wird beendet.
        exit
        }

    z := z*1000

InputBox, a, Welches Fenster ...,An welches Fenster soll die Taste gesendet werden?,,300,130,,,,,Untitled - Notepad
if ErrorLevel
            {
            MsgBox,,Bot beendet ..., ohne Eingabe geht es nicht.`n`nBot wird beendet.
            exit
            }

loop
{
    IfWinExist %a%
            {
            sleep 100
            }
        else
            {
            MsgBox, Zuerst %a% starten ! ! !
            exit
            }
ControlSend, ,%t%, %a%
Sleep %z%

} 


Noch n bischen modifiziert

Im Anhang das Tool

Das der Skillbot funktioniert weiss ich....aber nicht mehr mit dem Game wofür er Programmiert wurde. Das Game hat X-Trap und der erkennt Autoit und Autohotkey Scripte :/ deshalb wollte ich das nun in VB machen

[Al Kappaccino]

Originally Posted by Andi Arbeit

Das der Skillbot funktioniert weiss ich....aber nicht mehr mit dem Game wofür er Programmiert wurde. Das Game hat X-Trap und der erkennt Autoit und Autohotkey Scripte :/ deshalb wollte ich das nun in VB machen

Nunja zu XTrap, na klar geht es mit AutoIt aber nicht über den "Send" Befehl sondern wie hier angewendet den "ControlSend"... Der sollte eigentlich funzen

Edit:

Ahja wenn du es mit VB machen willst, würde ich spontan mal auf die API "SendMessage" tippen