parse BTC-E prices into VB6

BTC-E ticker parser into VB6

add a timer a text box, 4 labels and an inet (internet transfer control) onto your form
leave the names as standard for now EG label1 inet1 timer1. you can change them later if u wish
using the edit -> replace in the project file menu

then paste this code

Private Sub Command1_Click()
Timer1.Interval = Text1.Text * 1000
End Sub

Private Sub Timer1_Timer()
command1.caption="change update delay"
Dim binarydata() As Byte
Dim t As Integer
Dim txt As String
Dim Indexer As Integer
Dim Indexer2 As Integer

Dim higher As String
Dim lower As String
Dim buyer As String
Dim seller As String


binarydata() = Inet1.OpenURL("https://btc-e.com/api/2/10/ticker", 1)

For t = 0 To UBound(binarydata) - 1 ' loop turns ticker data from binary to string
    If binarydata(t) = 34 Then binarydata(t) = 39
 txt = txt + Chr(binarydata(t))
Next

Indexer = InStr(txt, "'high':")
Indexer = Indexer + 7
Indexer2 = InStr(txt, ",")
higher = Mid(txt, Indexer, Indexer2 - Indexer)

Indexer = InStr(txt, "'low':")
Indexer = Indexer + 6
Indexer2 = InStr(Indexer, txt, ",")
lower = Mid(txt, Indexer, Indexer2 - Indexer)

Indexer = InStr(txt, "'buy':")
Indexer = Indexer + 6
Indexer2 = InStr(Indexer, txt, ",")
buyer = Mid(txt, Indexer, Indexer2 - Indexer)

Indexer = InStr(txt, "'sell':")
Indexer = Indexer + 7
Indexer2 = InStr(Indexer, txt, ",")
seller = Mid(txt, Indexer, Indexer2 - Indexer)

Label1.Caption = "high: " & higher
Label2.Caption = "low: " & lower
Label3.Caption = "buy: " & buyer
Label4.Caption = "sell: " & seller
Indexer = 0
Indexer2 = 0
End Sub

end of code

the address is for BTC-E 's BTC-LTC tab but u can just change the address to the other tabs. job done