Newbie Spellweaver
- Joined
- Mar 22, 2008
- Messages
- 17
- Reaction score
- 6
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.
It is Easy to make Here is the Quellcode:
VB2008 Files to make your own Coustom Launcher and Edit.
greetz
GeriCom aka Amokaci
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.
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]
[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:
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
--------------------------------------------------------------------------------
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.
Files:
PW:
ragezone
You must be registered to see links
PW:
ragezone
GeriCom aka Amokaci
Last edited: