Skip to main content

Posts

Showing posts from April, 2014

Create Your Own Keep Alive Service

Dear All  You can create your own keep alive service by blow code (Note i got this code but it still not tested yet)  original post  http://al-atari.net/?p=569

Imports System.IO Imports System.Net Imports System.Text Imports System.Net.Mail
Module Startup
    Sub Main()         Call CheckOneSite("http://www.part-time-work-at-home-opportunities.com/keepalive.aspx")         Call CheckOneSite("http://www.site2.com")         Call CheckOneSite("http://www.site3.com")         Call CheckOneSite("http://www.siten.com")     End Sub
    Private Sub CheckOneSite(ByVal pUrl As String)         Try             ' Create a request for the URL.                      Dim lRequest As WebRequest = WebRequest.Create(pUrl)
            ' If required by the server, set the credentials.             lRequest.Credentials = CredentialCache.DefaultCredentials
            ' Get the response.             Dim lResponse As HttpWebResponse = _                     CTy…