alias -l addjs {
bset -t &example $calc(1 + $bvar(&example,0)) $1-
}
alias example {
addjs example=function(){
addjs var request = new ActiveXObject('MSXML2.SERVERXMLHTTP.6.0');
addjs request.open('GET', 'https://forums.mirc.com/ubbthreads.php/forum_summary', true);
addjs request.send();
addjs request.waitForResponse(60);
addjs if (request.readyState == 4) return "Done";
addjs request.abort();
addjs return "Timeout";
addjs };
var %js = example()
comopen example MSScriptControl.ScriptControl
echo -a Language: $com(example, language, 4, bstr, jscript)
echo -a JS Load : $com(example, ExecuteStatement, 1, &bstr, &example)
.timer -iom 1 0 echo -a Timer Triggered
echo -a Calling function
echo -a Called: $com(example, eval, 1, bstr, %js) $com(example).result
comclose example
}