**Damn Good Program VB Code**
2013-08-24, 04:45 AM,
#1
Ok lets start by saying im not that great at making videos lol but I tried also the niche I worked on is saturated like crazy I know but its more on showing whats possiable ok well on with the show.






Ok now the codes and functions

To have a border-less frame on a windows form and be able to move it making it into a better GUI

Code:
#Region "ClientAreaMove Handling"
    Private Const WM_NCHITTEST As Integer = &H84
    Private Const HTCLIENT As Integer = &H1
    Private Const HTCAPTION As Integer = &H2

    Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
        Select Case m.Msg
            Case WM_NCHITTEST
                MyBase.WndProc(m)
                If m.Result = HTCLIENT Then
                    m.Result = HTCAPTION
                End If
            Case Else
                'Make sure you pass unhandled messages back to the default message handler.
                MyBase.WndProc(m)
        End Select
    End Sub
#End Region

The Sign in process makes it so if you dont have the password and click on get Login it will bring you to the PPD site with login info

Code:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "RivalOfGod" And TextBox2.Text = "1726354" Then
            Dim frm As New Form1()
            frm.Show()
        Else
            MsgBox("Incorrect Username Or Password! Please Click Get Login On Login Page To Get Login Information")
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        End
    End Sub

    Private Sub Button1_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.MouseEnter
        Cursor = Cursors.Hand

    End Sub

    Private Sub Button1_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.MouseLeave
        Cursor = Cursors.Arrow

    End Sub

    Private Sub Button2_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.MouseEnter
        Cursor = Cursors.Hand

    End Sub

    Private Sub Button2_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.MouseLeave
        Cursor = Cursors.Arrow

    End Sub

    Private Sub Button3_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.MouseEnter

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        System.Diagnostics.Process.Start("http://WWW.filesquick.net/file/0s86695")
    End Sub
End Class


[Image: proof6_zps008ffc23.png]

[Image: proof7_zps3b1cf499.png]

now into the main program

As you seen the progress bar didnt just shoot right up it looked like it was loading. The code I used was Posted here on the site by "RIVEN" I just kinda added to it to allow changing text at different percentages

Code:
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ProgressBar1.Increment(1)
        If ProgressBar1.Value = 100 Then
            Label1.Text = "Completed"
        End If
        Label2.Text = ProgressBar1.Value & (" %")
        If ProgressBar1.Value = 10 Then
            Label1.Text = "Connected To Black Ops 2 Server"
            Timer1.Interval = 1000
        End If

        If ProgressBar1.Value = 30 Then
            Label1.Text = "Injecting Hack"
            Timer1.Interval = 100
        End If

        If ProgressBar1.Value = 50 Then
            Label1.Text = "Updating Account"
            Timer1.Interval = 2000
        End If

        If ProgressBar1.Value = 55 Then
            Label1.Text = "Rehash and Resigning"
            Timer1.Interval = 300
        End If

        If ProgressBar1.Value = 70 Then
            Label1.Text = "Finalizing Changes"

            Timer1.Interval = 100
        End If

        If ProgressBar1.Value = 100 Then
            Timer1.Stop()
            Button1.Enabled = True
        End If
        If ProgressBar1.Value = ProgressBar1.Maximum Then
            ProgressBar1.Value = (0)
        End If


    End Sub

Ok now the fade in fade out of the program was a pain here is the code

Code:
Private Sub TimerFadeIn_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TimerFadeIn.Tick
        If Me.Opacity >= 1.0 Then
            TimerFadeIn.Enabled = False
        Else
            Me.Opacity += 0.02
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Opacity = 0.0
        My.Computer.Audio.Play(My.Resources.Black_Ops_2_Zombies__All_RICHTOFEN_Tranzit_Quotes_, AudioPlayMode.Background)
    End Sub

    Private Sub Form1_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
        e.Cancel = True
        If TimerFadeIn.Enabled - True Then
            TimerFadeOut.Enabled = False
        End If
        TimerFadeOut.Enabled = True
    End Sub

    Private Sub TimerFadeOut_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TimerFadeOut.Tick
        If Me.Opacity >= 0.1 Then
            Me.Opacity -= 0.01
        Else
            TimerFadeOut.Enabled = False
            End
        End If
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If Button3.Enabled = True Then
            TimerFadeOut.Enabled = True
        End If
        If Button3.Enabled Then
            My.Computer.Audio.Play(My.Resources.Voice_of_mystery_box, AudioPlayMode.Background)
        End If
        If Button3.Enabled = True Then
            Dim frm As New Form2()
            frm.Hide()
        End If
    End Sub

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

    End Sub

