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 

您可能感興趣的文章:

相關(guān)文章

VBS教程：函數(shù)-TimeSerial 函數(shù)
VBS教程：函數(shù)-TimeSerial 函數(shù)...
2006-11-11
獲取遠(yuǎn)程機(jī)器共享目錄的物理路徑的代碼
依靠135端口，用wmi。像下邊的腳本是得到共享目錄ttt的物理目錄,依靠445端口，靠smb。bt5下的 nmap
2012-05-05
VBS教程：正則表達(dá)式簡(jiǎn)介 -早期起源
VBS教程：正則表達(dá)式簡(jiǎn)介 -早期起源...
2006-11-11
獲取屏幕分辨率的VBS代碼
我想到的方法有兩種。一種是WMI中的Win32_DesktopMonitor類一種是HTML DOM中的screen對(duì)象，需要的朋友可以參考下。
2011-01-01
VBS加密與VBE解密實(shí)現(xiàn)方法
VBS加密與VBE解密實(shí)現(xiàn)方法，因?yàn)楹芏嗯笥严胍Ｗo(hù)代碼，其實(shí)也很難保護(hù)的了，能加密的很多都能解密。不過可以增加破解難度，或防止殺毒軟件殺掉代碼。
2011-01-01
VBScript教程第一課什么是VBScript
VBScript教程第一課什么是VBScript...
2006-11-11
雷客圖ASP站長(zhǎng)安全助手vbs測(cè)試版代碼
雷客圖ASP站長(zhǎng)安全助手vbs測(cè)試版代碼...
2007-03-03
讀取Access數(shù)據(jù)庫(kù)的vbscript代碼打包下載
一段用來(lái)讀取Access數(shù)據(jù)庫(kù)的vbscript代碼，來(lái)自國(guó)外的代碼，經(jīng)過腳本之家測(cè)試，確實(shí)不錯(cuò)。
2011-12-12
VBS教程：VBscript屬性-HelpContext 屬性
VBS教程：VBscript屬性-HelpContext 屬性...
2006-11-11
vbs腳本和windows定時(shí)任務(wù)實(shí)現(xiàn)qq消息表情包定時(shí)發(fā)送功能
這篇文章主要介紹了vbs腳本和windows定時(shí)任務(wù)實(shí)現(xiàn)qq消息表情包定時(shí)發(fā)送,整個(gè)過程不用過多的程序運(yùn)行，我們借助vbs腳本和windows定時(shí)任務(wù)去實(shí)現(xiàn)這一功能，需要的朋友可以參考下
2022-01-01