برای نمونه یک سورس می نویسم که شما می تونید با اون از طریق Internet Explorer به سایت مورد نظرتون از داخل برنامه خودتون وارد بشید : این کد را در قسمت Form / General بنویسید (Private Sub OpenUrl (URLName As String Dim objIE As Object ("Set objIE = CreateObject ("internetexplorer.application objIE.Visible = True ((objIE.Navigate (Trim(URLName End Sub
بعد یک Command و یک Textbox روی صفحه بزارید و خصوصیت Name اونها رو به ترتیب cmdGOو txtURLName قراربدید ، بعد هم می تونید با نوشتن کد زیر در رویداد Click مربوط به cmdGo به هر صفحه ای که در ابنترنت دوست دارید دسترسی داشته باشید. به همین سادگی !
( )Private Sub cmdGO_Click (Call OpenUrl (txtURLName End Sub
|