rat

http://hi.baidu.com/umu618/blog/ ... 6c524ed1135e0a.html

Dim objHH


Set objHH = CreateObject("Internet.HHCtrl")

objHH.TextPopup "Click here to continue", "Fixedsys", 10, 10, vbRed, vbBlack

WScript.Sleep 5000
Set objHH = Nothing

MsgBox "Quit......"
复制代码