VB.NET-Quellcode
- Private Function test(dest) As Boolean
- Dim id
- Dim Message, Title, Eingabe
- Message = "Geben sie eine Priority zwischen 1 und 5 ein"
- Title = "InputBox Demo"
- id = 3
- Eingabe = InputBox(Message, Title, id)
- Dim hwr As HttpWebRequest
- hwr = HttpWebRequest.Create(dest)
- Dim wr As HttpWebResponse
- wr = hwr.GetResponse()
- If CType(wr, HttpWebResponse).StatusCode = HttpStatusCode.OK Then
- Dim st As Stream
- st = wr.GetResponseStream()
- Dim sr As StreamReader
- sr = New StreamReader(st)
- Dim able = sr.ReadToEnd()
- Dim bravo As JObject = JObject.Parse(able)
- Dim charlie As String = bravo("coins")(id)("name").ToString()
- MsgBox(charlie)
- ElseIf CType(wr, HttpWebResponse).StatusCode = HttpStatusCode.NotFound Then
- Return False
- End If
- Return False
- End Function
---------------------------------------------
Guten Tag und schonmal Danke,
mit dem oben geschriebenen Code möchte ich aus der API (coinmap.org/api/v1/coins/)
mittels der ID die Namen verschiedener Coins auslesen.
Hierbei möchte ich die ID durch eine InputBox festlegen, was allerdings nicht funktioniert.
Wenn die ID durch besagte InputBox festgelegt wird, so öffnet sich das 2. Fenster entweder mit
dem falschen Coin oder gar nicht.
Sobald ich allerdings die ID in der Codestelle
Dim charlie As String = bravo("coins")(id)("name").ToString()
durch eine feste Zahl ersetze, so funktioniert der Code.
Dim charlie As String = bravo("coins")(3)("name").ToString()
Jetzt ist meine Frage: Was mache ich falsch?
Und bitte entschuldigt evtl fehlende Informationen
Grüße,
Günni
*Topic verschoben, Code-Tag eingefügt*
