V1oL
Administrator
Data inscrierii: 07/Oct/2008
Mesaje: 92
|
|
Acest program va permite vizualizarea tuturor emoticonurilor ascunde ale Yahoo!. De asemenea, le puteti trimite direct in fereastra de chat printr-un simplu click pe imagine.
Programul este realizat in Visual Basic 6 si foloseste APIuri din Windows. Sursa este:
1.In modul:
Cod:
| Citat: |
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) 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 Const WM_SETTEXT = &HC
Dim subparent As Long
Dim subparent2 As Long
Dim parent As Long
Dim b As Long
Public Function trimiteredirect(emoticon As String)
parent = FindWindow("YSearchMenuWndClass", vbNullString)
If (parent <> 0) Then
subparent = FindWindowEx(parent, 0&, "IMClass", vbNullString)
subparent2 = FindWindowEx(subparent, 0&, "YIMInputWindow", vbNullString)
Call SendMessage(subparent2, &HC, 0, ByVal emoticon)
b = FindWindowEx(subparent&, 0&, "Button", "&Send" & Chr(0))
Call SendMessage(b, &HF5, 0, 0)
End If
End Function
Public Function trimitere(emoticon As String)
parent = FindWindow("YSearchMenuWndClass", vbNullString)
If (parent <> 0) Then
subparent = FindWindowEx(parent, 0&, "IMClass", vbNullString)
subparent2 = FindWindowEx(subparent, 0&, "YIMInputWindow", vbNullString)
Call SendMessage(subparent2, &HC, 0, ByVal emoticon)
End If
End Function |
2. Pe eventul Click al imaginii (adaugati PictureBox), punem urmatorul cod (eu am lasat doar 2 imagini, pentru restul, sursa este asemanatoare):
Cod:
| Citat: |
Private Sub Picture26_Click()
If (Check1.Value = Unchecked) Then
Call trimitere(":-@")
Else
Call trimiteredirect(":-@")
End If
End Sub
Private Sub Picture27_Click()
If (Check1.Value = Unchecked) Then
Call trimitere("^ ^")
Else
Call trimiteredirect("^^")
End If
End Sub |
|
 |
