Results 1 to 4 of 4
Thread: VB 6 !!!
Hybrid View
-
21st April 2011 14:48 #1Registered User
Join Date: Nov:2006
Location: varna
Posts: 10
VB 6 !!!
,
: http://www.puulse.com/BG/Home.htm
visual basic 6 :
Code:Private Sub Command1_Click() Call GetHtml("http://www.puulse.com/BG/Home.htm") End Sub, , ( ). ?Code:Function GetHtml(strURL) Dim objHTTP As Object, strText As String ' ,strURL As String Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP") objHTTP.Open "GET", strURL, False objHTTP.setRequestHeader "User-Agent", _ "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)" & vbCrLf objHTTP.setRequestHeader "CharSet", "utf-8" objHTTP.send ("") If objHTTP.statusText = "OK" Then strText = objHTTP.responseText Set objHTTP = Nothing RichTextBox1 = strText 'strURL = "" End If End Function
-
22nd April 2011 17:16 #2Registered User
Join Date: Nov:2005
Location:
Posts: 3,317
6 -, CharSet-a - ta win1251 - utf-8.
-
22nd April 2011 17:59 #3
- . UTF-8 ANSI , .
- UTF8 UNICODE ANSI Win32 API (MultiByteToWideChar WideCharToMultiByte) .EVGA X299 FTW K|i9-7960X@4.7|4x8 Patriot Viper Steel 4000|GTX 1660 Ti|970 EVO 1 TB|Seasonic Focus GX-1000|Xigmatek Elysium|
Rampage IV Extreme BE|E5-1680v2@4.7|4x4 HyperX 1866|Cougar Aqua 240|GTX 1050 Ti|970 EVO 1/4 TB|CM 850 SilentPro|HAF-X|
-
16th May 2011 14:14 #4Registered User
Join Date: Nov:2006
Location: varna
Posts: 10

CharSet-a win1251 utf8.




Reply With Quote
Lenovo ThinkPad 15 IdeaPad 15
5th May 2023, 22:16 in