نحوه ی ساخت مرورگر مخفی با ویژوال بیسیک 6 :

1-یک پروژه از نوع Exe باز کنید

2- از منوی Project گزینه ی Components را انتخاب کنید

3- از زیر مجموعه ی Controls تیک گزینه ی Microssoft Internet Controls را بزنید بعد پنجره را Ok کنید

4- حالا شیء Web Browser به اخر ابزار ها اضافه شده است روی ان دوبار کلیک کنید تا به فرم اضافه شود

5- در قسمت Load فرمتان کدهای زیر را اضافه کنید

Private Sub Form_Load()

Me.Tag = "www.aminch.blogfa.com"

WebBrowser1.Navigate Me.Tag

Timer1.Enabled = True

Timer1.Interval = 20000

Me.Hide

DoEvents

End Sub

6- حالا یک شیء Timer به فرمتان اضافه کنید روی آن دوبار کلیک کرده و کد زیر را درون ان بنویسید

Private Sub Timer1_Timer()

WebBrowser1.Navigate Me.Tag

WebBrowser1.Refresh

End Sub

7- روی شیءWebBrowser دوبار کلیک کرده و در رویداد NavigateComplete2 این شی ، کد زیر را وارد کنید

Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As_ Variant)

Timer1.Enabled = True

End Sub

 کار تمام است برنامه را اجرا کنید.

　سورس