|
You last visited: Today at 16:41
Advertisement
Spammbot For, Next
Discussion on Spammbot For, Next within the AutoIt forum part of the Coders Den category.
03/21/2011, 19:06
|
#1
|
elite*gold: 0 
Join Date: Aug 2010
Posts: 880
Received Thanks: 113
|
Spammbot For, Next
Hi ich habe ein Problem mit meinem Spammbot
PHP Code:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=d:\neuer ordner\koda_1.7.3.0\forms\spammer.kxf
$Form1_1 = GUICreate("Spammer", 212, 292, 191, 121)
$Label1 = GUICtrlCreateLabel("Text to Spam:", 8, 8, 86, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Input1 = GUICtrlCreateInput("Here the Text", 8, 32, 193, 21)
$Label2 = GUICtrlCreateLabel("How often to Spam:", 8, 64, 119, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Checkbox8 = GUICtrlCreateCheckbox("Checkbox8", 24, 136, 1, 9)
$Button1 = GUICtrlCreateButton("Activate", 56, 216, 97, 25)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label3 = GUICtrlCreateLabel("Press F1 to start spamming", 8, 248, 130, 17)
$Label4 = GUICtrlCreateLabel("Press F3 to show the Menü", 8, 264, 133, 17)
$Label5 = GUICtrlCreateLabel("Wait between the last spam:", 8, 168, 170, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Radio10 = GUICtrlCreateRadio("1x", 8, 88, 41, 25)
$Radio11 = GUICtrlCreateRadio("2x", 48, 88, 41, 25)
$Radio12 = GUICtrlCreateRadio("3x", 80, 88, 49, 25)
$Radio13 = GUICtrlCreateRadio("5x", 8, 112, 33, 25)
$Radio14 = GUICtrlCreateRadio("10x", 48, 112, 41, 25)
$Radio15 = GUICtrlCreateRadio("15x", 88, 112, 49, 25)
$Radio16 = GUICtrlCreateRadio("20x", 8, 136, 33, 25)
$Radio17 = GUICtrlCreateRadio("25x", 48, 136, 33, 25)
$Radio18 = GUICtrlCreateRadio("30x", 88, 136, 41, 25)
$Input2 = GUICtrlCreateInput("1000", 8, 192, 41, 21)
$Label6 = GUICtrlCreateLabel("Milliseconds", 56, 192, 79, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
HotKeySet("{F1}", "_Start")
HotKeySet("{F3}", "_Menue")
$Radio10=1
$Radio11=2
$Radio12=3
$Radio13=5
$Radio14=10
$Radio15=15
$Radio16=20
$Radio17=25
$Radio18=30
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
case $Button1
GUISetState(@sw_hide)
_tooltip()
iniWrite(@DesktopCommonDir&"\Spammer.ini", "", "Spam", GUICtrlRead($Input1))
iniWrite(@DesktopCommonDir&"\Spammer.ini", "", "Time", GUICtrlRead($Input2))
EndSwitch
WEnd
func _tooltip()
ToolTip("Press F1 to Start spamming" & @CRLF & _
"Press F3 to show the Menü", 1, 1, "Help", 1)
EndFunc
Func _Start()
For $i=1 to $Radio11
send(Iniread(@DesktopCommonDir&"\Spammer.ini", "", "Spam", GUICtrlRead($Input1, $Radio11)))
send("{enter}")
sleep(Iniread(@DesktopCommonDir&"\Spammer.ini", "", "Time", GUICtrlRead($Input2)))
next
EndFunc
func _Menue()
GUISetState(@sw_show, "Spammer")
endfunc
Und zwar weiß ich nicht wie ich es machen soll, wenn man $Radio12, 13 usw. anklickt. Wenn ich
PHP Code:
Func _Start()
For $i=1 to $Radio11
send(Iniread(@DesktopCommonDir&"\Spammer.ini", "", "Spam", GUICtrlRead($Input1, $Radio11)))
send("{enter}")
sleep(Iniread(@DesktopCommonDir&"\Spammer.ini", "", "Time", GUICtrlRead($Input2)))
next
For $i=1 to $Radio10
send(Iniread(@DesktopCommonDir&"\Spammer.ini", "", "Spam", GUICtrlRead($Input1, $Radio10)))
send("{enter}")
sleep(Iniread(@DesktopCommonDir&"\Spammer.ini", "", "Time", GUICtrlRead($Input2)))
next
mache spammt der das 3 mal egal was ich anklcike. Was muss icht tun?
|
|
|
|
03/21/2011, 20:46
|
#2
|
elite*gold: 0
Join Date: Jan 2011
Posts: 341
Received Thanks: 67
|
Sorry ich bin absoluter NOOB in dem Bereich ^^
aber check ma deine $Radio´s.
kannst du die radios so aufsetzen das mann die zahl im fertigen bot selber auswählen kann?
Hier das funktionierende überbleibsel 
PHP Code:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=d:\neuer ordner\koda_1.7.3.0\forms\spammer.kxf
$Form1_1 = GUICreate("Spammer", 212, 292, 191, 121)
$Label1 = GUICtrlCreateLabel("Text to Spam:", 8, 8, 86, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Input1 = GUICtrlCreateInput("Here the Text", 8, 32, 193, 21)
$Label2 = GUICtrlCreateLabel("How often to Spam:", 8, 64, 119, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Checkbox8 = GUICtrlCreateCheckbox("Checkbox8", 24, 136, 1, 9)
$Button1 = GUICtrlCreateButton("Activate", 56, 216, 97, 25)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label3 = GUICtrlCreateLabel("Press F1 to start spamming", 8, 248, 130, 17)
$Label4 = GUICtrlCreateLabel("Press F3 to show the Menü", 8, 264, 133, 17)
$Label5 = GUICtrlCreateLabel("Wait between the last spam:", 8, 168, 170, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Radio10 = GUICtrlCreateRadio("12x", 8, 88, 41, 25)
$Input2 = GUICtrlCreateInput("1000", 8, 192, 41, 21)
$Label6 = GUICtrlCreateLabel("Milliseconds", 56, 192, 79, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
HotKeySet("{F1}", "_Start")
HotKeySet("{F3}", "_Menue")
$Radio10=12
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
case $Button1
GUISetState(@sw_hide)
_tooltip()
iniWrite(@DesktopCommonDir&"\Spammer.ini", "", "Spam", GUICtrlRead($Input1))
iniWrite(@DesktopCommonDir&"\Spammer.ini", "", "Time", GUICtrlRead($Input2))
EndSwitch
WEnd
func _tooltip()
ToolTip("Press F1 to Start spamming" & @CRLF & _
"Press F3 to show the Menü", 1, 1, "Help", 1)
EndFunc
Func _Start()
For $i=1 to $Radio10
send(Iniread(@DesktopCommonDir&"\Spammer.ini", "", "Spam", GUICtrlRead($Input1, $Radio10)))
send("{enter}")
sleep(Iniread(@DesktopCommonDir&"\Spammer.ini", "", "Time", GUICtrlRead($Input2)))
next
EndFunc
func _Menue()
GUISetState(@sw_show, "Spammer")
endfunc
die zahl 12 kannste ja wieder ändern, sollte ich es hinbekommen gebe ich den code hier rein 
|
|
|
|
|
03/21/2011, 21:11
|
#3
|
elite*gold: 0
Join Date: Aug 2010
Posts: 880
Received Thanks: 113
|
Quote:
Originally Posted by WennsHilft
Sorry ich bin absoluter NOOB in dem Bereich ^^
aber check ma deine $Radio´s.
kannst du die radios so aufsetzen das mann die zahl im fertigen bot selber auswählen kann?
Hier das funktionierende überbleibsel
PHP Code:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=d:\neuer ordner\koda_1.7.3.0\forms\spammer.kxf
$Form1_1 = GUICreate("Spammer", 212, 292, 191, 121)
$Label1 = GUICtrlCreateLabel("Text to Spam:", 8, 8, 86, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Input1 = GUICtrlCreateInput("Here the Text", 8, 32, 193, 21)
$Label2 = GUICtrlCreateLabel("How often to Spam:", 8, 64, 119, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Checkbox8 = GUICtrlCreateCheckbox("Checkbox8", 24, 136, 1, 9)
$Button1 = GUICtrlCreateButton("Activate", 56, 216, 97, 25)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label3 = GUICtrlCreateLabel("Press F1 to start spamming", 8, 248, 130, 17)
$Label4 = GUICtrlCreateLabel("Press F3 to show the Menü", 8, 264, 133, 17)
$Label5 = GUICtrlCreateLabel("Wait between the last spam:", 8, 168, 170, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Radio10 = GUICtrlCreateRadio("12x", 8, 88, 41, 25)
$Input2 = GUICtrlCreateInput("1000", 8, 192, 41, 21)
$Label6 = GUICtrlCreateLabel("Milliseconds", 56, 192, 79, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
HotKeySet("{F1}", "_Start")
HotKeySet("{F3}", "_Menue")
$Radio10=12
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
case $Button1
GUISetState(@sw_hide)
_tooltip()
iniWrite(@DesktopCommonDir&"\Spammer.ini", "", "Spam", GUICtrlRead($Input1))
iniWrite(@DesktopCommonDir&"\Spammer.ini", "", "Time", GUICtrlRead($Input2))
EndSwitch
WEnd
func _tooltip()
ToolTip("Press F1 to Start spamming" & @CRLF & _
"Press F3 to show the Menü", 1, 1, "Help", 1)
EndFunc
Func _Start()
For $i=1 to $Radio10
send(Iniread(@DesktopCommonDir&"\Spammer.ini", "", "Spam", GUICtrlRead($Input1, $Radio10)))
send("{enter}")
sleep(Iniread(@DesktopCommonDir&"\Spammer.ini", "", "Time", GUICtrlRead($Input2)))
next
EndFunc
func _Menue()
GUISetState(@sw_show, "Spammer")
endfunc
die zahl 12 kannste ja wieder ändern, sollte ich es hinbekommen gebe ich den code hier rein |
Ich weiß das es einzelnt funktioniert das hab ich schon gewusst 
Und ja es wäre wohl einfacher mit ner Inputbox in der form....
Ich werde mich morgen mal ransetzen...
Aber ich wollte das eig. mit den Radiobuttons machen, da es aber ja nicht gut funktioniert wegen den for und next werde ichs mit der input machen wie mit den pausen dazwischen.....
Soll ich ihn dir dann schicken den bot, vllt willste ihn ja selber auch benutzen?
|
|
|
|
|
03/21/2011, 21:22
|
#4
|
elite*gold: 0
Join Date: Jan 2011
Posts: 341
Received Thanks: 67
|
Klar ^^ wäre cool den dann zu erweitern und oder selber zu nutzen.
Hinter die radi11 müssteste noch die anderen und davor die 10 setzen dann müsste es gehen.
(und schreibe rein das es deiner ist, falls du das teil als .exe erstellst)
|
|
|
|
|
03/21/2011, 21:50
|
#5
|
elite*gold: 0
Join Date: Aug 2010
Posts: 880
Received Thanks: 113
|
Quote:
Originally Posted by WennsHilft
Klar ^^ wäre cool den dann zu erweitern und oder selber zu nutzen.
Hinter die radi11 müssteste noch die anderen und davor die 10 setzen dann müsste es gehen.
(und schreibe rein das es deiner ist, falls du das teil als .exe erstellst)
|
jo, okay....werde morgen noch was ergänzen.
soll ich dir die .au3 schicken oder die exe, dann kannst du noch was ändern, oder du sagst mir was du reintuen wuürdest ich hab gerade keine idee mehr was ich da noch ergänzen könnte
|
|
|
|
|
03/21/2011, 22:15
|
#6
|
elite*gold: 0
Join Date: Jan 2011
Posts: 341
Received Thanks: 67
|
.au3 wäre nett um es wenn nötig zu ändern ^^ (Icon, Form u.s.w.)
Ne Pause müsste rein ^^ hab mir vorhin statts 12 mal 10000000000 eingetippt.
Da gings rund als ich im I-Net was schreiben wollte.
|
|
|
|
|
03/22/2011, 12:03
|
#7
|
elite*gold: 280
Join Date: May 2007
Posts: 2,818
Received Thanks: 3,483
|
du hast einen logikfehler in deinem script.
wenn du ein controlhandle in einer variable speicherst zb:
Quote:
Code:
$Radio10 = GUICtrlCreateRadio("1x", 8, 88, 41, 25)
; hier wird das handle vom radio in $Radio10 gespeichert
; der inhalt kann per guictrlread vom handle abgerufen werden
|
darfst du es selbstverständlich später nicht durch eine beliebige zahl ersetzen, wie du es wenige zeilen darunter getan hast:
Quote:
versuchst du nun den status vom radio button per guictrlread auszulesen, so wird der befehl auf ein control mit dem handle 1 angewendet.
(handles werden der reihe nach vergeben -> die 1 sollte irgendeine windows interne belegung sein)
desweiteren solltest du dir angewöhnen mit arrays zu arbeiten.
so könnte beispielsweise dein gui sehr schön in einer schleife, und die control handles der radios in einem array gespeichert werden.
diese könnten dann auch bei weitem leichter abgefragt werden
|
|
|
|
|
03/22/2011, 14:14
|
#8
|
elite*gold: 0
Join Date: Aug 2010
Posts: 880
Received Thanks: 113
|
Quote:
Originally Posted by lolkop
du hast einen logikfehler in deinem script.
wenn du ein controlhandle in einer variable speicherst zb:
darfst du es selbstverständlich später nicht durch eine beliebige zahl ersetzen, wie du es wenige zeilen darunter getan hast:
versuchst du nun den status vom radio button per guictrlread auszulesen, so wird der befehl auf ein control mit dem handle 1 angewendet.
(handles werden der reihe nach vergeben -> die 1 sollte irgendeine windows interne belegung sein)
desweiteren solltest du dir angewöhnen mit arrays zu arbeiten.
so könnte beispielsweise dein gui sehr schön in einer schleife, und die control handles der radios in einem array gespeichert werden.
diese könnten dann auch bei weitem leichter abgefragt werden
|
Ah THX, das mal wenigstens ein beitrag der mir Hilft
Ja ich bin leider noch ein anfänger und sollte mcih mal wie du sagst, auf Arrays konzentrieren, ja.
Ich gucks mir mal noch ein bisschen an in den tuts die es hier gibt.
|
|
|
|
|
03/22/2011, 14:28
|
#9
|
elite*gold: 0
Join Date: Aug 2010
Posts: 880
Received Thanks: 113
|
So hab jetzt einiges verändert, müsste also alles klappen, wenn nicht bitte sagen
Hier der Code:
PHP Code:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=d:\neuer ordner\koda_1.7.3.0\forms\spammer.kxf
$Form1_1 = GUICreate(" |:=-Spammer-=:|", 212, 294, 191, 121)
$Label1 = GUICtrlCreateLabel("Text to Spam:", 8, 8, 86, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Input1 = GUICtrlCreateInput("Here the Text", 8, 32, 193, 21)
$Label2 = GUICtrlCreateLabel("How often to Spam:", 8, 64, 119, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Checkbox8 = GUICtrlCreateCheckbox("Checkbox8", 24, 136, 1, 9)
$Button1 = GUICtrlCreateButton("Activate", 56, 168, 97, 25)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label3 = GUICtrlCreateLabel("Press F1 to start spamming", 8, 200, 130, 17)
$Label4 = GUICtrlCreateLabel("Press F3 to show the Menü", 8, 216, 133, 17)
$Label5 = GUICtrlCreateLabel("Wait between the last spam:", 8, 120, 170, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Input2 = GUICtrlCreateInput("1000", 8, 144, 41, 21)
$Label6 = GUICtrlCreateLabel("Milliseconds", 56, 144, 79, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Input3 = GUICtrlCreateInput("15", 8, 88, 41, 21)
$Label7 = GUICtrlCreateLabel("Press F5 for pause", 8, 232, 92, 17)
$Label8 = GUICtrlCreateLabel("Made by Ludder231", 0, 272, 116, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x000080)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
HotKeySet("{F1}", "_Start")
HotKeySet("{F3}", "_pause")
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
case $Button1
GUISetState(@sw_hide)
iniWrite(@DesktopCommonDir&"\Spammer.ini", "", "Spam", GUICtrlRead($Input1))
iniWrite(@DesktopCommonDir&"\Spammer.ini", "", "Time", GUICtrlRead($Input2))
iniWrite(@DesktopCommonDir&"\Spammer.ini", "", "Howmuch", GUICtrlRead($Input3))
if not FileExists(@DesktopCommonDir&"\Spammer.ini") Then
msgbox(16, "Error", "Spammer.ini don't exist...")
endif
_tooltip()
EndSwitch
WEnd
func _tooltip()
ToolTip("Press F1 to Start spamming" & @CRLF & _
"Press F3 to pause the bot", 0, 0, "Help", 1)
EndFunc
Func _Start()
for $i=1 to GUICtrlRead($Input3)
send(Iniread(@DesktopCommonDir&"\Spammer.ini", "", "", GUICtrlRead($Input1)))
send("{enter}")
sleep(Iniread(@DesktopCommonDir&"\Spammer.ini", "", "Time", GUICtrlRead($Input2)))
next
GUISetState(@sw_show, " |:=-Spammer-=:|")
MsgBox(0, "Ready", "Finished spamming...")
endFunc
func _pause()
while 1
sleep(500)
wend
endfunc
|
|
|
|
|
03/22/2011, 16:47
|
#10
|
elite*gold: 280
Join Date: May 2007
Posts: 2,818
Received Thanks: 3,483
|
falls du dich nocheinmal mit arrays beschäftigen möchtest, hier ein beispiel wie man das ganze lauffen lassen könnte, ohne dabei durch sleeps das gui zu blockieren:
Code:
Dim $timer, $radio[9], $repeat[9] = [1, 2, 3, 5, 10, 15, 20, 25, 30]
Dim $selected, $curSend, $run = False, $label[2] = ['Start','Stop']
$gui = GUICreate("Spammer", 212, 292, 191, 121, 0x90CA0000, 8)
GUICtrlCreateLabel("Text to Spam:", 8, 8, 86, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$textInput = GUICtrlCreateInput('', 8, 32, 193, 21)
GUICtrlCreateLabel("How often to Spam:", 8, 64, 119, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$startButton = GUICtrlCreateButton("Start", 56, 216, 97, 25)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlCreateLabel("Press F1 to start spamming", 8, 248, 130, 17)
GUICtrlCreateLabel("Press F3 to show the Menü", 8, 264, 133, 17)
GUICtrlCreateLabel("Wait between the last spam:", 8, 168, 170, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
For $i=0 To 2
$radio[$i] = GUICtrlCreateRadio($repeat[$i]&'x', 8+40*$i, 88, 40, 25)
$radio[$i+3] = GUICtrlCreateRadio($repeat[$i+3]&'x', 8+40*$i, 112, 40, 25)
$radio[$i+6] = GUICtrlCreateRadio($repeat[$i+6]&'x', 8+40*$i, 136, 40, 25)
Next
$sleepInput = GUICtrlCreateInput('', 8, 192, 41, 21)
GUICtrlCreateLabel("Milliseconds", 56, 192, 79, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlSetData($textInput, IniRead(@DesktopCommonDir&"\Spammer.ini", '', 'Spam', "Here the Text"))
GUICtrlSetData($sleepInput, IniRead(@DesktopCommonDir&"\Spammer.ini", '', 'Time', 1000))
While 1
$msg = GUIGetMsg()
Switch $msg
Case -3
Exit
Case $startButton
ChangeState()
IniWrite(@DesktopCommonDir&"\Spammer.ini", "", "Spam", GUICtrlRead($textInput))
IniWrite(@DesktopCommonDir&"\Spammer.ini", "", "Time", GUICtrlRead($sleepInput))
EndSwitch
For $i=0 To 8
If $msg = $radio[$i] Then $selected = $i
Next
If $run And Not WinActive($gui) And TimerDiff($timer) > GUICtrlRead($sleepInput) Then
If $curSend >= $repeat[$selected] Then ChangeState()
Send(GUICtrlRead($textInput))
Send('{ENTER}')
$curSend += 1
$timer = TimerInit()
EndIf
WEnd
Func ChangeState()
$curSend = 1
$run = Not $run
GUICtrlSetData($startButton, $label[$run])
EndFunc
eigentlich darf man in solchen projekten aufgrund des fehlenden multithreadings nämlich garkeine for schleifen, in verbindung mit sleeps, in der hauptschleife haben.
da ich nicht verstanden habe, was die ini da eigentlich in deinem programm sollte, habe ich diese mal als save funktion genutzt.
|
|
|
|
|
03/22/2011, 20:06
|
#11
|
elite*gold: 0
Join Date: Aug 2010
Posts: 880
Received Thanks: 113
|
Quote:
Originally Posted by lolkop
falls du dich nocheinmal mit arrays beschäftigen möchtest, hier ein beispiel wie man das ganze lauffen lassen könnte, ohne dabei durch sleeps das gui zu blockieren:
Code:
Dim $timer, $radio[9], $repeat[9] = [1, 2, 3, 5, 10, 15, 20, 25, 30]
Dim $selected, $curSend, $run = False, $label[2] = ['Start','Stop']
$gui = GUICreate("Spammer", 212, 292, 191, 121, 0x90CA0000, 8)
GUICtrlCreateLabel("Text to Spam:", 8, 8, 86, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$textInput = GUICtrlCreateInput('', 8, 32, 193, 21)
GUICtrlCreateLabel("How often to Spam:", 8, 64, 119, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$startButton = GUICtrlCreateButton("Start", 56, 216, 97, 25)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlCreateLabel("Press F1 to start spamming", 8, 248, 130, 17)
GUICtrlCreateLabel("Press F3 to show the Menü", 8, 264, 133, 17)
GUICtrlCreateLabel("Wait between the last spam:", 8, 168, 170, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
For $i=0 To 2
$radio[$i] = GUICtrlCreateRadio($repeat[$i]&'x', 8+40*$i, 88, 40, 25)
$radio[$i+3] = GUICtrlCreateRadio($repeat[$i+3]&'x', 8+40*$i, 112, 40, 25)
$radio[$i+6] = GUICtrlCreateRadio($repeat[$i+6]&'x', 8+40*$i, 136, 40, 25)
Next
$sleepInput = GUICtrlCreateInput('', 8, 192, 41, 21)
GUICtrlCreateLabel("Milliseconds", 56, 192, 79, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlSetData($textInput, IniRead(@DesktopCommonDir&"\Spammer.ini", '', 'Spam', "Here the Text"))
GUICtrlSetData($sleepInput, IniRead(@DesktopCommonDir&"\Spammer.ini", '', 'Time', 1000))
While 1
$msg = GUIGetMsg()
Switch $msg
Case -3
Exit
Case $startButton
ChangeState()
IniWrite(@DesktopCommonDir&"\Spammer.ini", "", "Spam", GUICtrlRead($textInput))
IniWrite(@DesktopCommonDir&"\Spammer.ini", "", "Time", GUICtrlRead($sleepInput))
EndSwitch
For $i=0 To 8
If $msg = $radio[$i] Then $selected = $i
Next
If $run And Not WinActive($gui) And TimerDiff($timer) > GUICtrlRead($sleepInput) Then
If $curSend >= $repeat[$selected] Then ChangeState()
Send(GUICtrlRead($textInput))
Send('{ENTER}')
$curSend += 1
$timer = TimerInit()
EndIf
WEnd
Func ChangeState()
$curSend = 1
$run = Not $run
GUICtrlSetData($startButton, $label[$run])
EndFunc
eigentlich darf man in solchen projekten aufgrund des fehlenden multithreadings nämlich garkeine for schleifen, in verbindung mit sleeps, in der hauptschleife haben.
da ich nicht verstanden habe, was die ini da eigentlich in deinem programm sollte, habe ich diese mal als save funktion genutzt. |
Oh das sieht für meinen geschmack etwas zu kompliziert aus
|
|
|
|
 |
Similar Threads
|
[Release]S4 league spammbot/chat spammbot
09/02/2010 - S4 League Hacks, Bots, Cheats & Exploits - 9 Replies
hay ich release hier einfach ma meinen spammbot er ist mit visual basic geschreiben nein ich habe ihn nicht gelecht
virus total:VirusTotal - Free Online Virus, Malware and URL Scanner
virus total s4 league spammbot:VirusTotal - Free Online Virus, Malware and URL Scanner
viel spass damit bitte keine unflätigen kommis
http://sig.s4project.net/8fabc7711eed5939dd99a666 297041b0c5716ef0.jpg
http://www.bilderhoster.at/upload/yvnvh1269956366 .jpg
für die ganz schlauen lad ich jetzt die sln hoch
|
[Release]S4 league spammbot/chat spammbot
09/02/2010 - S4 League Hacks, Bots, Cheats & Exploits - 2 Replies
ay ich release hier einfach ma meinen spammbot er ist mit visual basic geschreiben nein ich habe ihn nicht gelecht
virus total:VirusTotal - Free Online Virus, Malware and URL Scanner
virus total s4 league spammbot:VirusTotal - Free Online Virus, Malware and URL Scanner
viel spass damit bitte keine unflätigen kommis
http://sig.s4project.net/8fabc7711eed5939dd99a666 297041b0c5716ef0.jpg
http://www.bilderhoster.at/upload/yvnvh1269956366 .jpg
|
All times are GMT +2. The time now is 16:41.
|
|
