Results 1 to 1 of 1

Thread: [VB6] Neopets Carnival Autoplayer

  1. #1
    Reemer's Avatar
    Joined
    Dec 2011
    Posts
    639
    Userbars
    8
    Thanks
    364
    Thanked
    446/256
    DL/UL
    39/0
    Mentioned
    203 times
    Time Online
    4d 13h 47m
    Avg. Time Online
    1m

    [VB6] Neopets Carnival Autoplayer

    This one was easy. Let this be a reminder that not everything is as difficult as it seems; the games might be in flash but you can make it easily in VB6. Same with the slots games.
    I don't think it tells you if you win an item correctly however.
    Code:
    Private Sub cmdStart_Click()
    Dim intrandom As String
    Dim strPoints As String
    Dim stritem As String
    Dim Finished As Boolean
    cmdStart.Enabled = False
    cmdstop.Enabled = True
    StopProgram = False
    If chkbag.Value = 1 And StopProgram = False Then
    lblstatus.Caption = "Playing Bagatelle."
    Do Until StopProgram = True Or Finished = True
    MSToWait (Rand(txtwait1.Text, txtwait2.Text))
    intrandom = Rand(1000, 99999)
    Call RipperWrapper.Request(strHTML, "GET", "http://www.neopets.com/halloween/process_bagatelle.phtml?r=" & intrandom)
    strPoints = GetStringBetween(strHTML, "points=", "&totalnp=")
    If Val(strPoints) > 0 Then
    lststatus.AddItem ("Won " & strPoints & " NP.")
    End If
    lblplayed.Caption = lblplayed.Caption + 1
    If InStr(strHTML, "You+can%27t+afford+to+play%2C+what+a+pity") Then
    lststatus.AddItem ("Not enough NP. Stopping.")
    StopProgram = True
    End If
    If InStr(strHTML, "Hey%2C+kid") Then
    Finished = True
    lblplayed.Caption = lblplayed.Caption - 1
    lststatus.AddItem ("Finished playing Bagatelle.")
    End If
    
    Loop
    End If
    Finished = False
    
    
    
    If chkcoco.Value = 1 And StopProgram = False Then
    lblstatus.Caption = "Playing Coconut Shy."
    Do Until StopProgram = True Or Finished = True
    MSToWait (Rand(txtwait1.Text, txtwait2.Text))
    intrandom = Rand(1000, 99999)
    Call RipperWrapper.Request(strHTML, "GET", "http://www.neopets.com/halloween/process_cocoshy.phtml?coconut=1&r=" & intrandom)
    strPoints = GetStringBetween(strHTML, "points=", "&totalnp=")
    If Val(strPoints) > 0 Then
    lststatus.AddItem ("Won " & strPoints & " NP.")
    End If
    stritem = GetStringBetween(strHTML, "&success=", "&error")
    If Val(stritem) > 3 Then
    lststatus.AddItem ("Won an item from Coconut Shy!")
    End If
    lblplayed.Caption = lblplayed.Caption + 1
    If InStr(strHTML, "No+Neopoints+No+Throw") Then
    StopProgram = True
    lststatus.AddItem ("Not enough NP. Stopping.")
    End If
    If InStr(strHTML, "had+yer+lot") Then
    Finished = True
    lblplayed.Caption = lblplayed.Caption - 1
    lststatus.AddItem ("Finished playing Coconut Shy.")
    
    End If
    
    Loop
    End If
    Finished = False
    
    
    Dim intrandsuccess As Integer
    
    If chkcork.Value = 1 And StopProgram = False Then
    lblstatus.Caption = "Playing Cork Gun."
    Do Until StopProgram = True Or Finished = True
    MSToWait (Rand(txtwait1.Text, txtwait2.Text))
    intrandom = Rand(1000, 99999)
    intrandsuccess = Rand(9, 15)
    Call RipperWrapper.Request(strHTML, "GET", "www.neopets.com/halloween/process_corkgun.phtml?success=" & intrandsuccess & "&r=" & intrandom)
    stritem = GetStringBetween(strHTML, "&success=", "&error")
    If Val(stritem) > 0 And Val(stritem) < 50 Then
    lststatus.AddItem ("Won an item from Cork Gun Gallery!")
    End If
    lblplayed.Caption = lblplayed.Caption + 1
    If InStr(strHTML, "No+Neopoints") Then
    lststatus.AddItem ("Not enough NP. Stopping.")
    StopProgram = True
    End If
    If InStr(strHTML, "No+more+shots+today") Then
    Finished = True
    lststatus.AddItem ("Finished playing Cork Gun Gallery.")
    lblplayed.Caption = lblplayed.Caption - 1
    End If
    
    Loop
    End If
    Finished = False
    lblstatus.Caption = "Finished."
    
    
    End Sub

  2. The Following 2 Users Say Thank You to Reemer For This Useful Post:

    Evelsaint (09-02-2012),j03 (09-02-2012)

Posting Permissions

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