اجرای برنامه در Startup ویندوز ...

[ehsan-68]

سلام ...

اینم یه کد برای دوستانی که میخوان برنامشون با چند کلیک در Startup قرار بگیره ...




Imports Microsoft.Win32





Dim rkApp As RegistryKey = Registry.CurrentUser.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True)
rkApp.SetValue("Name Software", Application.ExecutablePath)



امیدوارم که بدرد دوستان بخوره

[ehsan-68]

در ضمن دوستان برای اینم که دیگه برنامه در زمان اجرای ویندوز کار نکنه باید تو کد یه تغییر کوچولو بدین ...



Dim rkApp As RegistryKey = Registry.CurrentUser.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True)
rkApp.DeleteValue("Name Software")

[mahdi.a.v]

مثلا ميشه تو برنامه بگي كه اگه ويندوز بالا اومد برنامه بره تو Startup و دستوراتي كه ميخواي اجرا كنه ؟

[ehsan-68]

مثلا ميشه تو برنامه بگي كه اگه ويندوز بالا اومد برنامه بره تو Startup و دستوراتي كه ميخواي اجرا كنه ؟

شما این کد استارت آپو اضافه کن به برنامت ...

بعدش تو لود برنامت دستوراتشو بنویس تا کارهایی رو که میخوای انجام بده برات ...

[mahdi.a.v]

من نميخوام وقتي كاربر از خود برنامه برنامه رو اجرا ميكنه دستوري اجرا بشه ، ميخوام دستوري بدم كه فقط وقتي ويندوز بالا مياد و برنامه ميره تو استارت آپ اون دستور اجرا بشه

[mahdi.a.v]

راستش من تو برنامم میخوام با اطلاعاتی که کاربر میده هر موقع سیستم کاربر روشن بود (یعنی چه خاموش شد و دوباره روشن شد)برنامه تو استارت آپ باشه و به دستوراتم عمل کنه ... گفتم شاد اینجوری بشه:افسرده:
چون میخواستم با رجیستری یا بانک اطلاعاتی اینو انجام بدم ....

[ehsan-68]

من نميخوام وقتي كاربر از خود برنامه برنامه رو اجرا ميكنه دستوري اجرا بشه ، ميخوام دستوري بدم كه فقط وقتي ويندوز بالا مياد و برنامه ميره تو استارت آپ اون دستور اجرا بشه

خوب پس باید تو ریجستری با کد Savesetting یه کلید بسازی که زمانی برنامه رو میذاری تو استارت آپ اون مقدارش 1 بشه و در لود فرمت بخونیش با دستور Getsetting که اگه مقدار 1 بود دستورایی رو که میخوای اجرا کنه در غیراینصورت یه کار دیگه انجام بده ..

تویه پست بعدی برات یه کد میذارم ...

[ehsan-68]

من خودم برای اینکه زمانیکه کاربر از برنامه خارج میشه بصورت اتومات پشتیبان میگیره ...

حالا شرط و دستوری که به برنامه دادم ...

1. در فرم Option برنامم گفتم


'******************BACKKUP**************
If RadCheckBox1.ToggleState = Enumerations.ToggleState.On Then
SaveSetting("Lock", "Backup", "Check", 1)
SaveSetting("Lock", "Backup", "CheckBro", txtbrowsebk.Text)
Else
SaveSetting("Lock", "Backup", "Check", 0)
End If


*این دستور زمانیکه کاربر چک باکس رو فعال میکنه گفتم که دو کلید ایجاد کنه :


SaveSetting("Lock", "Backup", "Check", 1)

کلید اولش میگه که در پوشه Lock کلید Backup یک مقدار بساز ( Check) وبهش مقدار 1 بده ..
این برایه اینکه زمانیکه دارم از برنامه خارج میشم اینو میخونه و اگر مقدارش 1 بود پشتیبان میگیره ...


SaveSetting("Lock", "Backup", "CheckBro", txtbrowsebk.Text)


کلید دومشم گذاشتم تا مسیری رو که کاربر تعیین کرده فایل پشتیبانو اونجا بذاره ...

* اما زمانیکه چک باکس غیرفعاله :


SaveSetting("Lock", "Backup", "Check", 0)


تویه این دستور برعکس دستور اول مقدارو به 0 تبدیل میکنه تا در زمانیکه کاربر از برنامه خارج میشه و برنامه دستورو میخونه اگه مقدار 0 باشه دیگه پشتیبان نمیگیره ...

