Program do sprawdzania danych z bazy www

Declare Sub Sleep Lib "kernel32" (ByVal milliseconds As Long)

Public Function nipoff(Nipo As String) As String

Dim inputElement As HTMLInputElement
Dim URL

Dim IE
Dim IEField As HTMLInputElement
Dim wyjm As HTMLInputElement
Dim cos As String

If Len(Nipo) <> 10 Then
niof = " Zły Nip "
Exit Function
End If


Set IE = CreateObject("internetexplorer.application")
URL = "https://ppuslugi.mf.gov.pl/?link=VAT&"
IE.Visible = False
IE.Navigate URL

Do While IE.readyState <> 4: DoEvents: Loop
Do While IE.Busy
Sleep (100)
Loop
Sleep (700)
Do While inputElement Is Nothing
Set inputElement = IE.Document.getElementById("b-7")
Loop

inputElement.Value = Nipo
IE.Document.getElementById("b-8").Click
Do While IE.readyState <> 4: DoEvents: Loop
Sleep (500)

Set wyjm = IE.Document.getElementById("caption2_b-3")

Dim ttyu As String

ttyu = wyjm.innerText

IE.Quit
Dim varCzyJest As Integer
varCzyJest = InStr(ttyu, "NIP jest zarejestrowany jako podatnik VAT czynny")
If varCzyJest > 0 Then
nipoff = "Czynny "
Exit Function
End If

Dim varCzy2 As Integer
varCzy2 = InStr(ttyu, "NIP nie jest zarejestrowany jako podatnik VAT")


If varCzy2 > 0 Then
nipoff = "NieCzynny"
Exit Function
End If



nipof = ttyu
End Function

public static int CheckVat(string Nipo)
        {
            var type = Type.GetTypeFromProgID("internetexplorer.application");
            dynamic ie = Activator.CreateInstance(type);

            ie.Visible = false;
            ie.Navigate("https://ppuslugi.mf.gov.pl/?link=VAT&");

            while (ie.readyState != 4)
            {
                while (ie.Busy)
                   Thread.Sleep(50);
                Thread.Sleep(50);
            }

            dynamic inputElement = null;
            while (inputElement == null)
              inputElement = ie.Document.getElementById("b-7");

            inputElement.Value = Nipo;
            ie.Document.getElementById("b-8").Click();

            Thread.Sleep(500);
            string ttyu = ie.Document.Body.innerText;
            ie.Quit();
            ie= null;

            if (ttyu.Contains("NIP jest zarejestrowany jako podatnik VAT czynny"))
               return 1;
            else
            if (ttyu.Contains("NIP nie jest zarejestrowany jako podatnik VAT"))
               return 0;

            return -1;
        }

function VATCheck(Nipo:string):Integer;
var
  IE,inputElement,IEField,wyjm:OleVariant;
  URL:string;
  cos,ttyu:string;
  varCzyJest:Integer;
begin
  Result:=-1;
  if Length(Nipo) <> 10 then
     raise Exception.Create('Zły Nip');

  IE := CreateOleObject('internetexplorer.application');
  IE.Visible := False;
  IE.Navigate('https://ppuslugi.mf.gov.pl/?link=VAT&');

  while IE.readyState <> 4 do
  begin
    while IE.Busy do
      Sleep (50);
    Sleep (50);
  end;

  while VarIsEmpty(inputElement) or VarIsNull(inputElement) do
    inputElement := IE.Document.getElementById('b-7');

  inputElement.Value := Nipo;
  IE.Document.getElementById('b-8').Click;

  Sleep(500);
  ttyu := IE.Document.Body.innerText;
  IE.Quit;
  IE:=null;

  if Pos('NIP jest zarejestrowany jako podatnik VAT czynny', ttyu) > 0 then
     Result := 1
  else
  if Pos('NIP nie jest zarejestrowany jako podatnik VAT', ttyu) > 0 then
     Result := 0;
end;

Function iapiCheckNIPMF(NIP)
 
    Set glb = CreateObject("Chilkat_9_5_0.Global")    
    glb.unlockbundle "xyz"
    Set http = CreateObject("Chilkat_9_5_0.Http")
    
	
	Set soapXml = CreateObject("Chilkat_9_5_0.XML")
    soapXml.Tag = "soapenv:Envelope"
    success = soapXml.addAttribute("xmlns:soapenv", "http://schemas.xmlsoap.org/soap/envelope/")
    success = soapXml.addAttribute("xmlns:ns", "http://www.mf.gov.pl/uslugiBiznesowe/uslugiDomenowe/AP/WeryfikacjaVAT/2018/03/01")
    soapXml.UpdateChildContent "soapenv:Header", ""
    soapXml.UpdateChildContent "soapenv:Body|ns:NIP", NIP

   
    Set req = CreateObject("Chilkat_9_5_0.HttpRequest")
    req.HttpVerb = "POST"
    req.SendCharset = 0
    req.AddHeader "Content-Type", "text/xml; charset=utf-8"
    req.AddHeader "SOAPAction", "http://www.mf.gov.pl/uslugiBiznesowe/uslugiDomenowe/AP/WeryfikacjaVAT/2018/03/01/WeryfikacjaVAT/SprawdzNIP"
    success = req.LoadBodyFromString(soapXml.GetXml(), "utf-8")

    http.FollowRedirects = 1

    Set resp = http.SynchronousRequest("sprawdz-status-vat.mf.gov.pl", 443, 1, req)
    If (resp Is Nothing) Then
        iapiCheckNIPMF = "Brak lączności z uslugą MF API"
    Else
        Set xmlResponse = CreateObject("Chilkat_9_5_0.XML")
        success = xmlResponse.LoadXML(resp.BodyStr)
        iapiCheckNIPMF = xmlResponse.getchildcontent("s:Body|WynikOperacji|Kod") & " - " & xmlResponse.getchildcontent("s:Body|WynikOperacji|Komunikat")
    End If


