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

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.