下载 >  网络技术 >  网络基础 > EasyMessage (NT下消息发送)

EasyMessage (NT下消息发送)

2004-07-30 上传大小:69KB
一个用于局域网的消息发送程序,你可以用它在局域网内向同网的计算机发送消息.其原理就是使用了WindowsNT的netsend命令,程序中使用的Access保存发送信息的纪录.
  最有意思的是,当你的朋友在热火朝天的打着星际的时候,你给他发个消息,嘿嘿
  因为用的是NT的命令,所以本程序只能在基于NT的操作系统中使用,也就是不能在Windows98下使用.
  由于是我的第一的Delphi程序,所以非常简单,包含源码,大家看了不要笑话我。

斑竹加:其实netsend这个dos命令,在Win32API中可以用NetMessageBufferSend()函数来实现,函数使用例子如下:
--------------------------------------------------------------
unit Unit2;

interface

uses
  Classes, SysUtils;

type
  Tmsg4nt = class(TThread)
  private
    zmsgname,zfromname,zbuf:string;
    zres:integer;
  protect
                            ed
    procedure Execute; override;
  public
    function NetMsgSend(msgname,fromname,buf:string):integer;
  end;

function NetMessageBufferSend(servername:PWideChar;
                              msgname:PWideChar;
                              fromname:PWideChar;
                              buf: PWideChar;
                              var buflen:integer):integer;cdecl;

implementation 

function NetMessageBufferSend; external  netapi32.dll  name  NetMessageBufferSend ;

function ToUnicode(str:string;dest:PWideChar):integer;
var
  len:integer;
begin
  StringToWideChar(str,dest,len);
  Result:=len;
end;

{ Tmsg4nt }

procedure Tmsg4nt.Execute;
const
  lname=64;
  lbuf=1024;
var
  msgname_:array [0..lname-1] of WideChar;
  buf_:array [0..lbuf-1] of WideChar;
  buflen_,i:Integer;
begin
  for i:=0 to lname-1 do msgname_[i]:=#0;
  ToUnicode(zmsgname,msgname_);
  for i:=0 to lbuf-1 do buf_[i]:=#0;
  ToUnicode(zbuf,buf_);
  zres:=NetMessageBufferSend(nil,msgname_,nil,@buf_,buflen_);
end;

function Tmsg4nt.NetMsgSend(msgname, fromname, buf: string):integer;
begin
  zmsgname:=msgname;
  zfromname:=fromname;
  zbuf:=buf;
  Execute;
  result:=zres;
end;

end.                        
...展开收缩
综合评分:0(48位用户评分)
开通VIP C币充值 立即下载

评论共有0条

登录后才能评论

 
EasyMessage (NT下消息发送) 立即下载
积分/C币:3
内核解惑:zw函数和nt函数的区别
日文操作系统下的消息发送工具IPMSG 立即下载
积分/C币:3
安装好Discuz!NT论坛后首页是一片空白!解决办法
Window NT系列技术方案(DOC) 立即下载
积分/C币:3
windowsNT3.5服务器操作系统 立即下载
积分/C币:3
VC6.0 聊天室系统 c++源码 立即下载
积分/C币:3
电脑太卡之NT kernel & System
NT式驱动和WDM式驱动程序
局域网消息发送程序.rar 立即下载
积分/C币:3
关闭
img

spring mvc+mybatis+mysql+maven+bootstrap 整合实现增删查改简单实例.zip

资源所需积分/C币 当前拥有积分 当前拥有C币
5 0 0
点击完成任务获取下载码
输入下载码
为了良好体验,不建议使用迅雷下载
img

EasyMessage (NT下消息发送)

会员到期时间: 剩余下载个数: 剩余C币: 剩余积分:0
为了良好体验,不建议使用迅雷下载
VIP下载
您今日下载次数已达上限(为了良好下载体验及使用,每位用户24小时之内最多可下载20个资源)

积分不足!

资源所需积分/C币 当前拥有积分
您可以选择
开通VIP
4000万
程序员的必选
600万
绿色安全资源
现在开通
立省522元
或者
购买C币兑换积分 C币抽奖
img

资源所需积分/C币 当前拥有积分 当前拥有C币
5 4 45
(仅够下载10个资源)
为了良好体验,不建议使用迅雷下载
确认下载
img

资源所需积分/C币 当前拥有积分 当前拥有C币
5 0 0
为了良好体验,不建议使用迅雷下载
C币充值 开通VIP
img

资源所需积分/C币 当前拥有积分 当前拥有C币
5 4 45
您的积分不足,将扣除 10 C币
为了良好体验,不建议使用迅雷下载
确认下载
下载

兑换成功

你当前的下载分为234开始下载资源
你还不是VIP会员
开通VIP会员权限,免积分下载
立即开通

你下载资源过于频繁,请输入验证码

您因违反CSDN下载频道规则而被锁定帐户,如有疑问,请联络:webmaster@csdn.net!

举报

若举报审核通过,可返还被扣除的积分

  • 举报人:
  • 被举报人:
  • 举报的资源分:
  • *类型:
  • *详细原因: