PickUp Bot by NicoBellic

[nicobellic]

Mein erster Bot , geiles gefühl
Das ist ein Pickup Bot wie die Überschrift schon sagt ich habe ich ein Pickupbot gemacht.

Er startet nach 10 sek also schnell in das metinfenster rein gehen , ich bekomme den code aber nicht hin mit dem man den mit F5 Starten kann und mit F6 beenden kann , weil ich ein völliger Noob bin gebe ich euch mal den Quelltext ich weis er ist sehr lang

sleep(10000)
While 1
	send("y")
	sleep(10)
	WEnd


Exit

Funktionieren tut er gut wäre net wenn ihr mir den code geben könntet wo ich F5 und F6 zum starten / stoppen drücken muss.GUI kommt auch noch da bin ich mit dran aber bekomme ich auch net hin aber das schaffe ich schon.


Virusscan:

Antivirus Version letzte aktualisierung Ergebnis
a-squared 4.5.0.24 2009.07.29 -
AhnLab-V3 5.0.0.2 2009.07.28 -
AntiVir 7.9.0.234 2009.07.29 -
Antiy-AVL 2.0.3.7 2009.07.29 -
Authentium 5.1.2.4 2009.07.28 -
Avast 4.8.1335.0 2009.07.28 -
AVG 8.5.0.387 2009.07.29 -
BitDefender 7.2 2009.07.29 -
CAT-QuickHeal 10.00 2009.07.28 -
ClamAV 0.94.1 2009.07.29 -
Comodo 1802 2009.07.29 -
DrWeb 5.0.0.12182 2009.07.29 -
eSafe 7.0.17.0 2009.07.28 -
eTrust-Vet 31.6.6645 2009.07.29 -
F-Prot 4.4.4.56 2009.07.28 -
F-Secure 8.0.14470.0 2009.07.29 -
Fortinet 3.120.0.0 2009.07.29 -
GData 19 2009.07.29 -
Ikarus T3.1.1.64.0 2009.07.29 -
Jiangmin 11.0.800 2009.07.29 -
K7AntiVirus 7.10.804 2009.07.28 -
Kaspersky 7.0.0.125 2009.07.29 -
McAfee 5691 2009.07.28 -
McAfee+Artemis 5691 2009.07.28 -
McAfee-GW-Edition 6.8.5 2009.07.29 -
Microsoft 1.4903 2009.07.29 -
NOD32 4287 2009.07.29 -
Norman 6.01.09 2009.07.28 -
nProtect 2009.1.8.0 2009.07.29 -
Panda 10.0.0.14 2009.07.28 -
PCTools 4.4.2.0 2009.07.28 -
Prevx 3.0 2009.07.29 -
Rising 21.40.22.00 2009.07.29 -
Sophos 4.44.0 2009.07.29 -
Sunbelt 3.2.1858.2 2009.07.29 -
Symantec 1.4.4.12 2009.07.29 -
TheHacker 6.3.4.3.377 2009.07.29 -
TrendMicro 8.950.0.1094 2009.07.29 -
VBA32 3.12.10.9 2009.07.29 -
ViRobot 2009.7.29.1859 2009.07.29 -
VirusBuster 4.6.5.0 2009.07.28 -

[TheVay]

Nice,
aber es gibt hier schon sehr viele Pick up bots

[AllesVergeben]

Außerdem gehört das in den Sticky

mfG

[nicobellic]

@Extern das soll ja nur der anfang sein ich Arbeite gerade an der GUI , das Design habe ich schon aber ich bekomme die Button Funktion nicht hin .

Das der Code von der GUI (Mit KODA gemacht)

#include <GUIConstants.au3>