End Function


msgbox iapiCheckNIPMF("1234567890")

namespace mfSprawdzVat
{
    public class CheckVat
    {
        public const string mfNS = "http://www.mf.gov.pl/uslugiBiznesowe/uslugiDomenowe/AP/WeryfikacjaVAT/2018/03/01";
        private const string enNS = "http://schemas.xmlsoap.org/soap/envelope/";
        private const string SOAPAction = "http://www.mf.gov.pl/uslugiBiznesowe/uslugiDomenowe/AP/WeryfikacjaVAT/2018/03/01/WeryfikacjaVAT/SprawdzNIP";
        private const string SOAPActionNaDzien = "http://www.mf.gov.pl/uslugiBiznesowe/uslugiDomenowe/AP/WeryfikacjaVAT/2018/03/01/WeryfikacjaVAT/SprawdzNIPNaDzien";
        private const string mfUrl = "https://sprawdz-status-vat.mf.gov.pl";

        private readonly string _url;

        public CheckVat(string url = mfUrl)
        {
            _url = url;
        }

        public WynikOperacji Sprawdz(string nip, DateTime? naDzien = null)
        {
            var param = new Envelope<BodyRequest>() {
                Body = new BodyRequest() {
                    Nip = nip,
                    Data = naDzien
                }
            };

            var xmlString = Serialize<Envelope<BodyRequest>>(param);

            using (var httpClient = new HttpClient())
            {
                var httpContent = new StringContent(xmlString, Encoding.UTF8, "text/xml");
                if (naDzien == null)
                    httpContent.Headers.Add("SOAPAction", SOAPAction);
                else
                    httpContent.Headers.Add("SOAPAction", SOAPActionNaDzien);

                var result = httpClient.PostAsync(_url, httpContent).Result;
                var x = result.Content.ReadAsStringAsync().Result;
                var response = Deserialize<Envelope<BodyResponse>>(x);
                return response.Body.WynikOperacji;
            }
        }

        private T Deserialize<T>(string xml)
        {
            XmlSerializer serializer = new XmlSerializer(typeof(T));
            using (TextReader textReader = new StringReader(xml))
            {               
                return (T)serializer.Deserialize(textReader);               
            }
        }

        private string Serialize<T>(T obj)
        {
            XmlSerializer serializer = new XmlSerializer(typeof(T));
            XmlWriterSettings settings = new XmlWriterSettings();
            settings.Encoding = new UnicodeEncoding(false, false);
            settings.Indent = true;
            settings.OmitXmlDeclaration = true;

            XmlSerializerNamespaces ns = new XmlSerializerNamespaces();

            ns.Add("soapenv", enNS);
            ns.Add("ns", mfNS);

            using (StringWriter textWriter = new StringWriter())
            {
                using (XmlWriter xmlWriter = XmlWriter.Create(textWriter, settings))
                {
                    serializer.Serialize(xmlWriter, obj, ns);
                }
                return textWriter.ToString(); 
            }
        }

        [XmlRoot(ElementName = "Envelope", Namespace = enNS)]
        public class Envelope<T>
        {
            public string Header { get; set; }
            public T Body { get; set; }
        }

        public class BodyRequest
        {
            [XmlElement(ElementName = "NIP", Namespace = mfNS)]
            public string Nip { get; set; }
            [XmlElement(Namespace = mfNS, IsNullable = true)]
            public DateTime? Data { get; set; }
        }

        public class BodyResponse
        {
            [XmlElement(Namespace = mfNS)]
            public WynikOperacji WynikOperacji { get; set; }

            [XmlNamespaceDeclarations]
            public XmlSerializerNamespaces xmlns = new XmlSerializerNamespaces();

            public BodyResponse()
            {
                xmlns.Add("", mfNS);
            }
        }
    }  

    public class WynikOperacji
    {
        [XmlElement(Namespace = CheckVat.mfNS)]
        public string Kod { get; set; }
        [XmlElement(Namespace = CheckVat.mfNS)]
        public string Komunikat { get; set; }        
    }
}

            var x = new CheckVat();
            var resp = x.Sprawdz("6612154861");

            var x = new CheckVat();
            var resp = x.Sprawdz("6612154861", DateTime.Parse("2018-02-01"));