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

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

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

1 个答案: