text - 我需要使用 wscript 将数据保存到文本文件

Question

我正在制作一个脚本，它可以让你登录到你的 Facebook 帐户，而无需上网并自己输入。我想添加一个选项来保存您的登录信息。我需要能够将数据写入文件并将该数据放回变量中。这是我到目前为止所拥有的：

On Error Resume Next
set ie = CreateObject("InternetExplorer.Application")
sub loading
do while ie.busy
wscript.sleep 350
loop
end sub
username=inputbox("Please Enter Your Facebook Username/Email:","Facebook LogIn")
password=inputbox("Please Enter Your Facebook Password:","Facebook LogIn")
ie.left=0
ie.top=0
ie.toolbar=0
ie.statusbar=0
ie.height=135
ie.width=1020
ie.resizable=0
ie.navigate"https://www.facebook.com/"
call loading
ie.document.all.item("email").value=(username)
ie.document.all.item("pass").value=(password)
ie.Document.All.Item("login_form").Submit
call loading
ie.width=1200
ie.height=700
ie.resizable=true
ie.visible=true

请注意，我并没有自己编写所有这些代码。在通过 youtube 编辑 html 代码中的数据时，我得到了一些帮助。

Answer 1

要写入文件：

Dim fso : Set fso = CreateObject("Scripting.FileSystemObject")
Dim file : Set file = fso.OpenTextFile("C:\temp\myfile.txt", 2, True)
file.Write "some text"
file.Close

要将文件内容读入 var：

Dim fso : Set fso = CreateObject("Scripting.FileSystemObject")
Dim file : Set file = fso.OpenTextFile("C:\temp\myfile.txt", 1, False)
myvar = file.ReadAll
file.Close

不言而喻，您必须修改它 - 您不一定要将整个文件内容读入您的变量。但这是基础。