رتبه موضوع:
  • 16 رای - 2.75 میانگین
  • 1
  • 2
  • 3
  • 4
  • 5
سریعترین روش دریافت سورس سایت
#1
درود خسته نباشید دوستان سریعترین روش ممکن برای دریافت سورس سایت بدون هنگ کردن چی؟

از این روش هم استفاده میکنم ولی متاسفانه متن پارسی در سورس به شکل ناخانا نمایش میده

کد پی‌اچ‌پی:
Private Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" (ByVal sAgent As StringByVal lAccessType As LongByVal sProxyName As StringByVal sProxyBypass As StringByVal lFlags As Long) As Long
Private Declare Function InternetOpenUrl Lib "wininet.dll" Alias "InternetOpenUrlA" (ByVal hInternetSession As LongByVal sURL As StringByVal sHeaders As StringByVal lHeadersLength As LongByVal lFlags As LongByVal lContext As Long) As Long
Private Declare Function InternetReadFile Lib "wininet.dll" (ByVal hFile As LongByVal sBuffer As StringByVal lNumBytesToRead As LonglNumberOfBytesRead 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 GetSource(sURL As String) As String
    Dim sBuffer 
As String BUFFER_LENiResult As IntegersData As String
    Dim hInternet 
As LonghSession As LonglReturn As Long
    hSession 
InternetOpen("vb wininet"1vbNullStringvbNullString0)
    If 
hSession Then hInternet InternetOpenUrl(hSessionsURLvbNullString0IF_NO_CACHE_WRITE0)
    If 
hInternet Then
        iResult 
InternetReadFile(hInternetsBufferBUFFER_LENlReturn)
        
sData sBuffer
        
Do While lReturn <> 0
            iResult 
InternetReadFile(hInternetsBufferBUFFER_LENlReturn)
            
sData sData Mid(sBuffer1lReturn)
        
Loop
    End 
If
    
iResult InternetCloseHandle(hInternet)
    
GetSource sData
End 
Function 


 

 
پاسخ


موضوعات مشابه ...
موضوع نویسنده پاسخ بازدید آخرین ارسال
  سورس کد کار با وب کم (ویژوال بسیک 6) Amin_Mansouri 1 5,267 04-20-2015، 10:10 PM
آخرین ارسال: hackert41389
  دانلود قسمتی از یه سایت در برنامه aghamali 1 1,080 11-07-2014، 09:40 PM
آخرین ارسال: Amin_Mansouri
  سورس کد ذخیره میخوام روشنا 5 3,549 06-25-2014، 08:46 AM
آخرین ارسال: Amin_Mansouri
  دریافت سورس سایت بصورت یونیکد aleas 3 1,934 06-07-2014، 09:19 PM
آخرین ارسال: aleas
  سورس کدهای ویژوال بیسیک Amin_Mansouri 6 7,124 05-30-2014، 12:41 AM
آخرین ارسال: kalam
  سورس جمع آوری وبلاگ های بروز میهن بلاگ saeedh 7 3,278 05-26-2014، 04:09 PM
آخرین ارسال: Amin_Mansouri
  مشکل در سورس ثبت نام tiktak990 3 2,321 05-13-2014، 10:43 AM
آخرین ارسال: tiktak990
  سورس کد زوم کردن بر روی عکس ویژوال بیسیک 6 Amin_Mansouri 1 4,268 04-26-2014، 11:11 PM
آخرین ارسال: سلام
  سورس کد دانلود فایل Amin_Mansouri 1 5,148 04-21-2014، 03:04 PM
آخرین ارسال: saelozahra
  دانلود 2 هزار 300 سورس کد ویژوال بیسیک 6 (ویژوال بیسیک 6 از ابتدا تا حرفه ای شدن Amin_Mansouri 4 11,772 04-16-2014، 10:16 PM
آخرین ارسال: Amin_Mansouri

پرش به انجمن:


کاربران در حال بازدید این موضوع: 1 مهمان
<------> <____> <<<<----------------->>>> <<<<--->>>>>
This forum uses Lukasz Tkacz MyBB addons.