0/5 (4 avis)
Vue 9 261 fois - Téléchargée 310 fois
'mettez ça dans votre module Public 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 SendMessageByString Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long Public i As Integer Public Const BM_GETCHECK = &HF0 Public Const BM_SETCHECK = &HF1 Public Const HWND_NOTOPMOST = -2 Public Const HWND_TOPMOST = -1 Public Const LB_GETCOUNT = &H18B Public Const LB_GETITEMDATA = &H199 Public Const LB_GETTEXT = &H189 Public Const LB_GETTEXTLEN = &H18A Public Const LB_SETCURSEL = &H186 Public Const LB_SETSEL = &H185 Public Const SND_ASYNC = &H1 Public Const SND_NODEFAULT = &H2 Public Const SND_FLAG = SND_ASYNC Or SND_NODEFAULT Public Const SW_HIDE = 0 Public Const SW_SHOW = 5 Public Const SWP_NOMOVE = &H2 Public Const SWP_NOSIZE = &H1 Public Const VK_DOWN = &H28 Public Const VK_LEFT = &H25 Public Const VK_MENU = &H12 Public Const VK_RETURN = &HD Public Const VK_RIGHT = &H27 Public Const VK_SHIFT = &H10 Public Const VK_SPACE = &H20 Public Const VK_UP = &H26 Public Const WM_CHAR = &H102 Public Const WM_CLOSE = &H10 Public Const WM_COMMAND = &H111 Public Const WM_GETTEXT = &HD Public Const WM_GETTEXTLENGTH = &HE Public Const WM_KEYDOWN = &H100 Public Const WM_KEYUP = &H101 Public Const WM_LBUTTONDBLCLK = &H203 Public Const WM_LBUTTONDOWN = &H201 Public Const WM_LBUTTONUP = &H202 Public Const WM_MOVE = &HF012 Public Const WM_SETTEXT = &HC Public Const WM_SYSCOMMAND = &H112 Public Const PROCESS_READ = &H10 Public Const RIGHTS_REQUIRED = &HF0000 Public Const ENTER_KEY = 13 Public Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE Public Type POINTAPI x As Long Y As Long End Type Public Function FindRoom() As Long Dim AOL As Long, MDI As Long, child As Long Dim Rich As Long, AOLList As Long Dim AOLIcon As Long, AOLStatic As Long AOL& = FindWindow("AOL Frame25", vbNullString) MDI& = FindWindowEx(AOL&, 0&, "MDIClient", vbNullString) child& = FindWindowEx(MDI&, 0&, "AOL Child", vbNullString) Rich& = FindWindowEx(child&, 0&, "RICHCNTL", vbNullString) AOLList& = FindWindowEx(child&, 0&, "_AOL_Listbox", vbNullString) AOLIcon& = FindWindowEx(child&, 0&, "_AOL_Icon", vbNullString) AOLStatic& = FindWindowEx(child&, 0&, "_AOL_Static", vbNullString) If Rich& <> 0& And AOLList& <> 0& And AOLIcon& <> 0& And AOLStatic& <> 0& Then FindRoom& = child& Exit Function Else Do child& = FindWindowEx(MDI&, child&, "AOL Child", vbNullString) Rich& = FindWindowEx(child&, 0&, "RICHCNTL", vbNullString) AOLList& = FindWindowEx(child&, 0&, "_AOL_Listbox", vbNullString) AOLIcon& = FindWindowEx(child&, 0&, "_AOL_Icon", vbNullString) AOLStatic& = FindWindowEx(child&, 0&, "_AOL_Static", vbNullString) If Rich& <> 0& And AOLList& <> 0& And AOLIcon& <> 0& And AOLStatic& <> 0& Then FindRoom& = child& Exit Function End If Loop Until child& = 0& End If FindRoom& = child& End Function Public Sub ChatSend(Chat As String) Dim Room As Long, AORich As Long, AORich2 As Long Room& = FindRoom& AORich& = FindWindowEx(Room, 0&, "RICHCNTL", vbNullString) AORich2& = FindWindowEx(Room, AORich, "RICHCNTL", vbNullString) Call SendMessageByString(AORich2, WM_SETTEXT, 0&, Chat$) Call SendMessageLong(AORich2, WM_CHAR, ENTER_KEY, 0&) End Sub 'et pi ça dans le code de la form.. Private Sub command1_Click() If Text1.Text = "" Then Exit Sub If Text2.Text = "" Then Exit Sub ChatSend "< A href=" & Text2.Text & ">" & Text1.Text & "</A>" End Sub Et voilà..!!!
22 juin 2004 à 10:55
Jadore vos commentaire
Mdrrrr
J'adhère :p
Bande de citron pressé
xpdrrrrr
Trop naze moi aussi :D
19 févr. 2003 à 18:43
18 juil. 2001 à 21:02
20 mars 2001 à 23:58
+ d'infos mailer moi !
@+ ! et révise moi ce code !
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.