ریست کامپیوتر با Vb

[@AM!R!]

سلام دوستان
می خواستم بعد از نصب نرم افزار، کامپیوتر را برای تنظیمات فونت ریست کنم.
در این رابطه یک لینک ناقص در سایت وجود دارد.
با تشکر

[PalizeSoftware]

از تابع API به نام ExitWindows استفاده کن.

[@AM!R!]

شکل کامل اونو ندارین

[mohsengrisly]

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

Private Const EWX_LOGOFF = 0
Private Const EWX_SHUTDOWN = 1
Private Const EWX_REBOOT = 2
Private Const EWX_FORCE = 4
Private Const EWX_POWEROFF = 8
Private Const EWX_RESET = EWX_LOGOFF + EWX_FORCE + EWX_REBOOT

Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long

Private Sub Command1_Click()
ExitWindowsEx EWX_REBOOT, ByVal 0&
End Sub

[حامد مصافی]

احتمالاً در ویندوز ایکس پی درست کار نخواهد کرد

[rezaTavak]

سلام

چرا در XP درست کار نمیکنه؟؟؟؟

[mr_esmaily]

سلام
قبل از پرسش لطفا حتماً یه بار جستجو کنید.
http://www.barnamenevis.org/forum/showthread.php?t=18426&page=1&highlight=%CE%C7%E3%E6%D4+%98%D1%CF%E4

[@AM!R!]

البته غیر از LogOff بقیه رو انجام نمی ده!

[mohsengrisly]

Private Declare Function SHShutDownDialog Lib "shell32" Alias "#60" (ByVal YourGuess As Long) As Long
Private Sub Form_Load()
Timer1.Enabled = True
SHShutDownDialog Shut_Down
End Sub
Private Sub Timer1_Timer()
SendKeys "{enter}"
End
End Sub
برای جا به جا شدن بین گزینه ها و انتخاب ری استارت و یا خاموش کردن
یک SendKeys "{tab}" بنویسی حله هر سه کار می کنه کامل و درست
خودم استفاده کردم بدون مشکل

[mr_esmaily]

سلام

البته غیر از LogOff بقیه رو انجام نمی ده!
تمامی کدهای ذکر شده بدون مشکل بر روی چند PC , در XP-SP2 اجرا شده.

[@AM!R!]

آقایون ممنون