این تا اینجا برایه ایجاد تنظیمات ...

[ehsan-68]

قبل از دستور فرم لود ...



Dim backup As String
Dim path2 As String



اما در دکمه خروج برنامه


backup = GetSetting("Lock", "Backup", "Check")
path2 = GetSetting("Lock", "Backup", "CheckBro")

If backup = "1" Then
Dim Q As Integer
Q = MessageBox.Show("آیا از بانک اطلاعاتی پشتیبان گرفته شود؟", "پشتیبان گیری", MessageBoxButtons.OKCancel, MessageBoxIcon.Question)
If Q = vbOK Then

Dim Path1 As String = Application.StartupPath.ToString
Dim rwd As New ReadWriteData()
rwd.command = New System.Data.SqlClient.SqlCommand()
rwd.command.Connection = rwd.connection

rwd.command.CommandText = "BACKUP DATABASE [" & Path1 & "\manlock.mdf] TO DISK='" & path2 & "'" & " WITH NOFORMAT, NOINIT, SKIP, NOREWIND, NOUNLOAD, STATS = 10"
rwd.connection.Open()
rwd.command.ExecuteNonQuery()
rwd.connection.Close()

frmwaite.ShowDialog()
frmwaite.MdiParent = Me
MessageBox.Show("پشتیبان گیری با موفقیت انجام شد", "پشتیبان گیری", MessageBoxButtons.OK, MessageBoxIcon.Information)
rwd.connection.Close()
End
End If
Else

Dim r As Integer
r = MsgBox("از برنامه خارج می شوید؟", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "خروج")
If r = vbYes Then
End
End If
rwd.connection.Close()

End If



فکر نمیکنم دیگه نیازی به توضیح باشه ولی هرجاشو خواستی بگو تا توضیح بدم ...

[h_a_m_i_d]

اومد و کامپیوتر ناگهان خاموش شد مثلا برقا رفت دیگه ذخیره نمیکنه درسته؟
موفق باشید

[ehsan-68]

اومد و کامپیوتر ناگهان خاموش شد مثلا برقا رفت دیگه ذخیره نمیکنه درسته؟
موفق باشید

چیو ؟
پشتیبانو ؟ نه دیگه فکرکنم

به نظر شما چیکار باید کرد ؟

[h_a_m_i_d]

سلام
یک تابع قبلان بود که میزد چند ثانیه است که کامپیوتر روشن شده حالا اگر مثلا کمتر از 30 ثانیه بود یعنی تازه کامپیوتر اومده بالا
این روش فکر کنم بهتره تابع رو میشه با یکذره جستجو پیدا کنید
موفق باشید

[ehsan-68]

متوجه نشدم یعنی چیکار میکنه؟

[h_a_m_i_d]

مثلا کامپیوتر رو تازه روشن کردید این تابع رو که فراخوانی میکنید
این تابع از زمانی که کامپیوتر روشن میشه ثانیه میگیره(مثل کرنومتر)
حالا شما مقدار ثانیه هایی که کامپیوتر روشن شده رو میگیرید و مثلا اگر کمتر از 30 ثانیه بود که کامپیوتر روشن شده باشه
شما دستوراتتون رو اجرا میکنید ولی اگر بیشتر بود یعنی یکبار دستورات اجرا شدند

موفق باشید

[gilsoft]

این تابع از زمانی که کامپیوتر روشن میشه ثانیه میگیره(مثل کرنومتر)

این کد زمان روشن بودن کامپیوتر رو بر حسب میلی ثانیه بر میگرداند. این قابلیت میتونه خیلی کارامد باشه در ضمن چون در یک متغیر 32 بیتی ذخیره میشود پس از 24 روز مقدار آن صفر میشود.

System.Environment.TickCount

موفق باشید

