I wrote a plugin in VB6, and now i'm trying to write a setup for it. It does work well, but there is one problem. Because the system message "MessengerPlus_PluginChange" doesn't seem to work for VB plugins, i decided to totaly close msn messenger + all the chat windows (after the user clicked yes of course). But i can't figure out how to do it... Anyone??

(sorry for my bad english...)

http://www.msnfanatic.com/index.php?module=announ...23002b7e59fedc8648

MessengerPlus_PluginChange works fine for me from VB

The MessengerPlus_PluginChange works, just be sure you "exetuce" it before you try to overwritte any DLL in use. (both VB and C ones).

Well i'll try to use MessengerPlus_PluginChange then another time...but i'm almost sure it didn't work for me...

@Wouter: Server not found...

quote:

---

@Wouter: Server not found...

---

quote:

---

Originally posted by CookieRevised

quote:

---

@Wouter: Server not found...

---

MSN Fanatic server is up an running atm

---

That the link that Wouter gave does work...

Well not with my provider... I think they've done a DNS change or something... Whatever.
But I can't visit that site, so would you be so kind as to copy the text to this forum?

Shutting Down MSN Messenger
Posted by daniel on 2003-09-16 05:57:20

At some point in most MSN Messenger applications, you may want to shut down Messenger, or restart it. This could be to apply a patch, or to make Messenger run its shut down routine, like updating the list cache, or removing the systray icon. MSN Messenger has a cross application window message method to make it exit, this is commonly used by its installer. When you install an update the current version is closed so it can overwrite the files.

An obvious method of shutting Messenger down would be to just use TerminateProcess, this method is very forceful and Messenger won't perform its shutdown routine. Before you perform this kind of termination, its best to try the cross application windows message method. This involves sending a custom window message to the Messenger system window "MSNHiddenWindowClass", which is just an always open window for things like receiving events for the systray icon.

You may have before seen a message pop up telling you that you need to close applications that are using MSN Messenger, like Hotmail in Internet Explorer, Outlook Express. The window message method cannot ignore this, therefore you WILL need to forcefully terminate Messenger. You should kill all instances of the Messenger typelib to prevent the message beforehand, otherwise you can get the user to close those applications.

First, lets look at the window message method. You need to register the message "TryMsnMsgrShutdown", and send it to the window with the class name "MSNHiddenWindowClass".

code:

---

Private Sub GracefullShutdown(bShowCloseMsg As Boolean)
Dim hWnd As Long, lMsg As Long

    hWnd = FindWindow("MSNHiddenWindowClass", vbNullString)
    lMsg = RegisterWindowMessage("TryMsnMsgrShutdown")
    Call SendMessage(hWnd, lMsg, CLng(bShowCloseMsg) + 1, 0)

End Sub

---

code:

---

Private Sub ForcefullShutdown()
Dim hWnd As Long, lProcessID As Long, lProcess As Long

    hWnd = FindWindow("MSNHiddenWindowClass", vbNullString)
    Call GetWindowThreadProcessId(hWnd, lProcessID)
    lProcess = OpenProcess(0, False, lProcessID)
    Call TerminateProcess(lProcess, 0)
    Call CloseHandle(lProcess)

End Sub

---

code:

---

Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

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

Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hWnd As Long, lpdwProcessId As Long) As Long

Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long

Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long

Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long

---

Tnx!

Only one problem, if you have conversation windows open it wont shut down, it will ask if you wish to close them first.


This is the code I used to close all of the IM Windows, do this before doing the graceful and forceful shutdowns on MSN

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

---

Runtime error '75'. Path/file acces error...

This is a bit offtopic, but my eyes hurt when I see this kind of code and I have to reply

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

---

Please post the entire subroutine so we can see what is going on there.

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

---

quote:

---

Originally posted by J-Thread
About my text function, i've never heard of that "enum" function, but i'll try it.

---

quote:

---

Originally posted by J-Thread
The reason that I want all the text together is because I can easy find text, and I can make a multilanguage file...

---

quote:

---

Originally posted by J-Thread
Well, i tried them both (no not in the same time, i'm not stupid ), but they both didn't work... Read this thread... I think i'm going to close messenger, it just won't work...

---

quote:

---

I'd test it for you, but can't now, maybe tomorrow afternoon

---

Have you tested it yet?

My function to close msn works properly, it doesn't even need a forcefullshutdown. But of course i have got a function build in to test if its needed...