Einlog Bot

02/08/2010 18:58 Missing No#1
Also ich wollte heute aus Ppass einen einlogg _bot für nostale schreiben -
nur leider funktioniert er nicht Nostale öffnet sich net kann mir jemand sagen, wieso?

Hier mein Code:

Code:
MsgBox(0, "ACHTUNG!", "Nostale muss sich ganz unten rechts auf dem Destop befinden! Ausserdem wird die Auflösung 1366x768 benötigt!")
$ID = InputBox ("ID", "Was ist deine ID?")
Sleep (1000)
$Passwort = InputBox ("Passwort", "Was ist dein  Passwort?")
Sleep (1000)
$Server = InputBox ( "Server" , "Welcher Server? (Bitte NUR 1, 2 oder 3!)")
Sleep (1000)
$Channel = InputBox ( "Channel", "Welcher Channel? (Bitte NUR 1, 2, 3, 3, 5, 6 oder 7!")
Sleep (1000)
$Character = InputBox ( "Character", "Welcher Charakter? (Bitte NUR 1, 2 oder 3!")
Sleep (1000)
Tooltip ("Erfolg! Einen Momment bitte.....", 300, 300)
Sleep (1000)
Tooltip ("Einen Momment bitte..........", 300, 300)
Sleep (1000)
Tooltip ("Einen Momment bitte....................", 300, 300)
Sleep (1000)
Tooltip ("Nostale wird gleich geöffnet!", 300, 300)
Sleep (2000)
Mousemove(1303, 660)
Mouseclick("left")
Mouseclick ("left")
Sleep (10000)
MouseMove (699, 474)
MouseClick("left")
Sleep (10000)
Send($ID)
Sleep(100)
MouseClick ("left", 668, 388)
Send($Passwort)
Sleep(100)
Send("{enter}")
If $Server = "1" Then
Mouseclick("left", 541, 312)
ElseIf $Server = "2" Then
Mouseclick("left", 554, 339)
ElseIf $Server = "3" Then
Mouseclick("left", 559, 368)
Else
	MsgBox(0, "", "Welchen Teil von 'Antworte NUR mit 1, 2 oder 3' verstehst du eigentlich nicht?!...")
	ToolTip("Bitte schliesse Nostale und starte das Programm neu!", 300, 300)
	Sleep(5000)
	Exit
EndIf
If $Channel = "1" Then
Mouseclick("left", 541, 312)
ElseIf $Channel = "2" Then
Mouseclick("left", 554, 339)
ElseIf $Channel = "3" Then
Mouseclick("left", 559, 368)
ElseIf $Channel = "4" Then
Mouseclick("left", 559, 368)
ElseIf $Channel = "5" Then
Mouseclick("left", 559, 368)
ElseIf $Channel = "6" Then
Mouseclick("left", 559, 368)
ElseIf $Channel = "7" Then
Mouseclick("left", 559, 368)
Else
	MsgBox(0, "", "Welchen Teil von 'Antworte NUR mit 1, 2, 3, 4, 5, 6 oder 7' verstehst du eigentlich nicht?!...")
	ToolTip("Bitte schliesse Nostale und starte das Programm neu!", 300, 300)
	Sleep(5000)
	Exit
EndIf
If $Character = "1" Then
Mouseclick("left", 476, 68)
sleep(200)
Mouseclick("left",699, 708) 
ElseIf $Character = "2" Then
Mouseclick("left", 685, 63)
sleep(200)
Mouseclick("left", 699, 708) 
ElseIf $Character = "3" Then
Mouseclick("left", 907, 56)
sleep(200)
Mouseclick("left", 699, 708) 
Else
	MsgBox(0, "", "Welchen Teil von 'Antworte NUR mit 1, 2 oder 3' verstehst du eigentlich nicht?!...")
	ToolTip("Bitte schliesse Nostale und starte das Programm neu!", 300, 300)
	Sleep(5000)
	Exit
EndIf
Exit
hoffentlich net länger als er sein muss.....,...:D

naja hoffe auf antworten *.*

danke im vorraus

mfg

Missing No
02/08/2010 21:42 ¿Freaky¿#2
wie wär es mit
Code:
run ("nostale.exe") ?
02/09/2010 16:10 Missing No#3
habs versucht aber es ha0t net funktioniert ich hab auch schon

Code:
run("NosTale.exe")
ausprobiert bringt nix-

naja

aber kann mir jemand auch noch sagen, wie man es schafft, dass das programm sachen zu nostale "sendet"?^^

ich mein da gibts was wie

Code:
send ("_") to nostale.exe
oder so

mfg

Missing No
02/09/2010 16:14 ¿Freaky¿#4
das was du willst ist controlsend
und du musst schon dein script neben der exe haben damit run geht ^^
02/09/2010 18:12 Trøjan#5
1. Nimm lieber ShellExecute("Nostale.exe") oda so ^^

2. nimm ControlSend("NosTale","",0,"Dein Text nzw. Taste")

Aber ich glaub das wird nicht funktionieren weil fast jeder nen anderen Bildschirlm hat :D
02/09/2010 18:24 ¿Freaky¿#6
vll will er ein für sich selber schreiben ?
und bei ihm ist das egal ob er run oder shelexecut nimmt :)
02/09/2010 18:59 Manhatten#7
Quote:
MsgBox(0, "ACHTUNG!", "Nostale muss sich ganz unten rechts auf dem Destop befinden! Ausserdem wird die Auflösung 1366x768 benötigt!")
um kannste evtl. auch 1280x1024 machen?
und warum ganz unten rechts aufm desktop?
02/09/2010 19:23 Trøjan#8
Weil das nur auf seinen Bildschirm eingestellt ist!

