@(you need an account to see links).... I hate argument not optional... WHAT IS WRONG WITH IT!!! I hate errors!!!
Code:
Private Sub Command1_Click()
Dim strhtml As String
strhtml = Wrapper1.GetWrapper("http://www.neopets.com/bank.phtml")
strhtml = Wrapper1.PostWrapper("http://www.neopets.com/process_bank.phtml", "type=deposit&amount=" & Text1.Text)
If GetStringBetween(strhtml, "<b>Error: </b>") Then
MsgBox "You do not have enough neopoints on hand to deposit that amount of neopoints."
Else
MsgBox "Deposited " & Text1.Text & " NP."
MsgBox "Close and Reopen 'Neopoints/Bank' to see the new amount of neopoints on hand and in bank."
End Sub
Argument not optional
MEH!
Any who I do have this function in the same thing... sooooo
Code:
Public Function GetStringBetween(Main As String, Start As String, Finish As String, Optional Index As Long = 1) As String
On Error Resume Next
GetStringBetween = Split(Split(Main, Start, Index + 1)(Index), Finish, 2)(0)
End Function
Oh and Thanks, again...