اجرای برنامه در Startup ویندوز ...
سلام ...
اینم یه کد برای دوستانی که میخوان برنامشون با چند کلیک در Startup قرار بگیره ...
Imports Microsoft.Win32
Dim rkApp As RegistryKey = Registry.CurrentUser.OpenSubKey("SOFTWARE\Microsof t\Windows\CurrentVersion\Run", True)
rkApp.SetValue("Name Software", Application.ExecutablePath)
امیدوارم که بدرد دوستان بخوره
در ضمن دوستان برای اینم که دیگه برنامه در زمان اجرای ویندوز کار نکنه باید تو کد یه تغییر کوچولو بدین ...
Dim rkApp As RegistryKey = Registry.CurrentUser.OpenSubKey("SOFTWARE\Microsof t\Windows\CurrentVersion\Run", True)
rkApp.DeleteValue("Name Software")
مثلا ميشه تو برنامه بگي كه اگه ويندوز بالا اومد برنامه بره تو Startup و دستوراتي كه ميخواي اجرا كنه ؟
شما این کد استارت آپو اضافه کن به برنامت ...نوشته شده توسط mahdi.a.v
بعدش تو لود برنامت دستوراتشو بنویس تا کارهایی رو که میخوای انجام بده برات ...
من نميخوام وقتي كاربر از خود برنامه برنامه رو اجرا ميكنه دستوري اجرا بشه ، ميخوام دستوري بدم كه فقط وقتي ويندوز بالا مياد و برنامه ميره تو استارت آپ اون دستور اجرا بشه
راستش من تو برنامم میخوام با اطلاعاتی که کاربر میده هر موقع سیستم کاربر روشن بود (یعنی چه خاموش شد و دوباره روشن شد)برنامه تو استارت آپ باشه و به دستوراتم عمل کنه ... گفتم شاد اینجوری بشه
چون میخواستم با رجیستری یا بانک اطلاعاتی اینو انجام بدم ....
خوب پس باید تو ریجستری با کد Savesetting یه کلید بسازی که زمانی برنامه رو میذاری تو استارت آپ اون مقدارش 1 بشه و در لود فرمت بخونیش با دستور Getsetting که اگه مقدار 1 بود دستورایی رو که میخوای اجرا کنه در غیراینصورت یه کار دیگه انجام بده ..
تویه پست بعدی برات یه کد میذارم ...
من خودم برای اینکه زمانیکه کاربر از برنامه خارج میشه بصورت اتومات پشتیبان میگیره ...
حالا شرط و دستوری که به برنامه دادم ...
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
*این دستور زمانیکه کاربر چک باکس رو فعال میکنه گفتم که دو کلید ایجاد کنه :
کلید اولش میگه که در پوشه Lock کلید Backup یک مقدار بساز ( Check) وبهش مقدار 1 بده ..
SaveSetting("Lock", "Backup", "Check", 1)
این برایه اینکه زمانیکه دارم از برنامه خارج میشم اینو میخونه و اگر مقدارش 1 بود پشتیبان میگیره ...
SaveSetting("Lock", "Backup", "CheckBro", txtbrowsebk.Text)
کلید دومشم گذاشتم تا مسیری رو که کاربر تعیین کرده فایل پشتیبانو اونجا بذاره ...
* اما زمانیکه چک باکس غیرفعاله :
SaveSetting("Lock", "Backup", "Check", 0)
تویه این دستور برعکس دستور اول مقدارو به 0 تبدیل میکنه تا در زمانیکه کاربر از برنامه خارج میشه و برنامه دستورو میخونه اگه مقدار 0 باشه دیگه پشتیبان نمیگیره ...
این تا اینجا برایه ایجاد تنظیمات ...
قبل از دستور فرم لود ...
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
فکر نمیکنم دیگه نیازی به توضیح باشه ولی هرجاشو خواستی بگو تا توضیح بدم ...
اومد و کامپیوتر ناگهان خاموش شد مثلا برقا رفت دیگه ذخیره نمیکنه درسته؟
موفق باشید
چیو ؟
پشتیبانو ؟ نه دیگه فکرکنم
به نظر شما چیکار باید کرد ؟
سلام
یک تابع قبلان بود که میزد چند ثانیه است که کامپیوتر روشن شده حالا اگر مثلا کمتر از 30 ثانیه بود یعنی تازه کامپیوتر اومده بالا
این روش فکر کنم بهتره تابع رو میشه با یکذره جستجو پیدا کنید
موفق باشید
متوجه نشدم یعنی چیکار میکنه؟
مثلا کامپیوتر رو تازه روشن کردید این تابع رو که فراخوانی میکنید
این تابع از زمانی که کامپیوتر روشن میشه ثانیه میگیره(مثل کرنومتر)
حالا شما مقدار ثانیه هایی که کامپیوتر روشن شده رو میگیرید و مثلا اگر کمتر از 30 ثانیه بود که کامپیوتر روشن شده باشه
شما دستوراتتون رو اجرا میکنید ولی اگر بیشتر بود یعنی یکبار دستورات اجرا شدند
موفق باشید
این کد زمان روشن بودن کامپیوتر رو بر حسب میلی ثانیه بر میگرداند. این قابلیت میتونه خیلی کارامد باشه در ضمن چون در یک متغیر 32 بیتی ذخیره میشود پس از 24 روز مقدار آن صفر میشود.
System.Environment.TickCount
موفق باشید
منبع
قوانین سایت برنامه نویس [به هیچ عنوان از طریق پیام خصوصی به سوالات پاسخ داده نمی‌شود.]
حمید محرابی
چون وا نمیکنی گِره‌ای خود گِره مّشو / ابرو گشاده باش چو دستت گشاده نیست
نه دوست عزیز منظورم این نبود اون هر دفعه که کامپیوتر روشن میشد مقدار از صفر شروع میشد
این کد دقیقا همین کار رو انجام میده (همین الات تست کردم)
قوانین سایت برنامه نویس [به هیچ عنوان از طریق پیام خصوصی به سوالات پاسخ داده نمی‌شود.]
حمید محرابی
چون وا نمیکنی گِره‌ای خود گِره مّشو / ابرو گشاده باش چو دستت گشاده نیست
ممنون اما آخه لزومی نداره که من دو تا فرم داشته باشم (باید حتما دو تا فرم برای برنامم بزارم؟)
شما بعد از وارد کردن مسیر برنامه در کد فوق, یک فاصله بگذارید و بعدش یک کلمه دلخواه بنویسید , بعدش توی رویداد لود برنامه اجرایی تون, چک کنید که اگر کامند, برابر این کلمه دلخواه بود, چه کدهایی اجرا بشوند
مثال:
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 : شنبه 11 آذر 1391 در 14:47 عصر
آخه این ارور میده !!!
این ها هم عکس هایی از برنامم که خطا میده!!!
آخرین ویرایش به وسیله mahdi.a.v : یک شنبه 12 آذر 1391 در 14:39 عصر
1- منظور از کامند, باتن نیست
بلکه متغیری است که در رویداد لود_فرم، توسط سیستم مقدار دهی می شود و مقدارش هم , فایلی است که برنامه شما باید آن را باز کند. ولی می توان این مقدار را , به جای اسم یک فایل, یک کلمه مخصوص قرار داد.
2- اول باید تو رجیستری , این کاری که اول گفتم انجام بدید, بعد سیستم به طور خودکار, این مقدار بعد از فاصله رو در متغیر Command قرار خواهد داد شما با چک کردن این متغیر, می فهمید که مقدار مورد نظر که در رجیستری بعد از فاصله گذاشتید, در این متغیر کامند قرار داده یا نه , اگر وجود داشت, کد خاصی رو انجام می دهد
3- این کد فقط در شروع ویندوز و یک بار اجرا خواهد شد.
شما یک 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("S OFTWARE\Microsoft\Windows\CurrentVersion\Run", True)
rkApp.SetValue(My.Application.Info.Title, Application.ExecutablePath & " MyComm")
End Sub
خوب من الان فقط اینو
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 : دوشنبه 13 آذر 1391 در 06:19 صبح
خوب آخه چی کار کنم ؟؟؟
ارور میده!
.
این خط رو به جای خط اخر بزار اگه مشکلت حل نشد پیام خصوصی بده
rkApp.SetValue(ProductName, Application.ExecutablePath)
این عکس اروررررررر
یه کم دقت لطفا
تو عکس ارورتون مشخصه که خط یکی مونده به آخر چن اسپس اضاف زدین اصلاح کنین به این شکل.... "s oftwar/micro....." رو به شکل "software/miro....."
کدوم دقیقا
فکر نکنم فرق داشته باشه با اون دستور ؟!
آره , آره ارور نداد !!!
الان سیستمو خاموش روشن کنم میکنم برنامه اجرا میشه ولی هیچی از دستوراتم عمل نمیشه ,اصلا مثه برنامه رو از رو خودش اجرا میکنی میشه ...
آخرین ویرایش به وسیله mahdi.a.v : سه شنبه 14 آذر 1391 در 13:09 عصر
تو رو خدا اینو دیگه به کمکتون خیلی نیاز دارم ...
من یه دستوری نوشتم که کاربر تو 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
خیلی ممنون میشم اگه جواب بدین ......
دیگه واقعاشدم
بابا یکی نیس جواب بده؟؟؟
ما خودمونو کشتیم تا همینو نوشتیم ...
سلام ... شما با دستور SaveSetting یه Value تویه رجیستری ایجاد کن تا زمانی که اون باتونو میزنی اطلاعاتو تویه رجیستری ثبت کنه ...
وبا دستور getsetting در لود فرم دوباره اونارو تویه تکست باکس نشون بده ...
خوب من میخوام وقتی سیستم روشن شد اطلاعاتم بیاد
این جوری اگه از روی خود برنامه , برنامه رو اجرا کنی اطلاعات میاد ....
الان با همین دستور میشه اطلاعاتو ثبت و در لود فرم نمایش داده بشه اما میخوام تو روشن شدن سشستم اطلاعات بیان ....
شما مگه به برنامه دستور ندادی زمانیکه ویندوز بالا میاد برنامتون اجرا بشه ؟
اگه جواب بله است ... خوب درسته دیگه شما باید دستور رو در لود فرم بذاری تا با بالا اومدن برنامه دستورات اجرا بشه ... GetSetting
این کارو میکنم اما وقتی سیستم لود میشه این میاد و بعد برنامم اجرا میشه ولی دیگه تکست تکست باکس نیس
تکست وارد شده هم همونی هست که تو textbox1 وارد کردم تا ذخیره بشه
از یه بانک اطلاعاتی ساده مثل اکسس استفاده کن ویا حتی توی یه نوت پد بریز و فراخوانی کن
قوانین ایجاد تاپیک در تالار
پاسخ با نقل قول
