Chatsend aim 5.x
Contenu du snippet
fonction servant à envoyer du texte dans un salon AIM.
Source / Exemple :
'nore aim_chatsend
'par Seif.
'http://nore.owns.it/
'e-mail: xoyi@atern.org
'module: chatsend pour AIM 5.x us, commentée.
'envoyé moi un mail pour me le dire, merci.
'merci à bob.
'Si vous utilisez ce chatsend pour créer un programme AOL ou AIM, pensez à me faire un Greetz ! :)
'si vous ameliorez ce chatsend, ou si vous trouvez une erreur, ou autre, merci de me le faire savoir.
'greetz à bob, ganj et leb.
Option Explicit
'déclarations des APIs
Private Declare Function FindWindowEx& Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String)
Private Declare Function SendMessageString& Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String)
Private Declare Function SendMessageLong& Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long)
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
'déclarations des constantes
Private Const WM_SETTEXT = &HC
Public Const WM_LBUTTONDOWN = &H201
Public Const WM_LBUTTONUP = &H202
Public Function aim_chatsend(text As String) 'par Seif
'example: aim_chatsend ("bouh")
Dim aimroom As Long, echange As Long, rich As Long, button1 As Long
Dim button2 As Long, button3 As Long, button4 As Long, send As Long
aimroom& = FindWindow("AIM_ChatWnd", vbNullString) 'on cherche la fenetre du salon aim
echange& = FindWindowEx(aimroom&, echange&, "WndAte32Class", vbNullString) '1 ere, ou tout le monde parle
echange& = FindWindowEx(aimroom&, echange&, "WndAte32Class", vbNullString) '2 eme, outils et texte
rich& = FindWindowEx(echange&, 0&, "Ate32Class", vbNullString) 'ou on ecrit
Call SendMessageString(rich&, WM_SETTEXT, 0&, (text$)) 'on met le text
button1& = FindWindowEx(aimroom&, 0&, "_Oscar_IconBtn", vbNullString) 'bouton1
button2& = FindWindowEx(aimroom&, button1&, "_Oscar_IconBtn", vbNullString) 'bouton2
button3& = FindWindowEx(aimroom&, button2&, "_Oscar_IconBtn", vbNullString) 'le 3
button4& = FindWindowEx(aimroom&, button3&, "_Oscar_IconBtn", vbNullString) 'le 4
send& = FindWindowEx(aimroom&, button4&, "_Oscar_IconBtn", vbNullString) ' ah enfin le bouton envoyer
Call SendMessageLong(send&, WM_LBUTTONDOWN, 0&, 0&) 'appuie
Call SendMessageLong(send&, WM_LBUTTONUP, 0&, 0&) 'relache
End Function
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.