gaia online trader

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

  • : 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
  • : : 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.

Howdy, Stranger!

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

Categories