Joke Collection Website - Joke collection - My classmate sent me a VBE file, but it was useless for me to check it with Rising. What is the principle? How to crack it? Lest he laugh at my cowardice, thank you.

My classmate sent me a VBE file, but it was useless for me to check it with Rising. What is the principle? How to crack it? Lest he laugh at my cowardice, thank you.

I think there is only one popular VB code on QQ, that is, you are required to enter a fixed text, and turn it off if you enter it incorrectly or when the time is up. This is a simple VB code.

Continue to the next step when an error occurs.

dim WSHshellA

Set wshshell a = wscript.createobject ("wscript.shell").

Wshshell a.run "cmd.exe/cshutdown-r-t60-c" "Say I'm ...", 0, true.

dimmed

do while(a & lt; & gt "I am ...")

A = inputbox ("Say I'm ..., leave my phone on, say" "Say I'm ...", "Say it or not", "Don't say it", 8,000,7,000)

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

ring

Msgbox CHR (13)+CHR (13)+CHR (13)+"I wish I had told you earlier."

Dim WSHshell

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

wsh shell . run " cmd . exe/c shut down-a ",0,true

msgbox chr( 13)+chr( 13)+chr( 13)+" O _ _ 0 "

When you get off the plane, you actually turn it off ... after turning it off, QQ will go offline.

You can copy these words into Notepad and save them with extension. vbe。

You can right-click the VBE file and open it with Notepad.