vb to vb .net conversion

I am making a game client, others use visual basic 6 to do this, the code works for them, but does not for me(I use VB 2005 .NET) This is a High Score retriver, the website uses smart parsing so it is difficult to parse the website code to find the numbers.

If you know both languages, please help in this, here is the code:
VB Code:
Function GetLvl(ByVal Username As String, ByVal Skill As String, ByVal HTML As String) As String
        Dim pos As Integer, tmpInet As Object
        If HTML = "" Then
            tmpInet = CreateObject("InetCtls.Inet")
            HTML = tmpInet.OpenURL("http://hiscore.runescape.com/lang/en/aff/runescape/hiscorepersonal.ws?user1=" & Username)
            tmpInet.Cancel()
        End If
        pos = InStr(1, HTML, ">" & Skill & "<", 1)
        If InStr(pos, HTML, "t""", 1) > pos + 40 Then Exit Function
        pos = InStr(InStr(pos, HTML, "t""", 1) + 1, HTML, "t""", 1) + 3
        GetLvl = Mid(HTML, pos, InStr(pos, HTML, "<") - pos)
    End Function
In the debugger, It has an error "Argument 'Start" must be greater than zero." So when I add "if pos = 0 then pos = 1" that skips that but comes upon another: "Argument 'Lenth' must be greater or equil to zero."

As of again please help.

Re: vb to vb .net conversion

What are your you getting on HTML?

it sounds like you are not getting what you expect there (remember that Instr returns -1 if does not found the searched string)

Hope htis helps

Re: vb to vb .net conversion

Not quite. InStr returns 0 if the string is not found. It can get away with that since it's 1-based. You're thinking of the .NET string class method "IndexOf".

Re: vb to vb .net conversion

Quote:

Originally Posted by kloplop321

I am making a game client, others use visual basic 6 to do this, the code works for them, but does not for me(I use VB 2005 .NET) This is a High Score retriver, the website uses smart parsing so it is difficult to parse the website code to find the numbers.

Hi,

Did you tryed the upgrade wizard in the Tools menu of VB 2005.
This could be very useful.

Hope it helps,

sparrow1

Re: vb to vb .net conversion

Ok David...

Many, many time ago there was a language called vb6.. :D

anyway the problem is the same (but returning 0 instead of -1), something is not as expected to be.

Re: vb to vb .net conversion

I just want to have the converted code, I don't know much about parsing, yes this is html code to be parsed, there apparently is no conversion option in my visiual basic program. Please just post working code.

this is what an example of the code in the html looks like:

Attack
</a></td>
<td align= "right">exp num</td>
<td align= "right">2 digit number I want</td>

If the statement is not numerical, then it should return <30
As of again, Thankyou, please help.

Re: vb to vb .net conversion

