Eksekvere en web-side dagligt?

En mulighed var at sende en HTTP POST request med (Http)WebRequest.

Cool! - Jeg skal bare bruge nogle muligheder - Så gives der point til den jeg ender med, som virker mest fornuftig :-D

Sig til hvis du skal have et kode eksempel på (Http)WebRequest

Det er altid velkomment!

Lidt skitseret kode:

        Dim req As HttpWebRequest = CType(WebRequest.Create(url), HttpWebRequest)
        req.Method = "POST"
        req.ContentType = "application/x-www-form-urlencoded"
        Dim post As StreamWriter = new StreamWriter(req.GetRequestStream)
        post.Write("field1=value1&field2=value2")
        post.Close()
        Dim resp As HttpWebResponse = CType(req.GetResponse, HttpWebResponse)
        Dim stm As Stream = resp.GetResponseStream
        Dim c As Integer
        Dim more As boolean = true
        While (more)
            c = stm.ReadByte
            If (c >= 0) Then
                ' c is data
            Else
                more = false
            End If
        End While
        stm.Close
        resp.Close

[copy pastet fra 3 forskellige kilder, så check lige syntax]

Et komplet eksempel som er testet:

Imports System
imports System.IO
Imports System.Net

Module Main
    Sub Main()
        Dim url As String = "http://www.domain.dk/foobar.asp"
        Dim req As HttpWebRequest = CType(WebRequest.Create(url), HttpWebRequest)
        req.Method = "POST"
        req.ContentType = "application/x-www-form-urlencoded"
        Dim post As StreamWriter = new StreamWriter(req.GetRequestStream)
        post.Write("field1=value1&field2=value2")
        post.Close()
        Dim resp As HttpWebResponse = CType(req.GetResponse, HttpWebResponse)
        Dim stm As Stream = resp.GetResponseStream
        Dim c As Integer
        Dim more As boolean = true
        While (more)
            c = stm.ReadByte
            If (c >= 0) Then
                Console.Write(Convert.ToChar(c))
            Else
                more = false
            End If
        End While
        stm.Close
        resp.Close
    End Sub
End Module

OK ?

Jeg finder lige lidt tid til at kigge på det i aften, så skal jeg nok vende tilbage ;-)

En mulighed kunne jo også være at lave dit eget httpmodule.

Her er et eks. som sender en mail hvert minut:
Imports System.Data.SqlClient
Imports System.Threading
Imports System.Web.Mail
Public Class MailSender
    Implements System.Web.IHttpModule

    Private Shared onemunite As Timer

    Public Sub Init(ByVal application As System.Web.HttpApplication) Implements System.Web.IHttpModule.Init
        If onemunite Is Nothing Then
            onemunite = New Timer(New TimerCallback(AddressOf scheduledjob), application.Context, 60000, 60000)
        End If
    End Sub

    Public Sub Dispose() Implements IHttpModule.Dispose
        onemunite = nothing
    End Sub

    Private Sub scheduledjob(ByVal sender As Object)
        Dim m As New Mail.MailMessage
        m.From = "me@home.net"
        m.To = "not@home.net"
        m.Subject = "HTTPModule"
        m.Body = "Hej der"
        System.Web.Mail.SmtpMail.SmtpServer = dimsmtp
        System.Web.Mail.SmtpMail.Send(m)
    End Sub
End Class

Tak Arne

Det var bare et spørgsmål om at paste det ind i et projekt, ændre URL'en, og så virkede det :-D

Nu skal jeg dog bruge en ekseptionel høj timeout, da den side jeg skal eksekvere godt kan tage 10-15 min at fyre af, men det er bare fodarbejde resten af vejen ;-)

HttpWebRequest har en Timeout property så det er jo nemt nok.

Lige præcis ;-)