Un bouton + Message perso de Windows Live Messenger

Bonjour,

Depuis 3 semaines je cherche assez souvent sur le web a faire un bouton pour transmettre le message sur le message perso de Msn, comment il faudrais faire au plus simple?

exemple ,  je clique sur le bouton1 et sa envoi  l'envoi sur le message perso de msn !!



Merci d'avance

LA question étant de savoir si ces trois semaines t'auront permis de tomber là dessus :

http://msdn.microsoft.com/en-us/library/cc298458.aspx

outre la doc, des forums de développeurs :

http://forums.fanatic.net.nz/index.php?s=7ac45430f98f12eef0399789e5166a3b&showtopic=11709

Merci, non j'avais pas vu, car je ne comprend pas l'anglais, mais là c'est bien avec le lien que tu ma  donné je suis entrain de jouer avec sa:

msnim:add?contact=TUEMAIL@MAIL.COM

:)


sinon aussi , affiché le titre d'une chanson qui passe ou je veux bein ssa marche sa je sais le faire, j'ai juste recuperer des codes d'un code d'ici , sinon sa affiche bien

mais je ne vois pas comment j'pourais faire our que sa marche sans  que le "j'ecoute" est désactivé

Bonsoir,


J'ai trouvé un code pour affiché le message perso 'Se que j'ecoute'
Normalement il est en VB6
mais là il est entre Vb6 et Vb2008 , car j'voudrais le mettre en Vb2008 , si quelqu'un pourrais me le traduire en VB 2008, car je ne sais pas comment faire, et si possible de le modifié pour que sa met le message perso sans que "Se que j'ecoute" est activé

Merci d'avance


J'suis debutant depuis 3 semaine environ ; mais j'me debrouille bien, mais pour ce code c'est trés dure
--

Option

ExplicitOn

Public

Class Form1

Public

 DeclareFunction SendMessage Lib"user32"Alias"SendMessageA" (ByVal hwnd AsLong, ByVal wMsg AsLong, ByVal wParam AsLong, ByVal lParam AsLong) AsLong

PublicDeclareFunction FindWindow Lib"user32"Alias"FindWindowA" (ByVal lpClassName AsString, ByVal lpWindowName AsString) AsLong

PublicDeclareFunction FindWindowEx Lib"user32"Alias"FindWindowExA" (ByVal hWnd1 AsLong, ByVal hWnd2 AsLong, ByVal lpsz1 AsString, ByVal lpsz2 AsString) AsLong

Private Type COPYDATASTRUCT
  dwData As Long
  cbData As Long
  lpData As Long
End Type

Public Const WM_COPYDATA = &H4A

PublicSub Form_Load()

Dim Data As COPYDATASTRUCT

Dim xTampon AsString

Dim msn AsLong

xTampon =

"\0Music\01\0testtt\0" & vbNullChar

Data.dwData = &H547

Data.lpData = StrPtr(xTampon)

Data.cbData = LenB(xTampon)

Do

msn = FindWindowEx(0&, msn,

"MsnMsgrUIManager", vbNullString)

If (msn > 0) Then

Call SendMessage(msn, WM_COPYDATA, 0, VarPtr(Data))

EndIf

LoopUntil (msn = 0)

EndSub

End

Class

entre autres:

Long => Integer

salut, jai pas compris mais par contre j'viens de mettre sa comme sa je ne sais pas si c'est comme sa et que j'suis bien au point pour le rendre compatible avec vb2008:

Option

ExplicitOn

Public

