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

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

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…

Multi Language Website In DNN Or Content Localization in DNN

Dear Readers
Before that when we create the Multi Language website in dnn we always create two portal but with DNN 5.x version you will use the language resource for creating multi language website website

You are facing two major challenges to create Multi language website
1) Translation of the DNN controls in to local language
2) Translate your own pages navigation or menu in to multi languages
3) Translate your own custom content in to local language
4) Translate your custom modules in to the local languages

Lets start with the first challange

Challenge 1: Translation of the DNN controls in to local language 
This is an easiest part, you can follow the steps achieve this challenge

1) Login with your host/Admin  account
2) Go to the Admin / Languages
3) Click on ADD Languages
4) Select the language that you need and Add it
5) You will see now two languages in your language section
6) With the list you will see the three option

Static Resources
System | Host |Site

7) you can click on t…