در مورد ياهو

[a_persian_boy]

سلام
پس سورس هموني كه وصل مي شه رو مي تونيد بديد
لينكشو . ممنون

http://www.mosyansar.com/modules.php?nam...=0&thold=0

[a_persian_boy]

توي خود ايران ويج هم هست
http://www.iranvig.com/3567.html

[behzad-khazama]

سلام به همگی
اول اینکه اسم تاپیک رو یه جوری بزنید که مشخص باشه توش چیه اینجوری خیلی بهتر میشه تاپیکی که میتونی نظری بدی رو انتخاب کنی . من خودم بار اولیه که میام تو این تاپیک . مهمتر اینکه یکم سرچ هم بد نیست . کلی سورس در این مورد هست .
مثلا
http://www.planet-source-code.com/vb/scr...7&lngWId=1

البته چون یکم قدیمیه تغییر تو این بخش میخاد تا کار کنه .

Function EnumWinProc(ByVal lhWnd As Long, ByVal lParam As Long) As Long
    Dim RetVal As Long
    Dim WinTitle As String
    
    WinTitle = GetWindowTitle(lhWnd)
    Debug.Print lhWnd, WinTitle
    
    If InStr(1, WinTitle, " - mmohtasham2004") Then ' To in khat taghir bedin
        YMText = GetIEText(lhWnd)
        YMHTML = GetIEHTML(lhWnd)
    End If
    
    EnumWinProc = True
End Function

البته حتما روشهای جالبتری برا پیدا کردن صفحه هست که خیلی بهتر از این روش کار کنه ولی اینم روشیه دیگه ولی باقی کد کامل کار میکنه .

[Soheilvb]

بابا اي ول عالي بود.
ببخشيد كه عنوان بد بود
مرسي
باي