mr deathnight |
|
| Scherzetto per gli amici banale. Un grazie particolare a : ACIDBURN16 & Gianlu per l'aiuto. Funzioni: _ Apre il lettore CD - Apre ilnotepad e comincia a scrivere - Fa finta di formattare - Spegne lo schermo e mouve il mouse da solo a caso - Finisce lo scherzo CODICE #include <windowsconstants.au3> Opt("SendKeyDelay",65) $d=DriveGetDrive("CDROM") CDTray($D[1],"open") Run("notepad.exe") sleep(2000) send("Sono entrato nel tuo computer ora come farai a buttarmi fuori? ahahah XD è inutile non lo puoi stoppare da li.. vb ascoltami ora ti racconto tutta la mia vita... lala allora tutto comincia che.. ops aspetta ho fatto un casino il computer si sta formattando .____. ok ok stai calmo. Non riesco a risolvere Doh oh senti mi dispiace dai al massimo te ne compri un altro ops meglio che esco prima ìche si formatta anche il mio ciaooo!") msgbox(3,"PC Format", "Vuoi Formattare il computer?") msgbox(3,"PC Format", "Sei Sicuro?",20) $Form1 = GUICreate("Computer Format", 625, 445, 192, 124) $Progress1 = GUICtrlCreateProgress(184, 240, 273, 33) GUISetState(@SW_SHOW) GUICtrlSetData($Progress1,10) sleep(500) GUICtrlSetData($Progress1,25) sleep(500) GUICtrlSetData($Progress1,40) sleep(500) GUICtrlSetData($Progress1,55) sleep(500) GUICtrlSetData($Progress1,70) sleep(500) GUICtrlSetData($Progress1,85) sleep(500) GUICtrlSetData($Progress1,100) sleep(500) msgbox(0, "Error", "Format Effettuato Con Successo") GUICreate("",@desktopwidth,@desktopheight,0,0,0x80000000) GUISetBkColor(0x000000) GUISetState() Sleep(2000) For $i = 0 to 5 MouseMove(Random(0,@DesktopWidth,1),Random(0,@DesktopHeight,1)) Next GUISetState(@SW_HIDE) ProcessClose("notepad.exe") msgbox (0, "xD","calmo era solo uno scherzo") Edited by mr deathnight - 8/6/2010, 18:37
|
| |