Results 1 to 4 of 4

Thread: VB 6 !!!

Hybrid View

Previous Post Previous Post   Next Post Next Post
  1. #1
    Registered 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
    , , ( ). ?

  2. #2
    Registered User
    Join Date: Nov:2005
    Location:
    Posts: 3,317
    6 -, CharSet-a - ta win1251 - utf-8.

  3. #3
    Bombera's Avatar
    Join Date: Jul:2001
    Location: 4EVA
    Posts: 13,833
    - . 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|

  4. #4
    Registered User
    Join Date: Nov:2006
    Location: varna
    Posts: 10


    CharSet-a win1251 utf8.

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  

Copyright © 1999-2011 . .
iskamPC.com | mobility.BG | Bloody's Techblog | | 3D Vision Blog |