ASP.NET

Member 1648727 wrote:

like is there any Internet connection and so. I dont like that.

Mark Nischalke wrote:

Webservices are more of a pull technology. Something must initiate the action. A Windows Service on the other hand can be designed to self trigger, or run at a set interval.

Mark Nischalke wrote:

Without an internet connection how are you planning on checking these websites for keywords?

Member 1648727 wrote:

Please someone , let me know that is practice here, so I don't go around to much

Mark Nischalke wrote:

You have been given the answer, several times.

Mark Nischalke wrote:

This project is clearly beyond your abilities if you can't see that. Leave it someone else, or give up.

Imports System.Net.Mail<br />
Imports System.IO.Ports<br />
<br />
Public Class Service1<br />
<br />
    Public Names(25, 2) As String<br />
<br />
    Public Sub CheckBAH()<br />
        Dim strHTML As String = GetPageHTML("http://www.**********.aspx")<br />
        Dim pos As Integer = strHTML.IndexOf("")<br />
        strHTML = strHTML.Substring(pos, 200)<br />
        Dim Username As String = strHTML.Substring(3, strHTML.IndexOf("(") - 3).Trim<br />
        'Dim pin As String = strHTML.Substring(3, strHTML.IndexOf("(") - 3).Trim<br />
<br />
        Dim eur As Integer = strHTML.IndexOf("€")<br />
        Dim Prize As String = strHTML.Substring(eur - 10, 10)<br />
<br />
        Dim i As Integer<br />
        For i = 0 To 25<br />
            If Username.ToUpper = Names(i, 0).ToUpper Then<br />
                SendEmail(" Izvucen si ", Names(i, 0) & Names(i, 1) & Prize, "*************@yahoo.com")<br />
                'SendEmail(" Izvucen si ", Names(i, 0) & Names(i, 1) & Prize , "*************@yahoo.com")<br />
            End If<br />
        Next<br />
    End Sub<br />
<br />
    Public Function GetPageHTML(ByVal URL As String) As String<br />
        ' Retrieves the HTML from the specified URL<br />
        Dim objWC As New System.Net.WebClient()<br />
        Return New System.Text.UTF8Encoding().GetString(objWC.DownloadData(URL))<br />
    End Function<br />
<br />
    Public Function SendEmail(ByVal strSubject As String, ByVal strBody As String, ByVal strEmail As String) As String<br />
        Dim message As New MailMessage(strEmail, strEmail, strSubject, strBody)<br />
        Dim emailClient As New SmtpClient("out.mail.bih.net.ba")<br />
        Dim SMTPUserInfo As New System.Net.NetworkCredential("******", "******")<br />
        emailClient.UseDefaultCredentials = False<br />
        emailClient.Credentials = SMTPUserInfo<br />
<br />
        emailClient.Send(message)<br />
        Return 0<br />
    End Function<br />
<br />
    Private Sub InitializeComponent()<br />
        Me.components = New System.ComponentModel.Container<br />
        Me.Timer1 = New System.Windows.Forms.Timer(Me.components)<br />
        Me.SuspendLayout()<br />
        '<br />
        'Timer1<br />
        '<br />
        Me.Timer1.Interval = 1000<br />
        '<br />
        'Service1<br />
        '<br />
        Me.ClientSize = New System.Drawing.Size(292, 266)<br />
        Me.Name = "Service1"<br />
        Me.ResumeLayout(False)<br />
<br />
    End Sub<br />
<br />
<br />
    Public Sub ReadNames()<br />
        Names(0, 0) = "********"<br />
	.........<br />
        Names(25, 1) = "**********"<br />
    End Sub<br />
<br />
<br />
    Private Sub Timer1_Tick_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick<br />
        <br />
        Debug.Print(Internet)<br />
        'CheckBAH()<br />
    End Sub<br />
    Private Function Internet() As Boolean<br />
        Dim siteResponds As Boolean = False<br />
        Try<br />
            siteResponds = My.Computer.Network.Ping("www.google.com")<br />
        Catch ex As Exception<br />
<br />
            Return siteResponds<br />
        End Try<br />
        Return siteResponds<br />
    End Function<br />
<br />
    Private Sub Service1_Load_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />
        ReadNames()<br />
        Timer1.Start()<br />
        <br />
    End Sub<br />
End Class<br />

Member 1648727 wrote:

probably no one here understands this matter, or maybe I was not clear enough.

deepaknigam11 wrote:

Please tell me that these controls are reliable