Finding the NST Time [vb6]

[Zachafer]

Here is my code on how to Find the NST Time in VB6.

'============================
'MADE BY ZACHAFER
'============================
'This Code Snippet Will Get NST (Neopets Standard Time) for you in a flash
'I am using the fastest version of GetStringBetween I could Find.
'Optimized for speed.
'Pretty Basic
'============================
'GetBetween Function Written by sockopen.:
'UBER FAST.
'============================
Public Function GB(rC As String, rS As String, rF As String, Optional lgB As Long = 1) As String
   

    lgB = InStr(lgB, rC, rS) + Len(rS): GB = Mid$(rC, lgB, InStr(lgB, rC, rF) - lgB)
    On Error GoTo Error_Handler_by_Zach
Error_Handler_by_Zach:
 Dim MsgBoxThing As Integer
MsgBoxThing = MsgBox("Error Occurred.", vbOKOnly + vbCritical, "Error.")
 If MsgBoxThing = vbOK Then
 Beep
 Unload Me
 End If
End Function
'============================
'Form Initialize:
'============================
Private Sub Form_Initialize()
Timer1.Interval = "1"
Timer1.Enabled = True
End Sub
'============================
'Timer Code:
'============================
Private Sub Timer1_Timer()
Dim strHTML As String
Dim strNST As String
strHTML = wrap.GetWrapper("http://neopets.com/", "http://google.com/")
strNST = GB(strHTML, "<span id=nst>", "  NST</span><br><br>")
Label1.Caption = "Current Neopets Time: " & strNST & ""
End Sub
'============================
'MADE BY ZACHAFER
'===========================

---
Uses the GetBetween Function by sockopen.

I added a simple error handler.
Any Questions post them =]]

-Zach

[Rockage]

ripped. zach give credit.

[second2none]

Who did he rip it from. o.0 Plus its not hard to make

[Rockage]

Yes but zach cant make anything without being spoon fed first. He ripped from Subaru

[second2none]

from NF? Ive seen that.

Sigh- its very similar.. but just like neo login codes.. They are ALL very similar. not much I can do :(

[Rockage]

You know he ripped it as well as I know it. Its alright that you cant do anything, I talked to ryan about it.

[Ricardandroy]

that's good

[m0nk3y_i3unz]

too bad its ripped. Im too lazy to study the code, but does it also get seconds?