ارسال شکلک ياهو،ايجاد افکت،ماشين پاسخگو

[3dboy1]

با سلام
فکر کنم احتیاج به توضیح نباشه
بیشتر میخواستم با برنامه هایی مانند
iranian yahoo messenger
و امثالهم و کار اونها بیشتر آشنا بشید
برنامه را با Yahoo Messenger 10.0.0.1264 تست کردم
امیدوارم استفاده کنید و کاملترش کنید
موفق باشید.
لينک دانلود :

http://www.rigchal.com/ftopicp-51.html#51

[manmigam]

قسمت پاسخگویی ماشین چطوری عمل میکنه؟

[3dboy1]

قسمت پاسخگویی ماشین چطوری عمل میکنه؟

یک تکست روی فرم قرار دهید و کد زیر را درون تایمر قرار دهید


Dim imclassS As Long
Dim sndButtonN As Long
imclassS = FindWindow("CConvWndBase", vbNullString)
If imclassS >= 1 Then
Pause (0.1)
Dim windowS(1 To 3) As Long
windowS(1) = FindWindow("CConvWndBase", vbNullString)
windowS(2) = FindWindowEx(windowS(1), 0, "YIMInputWindow", vbNullString)
'window(3) = FindWindowEx(window(2), 0, "Internet Explorer_Server", vbNullString)
s = String(201, Chr(0))
r = SendMessageByString(windowS(1), WM_GETTEXT, 200, s)
If Address <> "" Then
SplitAddress() = Split(Address, ";")
If Left(s, r) = SplitAddress(UBound(SplitAddress)) Then Exit Sub
End If
Address = Address & ";" & Left(s, r)
SplitAddress() = Split(Address, ";")
If Address <> "" Then List1.AddItem SplitAddress(UBound(SplitAddress))
Pause (0.4)
Call SendMessageByString(windowS(2), WM_SETTEXT, 0&, Text1)
'finds the send button
sndButtonN& = FindWindowEx(windowS(1), 0, "Button", vbNullString)
'executes the send button
Call SendMessage(sndButtonN&, WM_KEYDOWN, VK_SPACE, 0)
Call SendMessage(sndButtonN&, WM_KEYUP, VK_SPACE, 0)
Pause (0.1)
ClosePm
End If

[lahij.ir]

از این راه نمیشه استاتوس یاهو مینجر و تغییر داد ؟!