复制代码 代码如下:
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 

广告合作:本站广告合作请联系QQ:858582 申请时备注:广告合作(否则不回)
免责声明:本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除!