NetMessageBufferSendでメッセージを送った時に表示される自コンピュータ名を変更するには (ID:114606)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

はじめまして。早速質問なのですが、
NetMessageBufferSendを使い自PCから他PCへメッセージ
を送る場合、単純にメッセージを送信するだけなら下記
コードで問題なくできるのですが、メッセージを送った時に
表示される自PC名を違う名前で表示させたいのですが、
いろいろ試しましたがうまくいきません。
fromnameの指定の仕方が悪いのだと思うのですが、
どのように指定すればいいのでしょうか？

Declare Function NetMessageBufferSend Lib "netapi32.dll" _
   (ByVal servername As Long, _
    ByVal msgname As Long, _
    ByVal fromname As Long, _
    ByVal buf As Long, _
    ByVal buflen As Long) As Long

Private Sub Command1_Click()
   Call MsgSend(Text1.Text, Text2.Text)
End Sub

Private Sub MsgSend(ByVal strSendPc As String, _
                      ByVal strMessage As String)
 Dim lngRet       As Long
 Dim bytSendPC()  As Byte
 Dim bytMessage() As Byte
    
    bytSendPC = strSendPc & Chr(0)
    bytMessage = strMessage & Chr(0)
    lngRet = NetMessageBufferSend(0, _
                                  VarPtr(bytSendPC(0)), _
                                  0, _
                                  VarPtr(bytMessage(0)), _
                                  LenB(strMessage))
   If lngRet = 0 Then
      MsgBox "送信終了"
   Else
      MsgBox "送信失敗"
   End If
End Sub

←解決時は質問者本人がここをチェックしてください。

戻る