|
You last visited: Today at 21:37
Advertisement
[AutoIt] Frage/Antworte Thread
Discussion on [AutoIt] Frage/Antworte Thread within the Metin2 forum part of the Popular Games category.
11/17/2009, 21:12
|
#511
|
elite*gold: 2 
Join Date: Feb 2009
Posts: 1,030
Received Thanks: 586
|
HotKeySet ( "{F5}" , "Start" )
HotKeySet ( "{F6}" , "Ende" )
HotKeySet ("{F7}", "STRG")
while(1)
sleep(500)
wend
Func Start ()
While 1
Sleep(100)
WEnd
EndFunc
Func STRG ()
Send("{^}"+"h",0)
EndFunc
Func Ende ()
Exit
EndFunc
|
|
|
|
11/21/2009, 16:54
|
#512
|
elite*gold: 0
Join Date: Nov 2009
Posts: 7
Received Thanks: 2
|
Ich hab mal ne Frage undzwar, wie man die Enter taste also halt ein Zeilenumbruch in eine MsgBox einbaut hab nehmlich gestern mal mit AutoIt angefangen und wollt mir ein Relogg-Bot basteln Für Server 18 CH 2 Charakter 3
Habs auch schon soweit geschafft aber will halt dasses wenn man auf info klickt
das Fenster dann so ungefähr aussieht:
_____________________
|____________________|
|
| F9 Bot pausieren
|
| F10 Bot beenden
|____________________|
Pausieren versuch ich dann noch einzubauen wenn ich weis wie man des macht ;D
Oder so^^
Hier is der script mal und wundert euch nicht wen sachen da drinn überflüssig sind oder es bisschen unübersichtlich ist^^
Danke schonmal im Vorraus
MFG BowOfAim
PHP Code:
#include <GUIConstantsEx.au3>
$ID = GUICtrlCreateInput("ID", 24, 72, 137, 22)
$PW = GUICtrlCreateInput("Passwort", 24, 112, 137, 22)
Opt('MustDeclareVars', 1)
Hotkeyset("{F10}", "Terminate")
Example()
Func Example()
Local $Button_1, $Button_2, $msg
GUICreate("Relogg-Bot S18CH2", 220, 120, 750, 500, 2, 2)
Opt("GUICoordMode", 2)
$Button_1 = GUICtrlCreateButton("Start", 10, 30, 100)
$Button_2 = GUICtrlCreateButton("Info", 0, -1)
$ID = GUICtrlCreateInput("ID", -175, 0, 137, 22)
$PW = GUICtrlCreateInput("Passwort", -137, 0, 100, 22)
GUISetState()
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $Button_1
While 1
Do
PixelSearch(23,35,23,35,0x1c1c1c)
Until Not @error
sleep(100)
MouseClick("left", 300, 517, 1)
MouseClick("left", 500, 227, 1)
MouseClick("left", 500, 537, 1)
MouseClick("left", 610, 495, 1)
Send ( GUICtrlRead ( $ID) )
MouseClick("left", 610, 522, 1)
Send ( GUICtrlRead ( $PW ) )
MouseClick("left", 586, 547, 1)
sleep(100)
Do
PixelSearch(95,277,95,277,0x9c0000)
Until Not @error
MouseClick("left", 500, 557, 2)
MouseClick("left", 171, 505, 1)
Wend
Case $msg = $Button_2
msgBox(1,"Info", "F10 Bot beenden")
EndSelect
WEnd
EndFunc
Func Terminate()
Exit 0
Endfunc
|
|
|
|
|
11/21/2009, 17:31
|
#513
|
elite*gold: 7
Join Date: Jun 2008
Posts: 1,750
Received Thanks: 415
|
autoit ist ja kostenlos oder? ich komme nämlich uimmer nur auf seiten, wo es 50€+ kostet xD
|
|
|
|
|
11/21/2009, 18:24
|
#514
|
elite*gold: 0
Join Date: Nov 2009
Posts: 7
Received Thanks: 2
|
Also ich habs kostenlos bei CHIP runtergeladen glaube ich.
|
|
|
|
|
11/22/2009, 18:38
|
#515
|
elite*gold: 0
Join Date: Apr 2008
Posts: 368
Received Thanks: 36
|
Brauche Hilfe bei meinen kleinen Bot für "NosTale"
Ich will das es unter Minimierung läuft oder halt hidden
Mein Code:
PHP Code:
HotKeySet("{F9}","Start")
While(1)
Sleep(500)
WEnd
Func Start()
While 1
Sleep ( 500 )
ControlSend("NosTale", "", 0, "{Space}")
If PixelGetColor (842,185) = 0x343433 Then
Sleep(2000)
ControlSend("NosTale", "", 0, "ö")
ControlSend("NosTale", "", 0, "r")
ControlSend("NosTale", "", 0, "ö")
ControlSend("NosTale", "", 0, "r")
ControlSend("NosTale", "", 0, "ö")
ControlSend("NosTale", "", 0, "r")
If PixelGetColor (477,185) = 0x343433 Then
Sleep(15000)
ControlSend("NosTale", "", 0, "c")
Sleep(25000)
ControlSend("NosTale", "", 0, "c")
EndIf
EndIf
WEnd
EndFunc
Func Pause()
While(1)
Sleep(500)
Send("{Pause}")
WEnd
EndFunc
Der klappt eig ganz okey, aber wenn ich über den Punkt: (842,185)etwas mache ... halt es verdecke funktioniert er nicht mehr richtig. ER tun nur noch angreifen !
P.S. Sorry wenn der Code schlecht is, hab erst vor kurzen angefangen mit Autoit
Edit: Sry für die Falsche Section, hab nur gesehen das es fragen über Autoit ist und nicht das es in Metin2 Section ist.
|
|
|
|
|
11/24/2009, 16:50
|
#516
|
elite*gold: 0
Join Date: Sep 2009
Posts: 2
Received Thanks: 0
|
hey ich habe das selbe problem ich brauche diese exe kann mir die jemand schiken meine msn id ist  Danke
|
|
|
|
|
11/27/2009, 06:04
|
#517
|
elite*gold: 0
Join Date: Mar 2008
Posts: 8
Received Thanks: 0
|
RelogingBot
Hi.Ich hab ne frage zum (MarcoPolo Farmbot) bzw zum dem relogbot der damit verbunden ist.
Was muss ich den bei ,,Farbwert des Pixel 515,210 hin schreiben´´??Was genau is das?
und bei ,,Mausklick für den login´´?????
Kann mir da einer weiterhelfen bei mir funtz der Relogingbot net.Ich denk mal deswegen.
|
|
|
|
|
11/27/2009, 08:56
|
#518
|
elite*gold: 0
Join Date: Dec 2007
Posts: 496
Received Thanks: 171
|
Quote:
Originally Posted by Jayzone
Hi.Ich hab ne frage zum (MarcoPolo Farmbot) bzw zum dem relogbot der damit verbunden ist.
Was muss ich den bei ,,Farbwert des Pixel 515,210 hin schreiben´´??Was genau is das?
und bei ,,Mausklick für den login´´?????
Kann mir da einer weiterhelfen bei mir funtz der Relogingbot net.Ich denk mal deswegen.
|
Mit dem AutoIt Window Info tool kannst du den Farbwert an der Stelle rausbekommen; erkundige dich mal darüber; Google.
Quote:
Originally Posted by Kr0ch3r
autoit ist ja kostenlos oder? ich komme nämlich uimmer nur auf seiten, wo es 50€+ kostet xD
|
Ja, ist natürlich kostenlos; Hauptseite von AutoIt oder halt Chip.
Quote:
Originally Posted by BowOfAim
Ich hab mal ne Frage undzwar, wie man die Enter taste also halt ein Zeilenumbruch in eine MsgBox einbaut
|
"Text" & @CRLF & "Text in Zeile 2" sollte klappen.
Zwischen beide mit ""< eingeschlossene Texte also einfach & @CRLF & einfügen, bei mehreren Freizeilen also; "Zeile 1" & @CRLF & @CRLF & ....... @CRLF & "Zeile n"
Quote:
Originally Posted by Melez1
Brauche Hilfe bei meinen kleinen Bot für "NosTale"
Ich will das es unter Minimierung läuft oder halt hidden
Mein Code:
PHP Code:
HotKeySet("{F9}","Start")
While(1)
Sleep(500)
WEnd
Func Start()
While 1
Sleep ( 500 )
ControlSend("NosTale", "", 0, "{Space}")
If PixelGetColor (842,185) = 0x343433 Then
Sleep(2000)
ControlSend("NosTale", "", 0, "ö")
ControlSend("NosTale", "", 0, "r")
ControlSend("NosTale", "", 0, "ö")
ControlSend("NosTale", "", 0, "r")
ControlSend("NosTale", "", 0, "ö")
ControlSend("NosTale", "", 0, "r")
If PixelGetColor (477,185) = 0x343433 Then
Sleep(15000)
ControlSend("NosTale", "", 0, "c")
Sleep(25000)
ControlSend("NosTale", "", 0, "c")
EndIf
EndIf
WEnd
EndFunc
Func Pause()
While(1)
Sleep(500)
Send("{Pause}")
WEnd
EndFunc
Der klappt eig ganz okey, aber wenn ich über den Punkt: (842,185)etwas mache ... halt es verdecke funktioniert er nicht mehr richtig. ER tun nur noch angreifen !
P.S. Sorry wenn der Code schlecht is, hab erst vor kurzen angefangen mit Autoit
Edit: Sry für die Falsche Section, hab nur gesehen das es fragen über Autoit ist und nicht das es in Metin2 Section ist. |
Dein Problem verstehe ich nicht ganz. Da ich kein NosTale zocke müsstest du mir mal den gewünschten Ablauf und die Verbindung mit deinem Script genau erklären 
|
|
|
|
|
11/27/2009, 12:56
|
#519
|
elite*gold: 94
Join Date: Feb 2008
Posts: 2,186
Received Thanks: 832
|
PHP Code:
$input = InputBox ("Details", "Hat dir der Script gefallen was kann man noch verbessern?")
Run ("notepad.exe")
WinWait ("Unbenannt")
Send ("Das wurde von dir vorgeschlagen " & $input)
Sleep (5000)
$input = InputBox ("Ja oder Nein?", "Stimmt das so?"&@CRLF&"(bitte antworte nur mir 'JA' oder 'NEIN'!")
If $input = "ja" Then
MouseClick ("left", 1022, 148)
Sleep (1500)
Send ("{right}")
Send ("{enter}")
MsgBox (0, "Ja", "Dann wird dieser Text jetzt an Agron Makolli weiter geleitet =)")
ElseIf $input = "nein" Then
MsgBox (0, "Nein", "Dann schreibe nochmal das richtige ;)")
EndIf
Was muss ich ändern wenn man Nein schreibt das man zurück zu der Inpoutbox Ja oder Nein kommt ?
mfG
PS: TEST Script bin am lernen
|
|
|
|
|
11/27/2009, 15:22
|
#520
|
elite*gold: 2
Join Date: Feb 2009
Posts: 1,030
Received Thanks: 586
|
Quote:
Originally Posted by HighLvleR
PHP Code:
$input = InputBox ("Details", "Hat dir der Script gefallen was kann man noch verbessern?")
Run ("notepad.exe")
WinWait ("Unbenannt")
Send ("Das wurde von dir vorgeschlagen " & $input)
Sleep (5000)
$input = InputBox ("Ja oder Nein?", "Stimmt das so?"&@CRLF&"(bitte antworte nur mir 'JA' oder 'NEIN'!")
If $input = "ja" Then
MouseClick ("left", 1022, 148)
Sleep (1500)
Send ("{right}")
Send ("{enter}")
MsgBox (0, "Ja", "Dann wird dieser Text jetzt an Agron Makolli weiter geleitet =)")
ElseIf $input = "nein" Then
MsgBox (0, "Nein", "Dann schreibe nochmal das richtige ;)")
EndIf
Was muss ich ändern wenn man Nein schreibt das man zurück zu der Inpoutbox Ja oder Nein kommt ?
mfG
PS: TEST Script bin am lernen |
Hier das müsste sein was du willst:
PHP Code:
$input = InputBox ("Details", "Hat dir der Script gefallen was kann man noch verbessern?")
Run ("notepad.exe")
WinWait ("Unbenannt")
Send ("Das wurde von dir vorgeschlagen " & $input)
Sleep (5000)
inputhier()
Func inputhier()
$input = InputBox ("Ja oder Nein?", "Stimmt das so?"&@CRLF&"(bitte antworte nur mir 'JA' oder 'NEIN'!")
If $input = "ja" Then
MouseClick ("left", 1022, 148)
Sleep (1500)
Send ("{right}")
Send ("{enter}")
MsgBox (0, "Ja", "Dann wird dieser Text jetzt an Agron Makolli weiter geleitet =)")
Else
MsgBox (0, "Nein", "Dann schreibe nochmal das richtige ;)")
inputhier()
EndIf
EndFunc
|
|
|
|
|
11/27/2009, 15:25
|
#521
|
elite*gold: 94
Join Date: Feb 2008
Posts: 2,186
Received Thanks: 832
|
Quote:
Originally Posted by Jurist
Hier das müsste sein was du willst:
PHP Code:
$input = InputBox ("Details", "Hat dir der Script gefallen was kann man noch verbessern?")
Run ("notepad.exe")
WinWait ("Unbenannt")
Send ("Das wurde von dir vorgeschlagen " & $input)
Sleep (5000)
inputhier()
Func inputhier()
$input = InputBox ("Ja oder Nein?", "Stimmt das so?"&@CRLF&"(bitte antworte nur mir 'JA' oder 'NEIN'!")
If $input = "ja" Then
MouseClick ("left", 1022, 148)
Sleep (1500)
Send ("{right}")
Send ("{enter}")
MsgBox (0, "Ja", "Dann wird dieser Text jetzt an Agron Makolli weiter geleitet =)")
Else
MsgBox (0, "Nein", "Dann schreibe nochmal das richtige ;)")
inputhier()
EndIf
EndFunc
|
Nicht ganz 
Ich will das es wieder hier anfängt
PHP Code:
$input = InputBox ("Details", "Hat dir der Script gefallen was kann man noch verbessern?")
Run ("notepad.exe")
WinWait ("Unbenannt")
Send ("Das wurde von dir vorgeschlagen " & $input)
Sleep (5000)
mfG
|
|
|
|
|
11/27/2009, 15:37
|
#522
|
elite*gold: 2
Join Date: Feb 2009
Posts: 1,030
Received Thanks: 586
|
Quote:
Originally Posted by HighLvleR
Nicht ganz
Ich will das es wieder hier anfängt
PHP Code:
$input = InputBox ("Details", "Hat dir der Script gefallen was kann man noch verbessern?")
Run ("notepad.exe")
WinWait ("Unbenannt")
Send ("Das wurde von dir vorgeschlagen " & $input)
Sleep (5000)
mfG |
Einfach den Code in die Funktion einbinden und den Start an den Anfang setzen  .
PHP Code:
inputhier()
Func inputhier()
$input = InputBox ("Details", "Hat dir der Script gefallen was kann man noch verbessern?")
Run ("notepad.exe")
WinWait ("Unbenannt")
Send ("Das wurde von dir vorgeschlagen " & $input)
Sleep (5000)
$input = InputBox ("Ja oder Nein?", "Stimmt das so?"&@CRLF&"(bitte antworte nur mir 'JA' oder 'NEIN'!")
If $input = "ja" Then
MouseClick ("left", 1022, 148)
Sleep (1500)
Send ("{right}")
Send ("{enter}")
MsgBox (0, "Ja", "Dann wird dieser Text jetzt an Agron Makolli weiter geleitet =)")
Else
MsgBox (0, "Nein", "Dann schreibe nochmal das richtige ;)")
inputhier()
EndIf
EndFunc
Mfg
|
|
|
|
|
11/27/2009, 16:24
|
#523
|
elite*gold: 0
Join Date: Aug 2008
Posts: 342
Received Thanks: 30
|
Quote:
Originally Posted by jovinkk
Tag
Super Arbeit Marco ;-)
Trotzdem geht es bei mir i-wie ned (Bin auch noch totaler Anfänger)
Wollte nen lvl-bot schreiben, der vom pferd absteigt und dann Aura/SK reinhaut und wieder aufsteigt. Aber i-wie schaff ich es nicht ..
Hier mal nen Versuch von mir:
HotKeySet ( "{F5}" , "Start" )
HotKeySet ( "{F6}" , "Ende" )
HotKeySet ("{F7}", "STRG")
Func Start ()
While 1
Sleep(100)
WEnd
EndFunc
Func STRG ()
Send("^"+"h")
EndFunc
Func Ende ()
Exit
EndFunc
Kannst du mir vllt weiterhelfen? =/
Und wenn ich grad dabei bin was zu fragen:
Wie kann ich den lvl-bot hidden machen? :P
Als ich woanders gefragt habe bekam ich die Antwort : Bot dem Programm zuweisen
|
das machst du mit "ControlSend"
|
|
|
|
|
11/27/2009, 16:49
|
#524
|
elite*gold: 94
Join Date: Feb 2008
Posts: 2,186
Received Thanks: 832
|
Hab wieder mal ein Problem >.<
Ich hab en GUI gemacht aber die Tastenw eiss ich ned wie auf eine Funktion zuweisen
PHP Code:
#include <GUIConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("STARTER", 301, 201, 193, 125)
GUISetIcon("C:\Users\Beni\Desktop\favicon.ico")
$Button1 = GUICtrlCreateButton("START", 32, 120, 105, 49, 0)
$Button2 = GUICtrlCreateButton("EXIT", 168, 120, 97, 49, 0)
$Label1 = GUICtrlCreateLabel("Testscript nach den AutoIT3", 32, 16, 225, 27)
GUICtrlSetFont(-1, 14, 800, 0, "Calibri")
$Label2 = GUICtrlCreateLabel("Grundlagen 1-4", 88, 64, 126, 27)
GUICtrlSetFont(-1, 14, 800, 0, "Calibri")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
if $Button1 Then
Run ("script.exe")
ElseIf $Button2 Then
Sleep (1000)
MsgBox (0, "Copyright!", "Dieser Script wurde von ****** geschrieben Copyright 2009")
Sleep (1500)
Exit
EndIf
Ich habs mal mit If $Button1 versucht funzt ned Aber eigentlich logisch 
mfG
|
|
|
|
|
11/27/2009, 17:38
|
#525
|
elite*gold: 2
Join Date: Feb 2009
Posts: 1,030
Received Thanks: 586
|
Quote:
Originally Posted by HighLvleR
Hab wieder mal ein Problem >.<
Ich hab en GUI gemacht aber die Tastenw eiss ich ned wie auf eine Funktion zuweisen
PHP Code:
#include <GUIConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("STARTER", 301, 201, 193, 125)
GUISetIcon("C:\Users\Beni\Desktop\favicon.ico")
$Button1 = GUICtrlCreateButton("START", 32, 120, 105, 49, 0)
$Button2 = GUICtrlCreateButton("EXIT", 168, 120, 97, 49, 0)
$Label1 = GUICtrlCreateLabel("Testscript nach den AutoIT3", 32, 16, 225, 27)
GUICtrlSetFont(-1, 14, 800, 0, "Calibri")
$Label2 = GUICtrlCreateLabel("Grundlagen 1-4", 88, 64, 126, 27)
GUICtrlSetFont(-1, 14, 800, 0, "Calibri")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
if $Button1 Then
Run ("script.exe")
ElseIf $Button2 Then
Sleep (1000)
MsgBox (0, "Copyright!", "Dieser Script wurde von ****** geschrieben Copyright 2009")
Sleep (1500)
Exit
EndIf
Ich habs mal mit If $Button1 versucht funzt ned Aber eigentlich logisch
mfG |
PHP Code:
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
Button1()
EndSwitch
WEnd
PHP Code:
Func Button1()
"Dein Code
EndFunc
Oder unter Case Button1 die Funktion schreiben.
|
|
|
|
All times are GMT +1. The time now is 21:37.
|
|
![[AutoIt] Frage/Antworte Thread](https://www.elitepvpers.com/forum/iconimages/metin2/autoit-frage-antworte-thread_ltr.gif){kind=small}
