ورود

نسخه کامل مشاهده نسخه کامل : لطفا راهنمایی


arash w8100
08-09-2009, 20:25
سلام.دستوری در vb6 میخواستم که کامپیوتر رو ریستارت کنه و اگه ریستارت نشد بعد از 30 ثانیه دوباره امتحان کنه.با تشکر
HESAM.K
08-09-2009, 21:37
سلام دوست عزیز ...
من برای دستور ریستارت کردن کامپیوتر از این کد استفاده می کنم :

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
در این کد من از f- استفاده می کنم و باعث میشه که کامپیوتر به هیچ چیز توجه نکنه و در ساعت مقرر حتما کامپیوتر رو خاموش کنه حتی اگر پنجره ها باز باشن .
و عدد 1 یعنی بعد از یک ثانیه خاموش کنه که می تونی 0 بزاری که همون لحظه خاموش کنه .
به نظر من وقتی از f- استفاده کردی لازم نیست که بعد از 30 ثانیه دوباره امتحان کنه چون گفتم 100% کامپیوتر خاموش میشه ولی اگه خواستی اون 30 ثانیه رو بزاری می تونی از timer استفاده کنی .
امیدوارم کارت راه افتاده باشه ...
:20:
arash w8100
09-09-2009, 00:14
چگونه از timer استفاده کنم
Payman_62
09-09-2009, 06:10
سلام.
لطفا از عنوان مناسب برای تاپیک خود استفاده کنید.
--------------------------------------------------------------------
برای ریست کردن سیستم میتونید از ای پی آی Exitwindows استفاده کنید.
HESAM.K
09-09-2009, 12:17
سلام دوست عزیز
می تونی از این کد استفاده کنی ...

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
این کد کاری می کنی که در همون لحظه کامپیوتر خاموش بشه اگه نشد هر 30 ثانیه دوباره امتحان می کنه .
امیدوارم این بار کارت راه بیفته ...
موفق باشی ...
:20:
HESAM.K
09-09-2009, 12:20
راستی یادم رفت بگم ...
باید روی فرمت یک label و یک timer ایجاد کنی تا کد کار کنه ...
موفق باشی ...
Vb1471
02-05-2010, 00:27
سلام :
شما مي تونيد از اين كد باري رياستارت كردن كامپيوتر استفاده كنيد بعد از 30 ثانيه :


"ُShell "shutdown -r -t 30
AQOUA
02-05-2010, 21:05
'In general section
Const EWX_LOGOFF = 0
Const EWX_SHUTDOWN = 1
Const EWX_REBOOT = 2
Const EWX_FORCE = 4
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Private Sub Form_Load()
msg = MsgBox("This program is going to reboot your computer. Press OK to continue or Cancel to stop.", vbCritical + vbOKCancel + 256, App.Title)
If msg = vbCancel Then End
'reboot the computer
ret& = ExitWindowsEx(EWX_FORCE Or EWX_REBOOT, 0)
End Sub