vbs之使用Internet Explorer 屏蔽密码

2020-07-26 11:57:21

字体：大中小

来源：转载

供稿：网友

复制代码代码如下:

Set objExplorer = WScript.CreateObject _  
    ("InternetExplorer.Application", "IE_")  
objExplorer.Navigate "file:///c:/scripts/password.htm"     
objExplorer.Visible = 1               
objExplorer.ToolBar = 0  
objExplorer.StatusBar = 0  
objExplorer.Width=400  
objExplorer.Height = 250   
objExplorer.Left = 0  
objExplorer.Top = 0  
Do While (objExplorer.Document.Body.All.OKClicked.Value = "")  
    Wscript.Sleep 250                   
Loop   
strPassword = objExplorer.Document.Body.All.PasswordBox.Value  
objExplorer.Quit  
Wscript.Sleep 250  
Wscript.Echo strPassword 