Class Form1
PrivateDeclareFunction SendMessage Lib"user32"Alias"SendMessageA" (ByVal hwnd AsLong, ByVal wMsg AsLong, ByVal wParam AsLong, ByVal lParam AsLong) AsLong
PrivateDeclareFunction FindWindow Lib"user32"Alias"FindWindowA" (ByVal lpClassName AsString, ByVal lpWindowName AsString) AsLong
PrivateDeclareFunction FindWindowEx Lib"user32"Alias"FindWindowExA" (ByVal hWnd1 AsLong, ByVal hWnd2 AsLong, ByVal lpsz1 AsString, ByVal lpsz2 AsString) AsLong
PrivateStructure COPYDATASTRUCT
Dim dwData AsLong
Dim cbData AsLong
Dim lpData AsLong
EndStructure
PrivateConst WM_COPYDATA = &H4A
PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
Dim Data As COPYDATASTRUCT
Dim xTampon AsString
Dim msn AsLong
xTampon = "\0Music\01\0testttttt\0" & vbNullChar
Data.dwData = &H547
Data.lpData = StrPtr(xTampon)
Data.cbData = LenB(xTampon)
Do
msn = FindWindowEx(0&, msn, "MsnMsgrUIManager", vbNullString)
If (msn > 0) Then
Call SendMessage(msn, WM_COPYDATA, 0, VarPtr(Data))
EndIf
LoopUntil (msn = 0)
EndSub
EndClass





Les 3 seuls erreur que sa met c'est:

StrPtr
LenB et
VarPtr

C'est mieux le copier/coller là :

Option

ExplicitOn
PublicClass Form1
PrivateDeclareFunction SendMessage Lib"user32"Alias"SendMessageA" (ByVal hwnd AsLong, ByVal wMsg AsLong, ByVal wParam AsLong, ByVal lParam AsLong) AsLong
PrivateDeclareFunction FindWindow Lib"user32"Alias"FindWindowA" (ByVal lpClassName AsString, ByVal lpWindowName AsString) AsLong
PrivateDeclareFunction FindWindowEx Lib"user32"Alias"FindWindowExA" (ByVal hWnd1 AsLong, ByVal hWnd2 AsLong, ByVal lpsz1 AsString, ByVal lpsz2 AsString) AsLong
PrivateStructure COPYDATASTRUCT
Dim dwData AsLong
Dim cbData AsLong
Dim lpData AsLong
EndStructure
PrivateConst WM_COPYDATA = &H4A
PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
Dim Data As COPYDATASTRUCT
Dim xTampon AsString
Dim msn AsLong
xTampon = "\0Music\01\0testttttt\0" & vbNullChar
Data.dwData = &H547
Data.lpData = StrPtr(xTampon)
Data.cbData = LenB(xTampon)
Do
msn = FindWindowEx(0&, msn, "MsnMsgrUIManager", vbNullString)
If (msn > 0) Then
Call SendMessage(msn, WM_COPYDATA, 0, VarPtr(Data))
EndIf
LoopUntil (msn = 0)
EndSub
EndClass


J'ai tout faux? est-ce que je dois abandonné sa ou bien j'suis sur la bonne voix?

y'a d'autres erreurs....

les As Long, comme je te le disais, sont a adapter en As Integer

ok merci, et pour le truc là comment il faut faire:  (en rouge c'est les erreur) aprés sa devrais marché c'est sur car en vb6 sa marche trés bien et sa affiche bien le message perso avec le "se que j'ecoute"!!!!!

PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.LoadDim Data As COPYDATASTRUCT
Dim xTampon AsString
Dim msn AsInteger
xTampon = "\0Music\01\0testttttt\0" & vbNullChar
Data.dwData = &H547
Data.lpData = StrPtr(xTampon)
Data.cbData = LenB(xTampon)
Do
msn = FindWindowEx(0&, msn, "MsnMsgrUIManager", vbNullString)
If (msn > 0) Then
Call SendMessage(msn, WM_COPYDATA, 0, VarPtr(Data))
EndIf
LoopUntil (msn = 0)
EndSub



sa met sa en faite:
Erreur 1 Le nom 'StrPtr' n'est pas déclaré.
Erreur 2 Le nom 'LenB' n'est pas déclaré.
Erreur 3 Le nom 'VarPtr' n'est pas déclaré.