PDA

View Full Version : آموزش: اجزای برنامه هنگام Start سیستم عامل ( ویندوز )



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


موفق باشید ./

MiladMR
جمعه 30 اردیبهشت 1390, 19:09 عصر
tnx ali :قلب:

bnnoor
جمعه 30 اردیبهشت 1390, 20:38 عصر
میشه در مورد NotifyIcon یه توضیحی بدید؟ از طریق این برنامه توی سیستم تری میره؟ چطوری؟ چون من این رو گذاشتم روی برنامه از این کد هم استفاده کردم ولی نشد .

NotifyIcon1.Visible = True
Me.Visible = False
NotifyIcon1.ShowBalloonTip(5000)

alimanam
شنبه 31 اردیبهشت 1390, 10:19 صبح
با سلام


میشه در مورد NotifyIcon یه توضیحی بدید؟

موتور جستجوگر گوگل هم اکنون نیازمند یاری سبزتان است !


از طریق این برنامه توی سیستم تری میره؟

بله .


چطوری؟

اینطوری ! خوب سرور من سورس که ضمیمه است 2 دقیقه وقت بزار متوجه میشین .

توضیحات بیشتر :اشتباه: :

با استفاده از کدهای شماره 36 و 37 برنامه تشریف میبرن به System Tray با کد شماره 38 یه بالن به صورت پیغام به کاربر نشون داده میشه زمان نمایش این پیغام هم 5 ثانیه است .



چون من این رو گذاشتم روی برنامه از این کد هم استفاده کردم ولی نشد


شما احتمالاً یادتون رفته برای کنترل NotifyIcon1 یه آیکون انتخاب کنی در ویژگیهای این کنترل باید یه آیکون انتخاب بشه تا بتونه درست کارش رو انجام بده دلیلش هم روشنه دیگه نه ؟!!!! وقتی آیکونی انتخاب نشه در System Tray چی رو باید نشون بده ؟ ( باید یه آیکون باشه که معرف برنامه باشه که کاربر بدونه برنامه اینجا تشریف دارن درسته ؟ )

موفق باشید ./