**Damn Good Program VB Code**

Welcome to CPAElites - the original incentive CPA affiliate marketing forum online, solely based on "Cost Per Action".

Be a part of something great, join today! Learn CPA marketing with CPAElites, we will teach you everything such as the best CPA networks, CPA offers with highest payouts and best conversion rates, unsaturated CPA niches, most effective traffic sources and more.

Rival

Well-known member
VIP Legends CPAElites Classic (1.0)
VIP Elites CPAElites Classic (1.0)
Joined
August 10, 2013
Messages
186
Reaction score
0
Age
35
Location
NY
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.


[video=dailymotion]

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





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:











Sorry for the big pictures well hope this has helped someone please leave a reply thank you
 

HCT

Well-known member
VIP Elites CPAElites Classic (1.0)
Joined
April 28, 2013
Messages
293
Reaction score
0
So what does it actually do? It just says publishing video soon..
 

Rival

Well-known member
VIP Legends CPAElites Classic (1.0)
VIP Elites CPAElites Classic (1.0)
Joined
August 10, 2013
Messages
186
Reaction score
0
Age
35
Location
NY
NEFantasy said:
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
 

HCT

Well-known member
VIP Elites CPAElites Classic (1.0)
Joined
April 28, 2013
Messages
293
Reaction score
0
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! :)
 

Akshay

Well-known member
VIP Legends CPAElites Classic (1.0)
VIP Elites CPAElites Classic (1.0)
Joined
May 30, 2013
Messages
349
Reaction score
0
thanks for the vb program tut
 

mitpat

Well-known member
VIP Legends CPAElites Classic (1.0)
VIP Elites CPAElites Classic (1.0)
Joined
May 12, 2013
Messages
615
Reaction score
1
Thanks for sharing and giving out details +rep
 

MilijasBoss

Well-known member
VIP Elites CPAElites Classic (1.0)
Joined
May 20, 2013
Messages
446
Reaction score
0
Very nice tutorial and great tool but crap i cant make this alone even with this guide :)
 

Rival

Well-known member
VIP Legends CPAElites Classic (1.0)
VIP Elites CPAElites Classic (1.0)
Joined
August 10, 2013
Messages
186
Reaction score
0
Age
35
Location
NY
Milijas said:
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.
 
Top Bottom