Programmiererforum

Dim request As HttpWebRequest = HttpWebRequest.Create("http://192.178.47.19:19/?r=")
Dim POST As String = "r1"

request.Method = "POST"
request.ContentType = "text/html"
request.Headers.Add("Access-Control-Allow-Origin: *")
request.ContentLength = POST.Length
request.KeepAlive = True

Dim requestStream As Stream = request.GetRequestStream()
Dim postBytes As Byte() = Encoding.ASCII.GetBytes(POST)
requestStream.Write(postBytes, 0, postBytes.Length)
requestStream.Close()
< /code>

Ich erhalte jedoch den Fehler in der Zeile: < /p>

Dim requestStream As Stream = request.GetRequestStream()
< /code>

Sagt Folgendes: < /p>

 Die zugrunde liegende Verbindung wurde geschlossen: Die Verbindung wurde unerwartet geschlossen. < / em> < /p>

Verwenden Sie nur JQuery und Ajax: < /p>

jQuery.support.cors = true;

$.ajax({
crossDomain: true,
async : true,
type: "POST",
headers: {'Access-Control-Allow-Origin': '*'},
url: "http://192.178.47.19:19/?r=" + whatsBeingSent,
data: '{}',
contentType: "text/html",
dataType: "html",
success: OnSuccessCallArduino,
error: OnErrorCallArduino
});

Ich versuche, den folgenden Code zu verwenden, um einen Befehl an einen Arduino-Ethernet-Mikrocontroller in meinem LAN zu senden:

[code]Dim request As HttpWebRequest = HttpWebRequest.Create("http://192.178.47.19:19/?r=")
Dim POST As String = "r1"

request.Method = "POST"
request.ContentType = "text/html"
request.Headers.Add("Access-Control-Allow-Origin: *")
request.ContentLength = POST.Length
request.KeepAlive = True

Dim requestStream As Stream = request.GetRequestStream()
Dim postBytes As Byte() = Encoding.ASCII.GetBytes(POST)
requestStream.Write(postBytes, 0, postBytes.Length)
requestStream.Close()
< /code>

Ich erhalte jedoch den Fehler in der Zeile: < /p>

Dim requestStream As Stream = request.GetRequestStream()
< /code>

Sagt Folgendes: < /p>

Die zugrunde liegende Verbindung wurde geschlossen: Die Verbindung wurde unerwartet geschlossen. < / em> < /p>

Verwenden Sie nur JQuery und Ajax: < /p>

jQuery.support.cors = true;

$.ajax({
crossDomain: true,
async : true,
type: "POST",
headers: {'Access-Control-Allow-Origin': '*'},
url: "http://192.178.47.19:19/?r=" + whatsBeingSent,
data: '{}',
contentType: "text/html",
dataType: "html",
success: OnSuccessCallArduino,
error: OnErrorCallArduino
});
[/code]

Die Verwendung des obigen Codes funktioniert einwandfrei (natürlich in einem Browser)

Was würde mir also fehlen? damit es in VB.net funktioniert?