here is something:
[code]Sub Action()
List.DeleteAllRows
dim v1 as string = ConvertEncoding(vat1.Text, encodings.UTF8)
dim v2 as string = ConvertEncoding(vat2.Text, encodings.UTF8)
dim co as string = ConvertEncoding(Company.Text, encodings.UTF8)
dim ci as string = ConvertEncoding(city.Text, encodings.UTF8)
dim zi as string = ConvertEncoding(Zip.Text, encodings.UTF8)
dim st as string = ConvertEncoding(Street.Text, encodings.UTF8)
v1 = EncodeURLComponent(v1)
v2 = EncodeURLComponent(v2)
co = EncodeURLComponent(co)
ci = EncodeURLComponent(ci)
zi = EncodeURLComponent(zi)
st = EncodeURLComponent(st)
dim url as string = “https://evatr.bff-online.de/evatrRPC?UstId_1="+v1+"&UstId_2="+v2+"&Firmenname="+co+"&Ort="+ci+"&PLZ="+zi+"&Strasse="+st+"&Druck=”
dim data as string = sock.get(url, 90)
if DebugBuild then
try
dim f as FolderItem = GetFolderItem(“vat.txt”)
dim t as TextOutputStream = TextOutputStream.Create(f)
t.Write data
catch io as IOException
break
end try
end if
dim doc as new XmlDocument(Data)
dim params as XmlNode = doc.FirstChild
dim param as XmlNode = params.FirstChild
while param <> nil
dim pvalue as XmlNode = param.FirstChild
if pvalue<>Nil then
dim parray as XmlNode = pvalue.FirstChild
if parray<>Nil then
dim pdata as XmlNode = parray.FirstChild
if pdata<>nil then
dim pvalue1 as XmlNode = pdata.Child(0)
dim pvalue2 as XmlNode = pdata.Child(1)
if pvalue1 = nil then Return
if pvalue2 = nil then Return
dim string1 as xmlnode = pvalue1.FirstChild
dim string2 as xmlnode = pvalue2.FirstChild
dim text1 as xmlnode = string1.FirstChild
dim text2 as xmlnode = string2.FirstChild
dim s1, s2 as string
if text1<>Nil then s1 = text1.Value
if text2<>Nil then s2 = text2.Value
Select case s1
case "Erg_Name", "Erg_Ort", "Erg_PLZ", "Erg_Str"
select case s2
case "A"
s2 = "OK"
case "B"
s2 = "Falsch!"
case "C"
s2 = "nicht abgefragt"
case "D"
s2 = "nicht verfügbar"
end Select
end Select
List.AddRow s1, s2
if s1 = "ErrorCode" then
result.text = ErrorDescription(val(s2))
end if
end if
end if
end if
param = param.NextSibling
wend
Exception x as XmlException
exception n as NilObjectException
End Sub
[/code]
as you see simply a query with HTTPSocket passing parameters in URL.
