آموزش تصویری ساخت آدرس یاب
پاسخ : آموزش تصویری ساخت آدرس یاب
پاسخ : آموزش تصویری ساخت آدرس یاب
با سلام وتشکر از شما من این فایل تصویری را دانلود کردم و بیش از صدبار این برنامه را نگاه کردم ولی چند قسمتش نامفهومه مثلا آنجایی که میگه ما به یک ماژول احتیاج داریم اصلا معلوم نیست ماژول رو از کجا آورد.
پاسخ : آموزش تصویری ساخت آدرس یاب
اموزش که واضح هست .کجا مشکل دارید؟
پاسخ : آموزش تصویری ساخت آدرس یاب
نقل قول:
نوشته اصلی توسط
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 راحت تر و ساده ترم هست.
اگه اون آدرس ***** شد چی؟@-)
پاسخ : آموزش تصویری ساخت آدرس یاب
سعی میکنیم یه ادرس بدیم **** نشه.من راه ساده گفتم نگفتم این غلطه.
@-)
