[VB6] Money Tree Grabber Source

Neopoint only grabber. Learn From it, and don't rip please.

Code (Visual Basic):

1. <div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">Option</span> <span style="color: #b1b100;">Explicit</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">Private</span> <span style="color: #b1b100;">Type</span> Item </li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">    Amount <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Long</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">    OrigID <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Long</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Type</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">Dim</span> lngPrev <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Long</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">Dim</span> strStock<span style="color: #66cc66;">(</span><span style="color: #66cc66;">)</span> <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">String</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">Private</span> <span style="color: #b1b100;">Sub</span> cmdLogin_Click<span style="color: #66cc66;">(</span><span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">    <span style="color: #b1b100;">Dim</span> strHTML <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">String</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">        cmdLogin.<span style="color: #66cc66;">Enabled</span> = <span style="color: #b1b100;">False</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">        strHTML = HTTP.<span style="color: #66cc66;">GetWrapper</span><span style="color: #66cc66;">(</span><span style="color: #ff0000;">"http://neopets.com/"</span><span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">        stbStatus.<span style="color: #66cc66;">Panels</span><span style="color: #66cc66;">(</span><span style="color: #cc66cc;">1</span><span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">Text</span> = <span style="color: #ff0000;">"Status: "</span> & <span style="color: #ff0000;">"Logging In Step 1"</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">        strHTML = HTTP.<span style="color: #66cc66;">GetWrapper</span><span style="color: #66cc66;">(</span><span style="color: #ff0000;">"http://neopets.com/loginpage.phtml"</span>, <span style="color: #ff0000;">"http://neopets.com/"</span><span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">        stbStatus.<span style="color: #66cc66;">Panels</span><span style="color: #66cc66;">(</span><span style="color: #cc66cc;">1</span><span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">Text</span> = <span style="color: #ff0000;">"Status: "</span> & <span style="color: #ff0000;">"Logging In Step 2"</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">        strHTML = HTTP.<span style="color: #66cc66;">GetWrapper</span><span style="color: #66cc66;">(</span><span style="color: #ff0000;">"http://neopets.com/hi.phtml?destination=%2Fpetcentral.phtml&username="</span> & txtUsername.<span style="color: #66cc66;">Text</span>, <span style="color: #ff0000;">"http://neopets.com/loginpage.phtml"</span><span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">        stbStatus.<span style="color: #66cc66;">Panels</span><span style="color: #66cc66;">(</span><span style="color: #cc66cc;">1</span><span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">Text</span> = <span style="color: #ff0000;">"Status: "</span> & <span style="color: #ff0000;">"Logging In Step 3"</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">        strHTML = HTTP.<span style="color: #66cc66;">GetWrapper</span><span style="color: #66cc66;">(</span><span style="color: #ff0000;">"http://neopets.com/login.phtml?username="</span> & txtUsername.<span style="color: #66cc66;">Text</span> & <span style="color: #ff0000;">"&password="</span> & txtPassword.<span style="color: #66cc66;">Text</span> & <span style="color: #ff0000;">"&destination=%2Fpetcentral.phtml"</span>, <span style="color: #ff0000;">"http://neopets.com/hi.phtml?destination=%2Fpetcentral.phtml&username="</span> & txtUsername.<span style="color: #66cc66;">Text</span><span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">        stbStatus.<span style="color: #66cc66;">Panels</span><span style="color: #66cc66;">(</span><span style="color: #cc66cc;">1</span><span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">Text</span> = <span style="color: #ff0000;">"Status: "</span> & <span style="color: #ff0000;">"Logging In Step 4"</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">        <span style="color: #b1b100;">If</span> <span style="color: #b1b100;">InStr</span><span style="color: #66cc66;">(</span><span style="color: #cc66cc;">1</span>, <span style="color: #b1b100;">LCase</span><span style="color: #66cc66;">(</span>strHTML<span style="color: #66cc66;">)</span>, <span style="color: #ff0000;">"location: /petcentral.phtml"</span><span style="color: #66cc66;">)</span> <> <span style="color: #cc66cc;">0</span> <span style="color: #b1b100;">Or</span> <span style="color: #b1b100;">InStr</span><span style="color: #66cc66;">(</span><span style="color: #cc66cc;">1</span>, <span style="color: #b1b100;">LCase</span><span style="color: #66cc66;">(</span>strHTML<span style="color: #66cc66;">)</span>, <span style="color: #ff0000;">"pass_remind"</span><span style="color: #66cc66;">)</span> <> <span style="color: #cc66cc;">0</span> <span style="color: #b1b100;">Then</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">            stbStatus.<span style="color: #66cc66;">Panels</span><span style="color: #66cc66;">(</span><span style="color: #cc66cc;">1</span><span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">Text</span> = <span style="color: #ff0000;">"Status: "</span> & <span style="color: #ff0000;">"Login Successful!"</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">            <span style="color: #b1b100;">MsgBox</span> <span style="color: #ff0000;">"Login Successful!"</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">            txtUsername.<span style="color: #66cc66;">Enabled</span> = <span style="color: #b1b100;">False</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">            txtPassword.<span style="color: #66cc66;">Enabled</span> = <span style="color: #b1b100;">False</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">            stbStatus.<span style="color: #66cc66;">Panels</span><span style="color: #66cc66;">(</span><span style="color: #cc66cc;">1</span><span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">Text</span> = <span style="color: #ff0000;">"Status: "</span> & <span style="color: #ff0000;">"Logged in as "</span> & txtUsername.<span style="color: #66cc66;">Text</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">        <span style="color: #b1b100;">ElseIf</span> <span style="color: #b1b100;">InStr</span><span style="color: #66cc66;">(</span><span style="color: #cc66cc;">1</span>, <span style="color: #b1b100;">LCase</span><span style="color: #66cc66;">(</span>strHTML<span style="color: #66cc66;">)</span>, <span style="color: #ff0000;">"frozen"</span><span style="color: #66cc66;">)</span> <> <span style="color: #cc66cc;">0</span> <span style="color: #b1b100;">Then</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">            cmdLogin.<span style="color: #66cc66;">Enabled</span> = <span style="color: #b1b100;">True</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">            <span style="color: #b1b100;">MsgBox</span> <span style="color: #ff0000;">"This account is frozen!"</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">            stbStatus.<span style="color: #66cc66;">Panels</span><span style="color: #66cc66;">(</span><span style="color: #cc66cc;">1</span><span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">Text</span> = <span style="color: #ff0000;">"Status: "</span> & <span style="color: #ff0000;">"Account Frozen!"</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">        <span style="color: #b1b100;">Else</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">            cmdLogin.<span style="color: #66cc66;">Enabled</span> = <span style="color: #b1b100;">True</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">            <span style="color: #b1b100;">MsgBox</span> <span style="color: #ff0000;">"Invalid user/password combination!"</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">            stbStatus.<span style="color: #66cc66;">Panels</span><span style="color: #66cc66;">(</span><span style="color: #cc66cc;">1</span><span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">Text</span> = <span style="color: #ff0000;">"Status: "</span> & <span style="color: #ff0000;">"Invalid user/pass combination!"</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Sub</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">Private</span> <span style="color: #b1b100;">Sub</span> cmdStart_Click<span style="color: #66cc66;">(</span><span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">    <span style="color: #808080;">'set the interval nub</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">    lstLog.<span style="color: #66cc66;">AddItem</span> <span style="color: #66cc66;">(</span><span style="color: #b1b100;">Time</span> & <span style="color: #ff0000;">": MTG STARTED!"</span><span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">    tmrRef.<span style="color: #66cc66;">Interval</span> = RcadModule.<span style="color: #66cc66;">Rand</span><span style="color: #66cc66;">(</span><span style="color: #cc66cc;">500</span>, <span style="color: #cc66cc;">1000</span><span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">    tmrRef.<span style="color: #66cc66;">Enabled</span> = <span style="color: #b1b100;">True</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">    stbStatus.<span style="color: #66cc66;">Panels</span><span style="color: #66cc66;">(</span><span style="color: #cc66cc;">1</span><span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">Text</span> = <span style="color: #ff0000;">"Status: Checking the tree."</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Sub</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">Private</span> <span style="color: #b1b100;">Sub</span> cmdStop_Click<span style="color: #66cc66;">(</span><span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">    lstLog.<span style="color: #66cc66;">AddItem</span> <span style="color: #66cc66;">(</span><span style="color: #b1b100;">Time</span> & <span style="color: #ff0000;">": MTG STOPED!"</span><span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">    tmrRef.<span style="color: #66cc66;">Enabled</span> = <span style="color: #b1b100;">False</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">    tmrRef.<span style="color: #66cc66;">Interval</span> = RcadModule.<span style="color: #66cc66;">Rand</span><span style="color: #66cc66;">(</span><span style="color: #cc66cc;">500</span>, <span style="color: #cc66cc;">1000</span><span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">    stbStatus.<span style="color: #66cc66;">Panels</span><span style="color: #66cc66;">(</span><span style="color: #cc66cc;">1</span><span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">Text</span> = <span style="color: #ff0000;">"Status: stopped."</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Sub</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> </li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">Private</span> <span style="color: #b1b100;">Sub</span> tmrRef_Timer<span style="color: #66cc66;">(</span><span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> <span style="color: #b1b100;">Dim</span> strHTML <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">String</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">    <span style="color: #b1b100;">Dim</span> i <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Long</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">    <span style="color: #b1b100;">Dim</span> itmItem<span style="color: #66cc66;">(</span><span style="color: #66cc66;">)</span> <span style="color: #b1b100;">As</span> Item</li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">    <span style="color: #b1b100;">Dim</span> lngCount <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Long</span>: lngCount = <span style="color: #cc66cc;">0</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">    <span style="color: #b1b100;">Dim</span> lngHighest <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Long</span>: lngHighest = <span style="color: #cc66cc;">0</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">    <span style="color: #b1b100;">Dim</span> lngID <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Long</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">        <span style="color: #b1b100;">Erase</span> strStock<span style="color: #66cc66;">(</span><span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">        lstNP.<span style="color: #66cc66;">Clear</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">        strHTML = HTTP.<span style="color: #66cc66;">GetWrapper</span><span style="color: #66cc66;">(</span><span style="color: #ff0000;">"http://www.neopets.com/donations.phtml"</span>, HTTP.<span style="color: #66cc66;">LastPage</span><span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">        lngPrev = Replace<span style="color: #66cc66;">(</span>Extract<span style="color: #66cc66;">(</span>strHTML, <span style="color: #ff0000;">"NP : <a class=tl href=/objects.phtml?type=inventory>"</span>, <span style="color: #ff0000;">"</a>"</span><span style="color: #66cc66;">)</span>, <span style="color: #ff0000;">","</span>, <span style="color: #ff0000;">""</span><span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">        <span style="color: #b1b100;">If</span> <span style="color: #b1b100;">InStr</span><span style="color: #66cc66;">(</span><span style="color: #cc66cc;">1</span>, strHTML, <span style="color: #ff0000;">"<br>(donated by "</span><span style="color: #66cc66;">)</span> <> <span style="color: #cc66cc;">0</span> <span style="color: #b1b100;">Then</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">            <span style="color: #b1b100;">Call</span> RcadModule.<span style="color: #66cc66;">ExtractAll</span><span style="color: #66cc66;">(</span>strHTML, <span style="color: #ff0000;">"border=1></a><br><b>"</span>, <span style="color: #ff0000;">"</b><br>"</span>, strStock<span style="color: #66cc66;">(</span><span style="color: #66cc66;">)</span><span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">            <span style="color: #b1b100;">For</span> i = <span style="color: #b1b100;">LBound</span><span style="color: #66cc66;">(</span>strStock<span style="color: #66cc66;">)</span> <span style="color: #b1b100;">To</span> <span style="color: #b1b100;">UBound</span><span style="color: #66cc66;">(</span>strStock<span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">                lstNP.<span style="color: #66cc66;">AddItem</span> strStock<span style="color: #66cc66;">(</span>i<span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">            <span style="color: #b1b100;">Next</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">            <span style="color: #b1b100;">ReDim</span> Preserve itmItem<span style="color: #66cc66;">(</span>lstNP.<span style="color: #66cc66;">ListCount</span><span style="color: #66cc66;">)</span> <span style="color: #b1b100;">As</span> Item</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">            <span style="color: #b1b100;">For</span> i = <span style="color: #b1b100;">LBound</span><span style="color: #66cc66;">(</span>strStock<span style="color: #66cc66;">)</span> <span style="color: #b1b100;">To</span> <span style="color: #b1b100;">UBound</span><span style="color: #66cc66;">(</span>strStock<span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">                <span style="color: #b1b100;">If</span> <span style="color: #b1b100;">InStr</span><span style="color: #66cc66;">(</span><span style="color: #cc66cc;">1</span>, strStock<span style="color: #66cc66;">(</span>i<span style="color: #66cc66;">)</span>, <span style="color: #ff0000;">" NP"</span><span style="color: #66cc66;">)</span> <> <span style="color: #cc66cc;">0</span> <span style="color: #b1b100;">Then</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">                    itmItem<span style="color: #66cc66;">(</span>i<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">Amount</span> = <span style="color: #b1b100;">Val</span><span style="color: #66cc66;">(</span>Replace<span style="color: #66cc66;">(</span>strStock<span style="color: #66cc66;">(</span>i<span style="color: #66cc66;">)</span>, <span style="color: #ff0000;">" NP"</span>, <span style="color: #ff0000;">""</span><span style="color: #66cc66;">)</span><span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">                    itmItem<span style="color: #66cc66;">(</span>i<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">OrigID</span> = i</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">                    lngCount = <span style="color: #b1b100;">Val</span><span style="color: #66cc66;">(</span>lngCount<span style="color: #66cc66;">)</span> + <span style="color: #cc66cc;">1</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">                <span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">            <span style="color: #b1b100;">Next</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">            <span style="color: #b1b100;">If</span> lngCount > <span style="color: #cc66cc;">0</span> <span style="color: #b1b100;">Then</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">                <span style="color: #b1b100;">For</span> i = <span style="color: #b1b100;">LBound</span><span style="color: #66cc66;">(</span>itmItem<span style="color: #66cc66;">)</span> <span style="color: #b1b100;">To</span> <span style="color: #b1b100;">UBound</span><span style="color: #66cc66;">(</span>itmItem<span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">                    <span style="color: #b1b100;">If</span> itmItem<span style="color: #66cc66;">(</span>i<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">Amount</span> > lngHighest <span style="color: #b1b100;">Then</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">                        lngHighest = itmItem<span style="color: #66cc66;">(</span>i<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">Amount</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">                        lngID = i</li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">                    <span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">                <span style="color: #b1b100;">Next</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">                <span style="color: #b1b100;">If</span> lngHighest >= <span style="color: #b1b100;">Val</span><span style="color: #66cc66;">(</span>txtmin.<span style="color: #66cc66;">Text</span><span style="color: #66cc66;">)</span> <span style="color: #b1b100;">Then</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">                    <span style="color: #b1b100;">Call</span> grabItem<span style="color: #66cc66;">(</span>itmItem<span style="color: #66cc66;">(</span>lngID<span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">OrigID</span>, strHTML<span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">                    <span style="color: #b1b100;">Exit</span> <span style="color: #b1b100;">Sub</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">                <span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">            <span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">        <span style="color: #b1b100;">Else</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">            lstNP.<span style="color: #66cc66;">AddItem</span> <span style="color: #66cc66;">(</span><span style="color: #ff0000;">"Nothing on tree."</span><span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">        <span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">        tmrRef.<span style="color: #66cc66;">Interval</span> = Rand<span style="color: #66cc66;">(</span><span style="color: #cc66cc;">500</span>, <span style="color: #cc66cc;">1000</span><span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">        stbStatus.<span style="color: #66cc66;">Panels</span><span style="color: #66cc66;">(</span><span style="color: #cc66cc;">1</span><span style="color: #66cc66;">)</span>.<span style="color: #66cc66;">Text</span> = <span style="color: #ff0000;">"Status: Waiting "</span> & tmrRef.<span style="color: #66cc66;">Interval</span> & <span style="color: #ff0000;">" ms!"</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Sub</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">Public</span> <span style="color: #b1b100;">Function</span> grabItem<span style="color: #66cc66;">(</span>ByVal id <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Long</span>, ByVal strHTML <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">String</span><span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">    <span style="color: #b1b100;">Dim</span> strURLS<span style="color: #66cc66;">(</span><span style="color: #66cc66;">)</span> <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">String</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">    <span style="color: #b1b100;">Dim</span> strURL <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">String</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">    <span style="color: #b1b100;">Dim</span> lngAfter <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Long</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">        <span style="color: #b1b100;">Call</span> RcadModule.<span style="color: #66cc66;">ExtractAll</span><span style="color: #66cc66;">(</span>strHTML, <span style="color: #ff0000;">"<a href='takedonation_new.phtml?donation_id="</span>, <span style="color: #ff0000;">"'"</span>, strURLS<span style="color: #66cc66;">(</span><span style="color: #66cc66;">)</span><span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">        strURL = <span style="color: #ff0000;">"http://www.neopets.com/takedonation_new.phtml?donation_id="</span> & strURLS<span style="color: #66cc66;">(</span>id<span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">        strHTML = HTTP.<span style="color: #66cc66;">GetWrapper</span><span style="color: #66cc66;">(</span>strURL, HTTP.<span style="color: #66cc66;">LastPage</span><span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">        strHTML = HTTP.<span style="color: #66cc66;">GetWrapper</span><span style="color: #66cc66;">(</span><span style="color: #ff0000;">"http://www.neopets.com/objects.phtml"</span>, HTTP.<span style="color: #66cc66;">LastPage</span><span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">        lngAfter = Replace<span style="color: #66cc66;">(</span>Extract<span style="color: #66cc66;">(</span>strHTML, <span style="color: #ff0000;">"NP : <a class=tl href=/objects.phtml?type=inventory>"</span>, <span style="color: #ff0000;">"</a>"</span><span style="color: #66cc66;">)</span>, <span style="color: #ff0000;">","</span>, <span style="color: #ff0000;">""</span><span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">        <span style="color: #b1b100;">If</span> lngAfter > lngPrev <span style="color: #b1b100;">Then</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">            lstLog.<span style="color: #66cc66;">AddItem</span> <span style="color: #66cc66;">(</span><span style="color: #b1b100;">Time</span> & <span style="color: #ff0000;">": Grabbed "</span> & strStock<span style="color: #66cc66;">(</span>id<span style="color: #66cc66;">)</span> & <span style="color: #ff0000;">"!"</span><span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">        <span style="color: #b1b100;">Else</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">            lstLog.<span style="color: #66cc66;">AddItem</span> <span style="color: #66cc66;">(</span><span style="color: #b1b100;">Time</span> & <span style="color: #ff0000;">": Missed "</span> & strStock<span style="color: #66cc66;">(</span>id<span style="color: #66cc66;">)</span> & <span style="color: #ff0000;">"!"</span><span style="color: #66cc66;">)</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">        <span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Function</span> </li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> </li></ol></div>

 

To all of you grab item is extract all

 

Well I figured if you were gonna use this you should have known that already. And wow. the code was nicely indented and neat, but now its all over the place