Edit New Comment
Hallo !
Ich möchte meine alten nutz Bot Releasen + Source , mit diesen nutz Bot können sie an mehren Clients befehle senden, vorm Source her eine einfache sache aber man muss ja erstmal auf die idee kommen :) , wenn sie diese Funktion in ihren Bot einbauen wer es nett wenn ich mit im Programm stehe ist kein muss weil es ja (OP) ist aber wie schon gesagt es wer nett
Hier der Source :
//////
Edit New Source
Wenn es euch hilft könnt ihr ja ein Thanks da lassen
Lg.Deledt
Hallo !
Ich möchte meine alten nutz Bot Releasen + Source , mit diesen nutz Bot können sie an mehren Clients befehle senden, vorm Source her eine einfache sache aber man muss ja erstmal auf die idee kommen :) , wenn sie diese Funktion in ihren Bot einbauen wer es nett wenn ich mit im Programm stehe ist kein muss weil es ja (OP) ist aber wie schon gesagt es wer nett
Hier der Source :
//////
Edit New Source
PHP Code:
#RequireAdmin
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.6.1
Author: Deledt
Projekt Version: 1.0.0
Script Function:
Handle-Multi Botting
Mit diesen Bot kann man auf mehren Clients befehle Senden
#ce ----------------------------------------------------------------------------
; Script Start - Add your code below here
#Region ### START Koda GUI section ### Form=C:\Users\DeineMutterJoadieKenneichSehrGut\Desktop\AutoIt - Projekte\NosTale - Multi Bot\GUI.kxf
$Form1 = GUICreate("NosTale[Bot] By Deledt", 253, 80, 613, 413)
GUISetCursor (2)
GUISetBkColor(0x808000)
$Combo1 = GUICtrlCreateCombo("NosTale Client", 8, 16, 153, 25)
GUICtrlSetData(-1, "1|2")
$Button1 = GUICtrlCreateButton("Starten", 88, 40, 73, 25, $WS_GROUP)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Group1 = GUICtrlCreateGroup("Platzhalter", 168, 8, 81, 65)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Global $ListClient
Global $ClientInt = 0
Global $Clientname
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$ListClient = GUICtrlRead($Combo1) ; Client (;int;)
Dim $ClientHandle[$ListClient]
While($ClientInt < $ListClient)
$Clientname = InputBox("Client","Clientname")
$ClientHandle[$ClientInt] = $Clientname
$ClientInt += 1
WEnd
While 1
For $i = 0 To $ListClient-1
ControlSend($ClientHandle[$i], "", 0, "{ENTER}")
Sleep(50)
ControlSend($ClientHandle[$i], "", 0, "{X}")
Sleep(50)
Next
WEnd
EndSwitch
WEnd
Wenn es euch hilft könnt ihr ja ein Thanks da lassen
Lg.Deledt