httpwebrequest 2.0

Hej Agerled.

Nu er jeg jo ekstremt ny i det her sprog, men synes jeg har haft lignende problem stilling.

I din try åbner du op for dit objekt. Objektet prøver at sende sms´en. Hvis objektet ikke bliver åbnet korrekt, så lukker du jo faktisk ikke objektet igen.

Altså:

Catch
ditobjekt = Nothing
End Try

Jeg havde et lignende script, hvor jeg tjekkede om en givent websted var online / aktivt. Dér fastfrossede scriptet også, men at lukke objektet hjalp altså :)

ok. Jeg kan lige se om det er det.

...men egentlig bliver min kode afviklet korrekt, det går bare meget langsom i forhold til hvad det gjorde i .net 1.1...?

Okay..

Som sagt er jeg ret ny, men udfører dit script egentlig ikke bare et kald til en given web adresse. Med andre ord, sender du egentlig ikke bare en string afsted til http://server, der så aktiverer et script og sender sms´en derfra?

I så fald det er det eneste job scriptet udfører har jeg et fint velfungerende eksempel..

jo det er det eneste den gør. Jeg vil da gerne se dit eksempel..

Herligt..

Jeg bruger som sagt script selv til at kontrollere webstatus.

        url_to_send = "http://server/?msg=" & HttpUtility.UrlEncode(Message.Replace(vbNewLine, vbLf), System.Text.Encoding.Default) & "&rec=" & ReceiveNumber & "&sapid=xxx&oadc=" & Sender

        Dim objUrl As New System.Uri(url_to_send)

        ' Setup WebRequest
        Dim objWebReq As System.Net.WebRequest
        objWebReq = System.Net.WebRequest.Create(objUrl)
        Dim objResp As System.Net.WebResponse
        Try
            objResp = objWebReq.GetResponse
            objResp.Close()
            objWebReq = Nothing
        Catch ex As Exception
            objWebReq = Nothing
        End Try

Du kunne også lave den som en funktion..

    Public Function SendMessageToSms() As Boolean

        url_to_send = "http://server/?msg=" & HttpUtility.UrlEncode(Message.Replace(vbNewLine, vbLf), System.Text.Encoding.Default) & "&rec=" & ReceiveNumber & "&sapid=xxx&oadc=" & Sender

        Dim objUrl As New System.Uri(url_to_send)

        ' Setup WebRequest
        Dim objWebReq As System.Net.WebRequest
        objWebReq = System.Net.WebRequest.Create(objUrl)
        Dim objResp As System.Net.WebResponse
        Try
            objResp = objWebReq.GetResponse
            objResp.Close()
            objWebReq = Nothing
        Catch ex As Exception
            objWebReq = Nothing
        End Try

    End Function




If SendMessageToSms() = True Then
  MessageBox.Show("Beskeden blev sendt!")
Else
  MessageBox.Show("Besked blev ikke sendt")
End If

Dit eksempel virker også, men systemet låser alligevel i 3 sekunder. Kan det virkelig ikke gøres bedre?

Hmm..

Det virker upåklageligt.. Måske skyldes det andre objekter du ikke lukker ordentligt?

Ellers må du jo vente til Mr. Olebole kommer forbi :)

Ja. Ellers tak for hjælpen...