با خبر شدن از زمان باز شدن آیدی در یاهو مسنجر

[roomezonline]

:گیج:با این کد که امروز برای شما میزارم میتونید چک کنید که آیدی وارد شده در یاهو آنلاین شده یا خیر
timer , 2 label هم این برنامه نیز داره

Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName
As String) As Long
Public Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function GetForegroundWindow Lib "user32" () As Long
Public Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Public Const SW_HIDE = 0
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


اینا هم تو یه تایمر :

کد:

Private Sub Timer1_Timer()
On Error Resume Next
Dim Yhwnd As Long
Dim YhSendToAll As Long
Dim i As Integer
Dim hYlogin As Long
Dim hYSignIn As Long

Yhwnd = GetForegroundWindow
Dim lpClassName As String
lpClassName = Space(255)
GetClassName Yhwnd, lpClassName, Len(lpClassName)

lpClassName = Mid(lpClassName, 1, InStr(lpClassName, Chr(0)) - 1)

If lpClassName = "YahooBuddyMain" Then
hYlogin = FindWindowEx(Yhwnd, 0, "#32770", "YLoginWnd")
hYSignIn = FindWindowEx(hYlogin, 0, "Button", "&Sign In")
Label1.Caption = "Hwnd of 'YLoginWnd' : " & hYlogin
Label2.Caption = "Hwnd of '&Sign In' : " & hYSignIn
If hYSignIn <> 0 Then
Form1.Caption = "آفلاین"
Exit Sub
End If
Form1.Caption = "آنلاین"
Beep
Timer1.Enabled = False
End If
End Sub

با تشکر
مصطفی:لبخندساده:

[amir_hacker]

ممنون مر30
راستی شما اینو تست زدید؟
میشه شما سورس اینو بزنید ؟من نوشتم ارور میده.....دستتون درد نکنه

[__siavash__]

این کدی که شما گذاشتید مشکلش اینه که حتما باید Focus روی پنجره یاهو مسنجر باشه.
اگر اینجوری بنویسی دیگه Focus روی هر پنجره ای باشه میتونی Yahoo! Messenger رو Monitor کنی !!!


Dim Yhwnd As Long
Dim Bhwnd As Long

Yhwnd = FindWindow("YahooBuddyMain", vbNullString)
If Yhwnd <> 0 Then
Bhwnd = FindWindowEx(Yhwnd, 0, "#32770", "YLoginWnd")
Bhwnd = FindWindowEx(Bhwnd, 0, "Button", "&Sign In")
If Bhwnd <> 0 Then
Me.Caption = "Yahoo![Running] & Login False"
Else
Me.Caption = "Yahoo![Running] & Login True"
End If
Else
Me.Caption = "Yahoo! [Not Running]"
End If

[majjjj]

این جور برنامه نویسی مشکلش اینه که هندل کنترلها تو ورژنهای مختلف یاهو به علت تغییر نام کلاس کنترلها دچار مشکل میشه و ممکنه برنامه ای که برای ورژن8 نوشته شده برای 9 کار نکنه ولی حسنش نسبت به پکت نویسی اینه که اگه سرورهای یاهو عوض بشه بازهم برنامه کار میکنه

[roomezonline]

این جور برنامه نویسی مشکلش اینه که هندل کنترلها تو ورژنهای مختلف یاهو به علت تغییر نام کلاس کنترلها دچار مشکل میشه و ممکنه برنامه ای که برای ورژن8 نوشته شده برای 9 کار نکنه ولی حسنش نسبت به پکت نویسی اینه که اگه سرورهای یاهو عوض بشه بازهم برنامه کار میکنه

اساس کار اینجور برنامه های sign in که در تمامی ورژنهای یاهو کاربرد داره مشکل کجاست؟ از نظر من که تست کردم مشکلی نیست