有人能把C# "HttpWebRequest“转换成VB6吗？

Private Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" (ByVal lpszAgent As String, ByVal dwAccessType As Long, ByVal lpszProxyName As String, ByVal lpszProxyBypass As String, ByVal dwFlags As Long) As Long
Private Declare Function InternetOpenUrl Lib "wininet.dll" Alias "InternetOpenUrlA" (ByVal hInternetSession As Long, ByVal lpszUrl As String, ByVal lpszHeaders As String, ByVal dwHeadersLength As Long, ByVal dwFlags As Long, ByVal dwContext As Long) As Long
Private Declare Function InternetReadFile Lib "wininet.dll" (ByVal hFile As Long, ByVal lpBuffer As String, ByVal dwNumberOfBytesToRead As Long, lpNumberOfBytesRead As Long) As Integer
Private Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long) As Integer

Public Function SendHttpRequest(ByVal url As String) As String
    Dim hInternet As Long
    Dim hConnect As Long
    Dim bytesRead As Long
    Dim buffer As String * 4096
    Dim result As String
    
    ' 初始化WinINet
    hInternet = InternetOpen("VB6App", 0, vbNullString, vbNullString, 0)
    
    If hInternet <> 0 Then
        ' 打开URL
        hConnect = InternetOpenUrl(hInternet, url, vbNullString, 0, 0, 0)
        
        If hConnect <> 0 Then
            ' 读取响应内容
            bytesRead = 0
            result = ""
            
            Do
                InternetReadFile hConnect, buffer, Len(buffer), bytesRead
                result = result & Left$(buffer, bytesRead)
            Loop While bytesRead > 0
            
            ' 关闭连接
            InternetCloseHandle hConnect
        End If
        
        ' 关闭WinINet
        InternetCloseHandle hInternet
    End If
    
    SendHttpRequest = result
End Function

Dim response As String
response = SendHttpRequest("http://www.example.com")
MsgBox response