[VB] Yahoo! Hidden Emoticons

[vladiii]

Download Link:

[url]http://rapidshare.com/files/55921966/Yahoo__Emoticons.exe.html[/url]

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:

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):

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

Asta este pe Formular, evident. De asemenea, trebuie adaugat pe Form si un CheckBox cu numele Check1. Cam asta este sursa/programul. Enjoy ! [ce face omul cand se plictiseste ].

P.S. Nu am postat aceasta sursa pe mai multe forumuri pentru a ma lauda (programul nu este cine stie ce), am postat pentru ca si altii sa vada sursa si eventual sa o poata folosi in alte parti. Sunt sigur ca multi dintre voi sunteti capabili sa o faceti, insa acesta este doar un Snippet !!!

[J0K3R]

La emoticonul ai pus " #39;' " in loc de " "

[katmai]

Felicitar,da era mai fain de il puneai sa faca un "injection" in yahoo mess,adica unde sunt si celelate