inside the code you see that there is also .wav files to give the program a sound effect while opening and closing, Also lil tid bits make sure cursor changes to hand and back to arrow upon leave make it more accurate

also the frameless movement is the same as the other
Code:
#Region "ClientAreaMove Handling"
    Private Const WM_NCHITTEST As Integer = &H84
    Private Const HTCLIENT As Integer = &H1
    Private Const HTCAPTION As Integer = &H2

    Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
        Select Case m.Msg
            Case WM_NCHITTEST
                MyBase.WndProc(m)
                If m.Result = HTCLIENT Then
                    m.Result = HTCAPTION
                End If
            Case Else
                'Make sure you pass unhandled messages back to the default message handler.
                MyBase.WndProc(m)
        End Select
    End Sub
#End Region

Pictures:

[Image: proof1_zps9a6b79ff.png]

[Image: proof2_zps23a8c052.png]

[Image: proof3_zpsc0c83adb.png]

[Image: proof4_zps89c85c2b.png]

[Image: proof5_zpsd8d70ae0.png]

Sorry for the big pictures well hope this has helped someone please leave a reply thank you
Latest Thanks - View all

TheWolf(2015-06-25 10:25 AM) Super Mario(2014-03-01 11:15 AM) Nuutero(2013-09-08 09:53 PM) punkHD(2013-09-07 10:43 AM) - NiNSHUU -(2013-09-05 10:35 PM) Newbie(2013-08-25 10:36 PM) User(2013-08-25 06:32 PM) mitpat(2013-08-25 10:45 AM) Riven(2013-08-24 09:02 AM) дКsнду(2013-08-24 08:51 AM) HCT(2013-08-24 07:12 AM) 
Reply
2013-08-24, 06:50 AM,
#2
So what does it actually do? It just says publishing video soon..
Reply
2013-08-24, 07:05 AM,
(This post was last modified: 2013-08-24, 07:07 AM by Rival.)
#3
(2013-08-24, 06:50 AM)NEFantasy Wrote: So what does it actually do? It just says publishing video soon..

huh thats weird let me see if I can upload video to a diff src maybe that will help out thank you for letting me know. ok now try it
Reply
2013-08-24, 07:12 AM,
#4
Ow, I knew this idea. Actually you had a better idea. I just did like this:
Log in button =
Code:
MSGBOX("Error")
Register button
Code:
Messagebox("Please do a quick survey or offer to verify you are human and continue to registration link. This will help us fund our program and website!")
Process.start("http://www.surveysite.com")

But this is an amazing idea, thanks man! :)
Reply
2013-08-24, 08:51 AM,
#5
thanks for the vb program tut
Reply
2013-08-25, 10:47 AM,
#6
Thanks for sharing and giving out details +rep

Please don't message me with mentoring or business proposals as I simply do not have the time. If you need any help please use the link below for the helpdesk.

Reply
2013-08-25, 06:32 PM,
#7
Thanks for the share, will come in use later :).

Before End of Year Goal ! Car *MYVI*
[Image: jhnSWo7.png]
Skype - E60Boy (Note: Not online as much as before!)
[ ] 150+ Rep
[ X ] 800+ Posts
User's Voice/Video Service!
Reply
2013-08-26, 03:47 AM,
#8
Very nice tutorial and great tool but crap i cant make this alone even with this guide :)

I am not going to be outworked. Period. You might have a lot more talent than me, you might be smarter than me, you might be sexier than me. You might be all of those things...but if we get on the treadmill together-there are two points: you're acquiring off first or I'm gonna die. It's seriously that simple.
Reply
2013-08-26, 06:53 AM,
#9
(2013-08-26, 03:47 AM)Milijas Wrote: Very nice tutorial and great tool but crap i cant make this alone even with this guide :)

Thank you all for the replys if any of you need advice/help with certain code or what not you can always pm me or reply here and I will help as best I can.
Reply
2013-09-07, 08:50 AM,
#10
Thanks you for this great share . Bookmarked for later use :)

Btw which .net framework requires to run ?
Reply


Possibly Related Threads...
Thread Author Replies Views Last Post
  Can you suggest me good hosting? Mix2003_2012 3 92 4 hours ago
Last Post: Conley18
  any good method to upload youtube? ori991 1 164 2017-10-04, 01:17 AM
Last Post: epalyou
  Where to find content locker code on a pre designed landing page? Holyearnings 3 153 2017-09-13, 06:56 AM
Last Post: Holyearnings
  Any good PPI networks? ndani7 3 103 2017-09-08, 08:23 PM
Last Post: mogansi
  Is IG+CPA Still a good method for traffic? 4eller 3 168 2017-08-31, 08:24 PM
Last Post: 4eller




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

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