منبع (http://barnamenevis.org/showthread.php?130290&viewfull=1#post629421)

[h_a_m_i_d]

این کد زمان روشن بودن کامپیوتر رو بر حسب میلی ثانیه بر میگرداند. این قابلیت میتونه خیلی کارامد باشه در ضمن چون در یک متغیر 32 بیتی ذخیره میشود پس از 24 روز مقدار آن صفر میشود.

System.Environment.TickCount

موفق باشید

نه دوست عزیز منظورم این نبود اون هر دفعه که کامپیوتر روشن میشد مقدار از صفر شروع میشد

[gilsoft]

نه دوست عزیز منظورم این نبود اون هر دفعه که کامپیوتر روشن میشد مقدار از صفر شروع میشد

این کد دقیقا همین کار رو انجام میده (همین الات تست کردم)

[mahdi.a.v]

من خودم برای اینکه زمانیکه کاربر از برنامه خارج میشه بصورت اتومات پشتیبان میگیره ...

حالا شرط و دستوری که به برنامه دادم ...

1. در فرم Option برنامم گفتم


'******************BACKKUP**************
If RadCheckBox1.ToggleState = Enumerations.ToggleState.On Then
SaveSetting("Lock", "Backup", "Check", 1)
SaveSetting("Lock", "Backup", "CheckBro", txtbrowsebk.Text)
Else
SaveSetting("Lock", "Backup", "Check", 0)
End If


*این دستور زمانیکه کاربر چک باکس رو فعال میکنه گفتم که دو کلید ایجاد کنه :


SaveSetting("Lock", "Backup", "Check", 1)

کلید اولش میگه که در پوشه Lock کلید Backup یک مقدار بساز ( Check) وبهش مقدار 1 بده ..
این برایه اینکه زمانیکه دارم از برنامه خارج میشم اینو میخونه و اگر مقدارش 1 بود پشتیبان میگیره ...


SaveSetting("Lock", "Backup", "CheckBro", txtbrowsebk.Text)


کلید دومشم گذاشتم تا مسیری رو که کاربر تعیین کرده فایل پشتیبانو اونجا بذاره ...

* اما زمانیکه چک باکس غیرفعاله :


SaveSetting("Lock", "Backup", "Check", 0)


تویه این دستور برعکس دستور اول مقدارو به 0 تبدیل میکنه تا در زمانیکه کاربر از برنامه خارج میشه و برنامه دستورو میخونه اگه مقدار 0 باشه دیگه پشتیبان نمیگیره ...

این تا اینجا برایه ایجاد تنظیمات ...








ممنون اما آخه لزومی نداره که من دو تا فرم داشته باشم (باید حتما دو تا فرم برای برنامم بزارم؟)

[Hossis]

من نميخوام وقتي كاربر از خود برنامه برنامه رو اجرا ميكنه دستوري اجرا بشه ، ميخوام دستوري بدم كه فقط وقتي ويندوز بالا مياد و برنامه ميره تو استارت آپ اون دستور اجرا بشه
شما بعد از وارد کردن مسیر برنامه در کد فوق, یک فاصله بگذارید و بعدش یک کلمه دلخواه بنویسید , بعدش توی رویداد لود برنامه اجرایی تون, چک کنید که اگر کامند, برابر این کلمه دلخواه بود, چه کدهایی اجرا بشوند
مثال:
rkApp.SetValue("c:\01.exe Mycode", Application.ExecutablePath)

بعد با این کد, برنامه شما در ابتدای ویندوز شروع می شه
برای این که به برنامه بگویید کدام کدها رو اجرا کند, رو رویداد Form_load شیء کامند رو چک کنید, اگر مطابق همین Mycode بود, با دستور شرطی, هدایت به کد مورد نظر کنید
sub form1_Load()
if command="MyCode" then
'Your Function
end if

[mahdi.a.v]

شما بعد از وارد کردن مسیر برنامه در کد فوق, یک فاصله بگذارید و بعدش یک کلمه دلخواه بنویسید , بعدش توی رویداد لود برنامه اجرایی تون, چک کنید که اگر کامند, برابر این کلمه دلخواه بود, چه کدهایی اجرا بشوند
مثال:
rkApp.SetValue("c:\01.exe Mycode", Application.ExecutablePath)

بعد با این کد, برنامه شما در ابتدای ویندوز شروع می شه
برای این که به برنامه بگویید کدام کدها رو اجرا کند, رو رویداد Form_load شیء کامند رو چک کنید, اگر مطابق همین Mycode بود, با دستور شرطی, هدایت به کد مورد نظر کنید
sub form1_Load()
if command="MyCode" then
'Your Function
end if



خیلی ممنون -
اما منظور از شیء کامند همون Button دیگه ؟
چجوري كامندو چك كنه كه اگه با كد مساوي بود اينكارو انجام بده؟
اصلا كامند چرا ؟
بعدش با این کد اگه برنامه چند بار اجرا بشه عمل میکنه؟؟
تو لود برنامه چجوري كامندو چك كنه ؟ از خاصيت تكست
>> ممنون <<

[mahdi.a.v]

من خودم برای اینکه زمانیکه کاربر از برنامه خارج میشه بصورت اتومات پشتیبان میگیره ...

حالا شرط و دستوری که به برنامه دادم ...

1. در فرم Option برنامم گفتم


'******************BACKKUP**************
If RadCheckBox1.ToggleState = Enumerations.ToggleState.On Then
SaveSetting("Lock", "Backup", "Check", 1)
SaveSetting("Lock", "Backup", "CheckBro", txtbrowsebk.Text)
Else
SaveSetting("Lock", "Backup", "Check", 0)
End If


*این دستور زمانیکه کاربر چک باکس رو فعال میکنه گفتم که دو کلید ایجاد کنه :


SaveSetting("Lock", "Backup", "Check", 1)

کلید اولش میگه که در پوشه Lock کلید Backup یک مقدار بساز ( Check) وبهش مقدار 1 بده ..
این برایه اینکه زمانیکه دارم از برنامه خارج میشم اینو میخونه و اگر مقدارش 1 بود پشتیبان میگیره ...


SaveSetting("Lock", "Backup", "CheckBro", txtbrowsebk.Text)


کلید دومشم گذاشتم تا مسیری رو که کاربر تعیین کرده فایل پشتیبانو اونجا بذاره ...

* اما زمانیکه چک باکس غیرفعاله :


SaveSetting("Lock", "Backup", "Check", 0)


تویه این دستور برعکس دستور اول مقدارو به 0 تبدیل میکنه تا در زمانیکه کاربر از برنامه خارج میشه و برنامه دستورو میخونه اگه مقدار 0 باشه دیگه پشتیبان نمیگیره ...

این تا اینجا برایه ایجاد تنظیمات ...









آخه این ارور میده !!!

[mahdi.a.v]

این ها هم عکس هایی از برنامم که خطا میده!!!

[Hossis]

خیلی ممنون -
اما منظور از شیء کامند همون Button دیگه ؟
چجوري كامندو چك كنه كه اگه با كد مساوي بود اينكارو انجام بده؟
اصلا كامند چرا ؟
بعدش با این کد اگه برنامه چند بار اجرا بشه عمل میکنه؟؟
تو لود برنامه چجوري كامندو چك كنه ؟ از خاصيت تكست
>> ممنون <<
1- منظور از کامند, باتن نیست
بلکه متغیری است که در رویداد لود_فرم، توسط سیستم مقدار دهی می شود و مقدارش هم , فایلی است که برنامه شما باید آن را باز کند. ولی می توان این مقدار را , به جای اسم یک فایل, یک کلمه مخصوص قرار داد.
2- اول باید تو رجیستری , این کاری که اول گفتم انجام بدید, بعد سیستم به طور خودکار, این مقدار بعد از فاصله رو در متغیر Command قرار خواهد داد شما با چک کردن این متغیر, می فهمید که مقدار مورد نظر که در رجیستری بعد از فاصله گذاشتید, در این متغیر کامند قرار داده یا نه , اگر وجود داشت, کد خاصی رو انجام می دهد
3- این کد فقط در شروع ویندوز و یک بار اجرا خواهد شد.

[Hossis]

شما یک button روی فرم قرار بدید و این کد رو تو فرمتون کپی کنید , دیگه هیچ چیز دیگری لازم نیست فقط یک بار روی این باتن کلیک کنید.


Private Function MyFunc() As String
Return "برنامه شما با موفقیت , هنگام شروع ویندوز, اجرا شد!"
End Function

Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If Command() = "MyComm" Then
MsgBox(MyFunc())
End If
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim rkApp As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True)
rkApp.SetValue(My.Application.Info.Title, Application.ExecutablePath & " MyComm")
End Sub

