怎样向指定的ip发送消息?(50分)

  • 主题发起人 主题发起人 linke
  • 开始时间 开始时间
L

linke

Unregistered / Unconfirmed
GUEST, unregistred user!
我知道对方的ip,怎样发送一条消息给他,
并显示在它的屏幕上呢?多谢回答
 
你的给他装木马啊!否则恐怕不可以
 
首先对方要启动了某个程序来接受你的消息。
这种情况对方的机就是服务的概念。
可以用 socket 编程,在某端口监听消息。
 
如果对方为NT核心的系统就可以用:
NET SEND IP 你的信息
就可以发到对方的机器上了。不过对方的信使服务没关闭(系统默认是打开的)。
 
我想首先必须他要运行你的程序才行哟,就象大富翁论坛给在线的网友发消息,你必须得登陆
在大富翁论坛才行了。
另外 zhanggm说的也可以,不过你的IP要是通过网管出去的就不行,拨号的可以。
 
同意zhanggm的说法,一句话搞定:
Winexec(Pchar('net send IP strYourMsg'),SW_HIDE);// IP:对方IP,strYourMsg:你的消息
 
多谢各位高手指点阿,用socket功能
是可以实现的,但是要在别人的机器上
安装程序不太方便,而且对方也不一定
同意啊,有没有不管什么操作系统
都可以的啊?那个只能在2000下使用,
那如果对方试98就不能用了啊,现在
使用98的还是很多的阿!有什么好方法吗?
 
用net send 不行的就沒有辦法了!:)
除非黑他!
 
to tedit:
你好啊,我用你给的那一句话
怎么发布出去啊,我也是在2000下的啊,

Winexec(Pchar('net send 10.14.111.87 你好'),SW_HIDE);// 
是这样写吗?麻烦你写几个字,我马上给分
 
是啊,我的也不行啊,是什么原因啊?
说说吧,大虾!
 
对方的信使服务是否关了?
或者你到别的机器上试一下。
 
给你加分了!顺便问一下,
net send ip msg能不能用变量啊?
比方说我想根据tedit输入的ip地址和
消息发送,我试了一下,不行啊,也就是说
那个ip不是string 类型的,那是什么类型的呢?
msg又是什么类型的呢?
procedure TForm1.Button1Click(Sender: TObject);
var
ip,msg:string;
begin
ip:=edit1.Text;
msg:=edit2.Text;
Winexec(Pchar('net send ip msg'),SW_HIDE);//

end;
不行啊
 
Winexec(pchar('net send '+ ip + msg),SW_HIDE);//
我试了一下上面的程序,确实不行,有没有成功的,我也很想知道。
 
刚才又看了一下,犯了一个小错误,忘了加空格。
Winexec(pchar('net send '+ ip + ' ' + msg),SW_HIDE);//
搞定,各位可以试一试.
(send后面是有空格的)
 
后退
顶部