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

[HoseinVig]

سلام دوستان امروز یک سوال فنی داشتم که اومدم از شما کمک بگیرم.
میخاستم ببینم برنامه نویش چجوری میتونه تشخیص بده که کی آیدی باز میشه تا یه سری کار انجام بده ؟
فکر کنم فهمیدین میخام چکار کنم
اگر روشش در ورژن های مختلف یاهو متفاوته لطف کنید بگید.

[EleRam]

من اين کد ها رو دارم که مربوط ميشه به سوئيچ هاي ياهو ولي نمي دونم چرا کار نمي کنه مي خواي يه تست بزن:



/invite [buddys name] (sends invitation request)

/tell [user] [message] (private messages a friend)

/follow [user] (follows a friend)

/stopfollow [user] (stop following someone)

/stopfollow [yourname] (to stop them from following you)

/goto ( [user] )

/away off (to turn your private messages back on)

/think (type this to think a random thought)

/think [message] (type this to think what you want)

/exit (exits you back to login page)

/quit (exits you back to login page)

/ignore

• (list everyone who you are ignoring)
  
  /ignore add [user] (add someone to your ignoring list)
  
  /ignore add all (ignores everything going on)
  
  /ignore remove all (stop you from ignoring everything)
  
  /autofollow (list the options for autofollow)
  
  /autofollow ask (makes person send a request to follow you)
  
  /autofollow yes (allow anyone to follow you)
  
  /autofollow no (disallow anyone from following you)
  
  /autogoto (list the options for autogoto)
  
  /autogoto ask (makes person send a request to goto you)
  
  /buddy add [user] (add someone to your buddy list)
  
  /buddy list (will list everyone on your buddy list)
  
  /go lobby (exits what ever room your in to lobby)
  
  /go (room) (go to what ever room you wish

[HoseinVig]

آقا اینا که نوشتی چه ربطی داشت آخه؟
من گفتم برنامه از کجا بفهمه آیدی باز شده...(برای یاهو 7.5 و 8 رو بلدم)
اگه برای یاهو 6 و 7 کسی بلده یا سورسی چیزی داره بزاره ممنون میشم

[__siavash__]

آقا اینا که نوشتی چه ربطی داشت آخه؟
من گفتم برنامه از کجا بفهمه آیدی باز شده...(برای یاهو 7.5 و 8 رو بلدم)
اگه برای یاهو 6 و 7 کسی بلده یا سورسی چیزی داره بزاره ممنون میشم

من نمیدونم شما از روشی برای یاهو 7.5 و 8 استفده میکنید
اما من قبلا چون راهی به ذهنم نرسیده بود اومدم هندل دکمه SignIn رو گرفتم و وقتی که یاهو باز بود و این دکمه هندلش صفر میشد میفهمیدم که لاگین شده و کارمو میکردم
درسته روش خوبی نبود ولی جواب داد !

[HoseinVig]

خوب سورسشو بزار برای دانلود

[__siavash__]

اینا تو یه ماژول:

کد:

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

دو تا لیبل هم رو فرمت بذار
البته به جای تابع GetForegroundWindow اگه از FindWindow استفاده کنی بهتره !

[lord_viper]

یاهو addلیستها رو تو listbox نشون میده میتونین از handleاون هم استفاده کنین(فواید زیادی داره :میتونین ایتمهای داخلشو در بیارین برای ارسال pm وچیزای دیگه)

[__siavash__]

یاهو addلیستها رو تو listbox نشون میده میتونین از handleاون هم استفاده کنین(فواید زیادی داره :میتونین ایتمهای داخلشو در بیارین برای ارسال pm وچیزای دیگه)

من با اون کدهای بالا میخواستم بفهمم که کی لاگین شدیم که یه متنی رو سند تو آل کنم البته من به روش سرخپوستی عمل میکردم یعنی به SendKeys کلید های کنترل و M رو میفرستادم و ...
اما تو ویروسها که لینک آلوده میفرستادند یه جور دیگه ادد لیستو سلکت میکردن !!! شما میدونید چه طوری این کارو میکردند ؟؟؟
در ضمن هندل ادد لیستو میتونم بگیرم !

[HoseinVig]

دستت درد نکنه سیاوش تست کردم خبرشو میدم.
فقط این ماله چه ورژنی هست ؟

[__siavash__]

من روی ورژن 8 تستش کردم
اما فرقی نمیکنه باید روی همه کار کنه اگه کار نکنه با یه تغییر کوچیک میشه روی اون ورژن هم ازش استفاده کرد
مهم اینه که دکمه SignIn رو زیر نظر بگیری !