如何通过IP向对方发送文字信息？

Question

请教各位高手：在已知对方IP的情况下，如何才能发送一段文字信息，并在对方的屏幕上弹出一个窗口显示其内容？如果对方不是独立联网而是在局域网内的话，是否也能同样发挥作用？

Answer 1

不知道你在说什么。
你可以用QQ，MSN，YM什么的。
对于NT系统（包含2000，xp），可以用 NET SEND 命令
对于9x系统（包含me），你用wimpopup可以。

Answer 2

用WinSock控件可以实现，在客户端接收到消息后，用程序弹出窗口即可

Answer 3

Private Sub Command1_Click()
    Shell "net send ComputerName MessageDetail"
End Sub

Answer 4

'模块
Public Const NERR_Success As Long = 0&Public Declare Function NetMessageBufferSend Lib "NETAPI32.DLL" (Server As Any, yToName As Byte, yFromName As Any, yMsg As Byte, ByVal lSize As Long) As Long
Public Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As LongPublic Const MAX_RESOURCES = 256
Public Const NOT_A_CONTAINER = -1
Public Function Sendmsg(strTo As String, strFrom As String, strMessage As String) As Boolean
    Dim bytTo() As Byte
    Dim bytFrom() As Byte
    Dim bytMsg() As Byte
    Dim Name As String, Length As Long
    Length = 255
    Name = String(Length, 0)
    GetComputerName Name, Length
    Name = Left(Name, Length)
    bytTo = strTo & vbNullChar
    bytFrom = IIf(strFrom = "", Name, strFrom) & vbNullChar
    bytMsg = strMessage & vbNullChar
    Sendmsg = (NetMessageBufferSend(ByVal 0&, bytTo(0), ByVal 0&, bytMsg(0), UBound(bytMsg)) = NERR_Success)
End Function
'窗体
Private Sub Command1_Click()
    Sendmsg "ComputerFrom", "ComputerTO", "MessageDetail"
End Sub

Answer 5

我运行你给的模块，但出现下述错误，何故？
另外，对方的IP写在什么地方？错误提示：
实时错误'453'找不到DLL入口点 NetMessageBufferSand in NETAPI32.DLL

Answer 6

    Shell "net send  ip message"

Answer 7

有可能！重新用api view找找定义

Answer 8

我没有WINME，在我的2K上运行没有问题，你试试你的vb中的NetMessageBufferSend，如果没有，可能这个函数API不被winme支持，可能需要另外换办法

Answer 9

net send 192.168.0.1 "asdlfas"

Answer 10

lxcc:十分感谢您的帮助，我在试你给出的办法，到时我会给分的。

Answer 11

信使服务只能在NT核心的WINDOWS中使用的