Shoutbox

code:

---

Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function SendMessageLong& Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long)
Public Const WM_CLOSE = &H10

Public Function closeAll()
Dim imwindowclass As Long
10  imwindowclass = FindWindow("imwindowclass", vbNullString)
    If imwindowclass <> 0 Then
        Call SendMessageLong(imwindowclass, WM_CLOSE, 0&, 0&)
        GoTo 10
    Else: Exit Function
    End If
End Function

---

quote:

---

Originally posted by Dempsey
MessengerPlus_PluginChange works fine for me from VB

---

code:

---

'Declarations
Public Declare Function RegisterWindowMessage Lib "user32" Alias "RegisterWindowMessageA" (ByVal lpString As String) As Long
Public Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Const HWND_BROADCAST = &HFFFF&
Public nMsg As Long


'Code used to reload plugins
    nMsg = RegisterWindowMessage("MessengerPlus_PluginChange")
    PostMessage HWND_BROADCAST, nMsg, 0, 0

---

quote:

---

Originally posted by Matty.

code:

---

Public Function closeAll()
Dim imwindowclass As Long
10  imwindowclass = FindWindow("imwindowclass", vbNullString)
    If imwindowclass <> 0 Then
        Call SendMessageLong(imwindowclass, WM_CLOSE, 0&, 0&)
        GoTo 10
    Else: Exit Function
    End If
End Function

---

---

code:

---

Public Function closeAll()
Dim imwindowclass As Long
imwindowclass = FindWindow("imwindowclass", vbNullString)
While imwindowclass <> 0
        Call SendMessageLong(imwindowclass, WM_CLOSE, 0&, 0&)
        imwindowclass = FindWindow("imwindowclass", vbNullString)
Wend
End Function

---

code:

---

Private Sub cmd_install_Click()
    Dim PluginDir As String
   
    PluginDir = QueryValue("SOFTWARE\Patchou\MsgPlus2", "PluginDir", True)
    If PluginDir <> "" Then
        If FileLen(PluginDir & "\ReversePlugin.dll") > 0 Then
            If MsgBox(text("overwrite"), vbYesNo + vbExclamation, text("overwrite_title")) = vbNo Then
                rc = MsgBox(text("installation_aborted"), vbInformation, text("installation_aborted_title"))
                Exit Sub
            End If
        End If
        If Sendmsg("MessengerPlus_PluginChange") Then
            label.Caption = text("copying")
            Call WriteFile(PluginDir & "\ReversePlugin.dll", FileString())
        Else
            rc = MsgBox(text("close_messenger"), vbCritical, text("close_messenger_title"))
        End If
    Else
        rc = MsgBox(text("no_msg_plus"), vbCritical, text("no_msg_plus_title"))
    End If
End Sub

---

code:

---

Public Declare Function RegisterWindowMessage Lib "user32" Alias "RegisterWindowMessageA" (ByVal lpString As String) As Long
Public Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Const HWND_BROADCAST = &HFFFF&
Public nMsg As Long

Public Function Sendmsg(strMessage As String) As Boolean
    nMsg = RegisterWindowMessage(strMessage)
    Sendmsg = PostMessage(HWND_BROADCAST, nMsg, 0, 0)
End Function

---

quote:

---

Originally posted by J-Thread
Public Declare Function RegisterWindowMessage Lib "user32" Alias "RegisterWindowMessageA" (ByVal lpString As String) As Long

---

code:

---

Public Declare Function RegisterWindowMessage Lib "user32" Alias "RegisterWindowMessageW" (ByVal lpString As String) As Long

---

quote:

---

Originally posted by J-Thread
Public Function Sendmsg(strMessage As String) As Boolean
    nMsg = RegisterWindowMessage(strMessage)
    Sendmsg = PostMessage(HWND_BROADCAST, nMsg, 0, 0)
End Function

---

code:

---

Public Function Sendmsg(strMessage As String) As Boolean
    nMsg = RegisterWindowMessage(StrConv(strMessage, vbFromUnicode))
    Sendmsg = PostMessage(HWND_BROADCAST, nMsg, 0, 0)
End Function

---

quote:

---

Originally posted by J-Thread
The text() function is a function to display the text. The function is not totally done, after copying there has to be more, but that isn't done yet. And this is where it ends...

---

code:

---

Publuc Enum e_texts
   overwrite
   overwrite_title
   installation_aborted
   installation_aborted_title
   ' etc......
   ' etc......
   ' etc......
End Enum

---

code:

---

text(overwrite)
' or
text(overwrite_title)

---

code:

---

Public Function text(ByVal what as e_texts) as String
   Select Case what
      Case overwrite
         text = "Do you want to overwrite?"
      Case overwrite_title
         text = "Confirm overwrite"
      ' etc....
      ' etc....
      ' etc....
   End Select
End Function

---

quote:

---

Originally posted by Choli

quote:

---

Originally posted by J-Thread
Public Declare Function RegisterWindowMessage Lib "user32" Alias "RegisterWindowMessageA" (ByVal lpString As String) As Long

---

change that to

code:

---

Public Declare Function RegisterWindowMessage Lib "user32" Alias "RegisterWindowMessageW" (ByVal lpString As String) As Long

---

or better, change

quote:

---

Originally posted by J-Thread
Public Function Sendmsg(strMessage As String) As Boolean
    nMsg = RegisterWindowMessage(strMessage)
    Sendmsg = PostMessage(HWND_BROADCAST, nMsg, 0, 0)
End Function

---

to

code:

---

Public Function Sendmsg(strMessage As String) As Boolean
    nMsg = RegisterWindowMessage(StrConv(strMessage, vbFromUnicode))
    Sendmsg = PostMessage(HWND_BROADCAST, nMsg, 0, 0)
End Function

---

and do only 1 fo those 2 changes

---