DevTrain Forum - Hilfe bei Function !

Forum: VB.NET | Thema: Hilfe bei Function ! | Von: Thomas Scherner ( 24.06.2006 20:10)

		Hallo zusammen ich brauche eure Hilfe bei einer Function. Es wird per SQL Abfrage eine Schleife gebildet, in der ich den Namen sowie Handynummer hole. In der Schleife ist ein Loop drin und es klappt auch alles.Ich übergebe die Daten bei jedem Durchlauf in diese Function :

Imports System.Net
Module Final_sms_versand

    Function send_request(ByVal mobilenr As String, ByVal mobilena As String) As Integer

        Dim MyWebRes As HttpWebResponse
 
        Dim request As WebRequest = HttpWebRequest.Create("http://XXX.XX-XX.de:XXX/smsXXX/XXXXXX/http/" & _
        "sendsm?service=Willi&password=password&message=" & _
        "Hallo+" & mobilena & "&" & _
        "adc=" & mobilenr & "&net=D1&oadc=Willi&customer=Customer&customerNumber=&" & _
        "sendDate=&+00%3A01%3A02+%2B0200")

        CredentialCache.DefaultNetworkCredentials.Domain = "Proxy.de"
        CredentialCache.DefaultNetworkCredentials.UserName = "Willi"
        CredentialCache.DefaultNetworkCredentials.Password = "Willi1"
        request.Credentials = CredentialCache.DefaultNetworkCredentials
        'request.Proxy = WebProxy.GetDefaultProxy 
        request.Proxy.Credentials = request.Credentials
        
        MyWebRes = CType(request.GetResponse(), HttpWebResponse)

    End Function

End Module

An dieser Stelle !!! MyWebRes = CType(request.GetResponse(), HttpWebResponse)!!!! bleibt die Schleife nach Max 3 Durchläufen stehen ..
Komisch oder ?? Ich bekomme von dem Externen Server eigentlich immer den Statuscode 200 zurück wenn ich den Request einfach in den IE kopiere. Wie kann ich ihn hier abfragen und was ist hier falsch Bitte??

Vielen Dank und Gruß
Thomas

Ich bin ein Newbie .     Aber jeder hat mal angefangen.            Gruß & Dank              Thomas

Betreff Von Datum

AW: Hilfe bei Function !

Tut mir Leid ich vergass. Ich arbeite mit einenm SQL Server zur Abfrage : Die funzed ja :-) VBNET 2005 ist das Programm. Danke Thomas

Thomas Scherner 24.06.2006 20:12

AW: AW: Hilfe bei Function !

hmm mir würd nichts auffallen. Eine Idee wäre nur, dass der SMS Gateway eventuell nicht so schnell mehere Nachrichten hintereinander akzeptiert. Ich würd mal ein sleep einbauen mit 5 Sekunden und...

Bernhard Grojer 25.06.2006 09:21

AW: AW: AW: Hilfe bei Function !

Hallo , ja das habe ich mir auch gedacht. Habe mal ein System threading von 2 Sec eingebaut. Das geht auch doch bei 700 SMS die sofort raus sollen ist es eine zu lange Zeit. Komisch ist auch das ich...

Thomas Scherner 25.06.2006 11:43

AW: AW: AW: AW: Hilfe bei Function !

Naja dann wird das Problem aber vermutlich am Interface deines Anbieters liegen denke ich. (der einfach nicht soviele SMS in kurzer folge akzeptiert) Wenn du willst kann ich dir ab Montag (ausn...

Bernhard Grojer 25.06.2006 14:07

AW: AW: AW: AW: AW: Hilfe bei Function !

Hallo , sorry war kurz spazieren :-) Das wäre super wenn du ihn mir schicken würdest. Hier übers Forum oder per mail ?? Meld dich wie du kannst. Schonmal vielen Dank. Gruß Thomas

Thomas Scherner 25.06.2006 15:26

AW: AW: AW: AW: AW: AW: Hilfe bei...

Dim httpWebRequest As HttpWebRequest Dim httpWebResponse As HttpWebResponse Dim strXMLMessage As String Dim sw As StreamWriter Dim sr As StreamReader Dim...

Bernhard Grojer 26.06.2006 07:37

AW: AW: AW: AW: AW: AW: AW: Hilfe bei...

Wie versprochen oben das Code-Beispiel! Ist zwar alles andere als wirklich feiner/optimierter Code (kein Stringbuilder, usw.) Aber funktioniert soweit bei mir. Eventuell hilfts dir ja ;-)

Bernhard Grojer 26.06.2006 07:38

Hilfe bei Function !

Guten Morgen und vielen Dank! Ich werde mich gleich mal ran machen ob ich es übernehmen kann. Gruß Thomas

Thomas Scherner 26.06.2006 08:01

Es klappt !!

Hallo nochmal, es klappt super. Habe es allein mit dem Postbefehl hinbekommen. Im Moment 250 SMS pro/sec. Vielen Dank für die Hilfe und Zeit die du dir genommen hast. Gruß Thomas

Thomas Scherner 26.06.2006 11:56

Antworten Vorsicht bei der Eingabe: Die Zeichen ' oder -- sind nicht erlaubt!