Forums Developers VB .NET SendMessage .. Updated Code

    Private Const WM_MCOMMAND As Integer = &H102 + 200
    Private Const FILE_MAP_ALL_ACCESS As Integer = &H1 Or &H2 Or &H4 Or &H8 Or &H10 Or &HF0000
    Private Const PAGE_READWRITE As Integer = &H4
    Private Const INVALID_HANDLE_VALUE As Integer = -1

    Declare Auto Function SendMessage Lib "user32" ( _
        ByVal hWnd As IntPtr, _
        ByVal Msg As Integer, _
        ByVal wParam As Integer, _
        ByVal lParam As Integer) As Integer

    Private Declare Auto Function CreateFileMapping Lib "kernel32" ( _
        ByVal hFile As Integer, _
        ByVal lpFileMappingAttributes As Integer, _
        ByVal flProtect As Integer, _
        ByVal dwMaximumSizeHigh As Integer, _
        ByVal dwMaximumSizeLow As Integer, _
        ByVal lpName As String) As IntPtr

    Declare Function MapViewOfFile Lib "kernel32" Alias "MapViewOfFile" ( _
        ByVal hFileMappingObject As IntPtr, _
        ByVal dwDesiredAccess As Integer, _
        ByVal dwFileOffsetHigh As Integer, _
        ByVal dwFileOffsetLow As Integer, _
        ByVal dwNumberOfBytesToMap As UIntPtr) As IntPtr

    Private Declare Auto Function wsprintf Lib "user32" ( _
        ByVal lpOut As IntPtr, _
        ByVal lpFmt As String) As Integer

    Private Declare Auto Function UnmapViewOfFile Lib "kernel32" ( _
        ByVal lpBaseAddress As IntPtr) As Boolean

    Public Declare Auto Function CloseHandle Lib "kernel32.dll" ( _
        ByVal hObject As IntPtr) As Boolean

    Function SendCommand(ByVal hwnd As IntPtr, ByVal command As String) As Boolean
        Dim hMapFile As IntPtr
        Dim mData As IntPtr
        Dim NumberOfBytes As UIntPtr

        Dim intWsprintf As Integer
        Dim intSendmessage As Integer

        ' hwnd = 459282
        ' command = "/msg XBN`grind test"

        ' Returns: 1684
        hMapFile = CreateFileMapping(INVALID_HANDLE_VALUE, 0, PAGE_READWRITE, 0, 4096, "mIRC")

        ' Returns: 72548352
        mData = MapViewOfFile(hMapFile, FILE_MAP_ALL_ACCESS, 0, 0, NumberOfBytes)

        ' Returns: 18
        intWsprintf = wsprintf(mData, command)

        ' Returns: 0
        intSendmessage = (SendMessage(hwnd, WM_MCOMMAND, 1, 0))

        ' Returns: False
        UnmapViewOfFile(mData)

        ' Returns: False
        CloseHandle(hMapFile)

        Return True
    End Function

Imports System
Imports System.Runtime.InteropServices
Imports System.Text
 
Namespace mIRC
 
    Public Class MemoryMappedFile
 
