VBNet - Форум - Люди добрые, help конв мой код с VB в VB.NET срочн

Вопрос: Люди добрые, help конв мой код с VB в VB.NET срочн Добавлено: 18.02.10 14:49

Автор вопроса: duh | Web-сайт: aworld.at.ua/

  Мне необходимо кновернуть код в VB.NET с VB, качать нет времени и сил... Если кто знает хороший конв без оплат всяких - плиз дайте, или помогите перевсти, там немного и нужно то всего одну строку конвертнуть из кода (она выделена жирным)
Private Const INTERNET_OPEN_TYPE_PRECONFIG = 0
    Private Const INTERNET_OPEN_TYPE_DIRECT = 1
    Private Const INTERNET_OPEN_TYPE_PROXY = 3
    Private Const scUserAgent = "VB Project"
    Private Const INTERNET_FLAG_RELOAD = &H80000000
    Private Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
    Private Declare Function InternetOpenUrl Lib "wininet.dll" Alias "InternetOpenUrlA" (ByVal hOpen As Long, ByVal sUrl As String, ByVal sHeaders As String, ByVal lLength As Long, ByVal lFlags As Long, ByVal lContext As Long) As Long
    Private Declare Function InternetReadFile Lib "wininet.dll" (ByVal hFile As Long, ByVal sBuffer As String, ByVal lNumBytesToRead As Long, ByVal lNumberOfBytesRead As Long) As Integer
    Private Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long) As Integer

    Private Function OpenURL(ByVal sUrl As String) As String
        Dim hOpen As Long
        Dim hOpenUrl As Long
        Dim bDoLoop As Boolean
        Dim bRet As Boolean
Dim sReadBuffer As String * 2048
        Dim lNumberOfBytesRead As Long
        Dim sBuffer As String
        hOpen = InternetOpen(scUserAgent, INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString, 0)
        hOpenUrl = InternetOpenUrl(hOpen, sUrl, vbNullString, 0, INTERNET_FLAG_RELOAD, 0)
        bDoLoop = True
        While bDoLoop
            sReadBuffer = vbNullString
            bRet = InternetReadFile(hOpenUrl, sReadBuffer, Len(sReadBuffer), lNumberOfBytesRead)
             sBuffer = sBuffer & Left$(sReadBuffer, lNumberOfBytesRead)
            If Not CBool(lNumberOfBytesRead) Then bDoLoop = False
        End While
        If hOpenUrl <> 0 Then InternetCloseHandle(hOpenUrl)
        If hOpen <> 0 Then InternetCloseHandle(hOpen)
        OpenURL = sBuffer
    End Function

    Private Sub Command1_Click()
        Text1 = OpenURL("http://vbnet.ru/faq/showall.asp")
    End Sub
Ответить

Ответы Всего ответов: 4

Номер ответа: 1 Автор ответа: Skywalker ICQ: 300-70-6пятьЪ Вопросов: 62 Ответов: 545	Web-сайт: iSkywalker.ru Профиль \| \| #1	Добавлено: 18.02.10 21:51
	Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("http://vbnet.ru/faq/showall.asp") Dim response As New System.IO.StreamReader(request.GetResponse().GetResponseStream(), System.Text.Encoding.GetEncoding(1251)) Dim str As String = response.ReadToEnd() MsgBox(str) Ответить

Номер ответа: 2 Автор ответа: duh Вопросов: 3 Ответов: 6	Web-сайт: aworld.at.ua/ Профиль \| \| #2	Добавлено: 19.02.10 04:47
	Пасиба! ))))))) Ответить

Номер ответа: 3 Автор ответа: Artyom Разработчик Вопросов: 130 Ответов: 6602	Профиль \| \| #3	Добавлено: 20.02.10 07:15
	System.Net.WebClient.DownloadString Ответить

Номер ответа: 4 Автор ответа: Artyom Разработчик Вопросов: 130 Ответов: 6602	Профиль \| \| #4	Добавлено: 20.02.10 07:16
	Если в какой-то нестандартной кодировке, то сначала DownloadData, затем через System.Text.Encoding кодируешь в строку в нужной кодирвоке Ответить

Страница: 1 |