Vreau sa imi fac un robotel care sa raspunda pe mess, cand nu sunt la pc. Am gasit un snippet de la voi, cel cu emoticonurile, doar ca e o problema: imi afiseaza doar primul caracter.
Public Function trimiteredirect(emoticon As String)
Dim subparent As Long
Dim subparent2 As Long
Dim parent As Long
Dim b As Long
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
Call SendMessage(parent, &H10, 0, 0)
End Function
Private Sub Command3_Click()
Call trimiteredirect("test test test")
End Sub
Ce poate avea?
