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", 1, False) 
myvar = file.ReadAll 
file.Close 

- 당신이 필요하지 않습니다 :

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로 파일 내용을 읽으려면 전체 파일 내용을 변수에 읽고 싶습니다. 하지만 그게 기본이야.