Я собираюсь интегрировать существующий проект c # в устаревшую систему VB.net.приведенный ниже код прекрасно работает на C #
private string GETShopify(string CallLoc, string APIKey, string Password, string StoreName)
{
string Str = APIKey + ":" + Password;
byte[] byt = System.Text.Encoding.UTF8.GetBytes(Str);
Str = System.Convert.ToBase64String(byt);
string Url = "https://" + StoreName + ".myshopify.com/admin/" + CallLoc;
WebRequest request = WebRequest.Create(Url);
NetworkCredential SimpleCredential = new NetworkCredential(APIKey, Password);
request.Credentials = SimpleCredential;
request.Headers.Add("Authorization", "Basic " + Str);
request.ContentType = "application/json";
request.Method = "GET";
WebResponse response = request.GetResponse();
}
Однако VB не работает на GetResponce
Private Function GETShopify(ByVal CallLoc As String, ByVal APIKey As String, ByVal Password As String, ByVal StoreName As String) As String
Dim Str As String = APIKey & ":" & Password
Dim byt As Byte() = System.Text.Encoding.UTF8.GetBytes(Str)
Str = System.Convert.ToBase64String(byt)
Dim Url As String = "https://" & StoreName & ".myshopify.com/admin/" & CallLoc
Dim request As WebRequest = WebRequest.Create(Url)
Dim SimpleCredential As NetworkCredential = New NetworkCredential(APIKey, Password)
request.Credentials = SimpleCredential
request.Headers.Add("Authorization", "Basic " & Str)
request.ContentType = "application/json"
request.Method = "GET"
Dim response As WebResponse = request.GetResponse() <<FAIL
End Function
System.Net.WebException HResult=0x80131509 Message=The underlying connection was closed: An unexpected error occurred on a send.
Внутреннее исключение 1: IOException: невозможно прочитать данные из транспортасоединение: существующее соединение было принудительно закрыто удаленным хостом.
Внутреннее исключение 2: SocketException: существующее соединение было принудительно закрыто удаленным хостом
Я не могу найтипричина для этого.код очень прост, поэтому не представляю себе такой большой проблемы.
Если кто-то когда-либо сталкивался с этой проблемой раньше или имеет какие-либо предложения, которые были бы фантастическими.