@Freaky und warum hat er dann gesagt,dass man das Fenster ganz unten rechts tun
soll?=) Nja egal kann ja auch sein nur weil wir es für ihn testen sollten!
02/10/2010 16:03 Missing No#9
testen? xD
ne eig net o.O
hier die funktionierende version:^^
Code:
MsgBox(0, "ACHTUNG!", "Nostale muss sich ganz unten rechts auf dem Destop befinden! Ausserdem wird die Auflösung 1366x768 benötigt!")
$ID = InputBox ("ID", "Was ist deine ID?")
Sleep (1000)
$Passwort = InputBox ("Passwort", "Was ist dein  Passwort?")
Sleep (1000)
$Server = InputBox ( "Server" , "Welcher Server? (Bitte NUR 1, 2 oder 3!)")
Sleep (1000)
$Channel = InputBox ( "Channel", "Welcher Channel? (Bitte NUR 1, 2, 3, 3, 5, 6 oder 7!")
Sleep (1000)
$Character = InputBox ( "Character", "Welcher Charakter? (Bitte NUR 1, 2 oder 3!")
Sleep (1000)
Tooltip ("Erfolg! Einen Momment bitte.....", 300, 300)
Sleep (1000)
Tooltip ("Einen Momment bitte..........", 300, 300)
Sleep (1000)
Tooltip ("Einen Momment bitte....................", 300, 300)
Sleep (1000)
Tooltip ("Nostale wird gleich geöffnet!", 300, 300)
Sleep (2000)
ShellExecute("C:\Nostale(DE)\Nostale.exe")
Sleep (10000)
MouseMove (699, 474)
MouseClick("left")
Sleep (10000)
ControlSend("NosTale","",0,$ID)
Sleep(100)
MouseClick ("left", 668, 388)
ControlSend("NosTale","",0,$Passwort)
Sleep(100)
ControlSend("NosTale","",0,"{enter}")
If $Server = "1" Then
Mouseclick("left", 541, 312)
ElseIf $Server = "2" Then
Mouseclick("left", 554, 339)
ElseIf $Server = "3" Then
Mouseclick("left", 559, 368)
Else
	MsgBox(0, "", "Welchen Teil von 'Antworte NUR mit 1, 2 oder 3' verstehst du eigentlich nicht?!...")
	ToolTip("Bitte schliesse Nostale und starte das Programm neu!", 300, 300)
	Sleep(5000)
	Exit
EndIf
If $Channel = "1" Then
Mouseclick("left", 541, 312)
ElseIf $Channel = "2" Then
Mouseclick("left", 554, 339)
ElseIf $Channel = "3" Then
Mouseclick("left", 559, 368)
ElseIf $Channel = "4" Then
Mouseclick("left", 559, 368)
ElseIf $Channel = "5" Then
Mouseclick("left", 559, 368)
ElseIf $Channel = "6" Then
Mouseclick("left", 559, 368)
ElseIf $Channel = "7" Then
Mouseclick("left", 559, 368)
Else
	MsgBox(0, "", "Welchen Teil von 'Antworte NUR mit 1, 2, 3, 4, 5, 6 oder 7' verstehst du eigentlich nicht?!...")
	ToolTip("Bitte schliesse Nostale und starte das Programm neu!", 300, 300)
	Sleep(5000)
	Exit
EndIf
If $Character = "1" Then
Mouseclick("left", 476, 68)
sleep(200)
Mouseclick("left",699, 708) 
ElseIf $Character = "2" Then
Mouseclick("left", 685, 63)
sleep(200)
Mouseclick("left", 699, 708) 
ElseIf $Character = "3" Then
Mouseclick("left", 907, 56)
sleep(200)
Mouseclick("left", 699, 708) 
Else
	MsgBox(0, "", "Welchen Teil von 'Antworte NUR mit 1, 2 oder 3' verstehst du eigentlich nicht?!...")
	ToolTip("Bitte schliesse Nostale und starte das Programm neu!", 300, 300)
	Sleep(5000)
	Exit
EndIf
Exit
02/10/2010 20:43 SyRo1#10
Wenn du

Code:
WinActivate ("NosTale")
Opt("MouseCoordMode",2)
Rein tust ... kannst du auch nur Die Koordinaten Von NosTale nehmen,
das heißt es ist völlig egal wo sich der NosTale Fenster befindet

und das eintippen geht auch sogar unter minimierung :D
02/11/2010 14:07 Missing No#11
wie soll ich das einbauen irg welche koordinaten müssen da rein kann man etwa
Opt("MouseCoordMode",[Koordinaten])
eingeben?
02/11/2010 14:13 ¿Freaky¿#12
Was genau willst du haben ?
02/11/2010 15:57 SyRo1#13
die Tipps ganz genau daas ein

Code:
WinActivate ("NosTale")
Opt("MouseCoordMode",2)
dann gehst du auf Autoit Windows Info
dort auf Options --> Coord Mode --> wählst das Window aus
naja dann gehst du auf NosTale und siehst oben links von NosTale fenster das da 0 | 0 die koodinaten sind !!!

da machst normal mit deinen bot weiter aber mit den Koods von Window