VB.NET + C# Encryption + Source Code

VB.NET + C# Encryption + Source Code

1.Just Download Selft Extracting Archive

2.Extract Project

3.Run Project File...

Download Encryption Project 226kb

VB.NET Downloader + Source Code

VB.NET Downloader + Source Code For Free

Just Download & Extract Self Extracting Archive For Whole Project Files

Name : VB.NET Downloader Project.exe
Size :242kb


Download VB.NET DownloaderProject.exe 242kb

VB.NET Cleaner + Source Code

VB.NET Cleaner + Source Code For Free

Steps :

1.Download Self Extracting Archive .exe
2.Extract files
3.Open project files for code

Name : VB.NET Cleaner.exe
Size : 224kb

Download VB.NET Cleaner.exe [Source Code]

Message Encoder VB.NET + Source Code

Message Encoder VB.NET + Source Code

Just Download & Extract Self Extracting Archive (.EXE)

Download Message Encoder Project.exe 220kb

Check Admin Or Not VB.NET + Source Code

Check Admin Or Not VB.NET + Source Code

Program :


Dim user As System.Security.Principal.IIdentity = System.Security.Principal.WindowsIdentity.GetCurrent()

        Dim principal As New System.Security.Principal.WindowsPrincipal(CType(user, System.Security.Principal.WindowsIdentity))

        If principal.IsInRole(System.Security.Principal.WindowsBuiltInRole.Administrator) Then
            MsgBox("Admin Account", MsgBoxStyle.Information)
        Else
            MsgBox("Normal Account", MsgBoxStyle.Information)
        End If

USB Freezer/Auto Run Blocker VB.NET + Source Code

USB Freezer/Auto Run Blocker VB.NET + Source Code

Just Download & Install Self Extracting Archive (.EXE)

Download Project Source Code 227kb

Extract Each Lines From Text Box VB.NET Source Code

Extract Each Lines From Text Box VB.NET Source Code

Source Code

Button 1 Click Event

 Dim loi As Integer = 1

        For Each strLine As String In TextBox1.Text.Split(vbNewLine)

            If loi = 1 Then

                MsgBox(strLine)

                loi = 0

            Else

                MsgBox(strLine.Remove(0, 1))

            End If

        Next

    End Sub

If Condition Used For Avoid Extra New Lines..

Get IP Address Program VB.NET

Get IP Address Program Using Visual Basic .NET

An IP address serves two principal functions: host or network interface identification and location addressing. Its role has been characterized as follows: "A name indicates what we seek. An address indicates where it is. A route indicates how to get there.

An Internet Protocol address (IP address) is a numerical label assigned to each device (e.g., computer, printer) participating in a computer network that uses the Internet Protocol for communication.

Program :

Dim result As String
Dim strHostName As String = System.Net.Dns.GetHostName()
        Dim iphe As System.Net.IPHostEntry = System.Net.Dns.GetHostEntry(strHostName)
        For Each ipheal As System.Net.IPAddress In iphe.AddressList
            If ipheal.AddressFamily = System.Net.Sockets.AddressFamily.InterNetwork Then
                result = ipheal.ToString()
            End If

        Next
MsgBox(result)


The variable result contains IP address of the current computer, If the Internet is not connected with the computer it will return local address (127.1.0.0).