ThyElite Forums - Coke studios status (VB6)

Things you'll need:

6 labels
1 timer
1 textbox
3 inet controls

If you don't know how to draw an inet on your form, hit CTRL+T to bring up the project components. Scroll down and tick the box next to Microsoft Internet Transfer Control and hit Apply. A little icon of a computer and the earth behind it will appear in your toolbar. Click that icon and just draw the inets anywhere on your form.

LEAVE ALL OBJECT NAMES AS DEFAULT. DO NOT CHANGE THEIR NAMES.

Now.

Change the textboxes text to a quotation mark. Just one quotation mark, that's all.

Quote:

And set the textboxes Visible property to FALSE.

Now set your timers interval to 3000 and set it's Enabled property to TRUE.

Arrange your labels in this order

Quote:

Label1 Label2
Label3 Label4
Label5 Label6

Now change Label1s caption to "Open/Closed:"
Change Label3s caption to "Online:"
And change label5s caption to "Capacity"

For a better look, I would set the font for labels 2, 4 and six to bold. You don't have to, I just think it looks good. For a placeholder, I also made the captions for labels 2, 4 and 6 "Null"

Now your form should look something like this.

Now insert this code into your timer, and you're finished.

Code:

On Error Resume Next 'Just in case.

Dim strCode As String

Dim strCode2 As String

Dim strCode3 As String





' Get the closed/open status

strCode = Inet1.OpenURL("http://cokestudios2.cokemusic.com/sf/status?timestamp=")

strCode = Split(Split(strCode, "SS=" & Text1.Text & "")(1), "" & Text1.Text & " T")(0)

SPLITRESULT = strCode

If InStr(SPLITRESULT, "<") Or strCode = "" Then 'Checks to see if the split performed properly. The < is something you see in alot of failed splits because the failed split gets the entire page of the source. And sometimes failed splits do not get anything at all. Yeah, you get it.

Label2.Caption = "ERROR"

Else ' If the split does not contain the < character and is NOT absolutely nothing, this if function is done to determine whether the studios are open or not

If InStr(strCode, "O") Then

Label2.Caption = "Open"

Else

Label2.Caption = "Closed"

End If

End If





' Get the Online status

strCode2 = Inet2.OpenURL("http://cokestudios2.cokemusic.com/sf/status?timestamp=")

strCode2 = Split(Split(strCode2, "TSO=" & Text1.Text & "")(1), "" & Text1.Text & "")(0)

SPLITRESULT2 = strCode2

If InStr(SPLITRESULT2, "<") Or SPLITRESULT2 = "" Then

Label4.Caption = "ERROR"

Else

Label4.Caption = SPLITRESULT2

End If





'Get the capacity status

strCode3 = Inet3.OpenURL("http://cokestudios2.cokemusic.com/sf/status?timestamp=")

strCode3 = Split(Split(strCode3, "TSMC=" & Text1.Text & "")(1), "" & Text1.Text & " SS=")(0)

SPLITRESULT3 = strCode3

If InStr(SPLITRESULT3, "<") Or strCode = "" Then

Label6.Caption = "ERROR"

Else

Label6.Caption = SPLITRESULT3

End If

That's all there is to it.

I would apreciate any comments or suggestions.

Attatched below is a source and example application.

Hope this helps.