Ricky tried to convert this in vb6 for me. Now, I myself done vb6 in a while so I am a bit out of practice. So someone fix this slightly converted code? Code (Text): Dim strHTML As String, ProgID As Integer, strName As String Private Sub cmdauth_click() strName = "Your program" 'Put your program's name exactly as you will put it in the downloads section ProgID = 666 'Put your program ID here. You will get it once you go to the "Add download" page. strHTML = w.GetWrapper("http://www.neofriends.net/auth.php?username=" & txtAuth_Username.Text & "&password=" & txtAuth_Password.Text & "&program=" & ProgID) strHTML = GetBetween(strHTML, "<td style="height: 100px;" align=center><h2>", "</h2></td>") Select Case strHTML Case "Authorized to use the program.": 'Show your main form here Default: MsgBox strHTML end case End Sub Code (Text): End case is in red strHTML = GetBetween(strHTML, "<td style="height: 100px;" align=center><h2>", "</h2></td>") is in red
You aren't escaping the quotes out of the GetBetween. I'm sure there is an easier way but I just would use this: Code (Text): strHTML = GetBetween(strHTML, "<td style=" . chr(34) . height: 100px;" . chr(34) . " align=center><h2>", "</h2></td>")
I don't know if this works in VB, but try using \" using backslash to escape characters is pretty universal usage across languages.
If I was back in my prime then I would have caught it. lol Sorry guys, I haven't done this language in a while. :/ Thanks