Skip to main content

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 = _
                    CType(lRequest.GetResponse(), HttpWebResponse)

            'Check the response code
            If lResponse.StatusCode <> HttpStatusCode.OK Then
                Dim lSb As New StringBuilder
                lSb.AppendFormat("Received an invalid Http response code: {0}", _
                                    lResponse.StatusCode.ToString)
                Call SendNotification(pUrl, lSb.ToString)
            End If

            lResponse.Close()

            Console.WriteLine(Now.ToString & " - Site Check Ok: " & pUrl)

        Catch ex As Exception
            Call SendNotification(pUrl, ex.Message)
        End Try
    End Sub

    Private Sub SendNotification(ByVal pUrl As String, ByVal pMessage As String)
        'Start by creating a mail message object
        Dim MyMailMessage As New MailMessage()

        'From requires an instance of the MailAddress type
        MyMailMessage.From = New MailAddress("<email>@gmail.com")

        'To is a collection of MailAddress types
        MyMailMessage.To.Add("<email>@gmail.com")

        MyMailMessage.Subject = String.Format("SiteChecker error: {0}", pUrl)
        MyMailMessage.Body = pMessage

        'Create the SMTPClient object and specify the SMTP GMail server
        Dim SMTPServer As New SmtpClient("smtp.gmail.com")
        SMTPServer.Port = 587
        SMTPServer.Credentials = New  _
            System.Net.NetworkCredential("<email>@gmail.com", "<password>")
        SMTPServer.EnableSsl = True

        Try
            SMTPServer.Send(MyMailMessage)
        Catch ex As SmtpException
            Console.WriteLine(ex.Message)
        End Try

    End Sub

End Module

Regard 
Rashid Imran Bilgrami 

Comments

  1. Excеllent post. I will Ьe facing many of tҺese іssues ɑs well..

    ReplyDelete

Post a Comment

Thanks for the Comments , Your review will display soon

Popular posts from this blog

How to convert and crack windows server 2012 from Evaluation to Full

Dear All

This is a way how you Convert Evalution to Full

Step1:

Open CMD and run following command
DISM /online /Get-CurrentEdition


<edition ID> is like ServerStandard with out Eval

Step 2:
DISM /online /Set-Edition:<edition ID> /ProductKey:XXXXX-XXXXX-XXXXX-XXXXX-XXXXX /AcceptEula



WINDOWS SERVER 2012
Serial Key

Windows Server 2012
DataCenter: 48HP8-DN98B-MYWDG-T2DCC-8W83P
Datacenter: Y4TGP-NPTV9-HTC2H-7MGQ3-DV4TW

Standard: XC9B7-NBPP2-83J2H-RHMBY-92BT4
Standard R2: DBGBW-NPF86-BJVTX-K3WKJ-MTB6V

Server Essentials:K2XGM-NMBT3-2R6Q8-WF2FK-P36R2


For Standard R2 here is a command
For R2 its like that
DISM /online /Set-Edition:ServerStandard /ProductKey:DBGBW-NPF86-BJVTX-K3WKJ-MTB6V /AcceptEula

Regards

Calling LoadLibraryEx on ISAPI filter “C:\Windows\Microsoft.NET\Framework\v4.0.30319\aspnet_filter.dll” failed

Dear Readers
if you get the error

Calling LoadLibraryEx on ISAPI filter “C:\Windows\Microsoft.NET\Framework\v4.0.30319\aspnet_filter.dll” failed


Here is the solution 
Get a command prompt in administrator mode and go to C:\Windows\Microsoft .NET\FrameWork64\v4.xxx
and run aspnet_regiis -r. This will re-register the right libraries. It has happened twice already to me.
For other frameworks (32 bit or other versions of .net make sure you go to the correct folder (i.e. Framework/v2.xxx, etc.)

xxxx is the the number which is present with the folder name so i suggest you guys to check the folder name in your directory

If "run aspnet_regiis -r" is not working and if you get the error run is not recognized command then just type " aspnet_regiis -r" it will run fine

Reason of problem
Your asp.net frame work has been change may be you have install the lower version on the higher version or may be because of any reason you have register another version in your IIS, in my cas…

RegisterStartupScript updated way to right Java script JS (Javascript) in code behind also work with update panel

Dear All
RegisterStartupScript is obsolete now the new way that works with update panel  is given below its is code behind file code also

VB Code Dim csname1 As String = "PopupScript"
Dim cstype As Type = Me.GetType()
Dim cs As ClientScriptManager = Page.ClientScript
Dim cstext1 As String = "alert('Your message');"
cs.RegisterStartupScript(cstype, csname1, cstext1, True)

C# Code
String csname1 = "PopupScript";
Type cstype = this.GetType();
ClientScriptManager cs = Page.ClientScript;
String cstext1 = "alert('Hello World');"; cs.RegisterStartupScript(cstype, csname1, cstext1, true);
I hope it will help you also 
Regards  Rashid Imran Bilgrami