Dim HTA: HTA = GetPath("%Temp%\" & FSO.GetTempName)
FSO.CreateTextFile(HTA).Write "<html><head><title>" & Mess(0) &_
"</title><meta http-equiv=X-UA-Compatible content=IE=11/><HTA:APPLICATION" &_
" icon=FXSRESM.dll BorderStyle=raised InnerBorder=no SingleInstance=yes/>" &_
"<style type=text/css> * {margin:0;padding:2;border:solid 0px menu;}body{" &_
"overflow:hidden;}textarea {background-color:transparent;resize:inherit;" &_
"position:absolute;overflow-x:hidden;overflow-y:auto;width:100%;height:100"&_
"%;}</style><script type=text/jscript language=JScript>W=self.screen.avail"&_
"Width;H=self.screen.availHeight;self.moveTo(W*3/16,H*3/16);self.resizeTo" &_
"(W*5/8,H*5/8);document.onkeydown=function(){if(event.keyCode==27)self." &_
"close();if(event.keyCode==13){if(window.screenX==0){self.moveTo(W*3/16,H" &_
"*3/16);self.resizeTo(W*5/8,H*5/8);}else{self.moveTo(0,0);self.resizeTo(W" &_
",H);}}}</script></head><body bgcolor=menu><textarea rows=30 cols=60 wrap" &_
"=hard autofocus readonly>" & Mess(9) & Msg & "</textarea></body></html>"
WSH.Run "%WINDIR%\SYSTEM32\mshta.exe " & HTA,, True : FSO.GetFile(HTA).Delete |