请问最简单的局域网短信息传送方法?要求使用最简单

Question

不用了吧！呵呵，在DOS下面输入： net send thygw 明天放假！就可以给 thygw 发送一条“明天放假”的消息，多块，多简单！呵呵！

Answer 1

网络游戏一般使用udp,作个winpop比较简单.

Answer 2

net send thygw 可以和98下的winpop之间通信

Answer 3

Good idea!
But not safe
How to program using the simplest method?

Answer 4

命令行下：
net send yourPCName "Hi, Will you luck."

Answer 5

winexec('net send * test',  SW_HIDE );//向整个域发消息
winexec('net send 102.168.0.1 test',  SW_HIDE );//向192。168。0。`1发消息

Answer 6

我都想做类似的东西，
只是别人net send 过来后我的程序不知道怎么截取
消息，用自己的显示框跳出来提示信息，请各位多执教

Answer 7

我来帮你！：）
//----------net send 源代码-------------
得装RX组件包
//-----------Unit1.pas--------------
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ShellAPI, iniFiles,StdCtrls, Placemnt;type
  TForm1 = class(TForm)
    Button1: TButton;
    user: TComboBox;
    FormStorage1: TFormStorage;
    od: TOpenDialog;
    Button2: TButton;
    Memo1: TMemo;
    Label1: TLabel;
    Label2: TLabel;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure userKeyPress(Sender: TObject; var Key: Char);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;
  Path: string;
  ini: TIniFile;
implementation{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);
begin
  if user.text = '' then begin
    ShowMessage('想发给谁呀？:o');
    exit;
  end;
  if Memo1.text = '' then begin
    ShowMessage('您想说什么？:o');
    exit;
  end;
  ShellExecute(handle,nil,'net', pchar(' send ' + user.text + ' ''' +  Memo1.Lines.text + ''''),'',SW_HIDE);
  Memo1.Lines.Clear;
  if (user.Items.IndexOf(user.text) = -1) and (user.text <> '') then
    user.items.Add(user.text);end;procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  {if user.text = ''  then exit;
  ini := TiniFile.Create(Path + 'chat.ini');
  try
    if ini.ReadString('users', user.text,'') <> '' then
      ini.WriteString('users', user.text, user.text);
  finally
    ini.Free;
  end; }end;procedure TForm1.FormCreate(Sender: TObject);
begin
  Path:= ExtractFilepath(Application.ExeName);
  FormStorage1.IniFileName:= Path + 'chat.ini'; 
end;procedure TForm1.userKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then Button1.Click;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
  if od.execute then Memo1.Lines.loadFromFile(od.FileName);
end;procedure TForm1.Button3Click(Sender: TObject);
begin
  close;
end;end.
//------------unit1.dfm----------
object Form1: TForm1
  Left = 192
  Top = 107
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = '聊天小精灵'
  ClientHeight = 172
  ClientWidth = 444
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 352
    Top = 13
    Width = 72
    Height = 13
    Caption = '信息发送给：'
  end
  object Label2: TLabel
    Left = 16
    Top = 13
    Width = 36
    Height = 13
    Caption = '信息：'
  end
  object Button1: TButton
    Left = 352
    Top = 75
    Width = 75
    Height = 25
    Caption = '发送'
    TabOrder = 0
    OnClick = Button1Click
  end
  object Memo1: TMemo
    Left = 16
    Top = 40
    Width = 281
    Height = 121
    TabOrder = 1
  end
  object user: TComboBox
    Left = 330
    Top = 42
    Width = 97
    Height = 21
    ItemHeight = 13
    TabOrder = 2
    OnKeyPress = userKeyPress
  end
  object Button2: TButton
    Left = 352
    Top = 104
    Width = 75
    Height = 25
    Caption = '装入'
    TabOrder = 3
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 352
    Top = 137
    Width = 75
    Height = 25
    Caption = '退出'
    TabOrder = 4
    OnClick = Button3Click
  end
  object FormStorage1: TFormStorage
    StoredProps.Strings = (
      'user.Items')
    StoredValues = <>
    Left = 248
    Top = 72
  end
  object od: TOpenDialog
    Filter = '文本文件(*.txt)|*.txt|所有文件(*.*)|*.*'
    Left = 168
    Top = 64
  end
end

Answer 8

数据驿站有iMobile短信发送程序ASP原码下载，有在线演示。
http://www.dbstep.com 产品信息栏里
还有局域网信息发送的程序iNetSend,都有.