How To : Make Pro Crossfire Launcher Program VB.NET

**Dark Side** · 08-02-2011

1- Program Needed

**Visual Basic 2008/2011**
**Net FrameWork V4** ( Optical )

__________________________________________________ _
Okay Lets start Making Basic Launcher

1- Create a Project ( Windows Application Project )

2- 1x Button

Button 1 Text = Launch
__________________________________________________ __

Screen Shots :

__________________________________________________ ___

Ok now lets code

First Click to :- Button1 And Type :

Code:

 Try
            Shell("cf_Patcher.exe")
            MsgBox("CrossFire Launched Success By Dark Side™")
        Catch ex As Exception
            MsgBox("Please Put Launcher On Crossfire Folder", MsgBoxStyle.Exclamation, "By Dark Side™")
        End Try

Full Code:

Code:

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            Shell("cf_Patcher.exe")
            MsgBox("CrossFire Launched Success By Dark Side™")
        Catch ex As Exception
            MsgBox("Please Put Launcher On Crossfire Folder", MsgBoxStyle.Exclamation, "By Dark Side™")
        End Try
    End Sub
End Class

##########################################
***********************************************
__________________________________________________ ___
**************************************************
##############################################

Ok we Done now first Style " Congratulation " Ok now lets start to theme 2
__________________________________________________ ___

We need

1xButton

2xLabels

__________________________________________________ ____
ScreenShots

__________________________________________________ _______

Ok now

Label 1 Text : " Status : "
Label 2 Text : " Make it blank!!!! dont type anything just remove text name"

Button 1 Text : Launch Crossfire

__________________________________________________ _______

Code !

ok now click to button one and add this code ! :

Code:

 Try
            Shell("cf_Patcher.exe")
            Label2.Text = ("Crossfire Launched ! By Dark Side™")
        Catch ex As Exception
            Label2.Text = ("Please Put Launcher On Crossfire Folder ")
        End Try

Full code :

Code:

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            Shell("cf_Patcher.exe")
            Label2.Text = ("Crossfire Launched ! By Dark Side™")
        Catch ex As Exception
            Label2.Text = ("Please Put Launcher On Crossfire Folder ")
        End Try
    End Sub
End Class

**************************************
##################################

Okay here we done

Please Dont rage / flame or type leecher its my own code and any noob know it i make it for : NEWBieS !