奇思妙想，用VBS打造特定鍵結束的「螢幕保護程式」

psac · 2006-04-04, 02:51 PM

寫了個立即關閉顯示器的好軟體，非常好用，唯一有點遺憾的是不能設定按下特定鍵時才能結束

懵懵懂懂之餘，突然想起可以用VBS使用InternetExplorer.Application對象，變相的來實現這一功能

程式碼很簡單，如下:
程式碼:
Option Explicit

Call CloseMonitor()

Function CloseMonitor()
On Error Resume Next
Dim IE, doc, dtTime

Set IE = CreateObject("InternetExplorer.Application")
If IE Is Nothing Then : Exit Function : End If

IE.FullScreen = True : IE.Offline = True : IE.ToolBar = False
IE.Silent = True : IE.Navigate "about:blank"

dtTime = Now
Do While IE.Busy
Wscript.Sleep 100
If (dtTime + 5/24/60/60) < Now Then : IE.Quit : Exit Function : End If
Loop

Set doc = Nothing
dtTime = Now
Do Until Not doc Is Nothing
Wscript.Sleep 100
Set doc = IE.Document
If (dtTime + 5/24/60/60) < Now Then : IE.Quit : Exit Function : End If
Loop

doc.Write "<html><head><script>"
doc.Write "function IEEvaluateKeyInput() {"
doc.Write " var keyChar = event.keyCode;"
doc.Write " if (keyChar == 10 || keyChar == 13) window.close();}"
doc.Write "window.document.onkeypress = IEEvaluateKeyInput;"
doc.Write "</script></head><body bgcolor=#000000 scroll=no></body></html>"

IE.Visible = True

Wscript.Sleep 100
If (doc Is Nothing) Or (Err.Number <> 0) Then : IE.Quit : Exit Function : End If
WScript.Quit
End Function
點擊執行，敲Enter鍵鍵結束
這樣只是顯示黑色熒屏，實際上還是沒有關閉顯示器，如果是LCD的話燈管還是亮著的。
可也說勿是螢幕保護程式 ..沒API .玩而以
VBS的指令碼編寫教學哪裡有？想學學

微軟指令碼中心 _http://www.microsoft.com/china/technet/community/scriptcenter/default.mspx

2006-04-04, 02:51 PM	#1 (permalink)
psac 榮譽會員榮譽勳章勳章總數19 UID - 3662 在線等級: 註冊日期: 2002-12-07 住址: 木柵市立動物園文章: 17381 精華: 2 現金: 5253 金幣資產: 33853 金幣	奇思妙想，用VBS打造特定鍵結束的「螢幕保護程式」寫了個立即關閉顯示器的好軟體，非常好用，唯一有點遺憾的是不能設定按下特定鍵時才能結束懵懵懂懂之餘，突然想起可以用VBS使用InternetExplorer.Application對象，變相的來實現這一功能程式碼很簡單，如下: 程式碼: Option Explicit Call CloseMonitor() Function CloseMonitor() On Error Resume Next Dim IE, doc, dtTime Set IE = CreateObject("InternetExplorer.Application") If IE Is Nothing Then : Exit Function : End If IE.FullScreen = True : IE.Offline = True : IE.ToolBar = False IE.Silent = True : IE.Navigate "about:blank" dtTime = Now Do While IE.Busy Wscript.Sleep 100 If (dtTime + 5/24/60/60) < Now Then : IE.Quit : Exit Function : End If Loop Set doc = Nothing dtTime = Now Do Until Not doc Is Nothing Wscript.Sleep 100 Set doc = IE.Document If (dtTime + 5/24/60/60) < Now Then : IE.Quit : Exit Function : End If Loop doc.Write "<html><head><script>" doc.Write "function IEEvaluateKeyInput() {" doc.Write " var keyChar = event.keyCode;" doc.Write " if (keyChar == 10 \|\| keyChar == 13) window.close();}" doc.Write "window.document.onkeypress = IEEvaluateKeyInput;" doc.Write "</script></head><body bgcolor=#000000 scroll=no></body></html>" IE.Visible = True Wscript.Sleep 100 If (doc Is Nothing) Or (Err.Number <> 0) Then : IE.Quit : Exit Function : End If WScript.Quit End Function 點擊執行，敲Enter鍵鍵結束這樣只是顯示黑色熒屏，實際上還是沒有關閉顯示器，如果是LCD的話燈管還是亮著的。可也說勿是螢幕保護程式 ..沒API .玩而以 VBS的指令碼編寫教學哪裡有？想學學微軟指令碼中心 _http://www.microsoft.com/china/technet/community/scriptcenter/default.mspx
	__________________
	送花文章: 3, 收花文章: 1631 篇, 收花: 3205 次

Google 提供的廣告