@[Only registered and activated users can see links. ].... I hate argument not optional... WHAT IS WRONG WITH IT!!! I hate errors!!!
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."
MsgBox "Deposited " & Text1.Text & " NP."
MsgBox "Close and Reopen 'Neopoints/Bank' to see the new amount of neopoints on hand and in bank."
Argument not optional
Any who I do have this function in the same thing... sooooo
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)
Oh and Thanks, again...
Last edited by Ashleys165; 01-08-2012 at 05:46 PM.