|
You last visited: Today at 07:58
Advertisement
Bot Programmierkurs by NetMax
Discussion on Bot Programmierkurs by NetMax within the Coding Tutorials forum part of the General Coding category.
04/27/2012, 13:39
|
#91
|
elite*gold: 0
Join Date: Apr 2012
Posts: 5
Received Thanks: 1
|
Everythink ok thanks a lot
|
|
|
08/09/2012, 11:57
|
#92
|
elite*gold: 47
Join Date: Feb 2012
Posts: 2,282
Received Thanks: 2,579
|
Bei mir funktioniert das "senden im Hintergrund" nicht.
Mein Code:
PHP Code:
AutoItSetOption("WinTitleMatchMode", 4) $windowname="Spam.txt - Editor" $handle = WinGetHandle($windowname, "") If @error Then MsgBox(4096, "Error", "Fenster konnte nicht gefunden werden") Else while 1 ControlSend($windowname, '', '', "Test{ENTER}") sleep(150) WEnd EndIf
Wenn ich das jetzt ausführe (und ja "Spam.txt - Editor" ist offen) sendet er den Text nur, wenn ich das Fenster aktiv habe (im Vordergrund). Wenn ich nun aber beispielsweise ein anderes Editorfenster im Vordergrund habe, sendet er nicht!
Wer kann mir helfen?
|
|
|
08/13/2012, 22:09
|
#93
|
elite*gold: 1
Join Date: Jan 2012
Posts: 70
Received Thanks: 1
|
Könntest du auch vllt ein Tutorial machen wie man ein Bot für zb " Realm of the Mad *** " Programmiert?
|
|
|
12/16/2012, 15:04
|
#94
|
elite*gold: 0
Join Date: Apr 2010
Posts: 13
Received Thanks: 7
|
Huhu, habe auch mal angefangen. Wollte das per Start also Y das Programm loslegt.
Jetzt muss ich aber immer wieder die "Start" Taste drücken.
HotKeySet("{ende}", "Terminate")
HotKeySet ("{y}", "start")
Func start()
Send ("{enter}")
Sleep (3000)
Send ("{enter}")
Sleep (5000)
Send ("{enter}")
Sleep (5000)
Send ("{enter}")
Sleep (5000)
Send ("{enter}")
Sleep (5000)
Send ("{enter}")
Sleep (5000)
Send ("{enter}")
Sleep (5000)
Send ("{enter}")
Sleep (5000)
Send ("{enter}")
Sleep (7000)
Send ("{ESC}")
EndFunc
Func Terminate()
Exit 0
EndFunc
while 1
sleep (100)
WEnd
|
|
|
12/18/2012, 00:43
|
#95
|
elite*gold: 10
Join Date: Sep 2012
Posts: 1,438
Received Thanks: 933
|
Quote:
HotKeySet("{ende}", "Terminate")
HotKeySet ("{y}", "start")
$startstop = false
Func start()
$startstop = Not $startstop
If $startstop Then
While 1
Send ("{enter}")
Sleep (3000)
Send ("{enter}")
Sleep (5000)
Send ("{enter}")
Sleep (5000)
Send ("{enter}")
Sleep (5000)
Send ("{enter}")
Sleep (5000)
Send ("{enter}")
Sleep (5000)
Send ("{enter}")
Sleep (5000)
Send ("{enter}")
Sleep (5000)
Send ("{enter}")
Sleep (7000)
Send ("{ESC}")
WEnd
Else
While 1
Sleep(10)
WEnd
EndFunc
Func Terminate()
Exit 0
EndFunc
while 1
sleep (100)
WEnd
|
nun kannst du über y starten und stoppen und er macht es in einer schleife.
|
|
|
01/11/2013, 18:01
|
#96
|
elite*gold: 0
Join Date: Jun 2011
Posts: 4
Received Thanks: 0
|
danke für das tutorial wollte mir damit eine art bot machen der halte alle paar millisekunden die taste eins drückt aber wenn ich das program starten will kommt immer die fehler meldung
ControlSend(windowname, '','', "1")
ControlSend(windowname^ ERROR
Error: Missing separator character after keyword.
das ist der code den ich benutzt habe kann mir bitte jemand sagen wo der fehler liegt
AutoItSetOption("WinTitleMatchMode", 4)
Global $Paused
HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{ESC}", "Terminate")
$zeitLeveln = InputBox("Frage?","Wielange Leveln bis geschlafen wird? (zeit in Millisekunden)")
$zeitSchlafen = InputBox("Frage?","Wielange soll geschlafen werden? (zeit in Millisekunden)")
$timer1 = TimerInit ()
$windowname="Don´t Starve"
$handle = WinGetHandle($windowname, "")
if @error Then
MsgBox(4096, "Error", "Could not find the correct window")
Else
While 1
IF(TimderDiff($timer1) > $zeitLeveln) Then
ControlSend(windowname, '','', "1")
Sleep($zeitSchlafen)
ControlSend($Windowname, '', '', "1")
$timer1 = TimerInit()
EndIf
ControlSend($windowname,'',''," ")
Sleep(150)
WEnd
EndIf
Func TogglePause()
$Paused = Not $Paused
While $Paused
Sleep(100)
WEnd
EndFunc
Func Terminate()
Exit 0
EndFunc
|
|
|
01/12/2013, 12:43
|
#97
|
elite*gold: 0
Join Date: Apr 2010
Posts: 13
Received Thanks: 7
|
Code:
While 1
IF(TimderDiff($timer1) > $zeitLeveln) Then
ControlSend(windowname, '','', "1")
Sleep($zeitSchlafen)
ControlSend($Windowname, '', '', "1")
$timer1 = TimerInit()
EndIf
ControlSend($windowname,'',''," ")
Sleep(150)
WEnd
EndIf
Hast groß geschrieben und sonst immer klein das w...
bei ControlSend($Windowname, '', '', "1")
|
|
|
01/12/2013, 12:43
|
#98
|
elite*gold: 3570
Join Date: Dec 2012
Posts: 13,044
Received Thanks: 8,252
|
Schau dir das mal genau an
Code:
ControlSend(windowname,....)
Variablen werden mit $ definiert. Dies hast du dort vergessen
|
|
|
07/26/2013, 09:30
|
#99
|
elite*gold: 32
Join Date: Jul 2013
Posts: 79
Received Thanks: 5
|
Quote:
Originally Posted by DaJuBi
Bei mir funktioniert das "senden im Hintergrund" nicht.
Mein Code:
PHP Code:
AutoItSetOption("WinTitleMatchMode", 4)
$windowname="Spam.txt - Editor"
$handle = WinGetHandle($windowname, "")
If @error Then
MsgBox(4096, "Error", "Fenster konnte nicht gefunden werden")
Else
while 1
ControlSend($windowname, '', '', "Test{ENTER}")
sleep(150)
WEnd
EndIf
Wenn ich das jetzt ausführe (und ja "Spam.txt - Editor" ist offen) sendet er den Text nur, wenn ich das Fenster aktiv habe (im Vordergrund). Wenn ich nun aber beispielsweise ein anderes Editorfenster im Vordergrund habe, sendet er nicht!
Wer kann mir helfen?
|
Also ich hatte das gleiche, bis ich dann anstatt $window (oder wie auch immer ihr die nennt) $handle genommen hab. Und bei mir findet er das Fenster nur wenn ich " - Editor" weglasse kann sein weil es vllt. notepad.exe heisst. ka.
Wenn es immer noch nicht funktioniert probier das:
Code:
ControlSend($handle, "", "Edit1", "MESSAGE")
Edit1 hat irgendwas mit Windows Edit control zu tun, keine ahnung ^^
Hoffe es funktioniert jetzt bei dir auch :D
|
|
|
03/31/2016, 22:31
|
#100
|
elite*gold: 7
Join Date: Jul 2013
Posts: 440
Received Thanks: 166
|
PHP Code:
#RequireAdmin AutoItSetOption("WinTitleMatchMode", 4) $windowname="Arma 3" $handle = WinGetHandle($windowname, "") If [MENTION=2544426]Error T[/MENTION]hen MsgBox(4096, "Error", "Arma 3 konnte nicht gefunden werden") Exit 0 Else WinActivate("Arma 3") WinWaitActive("Arma 3") EndIf Global $Paused, $counter = 0 HotKeySet("{F8}+{F6}", "TogglePause") HotKeySet("{F7}+{F6}", "Terminate") while 1 Send("{LWIN}") sleep(2000) WEnd
Func TogglePause() $Paused = NOT $Paused While $Paused sleep(100) ToolTip('Bot Pausiert',0,0, $counter, 1) WEnd ToolTip("") EndFunc Func Terminate() Exit 0 EndFunc
Soweit Funktioniert mein Script nur will er Leider nicht im Spiel Pausieren oder Terminieren
|
|
|
07/31/2016, 18:26
|
#101
|
elite*gold: 162
Join Date: Feb 2014
Posts: 7,852
Received Thanks: 857
|
Kode Form Designer(  ) funkioniert nicht mehr
Not Found
The requested URL /fileman/users/lookfar/formdesign.html was not found on this server.
|
|
|
All times are GMT +1. The time now is 07:58.
|
|