Chatsend aim 5.x

3/5 (6 avis)

Snippet vu 3 553 fois - Téléchargée 40 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
20 déc. 2004 à 19:06
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
19 oct. 2004 à 19:46
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
9 oct. 2004 à 21:54
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
19 sept. 2004 à 22:35
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
17 juin 2004 à 10:24
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...

++
Afficher les 6 commentaires

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.