پاسخ به:برنامه نویسی(Assembly/C/C++/VB6/VB.net/C#/ASP/Mobile Programming)
نکته مهم : دوستان عزیز در نظرهای مختلف ابراز داشتند که چرا پروژه باز نمی شود . در جواب بایستی عرض کنم که فایل برای دانلود صحیح و سالم می باشد و مسلما برای اجرا بدون نرم افزار ویژوال بیسیک 6 باز نخواهد شد. برای دانلود ویژوال بیسیک اینجا کلیک کنید.
(Private Sub OpenUrl (URLName As StringDim objIE As Object Set objIE = CreateObject ("internetexplorer.application ")objIE.Visible = TrueobjIE.Navigate (Trim(URLName))End Sub
بعد یك Command و یك Textbox روی صفحه بذارید و خصوصیت Name اونها رو به ترتیب cmdGOو txtURLName قراربدید ، بعد هم می تونید با نوشتن كد زیر در رویداد Click مربوط به cmdGo به هر صفحه ای كه در ابنترنت دوست دارید دسترسی داشته باشید. به همین سادگی !
( )Private Sub cmdGO_ClickCall OpenUrl (txtURLName)End Sub
در این كد شما از مدل شی ء Internet Explorer استفاده كردید كه ما از دوصفت اون یعنیVisible برای نمابش IE و Navigate برای فراخوانی URL مورد نظر استفاده كردیم.
دانلود برنامه حجم ۱۲ KB
vb
دانلود برنامه حجم 15۶ KB
سورس کد ویرایش رجیستری با ویژوال
دانلود