gaia online trader - Programmers Heaven

Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

Categories

Welcome to the new platform of Programmer's Heaven! We apologize for the inconvenience caused, if you visited us from a broken link of the previous version. The main reason to move to a new platform is to provide more effective and collaborative experience to you all. Please feel free to experience the new platform and use its exciting features. Contact us for any issue that you need to get clarified. We are more than happy to help you.

gaia online trader

sgm08sgm08 Posts: 1Member
i need help with this code run through it and see what i am doing wrong



Public Function gaiatrade()
Dim lngGold2 As String
strTrade = Wrapper2.GetWrapper("http://www.gaiaonline.com/")
lngGold2 = Wrapper2.iB(strTrade, "

Gold: ", "

")
lbltradegold.Text = lngGold2
strTrade = Wrapper2.GetWrapper("http://www.gaiaonline.com/gaia/bank.php?username=" & txtuser2.Text & "&x=53&y=10&mode=create&x", Wrapper2.LastPage)
lstlog.AddItem "Trade: Created"
strTradeID = Wrapper2.iB(strTrade, "bank_trade_id" & Chr(34) & " value= txtvalue.text" & Chr(34), Chr(34) & " />")
strNonce = GetStringBetween(strTrade, "bank_nonce" & Chr(34) & " value=" & Chr(34), Chr(34) & " />")
strTrade = Wrapper2.PostWrapper("http://www.gaiaonline.com/gaia/bank.php", "item_serial_list=&gold=" & lbltradegold.Text & "&mode=submit_trade&subject=Trade+request+from+" & txtuser2.Text & "+to+" & txtuser.Text & "&trade_id=" & strTradeID & "&last_revision=0&nonce=" & strNonce & "&password=" & txtpass2.Text)
If InStr(1, strTrade, "You have offered a new trade") Then
lstlog.AddItem "Trade: Offered"
strTrade2 = HTTPWrapper.GetWrapper("http://www.gaiaonline.com/gaia/bank.php?mode=view&trade_id=" & strTradeID, HTTPWrapper.LastPage)
strNonce2 = Wrapper2.iB(strTrade2, "bank_nonce" & Chr(34) & " value=" & Chr(34), Chr(34) & " />")
strTrade2 = HTTPWrapper.PostWrapper("http://www.gaiaonline.com/gaia/bank.php", "item_serial_list=&gold=0&mode=submit_trade&subject=Trade+request+from+" & txtuser2 & "+to+" & txtuser & "&trade_id=" & strTradeID & "&last_revision=1&nonce=" & strNonce2 & "&password=" & txtpass)
If InStr(1, strTrade2, "You have offered a new trade") Then
strAccept = HTTPWrapper.PostWrapper("http://www.gaiaonline.com/gaia/bank.php", "item_serial_list=&gold=txtvalue.text&mode=submit_trade&subject=Trade+request+from+" & txtuser2 & "+to+" & txtuser & "&trade_id=" & strTradeID & "&last_revision=2&nonce=" & strNonce2 & "&password=" & txtpass)
strAccept2 = Wrapper2.PostWrapper("http://www.gaiaonline.com/gaia/bank.php", "item_serial_list=&gold=" & lbltradegold.Text & "&mode=submit_trade&subject=Trade+request+from+" & txtuser2 & "+to+" & txtuser & "&trade_id=" & strTradeID & "&last_revision=3&nonce=" & strNonce & "&password=" & txtpass)
If InStr(1, strAccept2, "You have accepted the trade successfully") Then
lstlog.AddItem "Trade: Complete"
Else
lstlog.AddItem "Trade: Unsuccessful"
End If
Else
lstlog.AddItem "Trade: Unsuccessful"
End If
Else
lstlog.AddItem "Trade: Unsuccessful"
End If
End Function

Comments

  • BitByBit_ThorBitByBit_Thor Posts: 2,444Member
    : i need help with this code run through it and see what i am doing
    : wrong
    :
    :

    First step: repost the code using [leftbr]code[rightbr] tags.
    For information on the available tags, click "View BBCode and Smilies" below the post/reply window.

    Best Regards,
    Richard

    The way I see it... Well, it's all pretty blurry
  • lionblionb Posts: 1,688Member ✭✭
    : : i need help with this code run through it and see what i am doing
    : : wrong
    : :
    : :
    :
    : First step: repost the code using [leftbr]code[rightbr] tags.
    : For information on the available tags, click "View BBCode and
    : Smilies" below the post/reply window.
    :
    I agree.
    Second step: Explain what kind of problem you have.

    PS. What is Wrapper?
Sign In or Register to comment.