text - 如何使用 VBS 复制文本、打开网站、然后粘贴文本

Question

基本上我想复制一个文本，打开一个网站，然后粘贴该文本并按 Enter。请帮帮我

Answer 1

您可以使用文件系统对象复制文本文件。

Dim objFSO, objTextFile, objIE
Dim strTextFile, strTextLine
Set objFSO = CreateObject("Scripting.FileSystemObject")

' Set up the origin and destination files   
strTextFile = "C:\myFile.txt"

' Open the temporary text file for reading
Set objTextFile = objFSO.OpenTextFile(strTextFile)

' Read the temporary text file
strTextLine = objTextFile.ReadLine

复制文本后，打开网站。

Set objIE = CreateObject("InternetExplorer.Application")

objIE.Navigate "http://www.google.com"

Do Until objIE.readyState = 4 : Wscript.Sleep 10 : Loop

接下来，您需要知道要粘贴到的字段的名称。这可以通过右键单击并查看源代码来完成。

objIE.document.all.item("field_name").value = strTextLine

最后，您使用 sendkeys 来模拟 Enter 键。

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.SendKeys "{ENTER}"