#Region ### START Koda GUI section ### Form=C:\Users\Ole\Desktop\pub.kxf
$Form1 = GUICreate("PickUp Bot by NicoBellic", 216, 51, 215, 143)
$Button1 = GUICtrlCreateButton("Start", 8, 8, 75, 25, 0)
$Stop = GUICtrlCreateButton("Stop", 128, 8, 73, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

EndSwitch
WEnd

Das der Code vom Skript:

sleep(10000)
While 1
send("y")
sleep(10)
WEnd


Exit

Theoretisch müsste ich diese Funktion und das ende der Funktion mit den Button verschmelzen aber wie bekomme ich das hin`?

[AllesVergeben]

#include <GUIConstants.au3>

#Region ### START Koda GUI section ### Form=C:\Users\Ole\Desktop\pub.kxf
$Form1 = GUICreate("PickUp Bot by NicoBellic", 216, 51, 215, 143)
$Button1 = GUICtrlCreateButton("Start", 8, 8, 75, 25, 0)
$Stop = GUICtrlCreateButton("Stop", 128, 8, 73, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

EndSwitch
If $nMsg = $button1 then
While 1
sleep(10000)
send("y")
WEnd
EndIf
WEnd


Exit

[nicobellic]

Ja aber jetzt tut der Stop button ja nicht der soll ja eigendlich nur den ganzen bot beenden .

#include <GUIConstants.au3>

#Region ### START Koda GUI section ### Form=C:\Users\Ole\Desktop\pub.kxf
$Form1 = GUICreate("PickUp Bot by NicoBellic", 216, 51, 215, 143)
$Button1 = GUICtrlCreateButton("Start", 8, 8, 75, 25, 0)
$Stop = GUICtrlCreateButton("Stop", 128, 8, 73, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

EndSwitch
If $nMsg = $button1 then
sleep(5000)
While 1
sleep(10)
send("y")
WEnd
EndIf
WEnd


Exit

so ist der mit dem 5 sek warten wenn man auf start drückt

[S.A.L.O.M.O.N.]

jeder fängt mal klein an aber so gehts eben weiter so und dann wird mal was größeres draus ^^

[AllesVergeben]

Mach halt stop mit nem hotkey^^

[nicobellic]

Ja ich weis net wie das geht habe gestern schon dran gesessen und diesen Sche** stop button nicht hinbekommen (Da habe ich noch nicht an den start gearbeitet)

Ich suche die ganzezeit im internet nach so einene code oder versuche dne eben aus codes die im internet stehen raus zu bekomme nich bekomme das net hin

EDIT:

Der Code klappt auch net :


#include <GUIConstants.au3>

#Region ### START Koda GUI section ### Form=C:\Users\Ole\Desktop\pub.kxf
$Form1 = GUICreate("PickUp Bot by NicoBellic", 216, 51, 215, 143)
$Button1 = GUICtrlCreateButton("Start", 8, 8, 75, 25, 0)
$Stop = GUICtrlCreateButton("Stop", 128, 8, 73, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

EndSwitch
If $nMsg = $button1 then
sleep(5000)
While 1
sleep(10)
send("y")
WEnd
EndIf
WEnd
If $nMsg = $Stop Then
Exit
EndIF


Exit

[AllesVergeben]

$PauseStart = 1
-......
Hotkeyset ("{Numpad1}", "_Pause")
Hotkeyset ("{Numpad2}", "_Start")

.....
If $nMsg = $button1 then
sleep(5000)
While 1
If $PauseStart = 0 then
sleep(10)
send("y")
EndIf
WEnd
EndIf
WEnd
.....

Func _Pause ()
$PauseStart = 1
EndFUnc

Func _Start ()
$PauseStart = 0
EndFUnc

[nicobellic]

Klappt immer noch nicht

[AllesVergeben]

Sollte man glab in die AutoIt section vreschieben^^

Zeig mal wie du es hast, dann verbesser ich es.

mfG

[nicobellic]

$PauseStart = 1
#include <GUIConstants.au3>

#Region ### START Koda GUI section ### Form=C:\Users\Ole\Desktop\pub.kxf
$Form1 = GUICreate("PickUp Bot by NicoBellic", 216, 51, 215, 143)
$Button1 = GUICtrlCreateButton("Start", 8, 8, 75, 25, 0)
$Stop = GUICtrlCreateButton("Stop", 128, 8, 73, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Hotkeyset ("{Numpad1}", "_Pause")
Hotkeyset ("{Numpad2}", "_Start")


While 1
If $PauseStart = 0 then
sleep(10)
send("y")
EndIf
WEnd



Func _Pause ()
$PauseStart = 1
EndFUnc

Func _Start ()
$PauseStart = 0
EndFUnc

[AllesVergeben]

Originally Posted by nicobellic

$PauseStart = 1
#include <GUIConstants.au3>

#Region ### START Koda GUI section ### Form=C:\Users\Ole\Desktop\pub.kxf
$Form1 = GUICreate("PickUp Bot by NicoBellic", 216, 51, 215, 143)
$Button1 = GUICtrlCreateButton("Start", 8, 8, 75, 25, 0)
$Stop = GUICtrlCreateButton("Stop", 128, 8, 73, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Hotkeyset ("{Numpad1}", "_Pause")
Hotkeyset ("{Numpad2}", "_Start")


While 1
If $PauseStart = 0 then
sleep(10)
send("y")
EndIf
WEnd



Func _Pause ()
$PauseStart = 1
EndFUnc

Func _Start ()
$PauseStart = 0
EndFUnc

So Stimmt's: Mit 1 Pause, Mit 2 weiter/start
Habe den Stop-Button mal entfernt

Hier der Code:

$PauseStart = 1
#include <GUIConstants.au3>

#Region ### START Koda GUI section ### Form=C:\Users\Ole\Desktop\pub.kxf
$Form1 = GUICreate("PickUp Bot by NicoBellic", 216, 51, 215, 143)
$Button1 = GUICtrlCreateButton("Start", 8, 8, 75, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Hotkeyset ("{Numpad1}", "_Pause")
Hotkeyset ("{Numpad2}", "_Start")


While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
if $nMsg = $Button1 then
While 1
If $PauseStart = 0 then
sleep(10)
send("y")
EndIf
WEnd
EndIF
WENd



Func _Pause ()
$PauseStart = 1
EndFUnc

Func _Start ()
$PauseStart = 0
EndFUnc

mfG