VBS模拟系统托盘弹出消息

‰悔★恨№

nScrW= createobject(\"htmlfile\").parentWindow.screen.availWidth
nScrHt= createobject(\"htmlfile\").parentWindow.screen.availHeight

set roIe= Wscript.createobject(\"internetExplorer.application\",\"IE_\")
roIe.navigate(\"about:blank\")
do
wscript.sleep 50
loop until roIe.readyState=4

with roIe
'.fullScreen= true

.resizable= false
.width= 320+30
.height= 195+30
.left= (nScrW -(320+30))
.top= nScrHt
'.RegisterAsDropTarget = False
.Resizable = False


'Do Until .ReadyState = 4 : WScript.Sleep 100 : Loop

.document.open

.document.write \"...HTML内容省略...\"
.Document.Title = \"消息\"
.document.close

Do Until .ReadyState = 4 : WScript.Sleep 100 : Loop

.toolbar = false
.statusBar = false
.addressBar = false
.visible= true
end with
CreateObject(\"Wscript.Shell\").Appactivate roIe.Document.Title & \" - \"
For i = nScrHt To nScrHt-(195+30) Step -1
roIe.top= i
wscript.sleep 10
Next
wscript.sleep 20000
roIe.quit
set roIe = Nothing

Sub IE_OnQuit()
Wscript.quit
End Sub

lilangsbyvc

这个写的好，谢谢楼主，费心了，我收藏了