برنامه نویسی(Assembly/C/C++/VB6/VB.net/C#/ASP/Mobile Programming)

(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

در این كد شما از مدل شی ء Internet Explorer استفاده كردید كه ما از دوصفت اون یعنیVisible برای نمابش IE و Navigate برای فراخوانی URL مورد نظر استفاده كردیم. 

دانلود برنامه حجم ۱۲ KB

vb

حروف اختصار

 سورس کد ویرایش رجیستری با ویژوال 

دانلود