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

Question

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

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}"