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

名前

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

本文

もう修正してしまったんですけど、確かこんな感じだったと思います。

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

Private Declare Function GetComputerName Lib _
    "kernel32.dll" Alias "GetComputerNameA" _
    (ByVal lpBuffer As String, nSize As Long) _
        As Long

Public Function MessageSend(ByVal SndMsg As String, ByVal SndTo As String, Optional ByVal SndFrom As String = vbNullString) As Long
    Dim bySndTo() As Byte, bySndFrom() As Byte, bySndMsg() As Byte
    Dim lLen As Long
    
    '送信元の確認
    If Len(Trim$(SndFrom)) = 0 Then
        SndFrom = String$(50, vbNullChar)
        Call GetComputerName(SndFrom, Len(SndFrom))
        SndFrom = Left$(SndFrom, InStr(SndFrom, vbNullChar) - 1)
    End If
    
    '送信データ型の変換
    bySndTo = SndTo & vbNullChar
    bySndFrom = SndFrom & vbNullChar
    bySndMsg = SndMsg & vbNullChar
    
    ' メッセージを送信
    MessageSend = NetMessageBufferSend(0, bySndTo(0), bySndFrom(0), bySndMsg(0), LenB(SndMsg))
End Function

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

戻る