Register for your free account! | Forgot your password?

Go Back   elitepvpers > Coders Den > General Coding > Coding Tutorials
You last visited: Today at 07:58

  • Please register to post and access all features, it's quick, easy and FREE!

Advertisement



Bot Programmierkurs by NetMax

Discussion on Bot Programmierkurs by NetMax within the Coding Tutorials forum part of the General Coding category.

Reply
 
Old 04/27/2012, 13:39   #91
 
elite*gold: 0
Join Date: Apr 2012
Posts: 5
Received Thanks: 1
Everythink ok thanks a lot
Dziunia is offline  
Old 08/09/2012, 11:57   #92
 
Yiv's Avatar
 
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?
Yiv is offline  
Old 08/13/2012, 22:09   #93
 
leDakon's Avatar
 
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?
leDakon is offline  
Old 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
110coder is offline  
Old 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.
Requiable is offline  
Old 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
gforke is offline  
Old 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")
110coder is offline  
Old 01/12/2013, 12:43   #98


 
Requi's Avatar
 
elite*gold: 3570
The Black Market: 244/0/0
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
Requi is offline  
Old 07/26/2013, 09:30   #99
 
Hackslary21st's Avatar
 
elite*gold: 32
Join Date: Jul 2013
Posts: 79
Received Thanks: 5
Quote:
Originally Posted by DaJuBi View Post
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
Hackslary21st is offline  
Old 03/31/2016, 22:31   #100
 
Premiumlike's Avatar
 
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$counter1)
    
WEnd
    ToolTip
("")
EndFunc
Func Terminate
()
    Exit  
0
EndFunc 
Soweit Funktioniert mein Script nur will er Leider nicht im Spiel Pausieren oder Terminieren
Premiumlike is offline  
Old 07/31/2016, 18:26   #101

 
BosniaWarlord's Avatar
 
elite*gold: 162
The Black Market: 307/0/1
Join Date: Feb 2014
Posts: 7,852
Received Thanks: 857
Kode Form Designer() funkioniert nicht mehr

BosniaWarlord is offline  

Powered by vBulletin®
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.
This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.

Support | Contact Us | FAQ | Advertising | Privacy Policy | Terms of Service | Abuse
Copyright ©2025 elitepvpers All Rights Reserved.