Jump to content

April Fools Joke (Probably the sadest script posted to Date)


Muchuchu
 Share

Recommended Posts

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
Link to comment
Share on other sites

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
Link to comment
Share on other sites

Guest
This topic is now closed to further replies.
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...