[VB.NET] Adding neofriends auth to your programs.

You can use this code in your VB.NET programs to add neofriends.net authorization.
All you need to do is change szProgramName to the name of your program.

You may also want to change some of the names I used so that they work with your program, such as the cmdAuth button and the lblStatus.

This code assumes you are using Mysticals Wrapper. If you aren't, it probably won't be hard to change it to work with your method.

Code (vb.net):

1. <div class="vbnet" 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;">    </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: #FF8000;">Private</span> <span style="color: #0600FF;">Sub</span> cmdAuth_Click<span style="color: #000000;">(</span><span style="color: #FF8000;">ByVal</span> sender <span style="color: #FF8000;">As</span> System.<span style="color: #FF0000;">Object</span>, <span style="color: #FF8000;">ByVal</span> e <span style="color: #FF8000;">As</span> System.<span style="color: #0000FF;">EventArgs</span><span style="color: #000000;">)</span> <span style="color: #FF8000;">Handles</span> cmdAuth.<span style="color: #0000FF;">Click</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: #0600FF;">Dim</span> bAuth <span style="color: #FF8000;">As</span> <span style="color: #FF0000;">Boolean</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: #0600FF;">Dim</span> szProgramName <span style="color: #FF8000;">As</span> <span style="color: #FF8000;">String</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">        szProgramName = <span style="color: #808080;">"program name"</span> <span style="color: #008080; font-style: italic;">'put the name which you will submit your program with here.</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">        lblStatus.<span style="color: #0000FF;">Text</span> = <span style="color: #808080;">"Authorizing"</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: #0600FF;">Dim</span> szReturn <span style="color: #FF8000;">As</span> <span style="color: #FF8000;">String</span> = Wrapper.<span style="color: #0000FF;">Request</span><span style="color: #000000;">(</span><span style="color: #808080;">"POST"</span>, <span style="color: #808080;">"http://www.neofriends.net/ucp.php?mode=login&sid=06e1b156af130b90591b503edb75ddc4&username="</span> & txtAuth_User.<span style="color: #0000FF;">Text</span> & <span style="color: #808080;">"&password="</span> & txtAuth_Pass.<span style="color: #0000FF;">Text</span> & <span style="color: #808080;">"&login=Login"</span>, <span style="color: #808080;">"http://www.neofriends.net/ucp.php?mode=login"</span><span style="color: #000000;">)</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: #0600FF;">If</span> <span style="color: #0600FF;">InStr</span><span style="color: #000000;">(</span>szReturn, <span style="color: #808080;">"specified an incorrect"</span><span style="color: #000000;">)</span> <> <span style="color: #FF0000;">0</span> <span style="color: #FF8000;">Then</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">            lblStatus.<span style="color: #0000FF;">Text</span> = <span style="color: #808080;">"Bad Login"</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: #0600FF;">MsgBox</span><span style="color: #000000;">(</span><span style="color: #808080;">"You have specified an incorrect or inactive username, or an invalid password."</span>, MsgBoxStyle.<span style="color: #0600FF;">Critical</span>, <span style="color: #808080;">"neofriends.net"</span><span style="color: #000000;">)</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: #0600FF;">Exit</span> <span style="color: #0600FF;">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: #0600FF;">End</span> <span style="color: #0600FF;">If</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;"> </li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">        szReturn = Wrapper.<span style="color: #0000FF;">Request</span><span style="color: #000000;">(</span><span style="color: #808080;">"GET"</span>, <span style="color: #808080;">"http://www.neofriends.net/downloads.php?page=purchases"</span>, <span style="color: #808080;">"http://www.neofriends.net/"</span><span style="color: #000000;">)</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: #0600FF;">If</span> <span style="color: #0600FF;">InStr</span><span style="color: #000000;">(</span><span style="color: #FF0000;">1</span>, szReturn, <span style="color: #808080;">"Logout [ "</span> & txtAuth_User.<span style="color: #0000FF;">Text</span> & <span style="color: #808080;">" ]"</span><span style="color: #000000;">)</span> <> <span style="color: #FF0000;">0</span> <span style="color: #FF8000;">Then</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">            lblStatus.<span style="color: #0000FF;">Text</span> = <span style="color: #808080;">"Checking"</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: #0600FF;">If</span> <span style="color: #0600FF;">InStr</span><span style="color: #000000;">(</span>szReturn, szProgramName<span style="color: #000000;">)</span> <> <span style="color: #FF0000;">0</span> <span style="color: #FF8000;">Then</span></li><li style="padding: 0 5px; background-color: #f9f9f9; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">                lblStatus.<span style="color: #0000FF;">Text</span> = <span style="color: #808080;">"You are Authorized."</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">                bAuth = <span style="color: #0600FF;">True</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: #FF8000;">Else</span></li><li style="padding: 0 5px; background-color: #fff; line-height: 16px; border-bottom: 1px solid #efefef; border-left: 1px solid #999;">                bAuth = <span style="color: #0600FF;">False</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: #0600FF;">MsgBox</span><span style="color: #000000;">(</span><span style="color: #808080;">"You are not Authorized."</span>, MsgBoxStyle.<span style="color: #0600FF;">Critical</span>, <span style="color: #808080;">"neofriends.net"</span><span style="color: #000000;">)</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: #0600FF;">End</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: #0600FF;">End</span> <span style="color: #0600FF;">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: #0600FF;">End</span> <span style="color: #0600FF;">If</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: #0600FF;">If</span> bAuth = <span style="color: #0600FF;">True</span> <span style="color: #FF8000;">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: #008080; font-style: italic;">'here you put what should happen once the person has authorized succesfully</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: #008080; font-style: italic;">'add your code to enable buttons, enable controls, enable groups, make things visible here</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: #0600FF;">End</span> <span style="color: #0600FF;">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: #0600FF;">End</span> <span style="color: #0600FF;">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></ol></div>