Results 1 to 1 of 1

Thread: I sure take up space on the Spam section

  1. #1

    Joined
    Dec 2011
    Posts
    844
    Pronouns
    she/her
    Userbars
    3
    Thanks
    313
    Thanked
    342/209
    DL/UL
    34/2
    Mentioned
    179 times
    Time Online
    1d 19h 11m
    Avg. Time Online
    N/A

    Angry I sure take up space on the Spam section

    @[Only registered and activated users can 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...
    Last edited by Ashleys165; 01-08-2012 at 05:46 PM.

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •