DO kirjautuminen

posted: Aug, 6th 2012 | jump to bottom

set WshShell = CreateObject("WScript.Shell")
    Set objExplorer = CreateObject("InternetExplorer.Application")
    objExplorer.navigate "http://www.darkorbit.com"
    objExplorer.Visible=true 
 
 Do While objExplorer.Busy 
    WScript.Sleep 100 
  Loop 
 
  objExplorer.document.title = "BugPoint"
 
	objExplorer.document.forms("loginForm_default").elements("loginForm_default_username").value = "NIMI"
	objExplorer.document.forms("loginForm_default").elements("loginForm_default_password").value = "SALASANA"
	objExplorer.Document.getElementsByName("loginForm_default_login_submit").Item(0).Click

jump to top

1563 views

plaintext | download | |

The Easiest Way to Save and Share Code Snippets on the web

vb