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