Подключиться к интернету програмно

[FaKk2]

Sync

Ани мация тебе воспользоваться поиском. В правом верхнем углу.

[FaKk2]

Мне интересно. Ты пробовал на Яндекс зайти? или Гугл? Я только что зашел и нашел кучу ссылок.

[FaKk2]

Например здесь.


ЗЫ всем: "Ани мация", совсем не тоже самое что "анимация"

[ALX_2002]

Вот рабочий пример. Я уже когда то его постил.

Код: Выделить всё

Private Const INTERNET_OPEN_TYPE_PRECONFIG = 0
Private Const INTERNET_OPEN_TYPE_DIRECT = 1
Private Const INTERNET_OPEN_TYPE_PROXY = 3
Private Const scUserAgent = "Microsoft User Agent"
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, BytesToRead 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 bRet As Boolean
  Dim sReadBuffer As String * 2048
  Dim BytesToRead As Long
  Dim sBuffer As String
 
  sUrl = Replace(sUrl, "\", "/")
  If Left(sUrl, 7) <> "http://" Then sUrl = "http://" & sUrl

  hOpen = InternetOpen(scUserAgent, INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString, 0)
  hOpenUrl = InternetOpenUrl(hOpen, sUrl, vbNullString, 0, INTERNET_FLAG_RELOAD, 0)
 
  If hOpenUrl = False Then
   MsgBox "CONNECTION FAILED"
  Else
   Do
    sReadBuffer = vbNullString
    bRet = InternetReadFile(hOpenUrl, sReadBuffer, Len(sReadBuffer), BytesToRead)
    sBuffer = sBuffer & Left$(sReadBuffer, BytesToRead)
   Loop Until BytesToRead = 0
  End If
  If hOpenUrl <> 0 Then InternetCloseHandle (hOpenUrl)
  If hOpen <> 0 Then InternetCloseHandle (hOpen)
  OpenURL = sBuffer
End Function

Private Sub Form_Activate()
Dim URL As String
Print "Click to navigate another WEB page." & vbCrLf & String(100, "-")
Print OpenURL(InputBox("Print page adres (Example:www.mail.ru).", "xXx", "http://www.mail.ru"))
End Sub

Private Sub Form_Click()
Form_Activate
End Sub


[BV]

2 ALX_2002

Делай как я - прикрепи свой пример в подписи

[ALX_2002]

2 BV: Хм... А эт как ? Пойду разберусь как это..

Кстати - Я тут никак себе аватару сменить не могу из-за того что регился давно у меня этого пункта меню в настройках нету.