- Dim ie
- Set ie = CreateObject("InternetExplorer.Application")
- ie.Visible = True
- '把http:\192.168.1.1换成你的网页地址
- ie.Navigate "http:\192.168.1.1"
- While ie.Busy Or ie.ReadyState <> 4
- WScript.Sleep 200
- Wend
- '把YourName换为你的用户名
- ie.Document.getElementbyId("DDDDD").value="YourName"
- '把YourPassword换成密码
- ie.Document.getElementbyId("upass").value="YourPassword"
- WScript.Sleep 500
- ie.Document.getElementbyId("0MKKey").click
- Set ie = nothing
复制代码
|