[نيمو]

اذا لم تجد المكتبة requests جرب الفكشن ذا

كود :

Public Function test(ByVal url As String) As Boolean
       Dim Requ As HttpWebRequest = WebRequest.Create(url)
       Requ.Method = "POST"
       Try
           Dim Resp As HttpWebResponse = (Requ.GetResponse)
           Return (Resp.StatusCode.ToString = "OK")
       Catch
           Return False
       End Try
   End Function