Skip to content

Instantly share code, notes, and snippets.

@kumatti1

kumatti1/nanaco.vbs

Last active August 29, 2015 13:57
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save kumatti1/9576453 to your computer and use it in GitHub Desktop.
Save kumatti1/9576453 to your computer and use it in GitHub Desktop.
Download ZIP
nanacoにログイン
Raw
nanaco.vbs
Option Explicit
Dim ie
Const ID =
Const PW =
Const url = "https://www.nanaco-net.jp/pc/emServlet"
Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
ie.Navigate url
While ie.busy Or ie.ReadyState <> 4
WScript.Sleep (100)
Wend
ie.document.forms(0).Item("XCID").Value = ID
ie.document.forms(0).Item("LOGIN_PWD").Value = PW
ie.document.forms(0).all("ACT_ACBS_do_LOGIN1").Click
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment