0

外出先でインターネットに接続して自分で入力しなくても、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 コードのデータを編集する際に、いくつかの助けがありました。

4

1 に答える 1