Chatsend aim 5.x

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 246 fois - Téléchargée 39 fois

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

A voir également

Ajouter un commentaire

Commentaires

Stan62970
Messages postés
48
Date d'inscription
mercredi 26 mai 2004
Statut
Membre
Dernière intervention
20 septembre 2006

Pas mal du tout !!!!
Merci bien pour cette belle ptit fonction ca vaut bien 10/10
cool Codeur
Messages postés
3
Date d'inscription
lundi 13 septembre 2004
Statut
Membre
Dernière intervention
19 octobre 2004

car ton programe il fait quoi ? il scroll ?
buzz lait clair
Messages postés
2
Date d'inscription
vendredi 3 septembre 2004
Statut
Membre
Dernière intervention
23 janvier 2005

salut ! super ;) j lé mis dans un program mais je voudrai faire une option de marche et arret pour chatsend JE VOUDRAI Savoir si kelkun c comment faire?? merci ;)
cool Codeur
Messages postés
3
Date d'inscription
lundi 13 septembre 2004
Statut
Membre
Dernière intervention
19 octobre 2004

Ca c'est vraiment cool 9/10 ;-)
Noxid
Messages postés
78
Date d'inscription
lundi 13 mai 2002
Statut
Membre
Dernière intervention
4 mai 2008

Sympa tout ca!
Est-ce qu'il y a moyen d'envoyer du texte à un contacts AIM, et aussi de récupérer la liste de contacts? Car j'aimerai faire un client AIM...

++

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.