Code Snippets

VB.NET Source Code

Welcome to Dream.In.Code
	Become a VB.NET Expert! Join 340,156 VB.NET Programmers for FREE! Get instant access to thousands of VB.NET experts, tutorials, code snippets, and more! There are 3,999 people online right now. Registration is fast and FREE... Join Now! Chat LIVE With a VB.NET Expert

Spoof you are online on a message board, etc.

Make the website display that you are "Online", when you aren't using the website.

Submitted By: RodgerB

Actions:

Rating:

Views: 653

Language: VB.NET

Last Modified: October 13, 2007

Instructions: Read the comments inside the snippet carefully to fully understand how it works.

Snippet

' This is our array of websites we want to visit, in order from top to bottom.
' First is the </dream.in.code> C/C++ forum, Second is the </dream.in.code> VB.NET
' forum, and finally we will use the </dream.in.code> PHP forum. (for the purpose
' of this snippet of course).
Dim WebpageList As String() = { _
"http://www.dreamincode.net/forums/showforum15.htm", _
"http://www.dreamincode.net/forums/showforum67.htm", _
"http://www.dreamincode.net/forums/showforum28.htm"}
' This is the timer that we will be using. We will make it cycle through the array
' of websites and navigate WebBrowser1 accordingly. I strongly recommend that you
' set WebBrowser1.Visible = false, so you aren't disturbed by the clicking noise
' made by navigating to websites (courtesy of IE). You will also need to have your
' cookies set so you log onto the site automatically, or you will be defined a guest.
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Static Counter As Integer = 0
WebBrowser1.Navigate(WebpageList(Counter))
Counter += 1
Counter = (Counter Mod WebpageList.Length)
End Sub

Copy & Paste

' This is our array of websites we want to visit, in order from top to bottom.
' First is the </dream.in.code> C/C++ forum, Second is the </dream.in.code> VB.NET
' forum, and finally we will use the </dream.in.code> PHP forum. (for the purpose
' of this snippet of course).

Dim WebpageList As String() = { _
"http://www.dreamincode.net/forums/showforum15.htm", _
"http://www.dreamincode.net/forums/showforum67.htm", _
"http://www.dreamincode.net/forums/showforum28.htm"}

' This is the timer that we will be using. We will make it cycle through the array
' of websites and navigate WebBrowser1 accordingly. I strongly recommend that you
' set WebBrowser1.Visible = false, so you aren't disturbed by the clicking noise
' made by navigating to websites (courtesy of IE). You will also need to have your
' cookies set so you log onto the site automatically, or you will be defined a guest.

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    Static Counter As Integer = 0
    WebBrowser1.Navigate(WebpageList(Counter))
    Counter += 1
    Counter = (Counter Mod WebpageList.Length)
End Sub