我记得有个DOS命令 netstart(有可能不是),功能是向一个已知IP的电脑发送一条消息,在那台电脑里会出现个对话框,是个信使服务 请问如何用程序代码实现?

  • 主题发起人 主题发起人 葬月
  • 开始时间 开始时间
葬

葬月

Unregistered / Unconfirmed
GUEST, unregistred user!
我记得有个DOS命令 netstart(有可能不是),功能是向一个已知IP的电脑发送一条消息,在那台电脑里会出现个对话框,是个信使服务 请问如何用程序代码实现?(50分)<br />忘记是netstart 还是netsend 了
 
net send IP或机器名 消息内容
 
忘了说明，是NT或2000下才有 net.exe这个文件的
 
要对方启动 WINPOPU ，或是NT平台才行。
 
2000下 net 命令的一个用法
具体格式为：
net send 你要发送的IP 消息内容
net send all 消息内容
net send 工作组 消息内容

具体还有net use ,net start, net stop等等，是一个不错的工具，以前2000输入法帮助
BUG就是通过此命令进入电脑的
 
我是说在程序中怎么实现
procedure TForm1.Button1Click(Sender: TObject);
begin
//怎么写???就象千夫指4里面那样
end;
 
除非你能控制你的客户机，叫他们不能关闭Messenger服务
否则是没有用的，象我周围的机器，都把这个服务关掉了。[:)]
可以有两个方法，一是调用Net命令，一是使用API
两个都能在网上找到例子，用搜索引擎搜索一下吧。
 
废话...我知道是要用API函数,要是我自己去找资料的话,,那这里关掉算了
 
&gt;&gt;要是我自己去找资料的话,,那这里关掉算了


经典笑话！


&gt;&gt;要是我自己去找资料的话,,那这里关掉算了


经典笑话！
 
WINNT、2000 下有个 NET 指令，WINDOWS 9x 中有个 WinPopup 程式，是实现你所说的！
WINNT、2000 就是在 DOS 对话框中打入 NET 指令的！！！！！但接收方必须的 WINNT、2000
、LINUX 、UNIX 平台 或者是 WIN9X已启动了WinPopup程序！！！！！！！！！！！！
否则消息只会掉失。明白了吗？
 
&gt;废话...我知道是要用API函数,要是我自己去找资料的话,,那这里关掉算了
无话可说！
你把DFW当作是你的代码机器了？
只要把问题描述一下，然后DFW就会给你写好程序。
否则，这里就可以关掉了？


&gt;经典笑话！
[^][^][^]
 
使用mailsolt控件可以实现
 
下面是一个单元文件，你直接用SendMsg函数就可以了，有问题和我联系。

unit Unit2;
interface
uses SysUtils, Classes;

function ToUnicode(str:string;dest:PWideChar):integer;
function SendMsg(Toh,From,Msg:string):integer;
function NetMessageBufferSend(servername:PWideChar;
MsgName:PWideChar;
FromName:PWideChar;
Buf: PWideChar;
var BufLen:integer):integer;cdecl;
implementation
function ToUnicode(str:string;dest:PWideChar):integer;
var
len:integer;
begin
StringToWideChar(str,dest,len);
Result:=len;
end;


function NetMessageBufferSend; external 'netapi32.dll' name 'NetMessageBufferSend';

function SendMsg(Toh,From,Msg:string):integer;
var
ToName :array [0..64] of WideChar;
WMsgText:array [0..1000] of WideChar;
MsgLen, i:integer;
begin
for i := 0 to 64 do ToName := #0;
ToUnicode(Toh,ToName);
for i := 0 to 1000 do WMsgText := #0;
ToUnicode(Msg,WMsgText);
Result:=NetMessageBufferSend(nil,ToName,nil,@WMsgText,MsgLen);
end;

end.
 
补充一点：谁都没有义务去回答问题，只有虚心地去学习才是最重要的，有问题可以大家共同讨论，
发牢骚就不对了。
 
这个问题还是比较简单：
用Delphi编程的话要用到winexc(好像就是这个名字)函数，我没有安装Delphi，你可以到帮助中查一查，这个函数
有几个参数，要输入的就是要执行的exe文件的名称（cmd.exe 打开命令提示符），还有就是
执行该exe文件的参数（net send ...）,当然你也可以通过textbox输入。然后组装语句发送
试一试吧！
至于其他的空件实现我就不知道了
 
我没有别的意思,,,,
我既然到这里来提问题就说明我已经束手无策了,
如果哪位朋友知道, 告诉我我会感激不尽,
但也不用说些废话, 凡是在Windows下的所有程序都是用API函数
网上比我家还大,,当然有例子,可是在哪里呢?
我既然摆出分来,谁想得到这个分,谁愿意帮助我,高兴的话就告知我
我问了那么多问题,有几个有人能够回答的出?如果没有人回答得出,
我这点分又收不回来,根据大富翁的规则,只要有人回答,就不能删除贴子
分数就不能收回来, 虽然有人说的好听,说什么没有分也会帮忙解答,
但那是少数, 所以我恳请这里的高手, 除非你知道,否则别回复,没用的话还是别说
如果真的没有人知道我还可以把分收回,,你们说是不是
就象这个问题 题目明明说是如何用程序代码实现,
但前几位大哥还是没看清题目,
 
&gt;就象这个问题 题目明明说是如何用程序代码实现,
难道碰到这种问题就非要给出Pascal代码才算回答吗？ 说思路的就不行？
用API是程序代码实现， 用ShellExecute调用现成的Net.exe就不是程序代码实现了？

&gt;网上比我家还大,,当然有例子,可是在哪里呢?
网络大就当然有例子？ 开玩笑，照你这么说什么东西都可以在网上找了，还要我们写程序
做什么？ 至于我说网上有两个这种例子，那是因为以前我下载过，只是现在并不记得是在
哪了。刚刚找了一下，是在mantousoft.51.net上下载过，只不过现在上不去了。

&gt;凡是在Windows下的所有程序都是用API函数
那是你没听懂我的意思，说有API，也就是有专门的用于messenger的API，你在MSDN找一下
Messenger API就知道了。
 
delphi下提供的Chat演示程序不更好吗？
 
您必须登录或注册才可回复。

Similar threads

S
[转]ClientDataSet加上TDataSetProvider的数据保存问题
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
[转]ClientDataSet加上TDataSetProvider的数据保存问题
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
[原]希望OrangeUI有个好的开始
回复
0
查看
1K
DelphiTeacher的专栏
D
D
[原]OrangeUI－Delphi移动开发利器
回复
0
查看
2K
DelphiTeacher的专栏
D
D
[原]OrangeUI－Delphi移动开发利器
回复
0
查看
2K
DelphiTeacher的专栏
D
后退
顶部