X
تبلیغات
رایتل
سه‌شنبه 16 تیر‌ماه سال 1388 ساعت 08:44 ب.ظ

برای نمونه یک سورس می نویسم که شما می تونید با اون از طریق 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


del.icio.us  digg  newsvine  furl  Y!  smarking  segnalo