1. Accueil
  2. Visual Basic / VB.NET
  3. Sources Visual Basic / VB.NET
  4. Sources Réseau & Internet
  5. Envoyer un lien dans un salon de discution aol

Envoyer un lien dans un salon de discution aol

0/5 (4 avis)

Vue 9 261 fois - Téléchargée 310 fois

Télécharger le projet
Commenter

Description

Voici un p'tit truc pour envoyer des lien dans les salon de discution aol...(comme par defaut y marche plus..faut ben trouver un truc.. :)

Vous devez créer une form avec :
- 2 TextBox
- 1 bouton de commande
- 2 label pour les info sur les deux TextBox
Ajouter y un module..et y manque plus qu'a y inscire le code...

Voir le zip..c plus simple..

Source / Exemple : 


'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à..!!!

Conclusion :


y-a plus qu'a aller chater sur un salon AOL, Mettre l'URL dans le textbox2, mettre le nom du lien dans le textbox1...et pi appuyer sur le pitit bouton..et hop..le lien apparais dans le salon..
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Dav6215 Messages postés 22 Date d'inscription jeudi 26 décembre 2002 Statut Membre Dernière intervention 23 juillet 2004
22 juin 2004 à 10:55
Excellentissimeeeeeeeeeeeee
Jadore vos commentaire
Mdrrrr
J'adhère :p
Bande de citron pressé
xpdrrrrr
Trop naze moi aussi :D
x28x Messages postés 36 Date d'inscription mercredi 1 janvier 2003 Statut Membre Dernière intervention 21 septembre 2004
19 févr. 2003 à 18:43
Euh je beut pas dire mais tu t pri la tete pour rien pur k un lien soit clikable ca se fé en une seul ligne =)
kamykas07
18 juil. 2001 à 21:02
ben oui je sais bien que y-a quelque contantes qui ne serve a rien ..mais pas trop le temps de toutes les triés..!! désoler :)
Des - Troy - eR
20 mars 2001 à 23:58
Olala Kamy, c'est pas beau tout ça ! C'était pas la peine de copier /collé tout le module : pour un chatsend, 2 function suffisend : trouver le chat, et sender le lien, il n'ya pas pas besoin de mettre toutes ces constantes ! Mais bon ...
+ d'infos mailer moi !
@+ ! et révise moi ce code !
S'inscrire maintenant

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.

Du même auteur (kamykas07)