#Region " Declarations "
 
        <DllImport("Kernel32")> _
        Private Shared Function CloseHandle( _
            ByVal intPtrFileHandle As IntPtr) As Boolean
        End Function
 
        <DllImport("Kernel32", EntryPoint:="CreateFileMappingA")> _
        Private Shared Function CreateFileMapping( _
            ByVal hFile As IntPtr, _
            ByRef lpFileMappigAttributes As SECURITY_ATTRIBUTES, _
            ByVal flProtect As Int32, _
            ByVal dwMaximumSizeHigh As Int32, _
            ByVal dwMaximumSizeLow As Int32, _
            ByVal lpname As String) As IntPtr
        End Function
 
        <DllImport("Kernel32")> _
        Private Shared Function MapViewOfFile( _
            ByVal hFileMappingObject As IntPtr, _
            ByVal dwDesiredAccess As Int32, _
            ByVal dwFileOffsetHigh As Int32, _
            ByVal dwFileOffsetLow As Int32, _
            ByVal dwNumberOfBytesToMap As Int32) As IntPtr
        End Function
 
        <DllImport("Kernel32")> _
        Private Shared Function UnmapViewOfFile( _
            ByVal lpBaseAddress As IntPtr) As Int32
        End Function
 
        Private Const PAGE_READWRITE = 4
        Private Const FILE_MAP_ALL_ACCESS As Integer = &H1 Or &H2 Or &H4 Or &H8 Or &H10 Or &HF0000
 
        Private Structure SECURITY_ATTRIBUTES
            Const nLength As Int32 = 12
            Public lpSecurityDescriptor As Int32
            Public bInheritHandle As Int32
        End Structure
 
        Private intPtrFileHandle As New IntPtr(0)
 
#End Region
 
        Public Sub Open(ByVal Filename As String)
            If intPtrFileHandle.ToInt32 <> 0 Then
                MessageBox.Show("The object is already assigned a file", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
                Exit Sub
            End If
 
            Dim Security As New SECURITY_ATTRIBUTES
 
            intPtrFileHandle = CreateFileMapping(New IntPtr(-1), Security, PAGE_READWRITE, 0, 1024, Filename)
        End Sub
 
        Public Sub Close()
            If intPtrFileHandle.ToInt32 <> 0 Then
                CloseHandle(intPtrFileHandle)
 
                intPtrFileHandle = New IntPtr(0)
            End If
        End Sub
 
        Public Sub WriteString(ByVal Value As String)
            Dim intPtrMappingAddress As New IntPtr(0)
            Dim intLoop As Integer = 0
 
            If intPtrFileHandle.ToInt32 = 0 Then
                MessageBox.Show("No file to write to", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
                Exit Sub
            End If
 
            intPtrMappingAddress = MapViewOfFile(intPtrFileHandle, FILE_MAP_ALL_ACCESS, 0, 0, 0)
 
            If intPtrFileHandle.ToInt32 = 0 Then
                MessageBox.Show("Cannot write to the file", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
                Exit Sub
            End If
 
            Dim ByteArray() As Byte = Encoding.Default.GetBytes(Value & ControlChars.NullChar)
 
            For intLoop = 0 To ByteArray.Length - 1
                Marshal.WriteByte(intPtrMappingAddress, intLoop, ByteArray(intLoop))
            Next
 
            UnmapViewOfFile(intPtrMappingAddress)
        End Sub
 
    End Class
 
    Public Class Messaging
 
#Region " Declarations "
 
        <DllImport("User32.dll")> _
        Private Shared Function SendMessage( _
            ByVal Handle As Int32, _
            ByVal wMsg As Int32, _
            ByVal wParam As Int32, _
            ByVal lParam As Int32) As Int32
        End Function
 
        Public Enum EvaluationMethods
            Evaluate = 1
            Typed = 2
            TypedWithFloodProtection = 4
        End Enum
 
        Private Const WM_USER = &H400
        Private Const WM_MCOMMAND = WM_USER + 200
 
#End Region
 
        Public Function SendMessage(ByVal Handle As Integer, ByVal Command As String, Optional ByVal Method As EvaluationMethods = EvaluationMethods.Evaluate) As Boolean
            Dim objMemoryMappedFile As New mIRC.MemoryMappedFile
 
            objMemoryMappedFile.Open("mIRC")
 
            objMemoryMappedFile.WriteString(Command)
 
            SendMessage(Handle, WM_MCOMMAND, 1, 0)
 
            objMemoryMappedFile.Close()
        End Function
 
    End Class
 
End Namespace

        Dim mIRCObject As New mIRC.Messaging
 
        mIRCObject.SendMessage(708, "/echo -a Hello World", mIRC.Messaging.EvaluationMethods.Evaluate)