alimanam
جمعه 30 اردیبهشت 1390, 14:25 عصر
با سلام
شاید خیلی از دوستان این روش رو بلد باشن اما یکی از دوستان ظاهراً سرچ کرده اما نتونسته مثال عملی پیدا کنه که چطوری برنامه رو در StartUp ویندوز جا بده . در این سورس من کدش رو واسش نوشتم + مخفی کردن برنامه در System Ttray که میتونین ازش استفاده کنین چون بعضی از دوستان هم همین مشکل رو داشتن .
Imports Microsoft.Win32
''' <summary>
''' Coding : Ali Dakhilzadeh
''' Support page : http://barnamenevis.org/showthread.php?288039
''' Enjoy It !
''' </summary>
''' ''' <remarks></remarks>
Public Class Form1
Private Sub AddStartUpKey(ByVal _name As String, ByVal _path As String)
Dim key As RegistryKey = Registry.LocalMachine.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)
key.SetValue(_name, _path)
End Sub
Private Sub RemoveStartUpKey(ByVal _name As String)
Dim key As RegistryKey = Registry.LocalMachine.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)
key.DeleteValue(_name, False)
End Sub
Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
Try
If CheckBox1.Checked Then
AddStartUpKey("myApplication", Application.StartupPath & "\myApplication.exe")
Else
RemoveStartUpKey("myApplication")
End If
Catch ex As Exception
MsgBox(Err.Description, MsgBoxStyle.Exclamation)
End Try
End Sub
Private Sub cmnu_exit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmnu_exit.Click
Application.Exit()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
NotifyIcon1.Visible = True
Me.Visible = False
NotifyIcon1.ShowBalloonTip(5000)
End Sub
Private Sub cmnu_showapp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmnu_showapp.Click
NotifyIcon1.Visible = False
Me.Visible = True
End Sub
Private Sub cmnu_question_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmnu_question.Click
Try
Process.Start("http://barnamenevis.org/showthread.php?288039")
Catch ex As Exception
End Try
End Sub
End Class
موفق باشید ./
شاید خیلی از دوستان این روش رو بلد باشن اما یکی از دوستان ظاهراً سرچ کرده اما نتونسته مثال عملی پیدا کنه که چطوری برنامه رو در StartUp ویندوز جا بده . در این سورس من کدش رو واسش نوشتم + مخفی کردن برنامه در System Ttray که میتونین ازش استفاده کنین چون بعضی از دوستان هم همین مشکل رو داشتن .
Imports Microsoft.Win32
''' <summary>
''' Coding : Ali Dakhilzadeh
''' Support page : http://barnamenevis.org/showthread.php?288039
''' Enjoy It !
''' </summary>
''' ''' <remarks></remarks>
Public Class Form1
Private Sub AddStartUpKey(ByVal _name As String, ByVal _path As String)
Dim key As RegistryKey = Registry.LocalMachine.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)
key.SetValue(_name, _path)
End Sub
Private Sub RemoveStartUpKey(ByVal _name As String)
Dim key As RegistryKey = Registry.LocalMachine.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)
key.DeleteValue(_name, False)
End Sub
Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
Try
If CheckBox1.Checked Then
AddStartUpKey("myApplication", Application.StartupPath & "\myApplication.exe")
Else
RemoveStartUpKey("myApplication")
End If
Catch ex As Exception
MsgBox(Err.Description, MsgBoxStyle.Exclamation)
End Try
End Sub
Private Sub cmnu_exit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmnu_exit.Click
Application.Exit()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
NotifyIcon1.Visible = True
Me.Visible = False
NotifyIcon1.ShowBalloonTip(5000)
End Sub
Private Sub cmnu_showapp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmnu_showapp.Click
NotifyIcon1.Visible = False
Me.Visible = True
End Sub
Private Sub cmnu_question_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmnu_question.Click
Try
Process.Start("http://barnamenevis.org/showthread.php?288039")
Catch ex As Exception
End Try
End Sub
End Class
موفق باشید ./