一个RTX中的事例！用VBS写的！本身菜鸟看不懂！哪位仁兄能帮忙改成JS的啊？

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<title>发送消息提醒</title>
<meta content="VBScript" name="vs_defaultClientScript">
<meta content="Microsoft Visual Studio.NET 7.0" name="GENERATOR">
<meta content="http://schemas.microsoft.com/intellisense/ie5" name="vs_targetSchema">
<script language="vbscript" id="clientEventHandlersVBS">
<!--
dim RTXObj
dim RTXParams
dim RTXResultSub btnSend_onclick
    txtResult.value = ""
    RTXResult = ""    RTXObj.Name = "SYSTOOLS"    RTXParams.Remove "SENDMODE"    RTXParams.Add "USERNAME", txtReceiver.value
    RTXParams.Add "MSGINFO", txtMsg.value
    RTXParams.Add "TITLE", txtTitle.value
    RTXParams.Add "MSGID", "1234567"
    RTXParams.Add "ASSTYPE", "0"
    RTXParams.Add "DELAYTIME", txtDelayTime.value    if chkType.status <> "True" then
      RTXParams.Add "TYPE", 0
    else
      RTXParams.Add "TYPE", 1
    end if   iSendMode = 0
  if chkAllUser.status = "True" then
    If MsgBox("真的发送消息给所有的人吗", vbYesNo + vbQuestion + vbDefaultButton2, "提示") = vbYes Then
iSendMode = iSendMode + &H1
else
    chkAllUser.status = "False"
    End If
  end if
   if iSendMode > 0 then
     iSendMode = iSendMode + &H10 '需要查询状态
     RTXParams.Add "SENDMODE", iSendMode
   end if
   On error resume next
   RTXResult = RTXobj.Call2( &H2100, RTXParams)
   if( err.number < 0) then
     txtResult.value = err.Description
   else
     txtResult.value = "操作成功"
   end ifEnd SubSub window_onload
  txtResult.value = ""
  txtDelayTime.value = 100
  txtMsg.value = "打搅了,这仅是测试内容"
  txtTitle.value = "标题"
  Set RTXObj =  CreateObject("rtxserver.rtxobj")
  Set RTXParams = CreateObject("rtxserver.collection")
End Sub-->
</script>
</head>
<body bgColor="#6699cc">
<FONT language="vbscript" color="#3399cc">
<DIV id="DIV2" style="WIDTH: 613px; COLOR: blue; POSITION: relative; HEIGHT: 477px; BACKGROUND-COLOR: scrollbar" ms_positioning="GridLayout">
<DIV id="DIV1" style="DISPLAY: inline; Z-INDEX: 100; LEFT: 55px; WIDTH: 362px; POSITION: absolute; TOP: 8px; HEIGHT: 55px" ms_positioning="FlowLayout"><FONT face="宋体" color="buttontext" size="7"><STRONG>RTX
腾讯通 SDK</STRONG></FONT></DIV>
<DIV id="DIV3" style="Z-INDEX: 104; LEFT: 8px; WIDTH: 570px; POSITION: absolute; TOP: 45px; HEIGHT: 422px" ms_positioning="GridLayout">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<DIV style="DISPLAY: inline; Z-INDEX: 102; LEFT: 21px; WIDTH: 110px; POSITION: absolute; TOP: 336px; HEIGHT: 14px" ms_positioning="FlowLayout"><FONT color="buttontext" size="2">执行结果：</FONT></DIV>
<DIV style="DISPLAY: inline; Z-INDEX: 106; LEFT: 21px; WIDTH: 426px; POSITION: absolute; TOP: 33px; HEIGHT: 30px" ms_positioning="FlowLayout"><FONT face="宋体" color="buttontext" size="2">接收者(RTX用户名称或者用户号码均可，多人中间用","间隔,&nbsp;不存在的接收者将被忽略&nbsp;）:</FONT></DIV>
<DIV style="DISPLAY: inline; Z-INDEX: 108; LEFT: 22px; WIDTH: 110px; POSITION: absolute; TOP: 168px; HEIGHT: 14px" ms_positioning="FlowLayout"><FONT color="buttontext" size="2">消息内容：</FONT></DIV>
<DIV style="DISPLAY: inline; Z-INDEX: 110; LEFT: 40px; WIDTH: 56px; POSITION: absolute; TOP: 280px; HEIGHT: 15px" ms_positioning="FlowLayout"><FONT color="buttontext" size="2">紧急消息</FONT></DIV>
<DIV style="DISPLAY: inline; Z-INDEX: 111; LEFT: 21px; WIDTH: 110px; POSITION: absolute; TOP: 98px; HEIGHT: 6px" ms_positioning="FlowLayout"><FONT color="buttontext" size="2">消息标题：</FONT></DIV>
<DIV style="DISPLAY: inline; Z-INDEX: 112; LEFT: 40px; WIDTH: 136px; POSITION: absolute; TOP: 296px; HEIGHT: 14px" ms_positioning="FlowLayout"><FONT color="buttontext" size="2">给所有人发送消息</FONT></DIV>
<INPUT id="txtReceiver" style="Z-INDEX: 105; LEFT: 21px; WIDTH: 440px; POSITION: absolute; TOP: 65px; HEIGHT: 22px" type="text" size="68" name="txtReceiver">
<TEXTAREA id="txtTitle" style="Z-INDEX: 100; LEFT: 21px; WIDTH: 443px; POSITION: absolute; TOP: 118px; HEIGHT: 38px" name="txtTitle" rows="2" cols="52"> </TEXTAREA>
<TEXTAREA id="txtMsg" style="Z-INDEX: 107; LEFT: 21px; WIDTH: 443px; POSITION: absolute; TOP: 188px; HEIGHT: 62px" name="txtMsg" rows="4" cols="52"> </TEXTAREA>&nbsp;
<INPUT id="chkType" style="Z-INDEX: 109; LEFT: 16px; WIDTH: 25px; POSITION: absolute; TOP: 272px; HEIGHT: 20px" type="checkbox" value="" name="chkType">
<INPUT id="chkAllUser" style="Z-INDEX: 115; LEFT: 16px; WIDTH: 24px; POSITION: absolute; TOP: 288px; HEIGHT: 20px" type="checkbox" value="" name="chkAllUser">
<INPUT id="txtDelayTime" style="Z-INDEX: 117; LEFT: 392px; WIDTH: 64px; POSITION: absolute; TOP: 264px; HEIGHT: 16px" type="text" size="5" name="txtDelayTime">
<INPUT id="btnSend" style="Z-INDEX: 101; LEFT: 248px; WIDTH: 213px; POSITION: absolute; TOP: 320px; HEIGHT: 24px" type="button" value="发送消息提醒" name="btnSend">
<TEXTAREA id="txtResult" style="Z-INDEX: 103; LEFT: 21px; WIDTH: 443px; POSITION: absolute; TOP: 353px; HEIGHT: 69px" name="txtResult" rows="4" cols="52"></TEXTAREA>
<DIV style="DISPLAY: inline; Z-INDEX: 116; LEFT: 224px; WIDTH: 152px; POSITION: absolute; TOP: 264px; HEIGHT: 16px" ms_positioning="FlowLayout"><FONT color="buttontext" size="2">提醒界面停留时间(毫秒):</FONT></DIV>
</DIV>
</DIV>
</FONT>
</body>
</html>