TVB & EAB Finder (Visual Basic 6)

[DefectiveProduct]

I figure I'd post the method to get the TVB and EAB from YAWCC here.

Requirements:
1 Web Browser named WebBrowser1 (This is the browser that Coke will be framed in)
1 TextBox named TxtEAB
1 TextBox named TxtTVB
1 TextBox named TxtHiddenUrl (And be sure to set this textboxes Visible property to FALSE.)


Put this code in your form.

Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
TxtHiddenUrl.Text = "" & WebBrowser1.LocationURL & "$$$"
End Sub

And than this one.


Private Sub TxtHiddenUrl_Change()
On Error Resume Next
If InStr(TxtHiddenUrl.Text, "SF_Client.jsp") Then
strCode = Split(Split(TxtHiddenUrl.Text, "eab=")(1), "&tvb")(0)
SPLITRESULT = strCode
TxtEAB.Text = SPLITRESULT
strCode2 = Split(Split(TxtHiddenUrl.Text, "&tvb=")(1), "$$$")(0)
SPLITRESULT2 = strCode2
TxtTVB.Text = SPLITRESULT2
End If
End Sub

Oh, and by the way. Make sure that the URL you use to go to Coke Studios in your browser is http://www.mycoke.com/showCokeStudiosLandingPage.do

I modified this code a bit from the one I used in YAWCC so I can't be 100% positive that it works.

I think this is all very self exlanitory. Post any questions you have.

[Peener]

Nice and short :)

[DefectiveProduct]

I still haven't even tested it though.

But I didn't edit much and it should work without any problems.

Oh and by the way, this is designed as an addon to an already existing client. Not an individual TVB & EAB finding app.

[Pyro]

Good Job :)
Just Like Peter Said, Short and Sweet.

[DefectiveProduct]

Well it's just a simple code for finding your TVB and EAB.

You couldn't really expect it to be a complicated thing. o_O

EDIT: I tried it and it works. :D