The specific code is as follows:
PS: How it works: Open the target Web page using the Internetexplorer.application component of the VBS script, and then use the document property to control the open Web page.
1, first right mouse click on the desktop to create a new text document, and then copy the following code to paste in, the specific code as follows:
' Get login to which mailbox
Index=inputbox ("0--yahoo" &vbcrlf&vbcrlf& "1--163", "Select Mailbox", 0)
' Create a Internetexplorer.application object
Set ie = CreateObject ("Internetexplorer.application")
Ie. Visible = 1 ' Set the visibility of the Web page
Select Case Index
Case "0" ' when choosing 0--yahoo
Ie.navigate "http://cn.mail.yahoo.com/" ' Open yahoo e-Mail Login page
Wscript.Sleep 5000 ' Wait 5 seconds to make sure the page is open
Ie.document.getElementById ("Login"). Value = "username" "fills in the form with ID login as username
Ie.document.getElementById ("passwd"). Value = "Password"
Set ie = Nothing ' frees memory occupied by objects
Case "1" ' Second login process
Ie.navigate "Http://mail.163.com"
Wscript.Sleep 5000
Ie.document.getElementById ("login163"). Username. Value = "Cfan"
Ie.document.getElementById ("login163"). Password.value = "Cfan"
End Select
Set ie = Nothing ' does not select any or out of range and still release object
' When you put the VBS in the encrypted RAR, be sure to use the following FSO to delete the VBS to avoid the account leakage in the temporary folder
Set fso = CreateObject ("Scripting.FileSystemObject")
Set MyFile = fso. GetFile ("Login.vbs")
MyFile.DeletE:set Myfile=nothing:set fso=nothing
Then save the above script as Pass.vbs, and then give the URL that you need to log in to the site or forum, the following username.value = "Cfan" in the quotation marks in the replacement of the user name, Password.value = "Cfan" The replacement in quotation marks is a password that can be used. The example above is login to Yahoo and 163 mailbox.
As for the security of the account, you may be worried about your account and password written in the VBS script is not safe, you can use the RAR compression encryption, of course, RAR compression package password stronger, so even if someone from the U disk stolen files, their account will be very safe oh.