Flood msn, ver 3.0

« Older   Newer »
  Share  
*Kuja*
view post Posted on 1/3/2009, 12:04




Eccola qua

-Opzioni-Frase o trilli
-Grafica-Rimodernata
-scarica-qua

CODICE
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <process.au3>
$Form1 = GUICreate("Flood ver 3.0", 219, 364, 239, 125)
$Group1 = GUICtrlCreateGroup("Scelte", 16, 8, 193, 81)
$Radio1 = GUICtrlCreateRadio("Frase", 24, 32, 113, 17)
GUICtrlSetState ($radio1, $GUI_CHECKED)
$Radio2 = GUICtrlCreateRadio("Trilli", 24, 64, 113, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Combo1 = GUICtrlCreateCombo("10", 32, 96, 153, 25)
GUIctrlsetdata($Combo1,"20|30|40|50|60|70|80|1000|10000|100000","20")
$inserisci = GUICtrlCreateInput("", 48, 128, 121, 21)
$Button1 = GUICtrlCreateButton("Crash", 72, 160, 75, 25, 0)
$Group2 = GUICtrlCreateGroup("Tempo+info", 8, 192, 201, 129)
$Label1 = GUICtrlCreateLabel("tempo", 16, 216, 33, 17)
$Label2 = GUICtrlCreateLabel("Creato da Kuja", 16, 248, 74, 17)
$Label3 = GUICtrlCreateLabel("Ver:3.0", 16, 280, 38, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
$MenuItem6 = GUICtrlCreateMenu("Info")
$MenuItem2 = GUICtrlCreateMenuItem("Info", $MenuItem6)
$MenuItem1 = GUICtrlCreateMenu("Opzioni")
$MenuItem4 = GUICtrlCreateMenuItem("Minimize", $MenuItem1)
$MenuItem5 = GUICtrlCreateMenuItem("Apri il mio sito", $MenuItem1)
$MenuItem8 = GUICtrlCreateMenu("?")
$MenuItem3 = GUICtrlCreateMenuItem("come usare", $MenuItem8)
While 1
       $nMsg = GUIGetMsg()
       Switch $nMsg                
               Case $MenuItem2
MsgBox(64,"Info","Il programma θ stato creato by Kuja")
Case $MenuItem4
GUISetState(@SW_MINIMIZE)
Case $MenuItem5
_RunDOS("start http://the-pc-world.forumcommunity.net")
case $MenuItem3
MsgBox(64,"Uso","1:Aprire una conversazione di msn" & @CRLF & "2:Immettere il cursore nella finestra di scrittura di msn" & @CRLF & "3:Nell'appostito spazio scrivere cioθ che volete" & @CRLF & "4:Premete crash" & @CRLF & @CRLF & "L'opzione trilli funziona SOLO se avete msn plus θ un TOOLS per trilli infiniti!")

                       Case $GUI_EVENT_CLOSE
                       Exit
Case $Button1
       If GUIctrlread($inserisci) = "" Then
               Msgbox(64,"Attenzione","Attenzione inserire nel campo scrittura")
       Else
GUICtrlCreateLabel("Il crash avverrΰ tra:", 16, 216, 33, 17)
GuiCtrlCreateLabel("00:00:10", 16, 216, 50, 17)
sleep( 1000 )
GuiCtrlCreateLabel("00:00:09", 16, 216, 50, 17)
Sleep( 1000 )
GuiCtrlCreateLabel("00:00:08", 16, 216, 50, 17)
Sleep( 1000 )
GuiCtrlCreateLabel("00:00:07", 16, 216, 50, 17)
Sleep( 1000 )
GuiCtrlCreateLabel("00:00:05", 16, 216, 50, 17)
Sleep( 1000 )
GuiCtrlCreateLabel("00:00:04", 16, 216, 50, 17)
Sleep( 1000 )
GuiCtrlCreateLabel("00:00:03", 16, 216, 50, 17)
Sleep( 1000 )
GuiCtrlCreateLabel("00:00:02", 16, 216, 50, 17)
Sleep( 1000 )
GuiCtrlCreateLabel("00:00:01", 16, 216, 50, 17)
Sleep( 1000 )
GuiCtrlCreateLabel("Avviato", 16, 216, 50, 17)
Sleep( 1000 )
If GUICtrlRead($radio2) = $GUI_CHECKED Then
       
$a=GUICtrlRead($Combo1)
For $a=$a to 1 Step -1 ;to 1 Step -1
       Send("/nudge")
       sleep(100)
       Send("{ENTER}")
       next
Else
       $b=GUICtrlRead($Combo1)
for $b=$b to 1 step -1 ;to 1 Step -1
Send(GUICtrlRead($inserisci))
sleep(100)
Send("{ENTER}")
Next
endif
$Label4 = GUICtrlCreateLabel("Crash finito", 67, 323, 96,24)
GUICtrlSetFont(-1, 12, 800, 4, "MS Sans Serif")
GUICtrlSetColor(-1, 0x0000FF)
                                               MsgBox(0,"fatto!", "Crash completato!")
                                       EndIf

       EndSwitch
WEnd
 
Top
greywolf92
view post Posted on 1/3/2009, 12:14




Good ^_^
 
Top
*Kuja*
view post Posted on 1/3/2009, 22:41




;) bird na domanda perche nn commenti i miei programmi nn ti piaccono? XD
 
Top
† bird92 †
view post Posted on 1/3/2009, 22:43




no θ che non mi vanno sotto linux, quindi non posso provarli :)
Per adesso il mio windows sotto macchina virtuale θ disastrato dai virus che ci ho provato sopra :lol:
 
Top
*Kuja*
view post Posted on 1/3/2009, 22:48




a ok XD
 
Top
•Fisher92•
view post Posted on 8/3/2009, 12:12




Mi spiegate a che serve?
 
Top
greywolf92
view post Posted on 8/3/2009, 12:52




Serve ad inviare una frase in continuazione per un numero stabilito di volte senza dover riscriverla sempre a mano. Oppure puoi trillare un tuo contatto per un numero x di volte. (ma devi aver installato la patch per i trilli infiniti)
 
Top
6 replies since 1/3/2009, 12:04   272 views
  Share