[VB6] Gaiaonline Transferring code

[second2none]

PHP Code:

Dim strAccept As String 
Dim strAccept2 As String 
Dim strNonce As String 
Dim strNonce2 As String 
Dim strTradeID As String 
Dim strTrade As String 
Dim strTrade2 As String 
Dim strTrade3 As String 

    strTrade = wrapper2.GetWrapper("http://www.gaiaonline.com/") 
    lngGold2 = GetStringBetween(strTrade, "<p>Gold: ", "</p>") 
    lblTradeGold.Caption = lngGold2 
    strTrade = wrapper2.GetWrapper("http://www.gaiaonline.com/gaia/bank.php?username=" & txtUser & "&x=64&y=10&mode=create", wrapper2.LastPage) 
    lstLog.AddItem "Trade: Created" 
     
    strTradeID = GetStringBetween(strTrade, "bank_trade_id" & Chr(34) & " value=" & 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 & "&mode=submit_trade&subject=Trade+request+from+" & txtUser2 & "+to+" & txtUser & "&trade_id=" & strTradeID & "&last_revision=0&nonce=" & strNonce & "&password=" & txtPass2) 
        If InStr(1, strTrade, "You have offered a new trade") Then 
            lstLog.AddItem "Trade: Offered" 
            strTrade2 = wrapper.GetWrapper("http://www.gaiaonline.com/gaia/bank.php?mode=view&trade_id=" & strTradeID, wrapper.LastPage) 
            strNonce2 = GetStringBetween(strTrade2, "bank_nonce" & Chr(34) & " value=" & Chr(34), Chr(34) & " />") 
            strTrade2 = wrapper.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 = wrapper.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=2&nonce=" & strNonce2 & "&password=" & txtPass) 
                    strAccept2 = wrapper2.PostWrapper("http://www.gaiaonline.com/gaia/bank.php", "item_serial_list=&gold=" & lblTradeGold & "&mode=submit_trade&subject=Trade+request+from+" & txtUser2 & "+to+" & txtUser & "&trade_id=" & strTradeID & "&last_revision=3&nonce=" & strNonce & "&password=" & txtPass2) 
                        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 Sub 


If you dont like my coding I dont care.

This is to transfer from one account to another.

I made this myself. If you decide to use it. Credit me please.

[Flame]

wow, nice kane.

[second2none]

xD thanks hehe

[seriph]

nice coding, you indent like me