آموزش تصویری ساخت آدرس یاب

[dr.saeed]

سلام خدمت کاربران عزیز و گرامی سایت سورس گذر امروز فیلم آموزشی رو براتون درست کردم که آموزش تصویری ساخت آدرس یاب هست . و شما دیگه میتونید با دیدن این فیلم به راحتی واسه سایتتون یه آدرس یاب درست کنید. برای دانلود به ادامه مطلب بروید.



دانلود : حجم 10 مگابایت با مثال آموزشی
رمز فایل : سورس گذر بزرگترین سایت دانلود سورس برنامه نویسی
منبع: سورس گذر

[carbon7]

ممنون

[shahramco]

با سلام وتشکر از شما من این فایل تصویری را دانلود کردم و بیش از صدبار این برنامه را نگاه کردم ولی چند قسمتش نامفهومه مثلا آنجایی که میگه ما به یک ماژول احتیاج داریم اصلا معلوم نیست ماژول رو از کجا آورد.

[nars_Vps]

اموزش که واضح هست .کجا مشکل دارید؟

[mehrdad1991h]

اموزش که واضح هست .کجا مشکل دارید؟

ماژول رو از کجا آورد.

؟؟؟؟

[nars_Vps]

ماژول رو جدا کپی کردن وقت نگیره تو سورسشون هم هست.

Private Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal s*****Name As String, ByVal s*****Bypass As String, ByVal lFlags As Long) As Long
Private Declare Function InternetOpenUrl Lib "wininet.dll" Alias "InternetOpenUrlA" (ByVal hInternetSession As Long, ByVal sURL As String, ByVal sHeaders As String, ByVal lHeadersLength As Long, ByVal lFlags As Long, ByVal lContext As Long) As Long
Private Declare Function InternetReadFile Lib "wininet.dll" (ByVal hFile As Long, ByVal sBuffer As String, ByVal lNumBytesToRead As Long, lNumberOfBytesRead As Long) As Integer
Private Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long) As Integer
Private Const IF_FROM_CACHE = &H1000000
Private Const IF_MAKE_PERSISTENT = &H2000000
Private Const IF_NO_CACHE_WRITE = &H4000000
Private Const BUFFER_LEN = 256
Public Function GetUrlSource(sURL As String) As String
    Dim sBuffer As String * BUFFER_LEN, iResult As Integer, sData As String
    Dim hInternet As Long, hSession As Long, lReturn As Long
    hSession = InternetOpen("vb wininet", 1, vbNullString, vbNullString, 0)
    If hSession Then hInternet = InternetOpenUrl(hSession, sURL, vbNullString, 0, IF_NO_CACHE_WRITE, 0)
    If hInternet Then
        iResult = InternetReadFile(hInternet, sBuffer, BUFFER_LEN, lReturn)
        sData = sBuffer
        Do While lReturn <> 0
            iResult = InternetReadFile(hInternet, sBuffer, BUFFER_LEN, lReturn)
            sData = sData + Mid(sBuffer, 1, lReturn)
        Loop
    End If
    iResult = InternetCloseHandle(hInternet)
    GetUrlSource = sData
End Function 

[nars_Vps]

شما میتونید یه webbrowser در فرم قرار دهید یه ادرس سایت بهش بدین از اونجی ادرس رو دریافت کنه بریزه توی text راحت تر و ساده ترم هست.

[mehrdad1991h]

بله
من ندیده بودم الان دانلود کردم دیدم سورس را گذاشتن همه چیز توش مشخصه دیگه !
ولی روش های ساده تری هم هست و مطمئن تر !
یکم باید فرد برنامه نویسی بلد باشه تا بتونه بهتر از این درست کنه !
ولی خوب خوب بود
ممنون از پستتون

[payam_shzbax]

شما میتونید یه webbrowser در فرم قرار دهید یه ادرس سایت بهش بدین از اونجی ادرس رو دریافت کنه بریزه توی text راحت تر و ساده ترم هست.

اگه اون آدرس ***** شد چی؟

[nars_Vps]

سعی میکنیم یه ادرس بدیم **** نشه.من راه ساده گفتم نگفتم این غلطه.