[vb6] neopets guess the card player

[rockage 0]

for neopets.com

-uses HTTPWrapper control, not sure who made it

 

 

Dim Dpage As String, strHTML As String, X As Integer, strGuess As String

Private Sub Form_Unload(Cancel As Integer)
End
End Sub

Private Sub Command1_Click()

 For X = 1 To Int(txtAmount.Text)
	Call guess
 Next X

End Sub

Public sub guess()
					strGuess = Random(1, 6)
	lblGuess.Caption = strGuess
		strHTML = HTTPWrapper.GetWrapper("http://neopets.com/games/process_psy.phtml?cards=" & strGuess, "http://neopets.com/games/psychoanalysis.phtml")
			If InStrB(1, strHTML, "Congratulations your pet is psychic!") Then
				lstLog.AddItem "Win at " & Time
			ElseIf InStrB(1, strHTML, "Wrong!") Then
				lstLog.AddItem "Loss at " & Time
			Else
				lstLog.AddItem "Unknown event at " & Time
					  X = X + 1

			End If
End Function

[Uentil 0]

They could have made their lives easier and use Select Case.