回复 2# 谐夜落风
这种？？- nsw= createobject("htmlfile").parentWindow.screen.availWidth
- nsh= createobject("htmlfile").parentWindow.screen.availHeight
- Set WshShell = CreateObject("WScript.Shell")
- Dim OIE
- Set OIE = CreateObject("InternetExplorer.Application")
- With OIE
- .left=nsw-300
- .top=nsh
- .height=200
- .width=300
- .menubar=0
- .toolbar=0
- .statusBar=0
- .navigate "About:Blank"
- .visible=1
- End With
- 'wait a while until IE as finished to load
- Do while OIE.busy
- loop
- With OIE.document
- .Open
- .WriteLn "<HTML><HEAD>"
- .WriteLn "<TITLE>批处理之家</TITLE></HEAD>"
- .WriteLn "<BODY>"
- .WriteLn "<b>批处理之家 </b>"
- .WriteLn "<h1> <font color=red> 右下角弹窗! </h1>"
- .WriteLn "</BODY>"
- .WriteLn "</HTML>"
- .Close
- End With
- do while oie.top>nsh-oie.Height
- oie.top=oie.top-2
- Loop
- wscript.sleep 5000
- WshShell.run "taskkill /f /im iexplore.exe",vbhide
- Set WshShell = Nothing
| 
发表于 2023-1-18 11:04
|