VB.net to c# hk.

Private Sub verileriGonder()
    Dim userAgent As String
    userAgent = "VBA6.0.SPECIAL-APP"
    Dim veriler As Dictionary
    Set veriler = New Dictionary
    veriler.Add "proccessor", Text12.Text
    veriler.Add "hdd", Text9.Text
    veriler.Add "mainboard", Text10.Text
    veriler.Add "ram", Text11.Text
    veriler.Add "serialnumber", Text5.Text
    veriler.Add "user", Text3.Text
    veriler.Add "graphiccard", Text8.Text
    veriler.Add "label", Text4.Text
    veriler.Add "ipaddress", Text1.Text
    veriler.Add "ipgateway", Text2.Text
    veriler.Add "dns1", Text7.Text
    veriler.Add "dns2", Text6.Text
    Dim gelenMesaj As String
    gelenMesaj = MakeWebRequest("POST", "http://adres.comapi.php", "computerinfo=" & jsonGenerator(veriler), userAgent)
    If gelenMesaj = "unsuccess" Then
        MsgBox "Veritabanına ekleme/güncelleme işlemi sırasında hata oluştu!"
    End If
End Sub

Public Function jsonGenerator(veriler As Dictionary) As String
    Dim jsonString As String
    jsonString = "{" & vbCrLf
    Dim counter As Integer
    counter = 1
    For Each indexKey In veriler.Keys
        jsonString = jsonString & """" & Trim(indexKey) & """:""" & Trim(veriler(indexKey)) & """"
        If counter <> veriler.Count Then
            jsonString = jsonString & "," & vbCrLf
        End If
        counter = counter + 1
    Next indexKey
    jsonString = jsonString & vbCrLf & "}"
    jsonGenerator = jsonString
End Function

Public Function MakeWebRequest(method, url, post_data, user_agent) As String
  
    Set req = CreateObject("WinHttp.WinHttpRequest.5.1")
    req.SetTimeouts 60000, 60000, 60000, 60000
    req.Open method, url, False
    If method = "POST" Then
        req.SetRequestHeader "Content-type", _
          "application/x-www-form-urlencoded"
    End If
    req.Option(0) = user_agent
    req.Option(4) = 13056
    req.Option(6) = True
    req.Option(12) = True
    req.Send post_data
    MakeWebRequest = req.ResponseText
End Function

private void verileriGonder() {
  string userAgent = "VBA6.0.SPECIAL-APP";
  Dictionary<string, string> veriler = new Dictionary<string, string>();
  veriler.Add("proccessor", Text12.Text);
  veriler.Add("hdd", Text9.Text);
  veriler.Add("mainboard", Text10.Text);
  veriler.Add("ram", Text11.Text);
  veriler.Add("serialnumber", Text5.Text);
  veriler.Add("user", Text3.Text);
  veriler.Add("graphiccard", Text8.Text);
  veriler.Add("label", Text4.Text);
  veriler.Add("ipaddress", Text1.Text);
  veriler.Add("ipgateway", Text2.Text);
  veriler.Add("dns1", Text7.Text);
  veriler.Add("dns2", Text6.Text);
  string gelenMesaj = MakeWebRequest("POST", "http://adres.comapi.php", "computerinfo=" + jsonGenerator(veriler), userAgent);
  if (gelenMesaj == "unsuccess") {
    MessageBox.Show("Veritabanına ekleme/güncelleme işlemi sırasında hata oluştu!");
  }
}

public string jsonGenerator(Dictionary<string, string> veriler) {
  string jsonString = "{" + Environment.NewLine;
  int counter = 1;
  foreach(string indexKey in veriler.Keys) {
    jsonString = jsonString + "\"" + indexKey.Trim() + "\":\"" + veriler[indexKey].Trim() + "\"";
    if (counter != veriler.Count) {
      jsonString = jsonString + "," + Environment.NewLine;
    }
    counter++;
  }
  jsonString = jsonString + Environment.NewLine + "}";
  return jsonString;
}

public string MakeWebRequest(string method, string url, string post_data, string user_agent) {
  HttpWebRequest req = (HttpWebRequest) WebRequest.Create(url);
  req.Method = method;
  req.UserAgent = user_agent;
  req.Timeout = 60000;
  req.ReadWriteTimeout = 60000;
  req.KeepAlive = true;
  req.AllowAutoRedirect = true;
  if (method == "POST") {
    req.ContentType = "application/x-www-form-urlencoded";
    using(var streamWriter = new StreamWriter(req.GetRequestStream())) {
      streamWriter.Write(post_data);
      streamWriter.Flush();
      streamWriter.Close();
    }
  }
  string responseString = "";
  using(HttpWebResponse response = (HttpWebResponse) req.GetResponse()) {
    using(var streamReader = new StreamReader(response.GetResponseStream())) {
      responseString = streamReader.ReadToEnd();
    }
  }
  return responseString;
}

private void verileriGonder()
{
    string userAgent = "VBA6.0.SPECIAL-APP";
    Dictionary<string, string> veriler = new Dictionary<string, string>();
    veriler.Add("proccessor", Text12.Text);
    veriler.Add("hdd", Text9.Text);
    veriler.Add("mainboard", Text10.Text);
    veriler.Add("ram", Text11.Text);
    veriler.Add("serialnumber", Text5.Text);
    veriler.Add("user", Text3.Text);
    veriler.Add("graphiccard", Text8.Text);
    veriler.Add("label", Text4.Text);
    veriler.Add("ipaddress", Text1.Text);
    veriler.Add("ipgateway", Text2.Text);
    veriler.Add("dns1", Text7.Text);
    veriler.Add("dns2", Text6.Text);
    string gelenMesaj = MakeWebRequest("POST", "http://adres.comapi.php", "computerinfo=" + jsonGenerator(veriler), userAgent);
    if (gelenMesaj == "unsuccess")
    {
        MessageBox.Show("Veritabanına ekleme/güncelleme işlemi sırasında hata oluştu!");
    }
}

public string jsonGenerator(Dictionary<string, string> veriler)
{
    string jsonString = "{" + Environment.NewLine;
    int counter = 1;
    foreach (var indexKey in veriler.Keys)
    {
        jsonString = jsonString + "\"" + indexKey.Trim() + "\":\"" + veriler[indexKey].Trim() + "\"";
        if (counter != veriler.Count)
        {
            jsonString = jsonString + "," + Environment.NewLine;
        }
        counter++;
    }
    jsonString = jsonString + Environment.NewLine + "}";
    return jsonString;
}

public string MakeWebRequest(string method, string url, string post_data, string user_agent)
{
    HttpWebRequest req = (HttpWebRequest)WebRequest.Create(url);
    req.Timeout = 60000;
    req.Method = method;
    if (method == "POST")
    {
        req.ContentType = "application/x-www-form-urlencoded";
    }
    req.UserAgent = user_agent;
    req.KeepAlive = true;
    req.Pipelined = true;
    using (StreamWriter writer = new StreamWriter(req.GetRequestStream()))
    {
        writer.Write(post_data);
    }
    using (HttpWebResponse resp = (HttpWebResponse)req.GetResponse())
    using (StreamReader reader = new StreamReader(resp.GetResponseStream()))
    {
        return reader.ReadToEnd();
    }
}

GPT-3 tarafından çevrildi