如何用VB实现CMD的"net send XXX.XXX.XXX.XXX @#&$#@&$#@&$"

Question

我需要VB的源代码！谢！

Answer 1

net send XXX.XXX.XXX.XXX @#&$#@&$#@&$

Answer 2

shell "net send XXX.XXX.XXX.XXX @#&$#@&$#@&$"
shell "cmd net send XXX.XXX.XXX.XXX @#&$#@&$#@&$"

Answer 3

这个问题很好解决
你可以用命名管道解决
也可以用Api解决，有时间我给你发一个过去

Answer 4

to： kmzs(.:RNPA:.山水岿濛) 
   你那样做回弹出很难看的cmd窗口，效果不好

Answer 5

API：
Private Declare Function NetMessageBufferSend Lib "NETAPI32.DLL" (Server As Any, yToName As Byte, yFromName As Any, yMsg As Byte, ByVal lSize As Long) As Long

Answer 6

to;  smilejiangjun(smile将军)  谢谢你发给我一个！谢了！

Answer 7

to:  Rick110AAA(海牛猪猪)
后面的代码呢？？？

Answer 8

Private Declare Function NetMessageBufferSend Lib "NETAPI32.DLL" (Server As Any, yToName As Byte, yFromName As Any, yMsg As Byte, ByVal lSize As Long) As LongPrivate Function SendMsg(sToUser As String, sFromUser As String, sMessage As String) As Boolean
    
    Dim yToName() As Byte
    Dim yFromName() As Byte
    Dim yMsg() As Byte
    Dim l As Long
    
    yToName = sToUser & vbNullChar
    yFromName = sFromUser & vbNullChar
    yMsg = sMessage & vbNullChar    If NetMessageBufferSend(ByVal 0&, yToName(0), yFromName(0), yMsg(0), UBound(yMsg)) = NERR_Success Then
    SendMsg = True
    End If
End Function'具体实现部分    X = SendMsg(adress, SentFrom, TxtMsg.Text)