Visual Basic

i_like_tintin wrote:

How did you ever expect the OS password to be accessible through API???

'Declare the API functions to access username.<br />
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long<br />
Private Declare Function GetEnvironmentVariable Lib "kernel32" Alias "GetEnvironmentVariableA" (ByVal lpName As String, ByVal lpBuffer As String, ByVal nSize As Long) As Long<br />
<br />
Dim kName As String * 255   ' For storing username with 255 char buffer.<br />
Dim kEnvVar As String * 255<br />
<br />
Private Sub Command1_Click()<br />
Call GetUserName(kName, 255) ' First method of direct accessing username using API<br />
MsgBox kName<br />
Call GetEnvironmentVariable("USERNAME", kEnvVar, 255) '2nd method which uses windows environment variable to access the username<br />
MsgBox kEnvVar<br />
End Sub

Public Class Form1<br />
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br />
        MessageBox.Show(Environ("USERNAME"))<br />
    End Sub<br />
End Class

EndPoint = New IPEndPoint(IPAddress.Parse("66.249.89.99"), 80)<br />
Socket1 = Nothing<br />
Socket1 = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)<br />
Socket1.Connect(EndPoint)