Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
C# / VB.NET - Aiuto con la ricerca di una dll
Forum - C# / VB.NET - Aiuto con la ricerca di una dll

Avatar
Antivirusvivente (Normal User)
Rookie


Messaggi: 40
Iscritto: 26/07/2009

Segnala al moderatore
Postato alle 18:39
Mercoledì, 18/11/2009
Ciao a tutti, avrei la necessita di integrare nel mio progetto di un programma scritto in vb.NET con visual studio 2008, la dll interop.messengerapi.dll, che purtroppo non riesco a trovare. Qualcuno di voi se la ritrova e sarebbe così gentile da upparla in rete e passarmela?

Con la dll devo fare in modo di visualizzare sul messaggio personale come quando ascoltiamo la musica di mediaplayer, solo con un'altra frase letta da una variabile determinata dal programma.

Ringrazio anticipatamente

PM Quote
Avatar
noitide (Normal User)
Pro


Messaggi: 107
Iscritto: 24/06/2009

Segnala al moderatore
Postato alle 19:30
Giovedì, 19/11/2009
Testo quotato

Postato originariamente da Antivirusvivente:

Ciao a tutti, avrei la necessita di integrare nel mio progetto di un programma scritto in vb.NET con visual studio 2008, la dll interop.messengerapi.dll, che purtroppo non riesco a trovare. Qualcuno di voi se la ritrova e sarebbe così gentile da upparla in rete e passarmela?

Con la dll devo fare in modo di visualizzare sul messaggio personale come quando ascoltiamo la musica di mediaplayer, solo con un'altra frase letta da una variabile determinata dal programma.

Ringrazio anticipatamente


allora mi pare ke interop.messengerapi.dll è antiquata.. se hai installato l'ultimo msn disponibile basta ke crei un nuovo progetto, vai su aggiungi riferimento e nelle schede in alto selezioni COM e poi cerchi Messenger API Type Library. la aggiungi e poi fai
Codice sorgente - presumibilmente VB.NET

  1. Imports MessengerAPI
  2.  
  3. Dim prova as new messenger


e poi utilizzi prova. come desideri ;)

PM Quote
Avatar
Antivirusvivente (Normal User)
Rookie


Messaggi: 40
Iscritto: 26/07/2009

Segnala al moderatore
Postato alle 23:36
Giovedì, 19/11/2009
Esattamente come hai detto tu, ora però mi trovo con un problema, devo cambiare il messaggio personale di messenger come se stessi sentendo la musica, ho utilizzato il seguente codice, ma cosa c'è di errato?

Codice sorgente - presumibilmente VB.NET

  1. Imports MessengerAPI
  2. Public Class Form1
  3.  
  4.  
  5.     Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr
  6.     Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal Hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Object) As Integer
  7.     Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByVal hpvDest As Object, ByVal hpvSource As Object, ByVal cbCopy As Integer)
  8.  
  9.     Public Structure COPYDATASTRUCT
  10.         Dim dwData As Integer
  11.         Dim cbData As Integer
  12.         Dim lpData As Integer
  13.     End Structure
  14.  
  15.     Const WM_COPYDATA = &H4A
  16.  
  17.     Private Sub ChangeSong(ByVal Song As String)
  18.  
  19.         ' Declarations
  20.         Dim sString As String
  21.         Dim lHwnd As Integer
  22.         Dim cds As COPYDATASTRUCT
  23.         Dim buf(255) As Byte
  24.  
  25.         ' Check string
  26.         sString = Trim$(Song)
  27.         If sString = "" Then Exit Sub
  28.  
  29.         ' Get the handle of the target application.
  30.         lHwnd = FindWindow("MsnMsgrUIManager", vbNullString)
  31.  
  32.         ' Copy the string into a byte array,
  33.         ' converting it to ASCII. Assign lpData
  34.         ' the address of the byte array.
  35.         Call CopyMemory(buf(0), sString, Len(sString))
  36.         With cds
  37.             .dwData = 3
  38.             .cbData = Len(sString) + 1
  39.             .lpData = CType(buf(0), IntPtr)
  40.         End With
  41.  
  42.         ' Send the string.
  43.         Call SendMessage(lHwnd, WM_COPYDATA, Me.Handle, cds)
  44.  
  45.     End Sub
  46.  
  47.  
  48.  
  49.     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  50.  
  51.         'Change the song
  52.         ChangeSong("textgoeshere")
  53.  
  54.     End Sub
  55. End Class


PM Quote
Avatar
Il Totem (Admin)
Guru^2


Messaggi: 3635
Iscritto: 24/01/2006

Segnala al moderatore
Postato alle 13:02
Venerdì, 20/11/2009
Ma... a cosa ti serve MessengerAPI se poi utilizzi SendMessage? :-|

PM Quote
Avatar
Antivirusvivente (Normal User)
Rookie


Messaggi: 40
Iscritto: 26/07/2009

Segnala al moderatore
Postato alle 14:01
Venerdì, 20/11/2009
E' questo il problema, ieri sera ho smanettato un pò con il codice delle API di messenger. ed ho notato che non c'è nulla da fare. L'unica cosa da fare sarebbe utilizzare quel sendmessage.. ma non so cosa non lo fa funzionare

PM Quote
Avatar
Il Totem (Admin)
Guru^2


Messaggi: 3635
Iscritto: 24/01/2006

Segnala al moderatore
Postato alle 11:09
Sabato, 21/11/2009
Beh, io ti avevo avvertito :pat:

PM Quote