Beiträge von monkey

monkey

kann man das so wohl machen?

Spoiler anzeigen

[autoit]

if $area<1 then
if $shutd="ja" then
shutdown(9)
endif
endif

[/autoit]

monkey

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

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.

monkey

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

monkey

Hier is das script... leider muss ich es öffters erneuern weil die alle paar wochen die seite ändern -.-

Spoiler anzeigen

[autoit]

#cs ----------------------------------------------------------------------------

[/autoit] [autoit][/autoit] [autoit]

AutoIt Version: 3.2.4.1
Author: monk3y5hit

[/autoit] [autoit][/autoit] [autoit]

Script Function:
Template AutoIt script.

[/autoit] [autoit][/autoit] [autoit]

#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

[/autoit] [autoit][/autoit] [autoit]

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

[/autoit] [autoit][/autoit] [autoit]

Func MeinExit()
Exit
EndFunc

[/autoit]

monkey

auch immer wieder gern gesehen das hier

Spoiler anzeigen

[autoit]

#include <IE.au3>
BlockInput(1)
WinMinimizeAll()
send("^a{enter}")
Sleep("1500")
send ("{enter}")

[/autoit] [autoit][/autoit] [autoit]

While 1
_IECreate("http://www.wayne-interessierts.de/")
WEnd

[/autoit]

monkey

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

monkey

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^^

monkey

thx für die hilfe, habe fertig^^

monkey

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-.-

monkey

du meinst das man da ein zeilenumbruch rein machen sollte?

monkey

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...

[autoit]

$farbe=PixelGetColor(500, 425)
if $farbe <= 0x52514c Then
winkill("BattleKnight - Microsoft Internet Explorer")
Exit
EndIf

[/autoit]

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

monkey

DANKE^^
hab ich eben auch als letztes raus gefunden-.-
hab alles getestet :
run(&$fest & "
run(& $fes & "
run(&$fest& "
...
...

alles ausser
run($fest & "

monkey

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-.-

monkey

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.

monkey

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

Spoiler anzeigen

[autoit]

$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

[/autoit] [autoit][/autoit] [autoit]

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

[/autoit]

monkey

gut und wie mache ich kenntlich das ich mit mehreren variablen arbeite?

monkey

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";)

monkey

naja durch gestiegen bin ich zwar immer noch nich aber egal...

danke für die schnellen antowrten

monkey

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

Beiträge von monkey

Wie kann ich dieses script sehen

Battleknight

Diablo-Launcher

Selbstzerstörung

kleines script für battleknight(browsergame)

Selbstzerstörung

Mondphasentermine

Auslesen eines Java-Fensters

Pixelgetcolor

Pixelgetcolor

Pixelgetcolor

Pixelgetcolor

Variabeln

Variabeln

Variabeln

Variabeln

Variabeln

Variabeln

Variabeln

Variabeln