Hi, zu dem Spambot hier mal ne kleine anregung kanns entweder alles benutzen oder als hilfe benutzen:
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-=:|", 211, 374, 190, 121)
$Label1 = GUICtrlCreateLabel("Text to Spam:", 8, 8, 86, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Input1 = GUICtrlCreateInput(Iniread(@DesktopCommonDir&"\Spammer.ini", "", "Spam", ""), 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, 304, 97, 25)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label5 = GUICtrlCreateLabel("Wait between the last spam:", 8, 120, 170, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Input2 = GUICtrlCreateInput(Iniread(@DesktopCommonDir&"\Spammer.ini", "", "Time", ""), 8, 144, 41, 21)
$Label6 = GUICtrlCreateLabel("Milliseconds", 56, 144, 79, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Input3 = GUICtrlCreateInput(Iniread(@DesktopCommonDir&"\Spammer.ini", "", "Howmuch", ""), 8, 88, 41, 21)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x000080)
$Label3 = GUICtrlCreateLabel("Send key delay:", 8, 232, 80, 17)
$Input5 = GUICtrlCreateInput(Iniread(@DesktopCommonDir&"\Spammer.ini", "", "Delay", ""), 8, 272, 121, 21)
$Label7 = GUICtrlCreateLabel("(Default is 5)", 8, 248, 63, 17)
GUISetState(@SW_SHOW)
HotKeySet("{F1}", "_Start")
HotKeySet("{F3}", "_stop")
HotKeySet("{F5}", "_shutoff")
$random1=Random("1" , "90", 15)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
case $Button1
GUISetState(@sw_hide)
iniWrite(@DesktopCommonDir&"\Spammer.ini", "Config", "Spam", GUICtrlRead($Input1))
iniWrite(@DesktopCommonDir&"\Spammer.ini", "Config", "Time", GUICtrlRead($Input2))
iniWrite(@DesktopCommonDir&"\Spammer.ini", "Config", "Howmuch", GUICtrlRead($Input3))
iniWrite(@DesktopCommonDir&"\Spammer.ini", "Config", "Delay", GUICtrlRead($Input5))
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 stop the bot" & @CRLF & _
"Press F5 to end the bot", 0, 0, "Help", 1)
EndFunc
Func _Start()
for $i=1 to GUICtrlRead($Input3)
$Delay=opt("SendKeyDelay", GUICtrlRead($Input5))
Send(Iniread(@DesktopCommonDir&"\Spammer.ini", "Config", "Spam", GUICtrlRead($Input1)))
Send("{enter}")
sleep(Iniread(@DesktopCommonDir&"\Spammer.ini", "Config", "Time", GUICtrlRead($Input2)))
next
GUISetState(@sw_show, " |:=-Spammer-=:|")
MsgBox(0, "Ready", "Finished spamming...", 2)
endFunc
func _stop()
while 1
GUICtrlSetState($Input2,$GUI_ENABLE)
winsetstate("", "", @SW_show)
GUISetState(@sw_show, " |:=-Spammer-=:|")
sleep(500)
wend
endfunc
func _shutoff()
exit
endfunc
P.S: Ich weiß nicht ob der funktioniert, is bisschen älter und halt von mir (ich bin anfänger :D)
Wenn du die ini benutzen willst muss du halt nen button mit iniread noch machen, oder halt nur guictrlread()