XProfan

cls
declare h_html&,s$
s$:="Diese Daten wurden über Post versandt."
s$:="<form name=qform1q action=qhttps://xprofan.com/testarea/form.phpq method=qpostq><textarea style=qwidth:1px;height:1pxq name=qmessageq>"+s$+"</textarea><input style=qwidth:1px;height:1pxq type=qsubmitq/></form>
<script type=qtext/javascriptq>
<!--

function doo() {;

    ;document.form1.submit();

}

;setTimeout(qdoo()q,50)
-->
</script>"
assign #1,"temp.html"
rewrite #1
print #1,s$
close #1
h_html&:=createhtmlbox(%hwnd,getdir$("@")+"\temp.html",0,0,width(%hwnd),height(%hwnd))
waitinput
end