PHP Funktion in VBnet

Zu der Kernfrage: Ja natürlich. Warum sollte man es auch nicht umsetzen können?

Geht halt nur anders, da du eine Anwendung entwickeln möchtest und keine Website.

Ich habe VBnet gar nicht mehr im Kopf, da Ich seit langem bei C# bin, aber Ich kann dir ja sagen, was du brauchst, und zwar

entweder

-> HttpWebRequest & Response in Verbindung mit StreamReader (System.NET & System.IO) für file_get_contents

oder

-> WebClient & DownloadString (System.Net)

Die URL Parameter, die du vom User erhälst, kannst du ja dann in Variablen packen und mit dem String verketten.

Da du eine API aufrufst und wahrscheinlich eine JSON als Antwort erhälst, könntest du https://www.newtonsoft.com/json nutzen, um diese als Objekt zu parsen.

(kann sein, dass es in VBnet anders ist - Ich spreche von einer Angehensweise in C#, aber dies sollte ziemlich ähnlich im Vergleich zu VB sein, da beide .NET integrieren.)

Ich kann für dich gerne mal versuchen, mit meinen Google Kenntnissen & der Hilfe von Stackoverflow einen Code zu basteln, den du möchtest.

Imports System.Net
Imports System.IO

Dim Username As String = "Username"
Dim APIKey As String = "APIKey"
Dim APIUrl As String = String.Format("http://URLBLABLA/add?api_key={0}&auth={1}", APIKey, Username)

Dim HttpWebReq As HttpWebRequest = WebRequest.Create(APIUrl)
Dim HttpWebResp As HttpWebResponse = HttpWebReq.GetResponse()

Dim _Stream As Stream = HttpWebResp.GetResponseStream()
Dim Reader As New StreamReader(_Stream)

Dim Response As String = Reader.ReadToEnd()

Hab den Code hinzugefügt. Die Antwort, also das Resultat von file_get_contents in PHP wird in Response gepackt.

Ganz oben

Imports System.Net

Imports System.IO

reinpacken. Musste den Code selbst hier mehrfach bearbeiten, um Kleinigkeiten anzupassen.

Du hast ja auch die GET-Parameter entfernt.

String.Format ist dafür da, um die {0} und {1} im String, also http://.../add?api_key={0}&auth={1} mit den jeweiligen anderen Strings zu ersetzen.

Also String.Format("http://95.156.229.158:8055/add?api_key={0}&auth={1}", APIKey, Username)

Du hast bei deinem Code nur http://95.156.229.158:8055/add? stehen, statt wie es eigentlich sein sollte, und zwar http://95.156.229.158:8055/add?api_key={0}&auth={1}

Ersetze

Dim APIUrl As String = String.Format("http://95.156.229.158:8055/add?", APIKey, Username)

mit

String.Format("http://95.156.229.158:8055/add?api_key={0}&auth={1}", APIKey, Username)