'حط كوكيز حسابك
Dim full_cookies As String = String.Empty
' حط الـ IDMEDIA حق المنشور
Function Do_like(ByVal Cookies_is As String, ByVal idPOST As String) As Boolean
        Try
            Using w As New Net.WebClient
                w.Encoding = System.Text.Encoding.UTF8
                w.Headers.Add("Content-Type: application/x-www-form-urlencoded")
                w.Headers.Add("User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/80.0.3987.132 Safari/537.36")
                w.Headers.Add($"X-CSRFToken: {Regex.Match(Cookies_is, "csrftoken=(.*?);").Groups(1).Value}")
                w.Headers.Add("X-Requested-With: XMLHttpRequest")
                w.Headers.Add("Cookie", Cookies_is)
                Dim textrespon = w.UploadString("https://www.instagram.com/web/likes/" & idPOST & "/like/", "POST", "")
                If textrespon.Contains("""status"": ""ok""") Then
                    Return True
                Else
                    Return False
                End If
            End Using
        Catch ex As Exception
            Return False
        End Try

    End Function