My First VB Program

[Nate1111]

Hey guys i'm completely new to vb but i made this program as a prank and thought i would get some feedback on it. Just so you guys know I'm kinda new i came from ac-web cause i felt they couldn't provide information or a mature community anymore.

this is the form1 source code:

You will need 1 label and 1 button for this form

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Form2.ShowDialog()

    End Sub

    Private Sub Form1_FormClosing1(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        e.Cancel = True

    End Sub

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

    End Sub

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

    End Sub
End Class

This is the source code for form2:

For this form you will need:
1 progress bar
1 label
1 button
1 time with interval set to 4

Public Class Form2

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MsgBox("Can't Close Do To: Process Search And Destroy In Progress", MsgBoxStyle.Critical, "Virus")
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim TheRandom As New Random
        Timer1.Interval = TheRandom.Next(10, 11)
        On Error Resume Next
        If ProgressBar1.Value >= ProgressBar1.Maximum Then
            MsgBox("Unable To Find Virus!", MsgBoxStyle.Critical, "Virus")
        Else
            ProgressBar1.Value += TheRandom.Next(1, 3)

        End If
    End Sub


    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Timer1.Start()

    End Sub

    Private Sub ProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProgressBar1.Click

    End Sub

    Private Sub Form1_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
        e.Cancel = True

    End Sub

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

If you guys wana use my learning project for other use here is the dl to the un-published project.


download unpublished vb learning project
Password: mmowned>acweb
==========================================================
Download Published ExE.
Password:mmowned>acweb
==========================================================

Thanks for reading guys hope to contribute much more to the community in the future!

[Erase]

A batch file could do the same thing :b
But as your new, it's fine.
Try go a bit more advanced, get ideas, make them real, and have fun making them.

[Nate1111]

Im trying but im new to it so i still need to learn the full capibilitys of VB

[Erase]

Try read some tutorials, or watch video tutorials on youtube. Some of them are kinda cool.

[Nate1111]

Thats how i have been learning so far Thanks for the advice though!

[Wowowned14]

good luck with the learning, pm me if you need help with anything

[Wowowned14]

especially phishers

[Nate1111]

I want to be a whitehat hacker.. I want to learn how to make a trojan and would contact you but still need more post to PM

[Erase]

There is a thread in this section, telling you how to make a scam program, and a keylogger. And they are very simple and easy to follow.