7 Январь 2009

Как открыть интернет страницу по указанному адресу?

Интернет |

Как открыть интернет страницу по указанному адресу?

Option Explicit

Private Declare Function ShellExecute Lib _
    "shell32.dll" Alias "ShellExecuteA" _
    (ByVal hwnd As Long, _
     ByVal lpOperation As String, _
     ByVal lpFile As String, _
     ByVal lpParameters As String, _
     ByVal lpDirectory As String, _
     ByVal nShowCmd As Long) As Long
Private Const SW_SHOW = 5
Dim link As String
Private Sub Navigate _
    (frm As Form, ByVal NavTo As String)
  Dim hBrowse As Long
  hBrowse = ShellExecute(frm.hwnd, _
    "open", NavTo, "", "", SW_SHOW)
End Sub

Private Sub Command1_Click()
Navigate Me, link
End Sub

Private Sub Form_Load()
Text1.Text = " /"
End Sub

Private Sub Text1_Change()
'Формат адреса
' /
link = Text1.Text
End Sub
Google Bookmarks Digg Reddit del.icio.us Ma.gnolia Technorati Slashdot Yahoo My Web News2.ru БобрДобр.ru RUmarkz Ваау! Memori.ru rucity.com МоёМесто.ru Mister Wong


Оставить комментарий

Я не робот.