[mahdi.a.v]

خوب من الان فقط اینو

Private Function MyFunc() As String
Return "برنامه شما با موفقیت , هنگام شروع ویندوز, اجرا شد!"
End Function

Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If Command() = "MyComm" Then
MsgBox(MyFunc())
End If
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim rkApp As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("S OFTWARE\Microsoft\Windows\CurrentVersion\Run", True)
rkApp.SetValue(My.Application.Info.Title, Application.ExecutablePath & "MyComm")
End Sub



دیگه حالا هر دستوری به برنامه بدم , هر موقع سیستم روشن شد اجرا میشه و دستورات رو اجرا میکنه ؟؟
ممنون
اینم ارور هاش
نمیدونم ولی وقتی یه باتون دیگه رو کلیک میکنم این ارور مربوط به باتون 2 میاد ؟!!!
البته من هیچ عنصری اضافه نکردم !!!!!!!!
بايد چي كار كنم؟

[mahdi.a.v]

خوب آخه چی کار کنم ؟؟؟
ارور میده!
.

[hadgph]

خوب آخه چی کار کنم ؟؟؟
ارور میده!
.

این خط رو به جای خط اخر بزار اگه مشکلت حل نشد پیام خصوصی بده
rkApp.SetValue(ProductName, Application.ExecutablePath)

