Jump to content

Recommended Posts

Posted

It's a crap script but if you forgot or want to pull an April Fools joke on someone real quick here you go:

#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
Posted

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

Posted

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

Cool. So you made an AutoIt wife then? :)

Posted (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 by R6V2
Guest
This topic is now closed to further replies.
×
×
  • Create New...