Esta es una colección personal que se te entrega a ti.
1.VBS obtiene la ruta establecida
1.1.VBS obtiene la ruta de instalación del sistema
Código de programa
set WshShell = WScript. CreateObject( "WScript.Shell")
strWinDir = WshShell.ExpandEnvironmentStrings("%WinDir%")
El código anterior significa que primero definimos esta variable para obtener la ruta de instalación del sistema. y luego usamos "&strWinDir&" para llamar a esta variable.
1.2.C:\Ruta de archivos de programa
Código de programa
msgbox CreateObject("WScript.Shell").ExpandEnvironmentStrings("%ProgramFiles%")
1.3.C:\Archivos de programa\Ruta de archivos comunes
Código de programa
msgbox CreateObject("WScript.Shell").ExpandEnvironmentStrings("%CommonProgramFiles%" )
2. Agregue un acceso directo URL al escritorio
Código de programa
set gangzi = WScript.CreateObject("WScript.Shell")
strDesktop = gangzi.SpecialFolders("Desktop")
set oShellLink = gangzi.CreateShortcut(strDesktop & "\Internet Explorer.lnk")
oShellLink.TargetPath = ""
oShellLink.Description = "Internet Explorer"
oShellLink.IconLocation = "%ProgramFiles%\Internet Explorer\iexplore.exe, 0"
oShellLink.Save
3. Agregar URL a favoritos
Código de programa
Const ADMINISTRATIVE_TOOLS = 6
Establecer objShell = CreateObject("Shell.Application" )
Establecer objFolder = objShell.Namespace(ADMINISTRATIVE_TOOLS)
Establecer objFolderItem = objFolder.Self
Establecer objShell = WScript.CreateObject("WScript.Shell")
strDesktopFld = objFolderItem.Path
Establecer objURLShortcut = objShell.CreateShortcut(strDesktopFld & "\小游戏网站.url")
objURLShortcut.TargetPath = "/ cdo/configuration/"
Establecer correo electrónico = CreateObject("CDO.Message")
Email.From = "Send@qq.com"
Correo electrónico. Para = "Receive@qq.com"
Email.Subject = "Prueba sendmail.vbs"
Email.Textbody = "¡OK!"
Correo electrónico. AddAttachment "C:\1.txt"
Con Email.Configuration.Fields
.Item(NameSpace&"sendusing") = 2
.Item (NameSpace& "servidor smtp")
= "smtp.mailserver.com"
.Item(NameSpace&"smtpserverport") = 25
.Item(NameSpace&"smtpauthenticate") = 1
. Item(NameSpace&"sendusername") = "Nombre de usuario del remitente"
.Item(NameSpace&"sendpassword") = "Contraseña del remitente"
.Update
Finalizar con
Email.Send
12.VBS finalizar proceso
Código de programa
strComputer = "."
Establecer objWMIService = GetObject _
("winmgmts:\\" & strComputer & "\root\cimv2")
Establecer colProcessList = objWMIService.ExecQuery _
("Seleccione * de Win32_Process donde Nombre = 'Rar.exe'")
Para cada objProcess en colProcessList
objProcess.Terminate()
Siguiente
13. VBS oculta y abre la URL
13.1 Algunos navegadores no pueden ocultarla ni abrirla, pero la abren directamente, lo cual es adecuado para usuarios comunes
Código de programa.
createObject("wscript.shell").run "iexplore ",vbhide
14. VBS recorre el disco duro para eliminar el nombre de archivo especificado (a continuación agregué un proceso para finalizar). el proceso primero y luego eliminarlo Función, se puede eliminar si no es necesario)
Código de programa
En caso de error, reanudar siguiente
Atenuar fPath
strComputer = "."
Establecer objWMIService = GetObject _
("winmgmts:\\" & strComputer & "\root\cimv2")
Establezca colProcessList = objWMIService.ExecQuery _
("Seleccione * de Win32_Process donde Nombre = 'gangzi.exe'")
Para cada objProcess en colProcessList
objProcess .Terminate()
Siguiente
Establecer objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Establecer colDirs = objWMIService. _
ExecQuery("Seleccione * de Win32_Directory donde nombre LIKE '%c:%' o nombre LIKE '%d: %' o nombre LIKE '%e :%' o nombre LI
KE '%f:%' o nombre COMO '%g:%' o nombre COMO '%h:%' o nombre COMO '%i:%'")
Set objFSO = CreateObject("Scripting .FileSystemObject")
Para cada objDir en colDirs
fPath = objDir.Name & "\gangzi.exe"
objFSO.DeleteFile(fPath), True
Siguiente
15.VBS obtiene la dirección MAC de la tarjeta de red
Código de programa
Dim mc,mo
Establezca mc=GetObject("Winmgmts:").InstancesOf("Win32_NetworkAdapterConfiguration")
Para cada mes en mc
Si mo.IPEnabled=True entonces
MsgBox "La dirección MAC de la tarjeta de red local es: " & mo.MacAddress
Salir para
Finalizar si
Siguiente
16.Adquisición de VBS Dirección de la página de inicio del registro local
Código de programa
Establecer reg=WScript.CreateObject("WScript.Shell")
startpage=reg.RegRead ("HKEY_CURRENT_USER \Software\Microsoft\Internet Explorer\Main\Start Page")
Página de inicio de MsgBox
17.VBS recorre todos los directorios de todos los discos, encuentra todos los archivos .txt y luego le da a todos Agregar una oración en la parte inferior del archivo de texto
Código de programa
En caso de error Reanudar siguiente
Set fso = CreateObject("Scripting.FileSystemObject" )
Co = VbCrLf & "Pasando. . .
"
Para cada i en fso.Drives
Si i.DriveType = 2 entonces
GF fso.GetFolder(i & "\")
Finalizar si
Siguiente
Sub GF(fol)
Wh fol
Dim i
Para cada i en fol.SubCarpetas
GF i
Siguiente
End Sub
Sub Wh(fol)
Atenuar i
Para cada i en fol.Files
Si LCase(fso.GetExtensionName(i)) = "shtml" Entonces
fso. OpenTextFile(i,8,0).Write Co
End If
Next
End Sub
Obtiene todos los discos de el símbolo de la computadora
Código de programa
Set fso=CreateObject("scripting.filesystemobject")
Set objdrives=fso.Drives 'Obtiene todas las unidades de disco del computadora actual
Para cada objdrive En objdrives 'Recorre el disco
MsgBox objdrive
Siguiente
19.VBS crea archivos para todos los discos directorios raíz de la máquina (Original de Gangzi)
Código de programa
En caso de error, reanudar a continuación
Establecer fso=CreateObject("Scripting.FileSystemObject")
Establecer gangzis=fso.Drives 'Obtener todas las unidades de disco de la computadora actual
Para cada gangzi En gangzis 'Recorrer el disco
Establecer TestFile=fso.CreateTextFile( ""&gangzi&"\Nueva carpeta de archivos.vbs",Ture)
TestFile.WriteLine("Por www.gangzi.org")
TestFile.Close
Siguiente
20.VBS recorre toda la máquina para encontrar todos los 123.exe y luego les cambia el nombre a 321.exe
Código de programa
set fs = CreateObject ("Scripting.FileSystemObject")
para cada unidad en fs.drives
fstraversal drive.rootfolder
siguiente
sub fstraversal( byval this)
para cada carpeta en this.subcarpetas
carpeta fstraversal
siguiente
establecer archivos = this.files
para cada archivo en archivos
si file.name = "123.exe" entonces file.name = "321.exe"
>siguiente
end sub
21. VBS escribe código en el portapapeles (en primer lugar, VBS escribe contenido en el portapapeles, lo que siempre se hace a través del objeto InternetExplorer.Application en el Internet, pero la desventaja es que el navegador aparecerá cuando el navegador predeterminado no sea IE, por lo que tomó mucho esfuerzo encontrar este código para implementarlo)
Código de programa
str=" Aquí está la cadena que desea copiar al portapapeles"
Establezca ws = wscript.createobject("wscript.shell")
ws.run "mshta vbscript: clipboardData.SetData( "+""""+"text"+"""+","+""""&str&"""+")(cerrar)",0,true
22.QQ Enviar mensajes automáticamente (guarde BVS y ejecútelo para ver el efecto. Espero que los expertos puedan hacer inferencias y ser original de Gangzi)
Código de programa
En caso de error, reanudar a continuación
str= "Soy un tonto/qq"
Establecer WshShell=WScript.CreateObject("WScript.Shell")
WshShell.run "mshta vbscript :clipboardData.SetData("+""" "+"texto"+"""+","+""""&str&"""+")(cerrar)",0
WshShell .ejecutar "tencent://mensaje/?Menu=yes&uin=20016964&Site=&Service=200&sigT=2a39fb276d15586e1114e71f7af38e195148b0369a16a40fdad564ce185f72e8de86db22c67ec3c1",0,true
WScript 3000
WshShell.SendKeys "^v "
WshShell .SendKeys "%s"
23.Archivo oculto VBS
Código de programa
Set objFSO = CreateObject("Scripting .FileSystemObject")
Establecer objFile = objFSO.GetFile("F:\Software Competition\show.txt")
Si objFile.Attributes = objFile.Attributes AND 2 Entonces
objFile.Attributes = objFile.Attributes XOR 2
End If
24.VBS genera números aleatorios (521 es la regla de generación, diferentes números tienen diferentes reglas de generación y se puede utilizar para otros fines)
Código de programa
Aleatorio 521
point=Array(Int(100*Rnd+1),Int(1000*Rnd +1),Int(10000*Rnd +1))
msgbox join(point,"")
25.VBS elimina el icono de IE del escritorio (no el acceso directo)
Código de programa
Establecer oShell = CreateObject("WScript.Shell")
oShell.RegWrite "HKCU\Software\Microsoft\Windows\C
urrentVersion\Policies\Explorer\NoInternetIcon",1,"REG_DWORD"
26.VBS obtiene su propio nombre de archivo
Código de programa
Set fso = CreateObject( " Scripting.FileSystemObject")
msgbox WScript.ScriptName