• ¡Welcome to Square Theme!
  • This news are in header template.
  • Please ignore this message.
مهمان عزیز خوش‌آمدید. ورود عضــویت


امتیاز موضوع:
  • 23 رای - 2.91 میانگین
  • 1
  • 2
  • 3
  • 4
  • 5
Title: دریافت سورس سایت بصورت یونیکد
حالت خطی
#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 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 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 
 
 
پاسخ
  


پیام‌های این موضوع
دریافت سورس سایت بصورت یونیکد - توسط aleas - 06-02-2014، 11:39 AM

موضوعات مشابه ...
موضوع نویسنده پاسخ بازدید آخرین ارسال
  سورس کدهای ویژوال بیسیک Amin_Mansouri 8 18,466 05-15-2017، 04:35 PM
آخرین ارسال: minarad69
  سورس کد شماره گیری از مودم (ویژوال بیسیک 6 ) Amin_Mansouri 1 7,061 05-07-2017، 06:54 PM
آخرین ارسال: alikorg
  سورس کد کار با وب کم (ویژوال بسیک 6) Amin_Mansouri 1 8,572 04-20-2015، 10:10 PM
آخرین ارسال: hackert41389
  دانلود قسمتی از یه سایت در برنامه aghamali 1 3,696 11-07-2014، 09:40 PM
آخرین ارسال: Amin_Mansouri
  سورس کد ذخیره میخوام روشنا 5 10,423 06-25-2014، 08:46 AM
آخرین ارسال: Amin_Mansouri
  سورس جمع آوری وبلاگ های بروز میهن بلاگ saeedh 7 10,597 05-26-2014، 04:09 PM
آخرین ارسال: Amin_Mansouri
  سریعترین روش دریافت سورس سایت aleas 0 3,520 05-20-2014، 12:17 AM
آخرین ارسال: aleas
  مشکل در سورس ثبت نام tiktak990 3 6,826 05-13-2014، 10:43 AM
آخرین ارسال: tiktak990
  سورس کد زوم کردن بر روی عکس ویژوال بیسیک 6 Amin_Mansouri 1 7,421 04-26-2014، 11:11 PM
آخرین ارسال: سلام
  سورس کد دانلود فایل Amin_Mansouri 1 8,443 04-21-2014، 03:04 PM
آخرین ارسال: saelozahra

پرش به انجمن:


Browsing: 3 مهمان