Please return any thoughts about this, here is an example html code on the webpage that is causing me problems(there aren't spaces, only new lines(which causes the problem here)

Code:

Overall </a></td> <td align="right">1</td> <td align="right">2178</td> <td align="right">743,051,865</td> </tr> <tr> <td align="right"><img class="miniimg" src="http://www.runescape.com/lang/en/aff/runescape/img/hiscores/skill_icon_attack1.gif"></td> <td align="left"><a href="overall.ws?table=1&user=zezima"> Attack </a></td> <td align="right">25</td> <td align="right">99</td> <td align="right">56,566,459</td> </tr> <tr> <td align="right"><img class="miniimg" src="http://www.runescape.com/lang/en/aff/runescape/img/hiscores/skill_icon_defence1.gif"></td> <td align="left"><a href="overall.ws?table=2&user=zezima"> Defence </a></td> <td align="right">34</td> <td align="right">99</td> <td align="right">37,175,703</td> </tr> <tr> <td align="right"><img class="miniimg" src="http://www.runescape.com/lang/en/aff/runescape/img/hiscores/skill_icon_strength1.gif"></td> <td align="left"><a href="overall.ws?table=3&user=zezima"> Strength </a></td> <td align="right">48</td> <td align="right">99</td> <td align="right">31,687,305</td> </tr> <tr> <td align="right"><img class="miniimg" src="http://www.runescape.com/lang/en/aff/runescape/img/hiscores/skill_icon_hitpoints1.gif"></td> <td align="left"><a href="overall.ws?table=4&user=zezima"> Hitpoints </a></td> <td align="right">16</td> <td align="right">99</td> <td align="right">49,522,626</td> </tr> <tr> <td align="right"><img class="miniimg" src="http://www.runescape.com/lang/en/aff/runescape/img/hiscores/skill_icon_ranged1.gif"></td> <td align="left"><a href="overall.ws?table=5&user=zezima"> Ranged </a></td> <td align="right">24</td> <td align="right">99</td> <td align="right">33,594,655</td> </tr> <tr> <td align="right"><img class="miniimg" src="http://www.runescape.com/lang/en/aff/runescape/img/hiscores/skill_icon_prayer1.gif"></td> <td align="left"><a href="overall.ws?table=6&user=zezima"> Prayer </a></td> <td align="right">56</td> <td align="right">99</td> <td align="right">13,906,357</td> </tr> <tr> <td align="right"><img class="miniimg" src="http://www.runescape.com/lang/en/aff/runescape/img/hiscores/skill_icon_magic1.gif"></td> <td align="left"><a href="overall.ws?table=7&user=zezima"> Magic </a></td> <td align="right">2</td> <td align="right">99</td> <td align="right">56,156,110</td> </tr> <tr> <td align="right"><img class="miniimg" src="http://www.runescape.com/lang/en/aff/runescape/img/hiscores/skill_icon_cooking1.gif"></td> <td align="left"><a href="overall.ws?table=8&user=zezima"> Cooking </a></td> <td align="right">6</td> <td align="right">99</td> <td align="right">200,000,000</td> </tr> <tr> <td align="right"><img class="miniimg" src="http://www.runescape.com/lang/en/aff/runescape/img/hiscores/skill_icon_woodcutting1.gif"></td> <td align="left"><a href="overall.ws?table=9&user=zezima"> Woodcutting </a></td> <td align="right">227</td> <td align="right">99</td> <td align="right">21,140,567</td> </tr> <tr> <td align="right"><img class="miniimg" src="http://www.runescape.com/lang/en/aff/runescape/img/hiscores/skill_icon_fletching1.gif"></td> <td align="left"><a href="overall.ws?table=10&user=zezima"> Fletching </a></td> <td align="right">44</td> <td align="right">99</td> <td align="right">43,494,838</td> </tr> <tr> <td align="right"><img class="miniimg" src="http://www.runescape.com/lang/en/aff/runescape/img/hiscores/skill_icon_fishing1.gif"></td> <td align="left"><a href="overall.ws?table=11&user=zezima"> Fishing </a></td> <td align="right">137</td> <td align="right">99</td> <td align="right">17,314,344</td> </tr> <tr> <td align="right"><img class="miniimg" src="http://www.runescape.com/lang/en/aff/runescape/img/hiscores/skill_icon_firemaking1.gif"></td> <td align="left"><a href="overall.ws?table=12&user=zezima"> Firemaking </a></td> <td align="right">8</td> <td align="right">99</td> <td align="right">41,366,622</td> </tr> <tr> <td align="right"><img class="miniimg" src="http://www.runescape.com/lang/en/aff/runescape/img/hiscores/skill_icon_crafting1.gif"></td> <td align="left"><a href="overall.ws?table=13&user=zezima"> Crafting </a></td> <td align="right">64</td> <td align="right">99</td> <td align="right">13,317,716</td> </tr> <tr> <td align="right"><img class="miniimg" src="http://www.runescape.com/lang/en/aff/runescape/img/hiscores/skill_icon_smithing1.gif"></td> <td align="left"><a href="overall.ws?table=14&user=zezima"> Smithing </a></td> <td align="right">41</td> <td align="right">99</td> <td align="right">17,131,673</td> </tr> <tr> <td align="right"><img class="miniimg" src="http://www.runescape.com/lang/en/aff/runescape/img/hiscores/skill_icon_mining1.gif"></td> <td align="left"><a href="overall.ws?table=15&user=zezima"> Mining </a></td> <td align="right">108</td> <td align="right">99</td> <td align="right">15,117,325</td> </tr> <tr> <td align="right"><img class="miniimg" src="http://www.runescape.com/lang/en/aff/runescape/img/hiscores/skill_icon_herblore1.gif"></td> <td align="left"><a href="overall.ws?table=16&user=zezima"> Herblore </a></td> <td align="right">43</td> <td align="right">99</td> <td align="right">13,537,620</td> </tr> <tr> <td align="right"><img class="miniimg" src="http://www.runescape.com/lang/en/aff/runescape/img/hiscores/skill_icon_agility1.gif"></td> <td align="left"><a href="overall.ws?table=17&user=zezima"> Agility </a></td> <td align="right">53</td> <td align="right">99</td> <td align="right">13,184,529</td> </tr> <tr> <td align="right"><img class="miniimg" src="http://www.runescape.com/lang/en/aff/runescape/img/hiscores/skill_icon_thieving1.gif"></td> <td align="left"><a href="overall.ws?table=18&user=zezima"> Thieving </a></td> <td align="right">110</td> <td align="right">99</td> <td align="right">15,383,099</td> </tr> <tr> <td align="right"><img class="miniimg" src="http://www.runescape.com/lang/en/aff/runescape/img/hiscores/skill_icon_slayer1.gif"></td> <td align="left"><a href="overall.ws?table=19&user=zezima"> Slayer </a></td> <td align="right">60</td> <td align="right">99</td> <td align="right">13,409,165</td> </tr> <tr> <td align="right"><img class="miniimg" src="http://www.runescape.com/lang/en/aff/runescape/img/hiscores/skill_icon_farming1.gif"></td> <td align="left"><a href="overall.ws?table=20&user=zezima"> Farming </a></td> <td align="right">38</td> <td align="right">99</td> <td align="right">13,767,706</td> </tr> <tr> <td align="right"><img class="miniimg" src="http://www.runescape.com/lang/en/aff/runescape/img/hiscores/skill_icon_runecraft1.gif"></td> <td align="left"><a href="overall.ws?table=21&user=zezima"> Runecraft </a></td> <td align="right">89</td> <td align="right">99</td> <td align="right">13,147,720</td> </tr> <tr> <td align="right"><img class="miniimg" src="http://www.runescape.com/lang/en/aff/runescape/img/hiscores/skill_icon_construction1.gif"></td> <td align="left"><a href="overall.ws?table=23&user=zezima"> Construction </a></td> <td align="right">24</td> <td align="right">99</td> <td align="right">13,129,726</td> </tr>

Okay this is how it is, I was wrong on my previous post but here

Construction :skill
</a></td> :something
<td align="right">24</td> :rank
<td align="right">99</td> :the level number I want only
<td align="right">13,129,726</td> :Current experience (which I don't care about)

I just want to have a function that returns the value
VB Code:
label1.text = GetLVL("Construction" , userTextBox.text)
If you understand now, please help, the URL for this website is: "http://hiscore.runescape.com/lang/en/aff/runescape/hiscorepersonal.ws?user1="

As of again Thankyou, the onle resources I have help that actualy work are people who use VB6 and that wont work for me as you would understand. I am greatful for your help.