کمک در مورد text های ستاره ای

[Danial_Yousefi]

از استادان خواهش می کنم به من بگو یند که چجوری میشه یه برنامه نوشت که text های ستاره ای رو بخونه یا برنامه های آماده چطور کار می کنند؟ danialamd @gamil,yahoo, hotmail:افسرده:

[Danial_Yousefi]

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

[__siavash__]

از استادان خواهش می کنم به من بگو یند که چجوری میشه یه برنامه نوشت که text های ستاره ای رو بخونه یا برنامه های آماده چطور کار می کنند؟ danialamd @gamil,yahoo, hotmail:افسرده:
کاری نداره
شما باید اول هندل اون تکست باکسو بگیری بعد براش این پیغامو بفرستی با تابع SendMessage یا PostMessage !

Private Const EM_SETPASSWORDCHAR = &HCC
به این صورت (hwnd) هندل اون تکست باکس هستش که میخوای پسوردشو بخونی !


PostMessage hwnd, EM_SETPASSWORDCHAR, 0, 0&

[Danial_Yousefi]

دمت گرم آقا سیاوش

[M8SPY_OK]

سیاوش جان
می شه یه کد نمونه قرار بدی ؟

[Danial_Yousefi]

حوب با درگ کردن چه جوری هندل اون تکست باکسو بگیرم؟

[M8SPY_OK]

کد نمونه ؟؟!!!

[Danial_Yousefi]

از PostMessage ایراد می گیره میگه sub or function not defiend بی زحمت یه نمونه کد بذارید

[Danial_Yousefi]

آقا بی زحمت یکی یه نمونه کد بده

[__siavash__]

یه کامند باتن روی فرمت بذار و این کدو توی فرمت کپی کن !



Option Explicit
'Declare API
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Const EM_SETPASSWORDCHAR = &HCC

Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Const GW_HWNDNEXT = 2
Const GW_CHILD = 5
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private 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 Command1_Click()

Dim Yhwnd As Long
Dim RetVal As Long
Yhwnd = FindWindow("YahooBuddyMain", vbNullString) 'Hwnd of yahooBuddyMain
Yhwnd = GetWindow(Yhwnd, GW_CHILD) 'Hwnd of "YLoginWnd" that it is a child of "yahooBuddyMain"
Yhwnd = FindWindowEx(Yhwnd, ByVal 0&, "Edit", vbNullString) 'Hwnd of TextBox UserName
Yhwnd = GetWindow(Yhwnd, GW_HWNDNEXT) 'Hwnd of Lable Password
Yhwnd = GetWindow(Yhwnd, GW_HWNDNEXT) 'Hwnd of TextBox Password

RetVal = PostMessage(Yhwnd, EM_SETPASSWORDCHAR, 0, 0&) 'Set Password Char

End Sub

[senator_aka]

می شه بگید چطور نام پنجره ها را می شه فهمید.یعنی این اسم YahooBuddyMainرا از کجا پیدا کردید ؟

[majjjj]

می شه بگید چطور نام پنجره ها را می شه فهمید.یعنی این اسم YahooBuddyMainرا از کجا پیدا کردید ؟



Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private 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

[__siavash__]

می شه بگید چطور نام پنجره ها را می شه فهمید.یعنی این اسم YahooBuddyMainرا از کجا پیدا کردید ؟
با توابع بالا هندل پنجره ای که میخوای رو بدست میاری میدی به این تابع کلاسش رو میگیری !
( عنوان پنجره یاهو مسنجر رو که میدونی "Yahoo! Messenger" به تابع FindWindow میدی هندل بدنه اصلی یاهو رو میگیری بعد اون هندل رو میدی به این تابع نام کلاسش که "YahooBuddyMain" هست در متغییر lpClassName ذخیره میشه )

Public Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long

[Danial_Yousefi]

آقا سیاوش دمت وحشتناک گرم