[mahdi.a.v]

این عکس اروررررررر

[hadgph]

این عکس اروررررررر

یه کم دقت لطفا
تو عکس ارورتون مشخصه که خط یکی مونده به آخر چن اسپس اضاف زدین اصلاح کنین به این شکل.... "s oftwar/micro....." رو به شکل "software/miro....."

[mahdi.a.v]

کدوم دقیقا
فکر نکنم فرق داشته باشه با اون دستور ؟!

[mahdi.a.v]

یه کم دقت لطفا
تو عکس ارورتون مشخصه که خط یکی مونده به آخر چن اسپس اضاف زدین اصلاح کنین به این شکل.... "s oftwar/micro....." رو به شکل "software/miro....."
آره , آره ارور نداد !!! :کف:
الان سیستمو خاموش روشن کنم میکنم برنامه اجرا میشه ولی هیچی از دستوراتم عمل نمیشه ,اصلا مثه برنامه رو از رو خودش اجرا میکنی میشه ...

[mahdi.a.v]

تو رو خدا اینو دیگه به کمکتون خیلی نیاز دارم ... :ناراحت:
من یه دستوری نوشتم که کاربر تو textbox1 یه عددی وارد میکنه و باتونو کلیک میکنه ...
حالا اگه دوباره برنامه اجرا بشه اون عدد تو text تکست باکس نشون داده میشه .......

حالا من نمیدونم , ما میگیم وقتی فرم لود شد ..
چه جوری وقتی سیستم بالا اومد تو لود اون فرم تکست های تکست باکس ها که قبلا وارد کرده بودیم نشون داده بشن ؟


اینم دستوری که من نوشتم :

Imports Microsoft.Win32
Imports System.Security.Permissions
Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim regKey As RegistryKey
Dim ver As Decimal
regKey = Registry.CurrentUser.OpenSubKey("Mahdi\\Settings")
ver = regKey.GetValue("ID")
TextBox1.Text = ver.ToString
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim reg As RegistryKey = Registry.CurrentUser.CreateSubKey("Mahdi")
Dim testSettings As RegistryKey = reg.CreateSubKey("Settings")
testSettings.SetValue("ID", TextBox1.Text)
testSettings.Close()

End Sub
End Class


خیلی ممنون میشم اگه جواب بدین ......
دیگه واقعا :عصبانی++:شدم

[mahdi.a.v]

بابا یکی نیس جواب بده؟؟؟
ما خودمونو کشتیم تا همینو نوشتیم ...

[ehsan-68]

سلام ... شما با دستور SaveSetting یه Value تویه رجیستری ایجاد کن تا زمانی که اون باتونو میزنی اطلاعاتو تویه رجیستری ثبت کنه ...

وبا دستور getsetting در لود فرم دوباره اونارو تویه تکست باکس نشون بده ...

[mahdi.a.v]

خوب من میخوام وقتی سیستم روشن شد اطلاعاتم بیاد
این جوری اگه از روی خود برنامه , برنامه رو اجرا کنی اطلاعات میاد ....

الان با همین دستور میشه اطلاعاتو ثبت و در لود فرم نمایش داده بشه اما میخوام تو روشن شدن سشستم اطلاعات بیان ....

[ehsan-68]

شما مگه به برنامه دستور ندادی زمانیکه ویندوز بالا میاد برنامتون اجرا بشه ؟
اگه جواب بله است ... خوب درسته دیگه شما باید دستور رو در لود فرم بذاری تا با بالا اومدن برنامه دستورات اجرا بشه ... GetSetting

[mahdi.a.v]

این کارو میکنم اما وقتی سیستم لود میشه این میاد و بعد برنامم اجرا میشه ولی دیگه تکست تکست باکس نیس
تکست وارد شده هم همونی هست که تو textbox1 وارد کردم تا ذخیره بشه

[ehsan2589040]

از یه بانک اطلاعاتی ساده مثل اکسس استفاده کن ویا حتی توی یه نوت پد بریز و فراخوانی کن