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

http://www.sourcegozar.com/wp-conten.../09/Post67.gif

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



http://www.sourcegozar.com/wp-conten...eme/img/dl.png دانلود : حجم 10 مگابایت با مثال آموزشی
http://www.sourcegozar.com/wp-conten...e/img/pass.png رمز فایل : سورس گذر بزرگترین سایت دانلود سورس برنامه نویسی
http://www.sourcegozar.com/wp-conten...me/img/web.png منبع: سورس گذر

ممنون

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

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

نقل قول:

---

نوشته اصلی توسط nars_Vps

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

---

نقل قول:

---

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

---

؟؟؟؟

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

کد PHP:

---

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 


---

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

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

نقل قول:

---

نوشته اصلی توسط nars_Vps

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

---

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

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

واسه من make finder .exe خاموشه . باید چیکار کنم ؟

سلام
یه راه ساده تر هم هست
صفحه html طراحی کنید که مثل مرورگر یک فایل تکست از یک ادرس فراخوانی کنه رو فراخوانی کنه و بعد با برنامه زیر به exe تبدیلش کنید

اسم برنامه : Abyssmedia.SiteInFile.Compiler.v4

نیاز به آموزش نداره دیگه خیلی سادست ولی ممنون که تو انجمن هم گذاشتی

دوستا ن سوال؟حالا ما بخواهیم مثل همین سایت که برنامه نوشته یه کنترل پنل هم واسش نوشته اونرا باید چطوری بنویسیم؟؟؟؟

مرسي دادش

مرسي داداش

دمت گرم داداش.خیلی کمک کرد

نمی شه دانلود کرد ارور 404 می ده :106:

404 Not Found

لینک خرابه

لینک خرابه
اگه میشه یه جا دیگه اپ کن

سلام
کسی از دوستان میتونه راهنمایی کنه چجوری خروجی exe از برنامه بگیرم
ممنون