Muchuchu Posted April 1, 2008 Posted April 1, 2008 It's a crap script but if you forgot or want to pull an April Fools joke on someone real quick here you go: expandcollapse popup#include <GUIConstants.au3> #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("Free Gift Card", 200, 70, 150, 100) $Label1 = GUICtrlCreateLabel("Check the Box to start ", 20, 15, 120, 15) ;$Button1 = GUICtrlCreateButton("Start", 64, 48, 65, 33) ;$Button2 = GUICtrlCreateButton("Stop", 160, 48, 73, 33) $CheckBox12 = GUICtrlCreatecheckbox("Start!",45,30,150,40) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit EndSwitch If GUICtrlRead($CheckBox12) = $GUI_checked then Start() WEnd Func Start() Run(@ComSpec) sleep("500") send("msg * Your computer is now infect with trojan.Execute. {enter}") sleep("3000") send("msg * Standby for installation. {enter}") sleep("3000") send("Msg * Restarting computer to initiate download and installation. {enter}") sleep("4000") Run('Notepad.exe') sleep("4000") Send("April FOOLS.") exit endfunc func quit() exit endfunc
Darth Posted April 1, 2008 Posted April 1, 2008 that's pretty cool. it's not the worst script ever, I've made the worst script ever, it'll chip away at your sanity
redsleeves Posted April 1, 2008 Posted April 1, 2008 that's pretty cool. it's not the worst script ever, I've made the worst script ever, it'll chip away at your sanityCool. So you made an AutoIt wife then?
Triblade Posted April 1, 2008 Posted April 1, 2008 Cool. So you made an AutoIt wife then? Loool!!Don't let the women see this... My active project(s): A-maze-ing generator (generates a maze) My archived project(s): Pong3 (Multi-pinger)
Swift Posted April 1, 2008 Posted April 1, 2008 (edited) OffTopic: Triblade, would you mind stacking your userbars in your sig somemore, they are making my IE go off the screen with a scrollbar... Cool script though, i've seen worse. Edited April 1, 2008 by R6V2
Recommended Posts