我需要使用 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

Answer 1

写入文件：

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

要将文件内容读入变量：

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

不言而喻，您必须修改它 - 您不一定希望将整个文件内容读取到变量中。但这是基础。