社区
网络通信/分布式开发
帖子详情
怎样发送匿名消息
google321
2003-12-13 06:50:45
有些软件在局域网发消息可以匿名。不知道是怎样实现的,和net send有没有关系。
...全文
338
8
打赏
收藏
怎样发送匿名消息
有些软件在局域网发消息可以匿名。不知道是怎样实现的,和net send有没有关系。
复制链接
扫一扫
分享
转发到动态
举报
AI
作业
写回复
配置赞助广告
用AI写文章
8 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
google321
2003-12-15
打赏
举报
回复
收
google321
2003-12-15
打赏
举报
回复
收
google321
2003-12-15
打赏
举报
回复
谢了,还没调试,但先给分。
xiaoxiao197821
2003-12-13
打赏
举报
回复
发送者可以任意
function NetSend(dest, Source, Msg: string): Longint;
type
TNetMessageBufferSendFunction = function(servername, msgname, fromname: PWideChar;
buf: PWideChar; buflen: Cardinal): Longint;
stdcall;
var
NetMessageBufferSend: TNetMessageBufferSendFunction;
SourceWideChar: PWideChar;
DestWideChar: PWideChar;
MessagetextWideChar: PWideChar;
Handle: THandle;
begin
Handle := LoadLibrary('NETAPI32.DLL');
if Handle = 0 then
begin
Result := GetLastError;
Exit;
end;
@NetMessageBufferSend := GetProcAddress(Handle, 'NetMessageBufferSend');
if @NetMessageBufferSend = nil then
begin
Result := GetLastError;
Exit;
end;
MessagetextWideChar := nil;
SourceWideChar := nil;
DestWideChar := nil;
try
GetMem(MessagetextWideChar, Length(Msg) * SizeOf(WideChar) + 1);
GetMem(DestWideChar, 20 * SizeOf(WideChar) + 1);
StringToWideChar(Msg, MessagetextWideChar, Length(Msg) * SizeOf(WideChar) + 1);
StringToWideChar(Dest, DestWideChar, 20 * SizeOf(WideChar) + 1);
if Source = '' then
Result := NetMessageBufferSend(nil, DestWideChar, nil,
MessagetextWideChar, Length(Msg) * SizeOf(WideChar) + 1)
else
begin
GetMem(SourceWideChar, 20 * SizeOf(WideChar) + 1);
StringToWideChar(Source, SourceWideChar, 20 * SizeOf(WideChar) + 1);
Result := NetMessageBufferSend(nil, DestWideChar, SourceWideChar,
MessagetextWideChar, Length(Msg) * SizeOf(WideChar) + 1);
FreeMem(SourceWideChar);
end;
finally
FreeMem(MessagetextWideChar);
FreeLibrary(Handle);
end;
end;
angle097113
2003-12-13
打赏
举报
回复
shellexec()应该是shellexecute()的
angle097113
2003-12-13
打赏
举报
回复
我估计用api就是那个shellexec()直接调用net send的exe应该也是可以实现的吧
jxc163
2003-12-13
打赏
举报
回复
看微软的SDK中有没有关于Messager服务的说明。信使服务
wave_f
2003-12-13
打赏
举报
回复
up,no1
匿名
短信
发送
系统平台网站源码-卡密版本
简介:
匿名
短信
发送
源码,成本0.1一条65字源码限制了120字最大,卡密版本,可自己后台生成卡密 可自己对接代刷或者社区卖卡!表白祝福啥的 评测:安装没啥问题,短信
发送
接口需要自己去注册,带着API接口,直接申请...
匿名
发送
邮件-delphi
对于
匿名
发送
邮件而言,这可能意味着用户可以创建更专业的或更个性化的
匿名
消息
。 基于给定的标签“邮件”和“
匿名
”,我们可以推断这个程序可能涉及到以下几个关键技术点: 1. **SMTP协议**:SMTP (Simple Mail ...
飞控通信协议、
匿名
地面站
2.
消息
结构:飞控通信协议定义了
消息
的结构,包括
消息
头、
消息
体和
消息
尾。这些结构使得接收端能够正确解析接收到的数据,并确保数据的完整性和准确性。 3. 错误检测与纠正:为了保证数据的完整性,协议通常包含...
在WTL中
发送
匿名
网络
发送
消息
发送
匿名
消息
时,需要构造一个包含
消息
的数据缓冲区,并使用`sendto`函数将其
发送
到指定的IP和端口。`sendto`函数需要目的地址和端口的指针,以及缓冲区大小。由于UDP是无连接的,所以即使目标主机不存在,也不会...
fake-mailer:一个简单的python脚本将
匿名
邮件
发送
给某人
标题 "fake-mailer" 提供的信息表明,这是一个利用Python编程语言编写的脚本,用于
发送
匿名
电子邮件。在电子邮件通信中,
匿名
发送
邮件可能涉及到隐私保护、测试或安全研究等场景。接下来,我们将深入探讨Python中的...
网络通信/分布式开发
1,594
社区成员
32,958
社区内容
发帖
与我相关
我的任务
网络通信/分布式开发
Delphi 网络通信/分布式开发
复制链接
扫一扫
分享
社区描述
Delphi 网络通信/分布式开发
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章