[Guide]How to make a Dekaron Launcher

[GeriCom]

Hi all,

This is my First Dekaron Launcher without Updater written in VB 2008.

You see Funpic Site this is for your own News.
I can´t give u an example because i am not the best in php.

Here are the Videos to see How to make:
Sorry for the Quality.

Spoiler

Video 1)
[nomedia="http://www.youtube.com/watch?v=XXNm5NYGuPA"]YouTube- Launcher1.mp4[/nomedia]

Video 2)
[nomedia="http://www.youtube.com/watch?v=qgVguR4XpQo"]YouTube- Launcher2.mp4[/nomedia]

Video 3)
[nomedia="http://www.youtube.com/watch?v=PPnXXecNZp0"]YouTube- Launcher3.mp4[/nomedia]

It is Easy to make Here is the Quellcode:

Spoiler

Public Class Form1
Private CurrentPosition As New System.Drawing.Point
Private MouseButton As System.Windows.Forms.MouseButtons = Nothing

--------------------------------------------------------------------------------
Private Overloads Sub OnMouseDown(ByVal Sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown

MyClass.MouseButton = e.Button()
With MyClass.CurrentPosition
.X = e.X()
.Y = e.Y()
End With

End Sub

--------------------------------------------------------------------------------
Private Overloads Sub OnMouseMove(ByVal Sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove

Select Case MouseButton
Case Is = Windows.Forms.MouseButtons.Left
MyClass.Top = Windows.Forms.Cursor.Position.Y() - MyClass.CurrentPosition.Y()
MyClass.Left = Windows.Forms.Cursor.Position.X() - MyClass.CurrentPosition.X()
Case Is = Nothing
Exit Sub
End Select
End Sub
--------------------------------------------------------------------------------
Private Overloads Sub OnMouseUp(ByVal Sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseUp
MyClass.MouseButton = Nothing
End Sub
--------------------------------------------------------------------------------

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

End Sub
--------------------------------------------------------------------------------

Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.Click
Application.Exit()
End Sub
--------------------------------------------------------------------------------

Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
MyBase.WindowState = FormWindowState.Minimized
End Sub
--------------------------------------------------------------------------------

Private Sub PictureBox4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox4.Click
System.Diagnostics.Process.Start("http://www.your-adress.no-ip.org/")
End Sub
--------------------------------------------------------------------------------

Private Sub PictureBox3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox3.Click
Process.Start("bin/dekaron.exe")
Me.Close()
End Sub
End Class
--------------------------------------------------------------------------------

VB2008 Files to make your own Coustom Launcher and Edit.

Spoiler

Files:

You must be registered to see links

PW:
ragezone

greetz

GeriCom aka Amokaci

 

[BigBoyJepraX]

sir can u post a text guide..? video quality is not good sir... tnx
sir how can i edit the ip?

 

[wafakation]

is there posible dekaron? server? coz the post is quite unsure becouse of the feed back

 

[truong90]

i cant download on this site... plzz upload to another site!!! Thanks

 

[vithanhlam]

i cant download on this site... plzz upload to another site!!! Thanks

:laugh: hello truong90 do you add nick vithanhlam@yahoo.com tt1:

 

[BobDevs]

can you share the source code? btw thanks

 

[pmdlgk]

hey do you have codes for dekaron launcher with updater .. ??