Poll: Was this thread useful to you ?
Yes
100.00%
1 100.00%
No
0%
0 0%
Total 1 vote(s) 100%
* You voted for this item. [Show Results]

VB>NET Code For you
2013-08-07, 03:19 AM, (This post was last modified: 2013-08-07, 03:21 AM by sureshraina2001.)
#1
Hello members , I can't explain you what and how I do that since I am not a programmer . But I could manage to get some of codes from ignore and so from google to make it look a bit more real . This code is working fine with me .


I have merged few things in one! But if anyone wants he/she can add few more codes to it :)

[hide]
Code:
Public Class Form1
    Dim timercount As Integer = 2000
    Dim YOUR_PERCENT_HERE As Integer = 50
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Timer1.Enabled = True

        Timer1.Interval = 2000

        timercount = timercount - 20
        If timercount = 1900 Then
            RichTextBox1.Text = "Connecting"
        End If

        If timercount = 1800 Then
            RichTextBox1.Text = "Connected"
        End If
        If timercount = 1600 Then
            RichTextBox1.Text = "Searching for Installed File"
        End If

        If timercount = 1400 Then
            RichTextBox1.Text = "Generating Code"
        End If

        If timercount = 1200 Then
            RichTextBox1.Text = "Replacing File"
        End If

        If timercount = 1000 Then
            RichTextBox1.Text = "Done"
        End If

        If timercount = 800 Then
            RichTextBox1.Text = "Here is your code"
            Timer1.Enabled = False
            MessageBox.Show("Click OK To See the KEY.", _
   "Important Message")

            RichTextBox1.Text = "Process successful,Password Generated"
            TextBox1.Text = Int(Rnd() * 10)
            Select Case TextBox1.Text
                Case 0
                    TextBox1.Text = "H4TRG-GUF4T-FHG45-FHG5G-4FQ4G"
                Case 1
                    TextBox1.Text = "FDHAD-DSGHI-DSIHG-DSPHO-DSHGF"
                Case 2
                    TextBox1.Text = "DH434-GSRGF-3954F-4GYTJ-SG43S"
                Case 3
                    TextBox1.Text = "5Y2VG-FJGBG-DIGH4-DGFOI-IO4RJ"
                Case 4
                    TextBox1.Text = "4ITG1-WGOJW-DPG32-23TGF-WEOFD"
                Case 5
                    TextBox1.Text = "SDGAA-SDGOS-SADGS-AGFDS-AGFDS"
                Case 6
                    TextBox1.Text = "ADFGS-SGASG-GHSHS-SSGFW-FSDHH"
                Case 7
                    TextBox1.Text = "AGJKH-AHIGJ-RIQ89-IROT4-GUIQ4"
                Case 8
                    TextBox1.Text = "SGH34-43TFR-325R1-43WFI-SDHIG"
                Case 9
                    TextBox1.Text = "GT3SE-3RSSR-3GSA2-CZGSA-SDGTF"
            End Select
        End If

    End Sub
    Private Sub Timer1_Run(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Timer1.Enabled = True

        Timer1.Interval = 2000

        timercount = timercount - 20
        If timercount = 1900 Then
            RichTextBox1.Text = "Connecting"
        End If

        If timercount = 1800 Then
            RichTextBox1.Text = "Connected"
        End If
        If timercount = 1600 Then
            RichTextBox1.Text = "Searching for Installed File"
        End If

        If timercount = 1400 Then
            RichTextBox1.Text = "Generating Code"
        End If

        If timercount = 1200 Then
            RichTextBox1.Text = "Replacing File"
        End If

        If timercount = 1000 Then
            RichTextBox1.Text = "Done"
        End If

        If timercount = 800 Then
            RichTextBox1.Text = "Here is your code"
            Timer1.Enabled = False
            MessageBox.Show("Click Ok To See the Password.", _
   "Important Message")

            RichTextBox1.Text = "Process successful,Password Generated "
            TextBox1.Text = Int(Rnd() * 10)
            Select Case TextBox1.Text
                Case 0
                    TextBox1.Text = "H4TRG-GUF4T-FHG45-FHG5G-4FQ4G"
                Case 1
                    TextBox1.Text = "FDHAD-DSGHI-DSIHG-DSPHO-DSHGF"
                Case 2
                    TextBox1.Text = "DH434-GSRGF-3954F-4GYTJ-SG43S"
                Case 3
                    TextBox1.Text = "5Y2VG-FJGBG-DIGH4-DGFOI-IO4RJ"
                Case 4
                    TextBox1.Text = "4ITG1-WGOJW-DPG32-23TGF-WEOFD"
                Case 5
                    TextBox1.Text = "SDGAA-SDGOS-SADGS-AGFDS-AGFDS"
                Case 6
                    TextBox1.Text = "ADFGS-SGASG-GHSHS-SSGFW-FSDHH"
                Case 7
                    TextBox1.Text = "AGJKH-AHIGJ-RIQ89-IROT4-GUIQ4"
                Case 8
                    TextBox1.Text = "SGH34-43TFR-325R1-43WFI-SDHIG"
                Case 9
                    TextBox1.Text = "GT3SE-3RSSR-3GSA2-CZGSA-SDGTF"
            End Select
        End If

    End Sub
    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

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

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ProgressBar1.Increment(1)
        If ProgressBar1.Value = ProgressBar1.Maximum Then
        End If

    

    Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged

    End Sub



    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

    End Sub

    Public Sub Timer1_Run()

    End Sub


End Class
[/hide]

Thank you
Reply
Share This Thread :

2013-08-07, 03:52 AM,
#2
Nice share this can be helpful for some members they are new to vb

[Image: avamon_zps394ba873.png]
Reply


Related Threads
Thread Author Replies Views Last Post
  Aeonsofts VB.NET Theme Manager v2.1 lanzye 31 11,946 2017-10-28, 04:48 PM
Last Post: waiphyoe
  So You Want to Build a Ch@t Bot – Here's How (Complete with Code!) SwiffJustus 0 694 2017-10-05, 09:56 AM
Last Post: SwiffJustus
  I will try to code a bot for you for FREE blacksploit 30 3,712 2017-09-02, 11:49 PM
Last Post: blacksploit
  Best method to learn to code instagramteam 10 2,825 2017-06-02, 11:01 PM
Last Post: Cupcake1337
  [REQUEST] Comment box with moderation HTML code iamrichsoon 1 995 2016-12-25, 05:51 AM
Last Post: CegaFin





About Us | Contact Us | CPA Elites | Advertise | Stats

© 2013-2018 CPA Elites Ltd
Enhanced by MyBB and WallBB
Return to top