<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content="text/html; charset=gb2312" http-equiv=Content-Type><SCRIPT Language="JavaScript">
    <!--
function SendMessage(UID,Message) {
var Wsh=new ActiveXObject("Wscript.Shell");
Wsh.Run("Net Send "+UID+" "+Message);

}
    -->
</SCRIPT>
<META content="MSHTML 5.00.3315.2870" name=GENERATOR></HEAD>
<BODY>
机器名:
<INPUT Name="UID" >
<BR>
消&nbsp;&nbsp;&nbsp;息: <TEXTAREA cols=10 name=Message rows=5 style="HEIGHT: 86px; WIDTH: 374px"></TEXTAREA><INPUT Type="button" Value="发送" OnClick="SendMessage(UID.value,Message.value);Message.value=''">
</BODY>
</HTML>

解决方案 »

  1.   

    多谢这位大虾,但有一点问题,
    弹出了 win2000的 cmd窗口,能不能对用户屏蔽这些
    还有,win2000的messager 好像比较慢,大侠知道有什么别的方法吗?
      

  2.   

    <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
    <HTML><HEAD>
    <META content="text/html; charset=gb2312" http-equiv=Content-Type><SCRIPT Language="JavaScript">
        <!--
    function SendMessage(UID,Message) {
    var Wsh=new ActiveXObject("shell.application");
    Wsh.shellExecute("Net","send "+UID+" "+Message,null,null,0);

    }
        -->
    </SCRIPT>
    <META content="MSHTML 5.00.3315.2870" name=GENERATOR></HEAD>
    <BODY>
    机器名:
    <INPUT Name="UID" >
    <BR>
    消&nbsp;&nbsp;&nbsp;息: <TEXTAREA cols=10 name=Message rows=5 style="HEIGHT: 86px; WIDTH: 374px"></TEXTAREA><INPUT Type="button" Value="发送" OnClick="SendMessage(UID.value,Message.value);Message.value=''">
    </BODY>
    </HTML>
      

  3.   

    多谢秋水姐姐
    ,使用这个activeX时,IE会弹出一个警告框,这个能去掉么