超完整的vbs代碼

超完整的vbs代碼1.創(chuàng)建文件SetobjFSO=CreateObject("Scripting.FileSystemObject")SetobjFile=objFSO.CreateTextFile("C:\example.txt",True)objFile.WriteLine("Hello,World!")objFile.Close此代碼創(chuàng)建一個(gè)FileSystemObject對(duì)象，然后使用該對(duì)象創(chuàng)建一個(gè)名為"example.txt"的文本文件，并在文件中寫入"Hello,World!"。關(guān)閉文件。2.讀取文件SetobjFSO=CreateObject("Scripting.FileSystemObject")SetobjFile=objFSO.OpenTextFile("C:\example.txt",1)strContent=objFile.ReadAllobjFile.CloseWScript.EchostrContent此代碼創(chuàng)建一個(gè)FileSystemObject對(duì)象，然后使用該對(duì)象打開一個(gè)名為"example.txt"的文本文件，并讀取文件的全部?jī)?nèi)容。關(guān)閉文件，并使用WScript.Echo輸出文件內(nèi)容。3.刪除文件SetobjFSO=CreateObject("Scripting.FileSystemObject")objFSO.DeleteFile("C:\example.txt")此代碼創(chuàng)建一個(gè)FileSystemObject對(duì)象，然后使用該對(duì)象刪除一個(gè)名為"example.txt"的文件。4.創(chuàng)建文件夾SetobjFSO=CreateObject("Scripting.FileSystemObject")objFSO.CreateFolder("C:\example_folder")此代碼創(chuàng)建一個(gè)FileSystemObject對(duì)象，然后使用該對(duì)象創(chuàng)建一個(gè)名為"example_folder"的文件夾。5.刪除文件夾SetobjFSO=CreateObject("Scripting.FileSystemObject")objFSO.DeleteFolder("C:\example_folder")此代碼創(chuàng)建一個(gè)FileSystemObject對(duì)象，然后使用該對(duì)象刪除一個(gè)名為"example_folder"的文件夾。6.復(fù)制文件SetobjFSO=CreateObject("Scripting.FileSystemObject")objFSO.CopyFile"C:\example.txt","C:\example_copy.txt"此代碼創(chuàng)建一個(gè)FileSystemObject對(duì)象，然后使用該對(duì)象復(fù)制一個(gè)名為"example.txt"的文件，并將其復(fù)制到"example_copy.txt"。7.移動(dòng)文件SetobjFSO=CreateObject("Scripting.FileSystemObject")objFSO.MoveFile"C:\example.txt","C:\example_move.txt"此代碼創(chuàng)建一個(gè)FileSystemObject對(duì)象，然后使用該對(duì)象移動(dòng)一個(gè)名為"example.txt"的文件，并將其移動(dòng)到"example_move.txt"。8.重命名文件SetobjFSO=CreateObject("Scripting.FileSystemObject")objFSO.MoveFile"C:\example.txt","C:\example_rename.txt"此代碼創(chuàng)建一個(gè)FileSystemObject對(duì)象，然后使用該對(duì)象將一個(gè)名為"example.txt"的文件重命名為"example_rename.txt"。9.啟動(dòng)應(yīng)用程序SetobjShell=CreateObject("WScript.Shell")objShell.Run("notepad.exe")此代碼創(chuàng)建一個(gè)WScript.Shell對(duì)象，然后使用該對(duì)象啟動(dòng)記事本應(yīng)用程序。10.獲取系統(tǒng)信息SetobjWMIService=GetObject("winmgmts:\\.\root\cimv2")SetcolItems=objWMIService.ExecQuery("SELECTFROMWin32_ComputerSystem")ForEachobjItemincolItemsWScript.Echo"ComputerName:"&objItem.NameWScript.Echo"OperatingSystem:"&objItem.OSVersionNext此代碼創(chuàng)建一個(gè)WMI（WindowsManagementInstrumentation）服務(wù)對(duì)象，然后使用該對(duì)象查詢計(jì)算機(jī)系統(tǒng)信息。使用WScript.Echo輸出計(jì)算機(jī)名和操作系統(tǒng)版本。11.管理服務(wù)SetobjWMIService=GetObject("winmgmts:\\.\root\cimv2")SetcolItems=objWMIService.ExecQuery("SELECTFROMWin32_ServiceWHEREName='YourServiceName'")ForEachobjItemincolItemsWScript.Echo"StoppingService"objItem.StopService()WScript.Sleep2000'Waitfor2secondsWScript.Echo"StartingService"objItem.StartService()Next此代碼創(chuàng)建一個(gè)WMI服務(wù)對(duì)象，然后使用該對(duì)象查詢名為"YourServiceName"的服務(wù)。接著，使用StopService和StartService方法停止和啟動(dòng)服務(wù)。注意，需要將"YourServiceName"替換為實(shí)際的服務(wù)名稱。12.管理事件日志SetobjWMIService=GetObject("winmgmts:\\.\root\cimv2")SetcolItems=objWMIService.ExecQuery("SELECTFROMWin32_NTLogEventWHERELogFile='System'")ForEachobjItemincolItemsWScript.Echo"EventID:"&objItem.EventIDWScript.Echo"Source:"&objItem.SourceNameWScript.Echo"Message:"&objItem.MessageNext此代碼創(chuàng)建一個(gè)WMI服務(wù)對(duì)象，然后使用該對(duì)象查詢系統(tǒng)事件日志中的事件。使用WScript.Echo輸出事件的ID、來(lái)源和消息。13.與網(wǎng)絡(luò)資源交互SetobjXMLHttp=CreateObject("MSXML2.XMLHTTP")objXMLHttp.SendIfobjXMLHttp.Status=200ThenSetobjFSO=CreateObject("Scripting.FileSystemObject")SetobjFile=objFSO.OpenTextFile("C:\downloaded_file.txt",2,True)objFile.WriteLineobjXMLHttp.responseTextobjFile.CloseWScript.Echo"Filedownloadedsuccessfully."ElseWScript.Echo"Failedtodownloadfile."EndIf14.管理注冊(cè)表SetobjShell=CreateObject("WScript.Shell")'讀取注冊(cè)表項(xiàng)strValue=objShell.RegRead("HKEY_CURRENT_USER\Software\MyApp\Setting")WScript.Echo"CurrentSetting:"&strValue'寫入注冊(cè)表項(xiàng)objShell.RegWrite"HKEY_CURRENT_USER\Software\MyApp\Setting","NewValue","REG_SZ"'刪除注冊(cè)表項(xiàng)objShell.RegDelete"HKEY_CURRENT_USER\Software\MyApp\Setting"此代碼創(chuàng)建一個(gè)WScript.Shell對(duì)象，然后使用該對(duì)象讀取、寫入和刪除注冊(cè)表項(xiàng)。注意，需要將注冊(cè)表路徑和值替換為實(shí)際的路徑和值。15.發(fā)送電子郵件SetobjOutlook=CreateObject("Outlook.Application")SetobjMail=objOutlook.CreateItem(0)objMail.Send此代碼創(chuàng)建一個(gè)Outlook.Application對(duì)象，然后使用該對(duì)象創(chuàng)建并發(fā)送一封電子郵件。注意，需要將收件人地址替換為實(shí)際的電子郵件地址。16.創(chuàng)建快捷方式SetobjShell=CreateObject("WScript.Shell")SetobjShortcut=objShell.CreateShortcut("C:\Shortcut.lnk")objShortcut.TargetPath="C:\ProgramFiles\MyApp\MyApp.exe"objShortcut.WorkingDirectory="C:\ProgramFiles\MyApp"objShortcut.IconLocation="C:\ProgramFiles\MyApp\MyApp.exe,0"objShortcut.Save此代碼創(chuàng)建一個(gè)WScript.Shell對(duì)象，然后使用該對(duì)象創(chuàng)建一個(gè)快捷方式。注意，需要將快捷方式的目標(biāo)路徑、工作目錄、圖標(biāo)位置和保存路徑替換為實(shí)際的路徑。17.監(jiān)控文件夾變化SetobjFSO=CreateObject("Scripting.FileSystemObject")SetobjFolder=objFSO.GetFolder("C:\example_folder")SetobjFolderSub=objFolder.SubFoldersSetobjFolderSubEnum=objFolderSub.GetEnumeratorDoWhileobjFolderSubEnum.MoveNextSetobjSubFolder=objFolderSubEnum.ItemWScript.Echo"Subfolder:"&objSubFolder.PathLoopSetob