McRada
Demir Madencisi
- En iyi cevaplar
- 0
Kodlar bunlar;
set shell = createobject ("wscript.shell")
strtext = inputbox ("Asagiya hangi kalip ile spam yapacaginizi yazin")
strtimes = inputbox ("?")
strspeed = inputbox ("Hangi hizda spam yapacaksiniz? (1000 = saniyede bir 100 = saniyede 10 defa)")
strtimeneed = inputbox ("Spam yapacaginiz pencereyi secmeniz icin size kac dk verelim?")
If not isnumeric (strtimes & strspeed & strtimeneed) then
msgbox "Zaman-Sayi istenen yerde yanlis veri girdiniz...Program kapatiliyor..."
wscript.quit
End If
strtimeneed2 = strtimeneed * 1000
do
msgbox "You have " & strtimeneed & " Saniye icinde sectiginiz pencerede spama baslanacaktir."
wscript.sleep strtimeneed2
shell.sendkeys ("Spambot Aktif" & "{enter}")
for i=0 to strtimes
shell.sendkeys (strtext & "{enter}")
wscript.sleep strspeed
Next
shell.sendkeys ("Spambot deaktif" & "{enter}")
wscript.sleep strspeed * strtimes / 10
returnvalue=MsgBox ("Tekrar spam yapmak istiyirmisin genc?",36)
If returnvalue=6 Then
Msgbox "Tamam,spambot yeniden aktif oldu"
End If
If returnvalue=7 Then
msgbox "Spambox kapatiliyor..."
wscript.quit
End IF
loop
_______________________________
notepad ++ ile yazdım
umarım beğenmişsinizdir kendi yapımımdır alıntı değildir...
@Schaffer79 @Zorinkun_ @Zurinqun (hangi hesabı kullanıyosun la ban meleği) @AzlaazTR @98IamLegend98 @Pr1sonsoul
set shell = createobject ("wscript.shell")
strtext = inputbox ("Asagiya hangi kalip ile spam yapacaginizi yazin")
strtimes = inputbox ("?")
strspeed = inputbox ("Hangi hizda spam yapacaksiniz? (1000 = saniyede bir 100 = saniyede 10 defa)")
strtimeneed = inputbox ("Spam yapacaginiz pencereyi secmeniz icin size kac dk verelim?")
If not isnumeric (strtimes & strspeed & strtimeneed) then
msgbox "Zaman-Sayi istenen yerde yanlis veri girdiniz...Program kapatiliyor..."
wscript.quit
End If
strtimeneed2 = strtimeneed * 1000
do
msgbox "You have " & strtimeneed & " Saniye icinde sectiginiz pencerede spama baslanacaktir."
wscript.sleep strtimeneed2
shell.sendkeys ("Spambot Aktif" & "{enter}")
for i=0 to strtimes
shell.sendkeys (strtext & "{enter}")
wscript.sleep strspeed
Next
shell.sendkeys ("Spambot deaktif" & "{enter}")
wscript.sleep strspeed * strtimes / 10
returnvalue=MsgBox ("Tekrar spam yapmak istiyirmisin genc?",36)
If returnvalue=6 Then
Msgbox "Tamam,spambot yeniden aktif oldu"
End If
If returnvalue=7 Then
msgbox "Spambox kapatiliyor..."
wscript.quit
End IF
loop
_______________________________
notepad ++ ile yazdım
umarım beğenmişsinizdir kendi yapımımdır alıntı değildir...
@Schaffer79 @Zorinkun_ @Zurinqun (hangi hesabı kullanıyosun la ban meleği) @AzlaazTR @98IamLegend98 @Pr1sonsoul