请给多个vbs代码越多越好

请给多个vbs代码越多越好

VBS脚本在自动化任务、文件操作和系统管理中有广泛应用。一个简单的示例是批量重命名文件。比如，你可以创建一个脚本来遍历一个文件夹中的所有文件，并根据需要重命名它们。这里是一个基本的VBS代码示例：

Dim folderPath, fileNames, fileName, newFileName
folderPath = "C:\Users\ExampleUser\Documents\"
fileNames = Dir(folderPath & "*.txt")
Do While fileNames > ""
fileName = folderPath & fileNames
newFileName = folderPath & Replace(fileNames, ".txt", "_new.txt")
Name fileName As newFileName
fileNames = Dir()
Loop

上述代码会遍历指定路径下的所有.txt文件，并将它们重命名为原文件名加上_new.txt。当然，这只是一个简单的例子，你可以根据需要修改脚本以执行更复杂的功能。

此外，VBS脚本还可以用于自动化登录过程。例如，你可以编写一个脚本来自动输入用户名和密码，然后提交表单。下面是一个示例代码，它会模拟浏览器的登录过程：

Dim ie, username, password, loginUrl
Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
ie.Navigate "http://example.com/login"
Do While ie.Busy
WScript.Sleep 1000
Loop
username = ie.Document.All("username").Value
password = ie.Document.All("password").Value
ie.Document.All("login").Click

该脚本将打开指定网站，等待页面加载完成，然后模拟用户输入用户名和密码并点击登录按钮。请注意，这种脚本可能违反某些网站的服务条款，因此在使用时需谨慎。

最后，VBS脚本还可以用于自动化文件操作，例如移动、复制或删除文件。下面是一个简单的示例，它会将所有图片文件从一个文件夹移动到另一个文件夹：

Dim sourceFolder, destinationFolder, fileNames, fileName
sourceFolder = "C:\Users\ExampleUser\Pictures\"
destinationFolder = "C:\Users\ExampleUser\Downloads\"
fileNames = Dir(sourceFolder & "*.jpg")
Do While fileNames > ""
fileName = sourceFolder & fileNames
MoveFile fileName, destinationFolder & fileNames
fileNames = Dir()
Loop

这段代码会遍历源文件夹中的所有.jpg文件，并将它们移动到目标文件夹。同样，这只是一个基本示例，实际应用中可以进行更多定制。2024-12-22