Autohotkey Skillbot zu VB Skillbot

12/19/2010 21:09 Andi Arbeit#1
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:
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
12/20/2010 13:29 -AmA-#2
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
12/20/2010 14:45 Andi Arbeit#3
Quote:
Originally Posted by -AmA- View Post
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
12/20/2010 17:30 Al Kappaccino#4
Quote:
Originally Posted by Andi Arbeit View Post
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