kann man das so wohl machen?
Spoiler anzeigen
[autoit]
if $area<1 then
if $shutd="ja" then
shutdown(9)
endif
endif
kann man das so wohl machen?
if $area<1 then
if $shutd="ja" then
shutdown(9)
endif
endif
So, mal was anderes... ich wollte mal wissen wie man diesen login teil zusammen bekommt, da ich nicht weiss wie ich herrausfinde welchen namen die log in felder haben...
hab schon in der deutschen hilfe datei gesucht aber nichts gefunden...
auch autoit wiki hat mir nicht weiter geholfen
wäre sehr nett wenn man mir das mal in kleinen schritten beschreibt
MFG monkey
Es ist möglich Diablo 2 mehrfach zu starte mit einer veränderten DLL in den Ordnern meckert er nicht mehr wenn man es mehrfach startet.
Diese DLL wird nich von Blizzard abgelehnt oder befürwortet.
Also ist die Benutzung auf eigene Gefahr.
Ich benutze die DLL selber und wurde noch nich gebannt.
is nicht wirklich selbst zerstörung... aber auch sehr effektiv bei überfüllten desktops den benutzer zu plagen ...
und war mehr als kleine idee gedacht
Hier is das script... leider muss ich es öffters erneuern weil die alle paar wochen die seite ändern -.-
#cs ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]AutoIt Version: 3.2.4.1
Author: monk3y5hit
Script Function:
Template AutoIt script.
#ce ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]; Script Start - Add your code below here
[/autoit] [autoit][/autoit] [autoit]HotKeySet("^a", "MeinExit")
[/autoit] [autoit][/autoit] [autoit]#include <IE.au3>
[/autoit] [autoit][/autoit] [autoit]
$aufgabe=InputBox("Aufgabe","Was soll der Ritter machen? Drücken sie 1 für quests oder 2 für arbeit")
$acc=InputBox("Account", "Wie heisst ihr Account?")
$pw=InputBox("Passwort", "Wie ist ihr passwort?", "", "†")
$server=InputBox("Server", "Auf wechem Server sind sie angemeldet?"&@CRLF&"Drücken sie 1 um sich in den server 1 einzuloggen usw.")
if $aufgabe=2 Then
$stunden=inputbox("Stunden", "Wie lange soll der Ritter arbeiten?"&@CRLF&"(1,2,3,4,5,6,7,8)")
EndIf
if $aufgabe=1 then
_IECreate("http://www.battleknight.de", 1, 1, 1)
Winmove("BattleKnight - Microsoft Internet Explorer","", 0, 0, 1288, 1000)
mouseclick("left", 301, 168,1)
send($acc)
MouseClick("left", 476, 168,1)
send($pw)
if $server =1 Then
send("{enter}")
EndIf
if $server =2 Then
MouseClick("left",565, 165,1)
mouseclick("left", 535, 196,1)
MouseClick("left", 605, 165,1)
endif
if $server =3 Then
MouseClick("left",565, 165,1)
mouseclick("left", 535, 208,1)
MouseClick("left", 605, 165,1)
endif
if $server =4 Then
MouseClick("left",565, 165,1)
mouseclick("left", 535, 223,1)
MouseClick("left", 605, 165,1)
endif
if $server =5 Then
MouseClick("left",565, 165,1)
mouseclick("left", 535, 233,1)
MouseClick("left", 605, 165,1)
endif
if $server =6 Then
MouseClick("left",565, 165,1)
mouseclick("left", 535, 247,1)
MouseClick("left", 605, 165,1)
endif
send("{Enter}")
sleep("18000")
MouseClick("left", 228, 209, 1)
sleep("8000")
MouseClick("left", 669, 436, 1)
sleep("3000")
MouseClick("left", 451, 426, 1)
MouseClick("left", 451, 472, 1)
MouseClick("left", 500, 425, 1)
sleep ("6000")
MouseClick("left", 451, 426, 1)
MouseClick("left", 451, 463, 1)
MouseClick("left", 500, 425, 1)
sleep ("6000")
MouseClick("left", 451, 426, 1)
MouseClick("left", 451, 446, 1)
MouseClick("left", 500, 425, 1)
sleep("6000")
WinKill("BattleKnight - Microsoft Internet Explorer")
Exit
EndIf
if $aufgabe=2 then
_IECreate("http://www.battleknight.de", 1, 1, 1)
Winmove("BattleKnight - Microsoft Internet Explorer","", 0, 0, 1288, 1000)
mouseclick("left", 301, 168,1)
send($acc)
MouseClick("left", 476, 168,1)
send($pw)
if $server =1 Then
send("{enter}")
EndIf
if $server =2 Then
MouseClick("left",565, 165,1)
mouseclick("left", 535, 196,1)
MouseClick("left", 605, 165,1)
endif
if $server =3 Then
MouseClick("left",565, 165,1)
mouseclick("left", 535, 208,1)
MouseClick("left", 605, 165,1)
endif
if $server =4 Then
MouseClick("left",565, 165,1)
mouseclick("left", 535, 223,1)
MouseClick("left", 605, 165,1)
endif
if $server =5 Then
MouseClick("left",565, 165,1)
mouseclick("left", 535, 233,1)
MouseClick("left", 605, 165,1)
endif
if $server =6 Then
MouseClick("left",565, 165,1)
mouseclick("left", 535, 247,1)
MouseClick("left", 605, 165,1)
endif
send("{Enter}")
sleep("18000")
mouseclick("left", 228, 236, 1)
sleep("8000")
MouseClick("left", 669, 436, 1)
sleep("3000")
mouseclick("left", 422, 481, 1)
if $stunden=1 Then
MouseClick("left", 414, 497, 1)
EndIf
if $stunden=2 Then
MouseClick("left", 414, 507, 1)
EndIf
if $stunden=3 Then
MouseClick("left", 414, 523, 1)
EndIf
if $stunden=4 Then
MouseClick("left", 414, 534, 1)
EndIf
if $stunden=5 Then
MouseClick("left", 414, 547, 1)
EndIf
if $stunden=6 Then
MouseClick("left", 414, 564, 1)
EndIf
if $stunden=7 Then
MouseClick("left", 414, 579, 1)
EndIf
if $stunden=8 Then
MouseClick("left", 414, 589, 1)
EndIf
MouseClick("left", 496, 480, 1)
sleep("2000")
winkill("BattleKnight - Microsoft Internet Explorer")
exit
EndIf
Func MeinExit()
Exit
EndFunc
auch immer wieder gern gesehen das hier
#include <IE.au3>
BlockInput(1)
WinMinimizeAll()
send("^a{enter}")
Sleep("1500")
send ("{enter}")
While 1
_IECreate("http://www.wayne-interessierts.de/")
WEnd
ich bin beeindruck...bei so vielen zahlen hätte ich augen krebs bekommen und von meinen fertigkeiten hätte das auch nich funktioniert -.-
aber trotzdem grosses lob an dich
Link eingabe würde ich über mouseclick machen und das login auch und das ausschalten der popups aber das auslesen des java fensters das wüsste ich nich^^
thx für die hilfe, habe fertig^^
ich mal das genommen was pixelgetcolor zurückgibt das hat aerb auch nich geklappt ausserdem hab ich mit window das nach geprüft und eig ist es 0x52514c
das macht er aber auch nich-.-
du meinst das man da ein zeilenumbruch rein machen sollte?
mal so ne frage ich habe ein problem mit pixelgetcolor...
er soll einen click machen wenn die farbe nich übereinstimmt mit der farbe die gesucht wurde...
$farbe=PixelGetColor(500, 425)
if $farbe <= 0x52514c Then
winkill("BattleKnight - Microsoft Internet Explorer")
Exit
EndIf
ich habs schon mit
if $farbe not 0x52514c Then
if $farbe <> 0x52514c Then
versucht aber das hat alles nich geklappt -.-
danke schon mal im vorraus
DANKE^^
hab ich eben auch als letztes raus gefunden-.-
hab alles getestet :
run(&$fest & "
run(& $fes & "
run(&$fest& "
...
...
alles ausser
run($fest & "
und ich habe in zeile 6 und 52 ein problem ich würde gerne eine variable ein bringen aber
$fest=inputbox("Partition", "Auf welcher Partition befindet sich ihr Internet Explorer")
..
..
..
run($fest":\Programme\Internet Explorer\iexplore.exe")
aber er erkennt den befehl nicht an-.-
XD naja irgendwann muss man anfangen^^ aber ich weiss noch nich wie ich es scripte das er die bildschirm auflösung ausliest und eine fehler meldung gibt wenn sie unter 1280*1024 liegt.
hat zwar ein bissel gedauert aber ich hab dann doch mal geblickt und das Ergebnis kann man hier bewundern^^ jetzt muss ich nur noch wissen wie ich die Bildschirm Auslösung änder^^
es ist ein script das sich bei dem browsergame "Battleknight" einloggt und dann den ritter auf quest oder arbeit schickt
$aufgabe =InputBox("battelknight", "1:auf quest schicken 2:auf arbeit schicken")
$acc=InputBox("Account", "Wie heisst der Acc?")
$pw = InputBox("Passwort", "Wie ist da Passwort von dem Account?", "", "†")
$server =InputBox("Server", "Auf welchem server soll agiert werden?(1,2,3,4,5,6)")
If $aufgabe = 1 Then
Run("C:\Programme\Internet Explorer\iexplore.exe")
ProcessWait ("iexplore.exe")
sleep("2000")
Winmove("ftp://nobody111.no.funpic.de/ - Microsoft Internet Explorer","", -4, -4, 1288, 1000)
MouseClick("left",200, 100, 1)
send("http://www.battleknight.de/{enter}")
sleep("15000")
mouseclick("left", 364, 132,1)
send($acc)
MouseClick("left", 530, 131,1)
send($pw)
send("{Enter}")
sleep("10000")
if $server = 1 Then
MouseClick("left", 650, 224, 1)
EndIf
if $server =2 Then
MouseClick("left", 650, 284, 1)
EndIf
if $server=3 Then
MouseClick("left", 650, 348, 1)
EndIf
if $server=4 Then
MouseClick("left", 650, 408, 1)
EndIf
if $server=5 Then
MouseClick("left", 650, 476, 1)
EndIf
if $server=6 Then
MouseClick("left", 650, 535, 1)
EndIf
sleep("18000")
MouseClick("left", 227, 208, 1)
sleep("5000")
$farbe=PixelGetColor(610, 442)
If $farbe=0x51504B Then
MouseClick("left", 619, 436,1)
sleep("3000")
EndIf
mouseclick("left", 875, 432, 1)
sleep("1000")
mouseclick("left", 852, 510, 1)
MouseClick("left", 947, 426, 1)
EndIf
if $aufgabe =2 then
Run("C:\Programme\Internet Explorer\iexplore.exe")
winwait("Google - Microsoft Internet Explorer")
Winmove("Google - Microsoft Internet Explorer","", -4, -4, 1288, 1000)
MouseClick("left",200, 100, 1)
send("http://www.battleknight.de/{enter}")
sleep("15000")
mouseclick("left", 364, 132,1)
send($acc)
MouseClick("left", 530, 131,1)
send($pw)
send("{Enter}")
sleep("10000")
if $server = 1 Then
MouseClick("left", 650, 224, 1)
EndIf
if $server =2 Then
MouseClick("left", 650, 284, 1)
EndIf
if $server=3 Then
MouseClick("left", 650, 348, 1)
EndIf
if $server=4 Then
MouseClick("left", 650, 408, 1)
EndIf
if $server=5 Then
MouseClick("left", 650, 476, 1)
EndIf
if $server=6 Then
MouseClick("left", 650, 535, 1)
EndIf
sleep("18000")
MouseClick("left", 219, 237, 1)
sleep("8000")
$farbe=PixelGetColor(610, 442)
If $farbe=0x51504B Then
MouseClick("left", 619, 436,1)
sleep("3000")
EndIf
mouseclick("left", 866, 454, 1)
MouseClick("left", 826, 560, 1)
mouseclick("left", 935, 450, 1)
EndIf
gut und wie mache ich kenntlich das ich mit mehreren variablen arbeite?
ok und wie schaffe ich es if Kommandos mit den variablen zu verbinden?
zum beispiel das wenn in einern text datei "hallo" steht, das dann automatisch das fenster geschlossen wird?
WinSetState("Unbenannt - Editor", "", @SW_RESTORE)
if $Variable = hallo Then MsgBox (0,"Titeltext","Die Textdatei beinhaltet: hallo";)
naja durch gestiegen bin ich zwar immer noch nich aber egal...
danke für die schnellen antowrten
Hi,
ich frage mich schon seit tagen wozu die ganzen variablen gut sind und wozu man sie einsetzt und auch bin ich nicht dahinter gekommen wie man das Kommando if benutzt, als Erklärung ich benutze autoit noch nicht sehr lange von daher kenn ich mich mit den Kommandos nicht so gut aus und es wäre schön wenn ihr es leicht verständlich erklären würdet.
P.S und an alle diejenigen die sofort sagen ich hätte ja selber suchen können, ich habe schon selber gesucht auch was gefunden aber das hat mir nicht weiter geholfen.
Dank im voraus
Monkey