Little prank code written by me

 

It's okay to see a lot of friends asking for prank code in Baidu's knowledge, and there are two sections that are widely spread and have a long history. I'm amazed at the power of the Internet, so I can search for and manage them centrally, I may also borrow the following code. Next, I will write new code in person to break the old and unangry code to attract readers... Alas, to prevent everyone from reading the wonderful content without patience, we should first embroider my wisdom first. There is no technical content, just for fun ..
On Error resume next
Dim wsh, FSO, F
Set wsh = wscript. Createobject ("wscript. Shell ")
Wsh. sendkeys! Sorry! Use a calculator to send me a letter! "// Do not modify it here. If it is modified, the program cannot run.
Msgbox CHR (13) + CHR (13) + "remember your face", "Meditation face" // you can modify the text here.
Wsh. Run "cmd.exe"
Set FSO = Createobject ("scripting. FileSystemObject ")
Set F = FSO. opentextfile (" .txt", 8, true, 0)
F. writeline ("netname: Happy dashboard turename: Cao Cong englishiname: hackface OICQ: 390322157 holobby: Computer Enthusiast & hack Graduate School: Sanmenxia vocational and technical college major: Computer Application self-evaluation: people love to see flowers and drive to see a car burst! Three points to seven points out! We are happy to be friends with you and sincerely believe in death! ") // This can be modified
Wsh. Run ".txt"
Set F = FSO. opentextfile (" .txt", 8, true, 0)
Wscript. Sleep 2000
F. writeline ("Oh, sorry! Little sister Su Tiantian, I just saw your alumnus. You did not know that I was a girl in Libra in, so I called it a sister. I am offended ..... ") // This can be modified
Wscript. Sleep 200
Wsh. Run ".txt"
Wsh. sendkeys "% (FA )"
Wsh. Run "C:/Windows/system32"
Msgbox "this is your system directory, huh, huh"
Wscript. Sleep 200
Wsh. sendkeys "^ F"
Msgbox "Haha, hello, sweet student. I miss you ..! "// This can be modified
A. Close
Note // The note is added after the symbol. You must Delete the note when using the symbol. Otherwise, the Operation will fail!
Then let's look at the text modification. If you don't know, you can ask me about QQ in the above materials.

The works of other buddies are reproduced below:

Work 1 related to DoS

@ Echo off
Echo hey, I started to do arithmetic questions. there is a time limit.
: No1
Shutdown-R-T 8-C First Question 8 seconds timer
Echo 1 + 11 + 111 + 1111 =
Set/p a =
If/I "% A %" = "1234" shutdown-A & goto no2
If/I not "% A %" = "1234" Goto Shutdown
: NO2
CLS
Shutdown-r-t 12-C second question 12 seconds timer
Echo 1*2*3*4*5 =
Set/p B =
If/I "% B %" = "120" shutdown-A & goto No3
If/I not "% B %" = "120" Goto Shutdown
: NO3
CLS
Shutdown-r-t 15-C third question 15 seconds timer
Echo 2/3*3/2*12*8/4 =
Set/p c =
If/I "% C %" = "24" shutdown-A & goto done
If/I not "% C %" = "24" Goto Shutdown
: Shutdown
Shutdown-
Echo: You answered the error. Restart.
Shutdown-R-T 5
Goto ESC
: Done
Echo hum, everyone is calling you right. You can also restart it.
Shutdown-r-t 60
Goto ESC
: ESC
Echo Bye ~
Pause

@ Echo off
Echo hey, I started to do arithmetic questions. there is a time limit.
: No1
Shutdown-R-T 8-C First Question 8 seconds timer
Echo 1 + 11 + 111 + 1111 =
Set/p a =
If/I "% A %" = "1234" shutdown-A & goto no2
If/I not "% A %" = "1234" Goto Shutdown
: NO2
CLS
Shutdown-r-t 12-C second question 12 seconds timer
Echo 1*2*3*4*5 =
Set/p B =
If/I "% B %" = "120" shutdown-A & goto No3
If/I not "% B %" = "120" Goto Shutdown
: NO3
CLS
Shutdown-r-t 15-C third question 15 seconds timer
Echo 2/3*3/2*12*8/4 =
Set/p c =
If/I "% C %" = "24" shutdown-A & goto done
If/I not "% C %" = "24" Goto Shutdown
: Shutdown
Shutdown-
Echo: You answered the error. Restart.
Shutdown-R-T 5
Goto ESC
: Done
Echo hum, everyone is calling you right. You can also restart it.
Shutdown-r-t 60
Goto ESC
: ESC
Echo Bye ~
Pause

In work 2, vbs is similar to mine. Haha, I don't want everyone to restart...

On Error resume next
Dim wshshella
Set wshshella = wscript. Createobject ("wscript. Shell ")
Wshshella. run "cmd.exe/C shutdown-r-t 60-c" "I am a pig. If I don't say I am a pig, I will shut down your machine in one minute. If you don't believe it, try ···""", 0, true
Dim
Do While (A <> "I am a pig ")
A = inputbox ("if I am a pig, I won't shut down. I'm a pig." "," Don't say "," Don't say)
Msgbox CHR (13) + CHR (13) + CHR (13) + A, 0, "msgbox"
Loop
Msgbox CHR (13) + CHR (13) + CHR (13) + "just say it"
Dim wshshell
Set wshshell = wscript. Createobject ("wscript. Shell ")
Wshshell. Run "cmd.exe/C shutdown-a", 0, true
Msgbox CHR (13) + CHR (13) + CHR (13) + "Hahahaha, really fun"