نمایش نتایج: از شماره 1 تا 5 , از مجموع 5

موضوع: خاموشی کامپیوتر

  1. #1


    آخرین بازدید
    2022/05/09
    تاریخ عضویت
    December 2013
    محل سکونت
    ارومیه
    نوشته ها
    132
    امتیاز
    30
    سپاس
    58
    سپاس شده
    16 در 12 پست
    تعیین سطح نشده است

    Cap خاموشی کامپیوتر

    سلام علیکمآیا کدی هست که با اجرای آن بدون سئوال از کاربر، کلیه اطلاعات ذخیره و بلافاصله کامپیوتر خاموش گردد؟ آیا برای ریستارت کامپیوتر هم کدی وجود دارد؟
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.
    پاسخ مورد نظر براي اين تاپيك ارسال شده است.

  2.  

  3. #2


    آخرین بازدید
    2020/11/06
    تاریخ عضویت
    March 2015
    محل سکونت
    تهران
    نوشته ها
    1,248
    امتیاز
    2327
    سپاس
    600
    سپاس شده
    2,238 در 1,001 پست
    تعیین سطح نشده است

    با سلام
    این کدها رو امتحان کنید.
    کد:
    Option Explicit Declare Function ExitWindowsEx& Lib "user32" _ (ByVal uFlags&, ByVal wReserved&) Global Const EWX_LOGOFF = 0 Global Const EWX_SHUTDOWN = 1 Global Const EWX_REBOOT = 2 Global Const EWX_FORCE = 4 '*******************SHUT DOWN********************* Sub TurnOffXP() ActiveWorkbook.Save Application.DisplayAlerts = False Application.Quit Shell "shutdown -s -t 02", vbHide End Sub '*********************REBOOT*********************** Sub RebootXP() ActiveWorkbook.Save Application.DisplayAlerts = False Application.Quit Shell "shutdown -r -t 02", vbHide End Sub
    فايل هاي پيوست شده فايل هاي پيوست شده
    ای برادر تو همه اندیشه ای


  4. #3


    آخرین بازدید
    2023/12/30
    تاریخ عضویت
    April 2014
    محل سکونت
    ساوه
    نوشته ها
    347
    امتیاز
    417
    سپاس
    853
    سپاس شده
    266 در 129 پست
    سطح اکسل
    45.00 %

    نقل قول نوشته اصلی توسط amir_ts نمایش پست ها
    با سلام
    این کدها رو امتحان کنید.
    کد:
    Option Explicit Declare Function ExitWindowsEx& Lib "user32" _ (ByVal uFlags&, ByVal wReserved&) Global Const EWX_LOGOFF = 0 Global Const EWX_SHUTDOWN = 1 Global Const EWX_REBOOT = 2 Global Const EWX_FORCE = 4 '*******************SHUT DOWN********************* Sub TurnOffXP() ActiveWorkbook.Save Application.DisplayAlerts = False Application.Quit Shell "shutdown -s -t 02", vbHide End Sub '*********************REBOOT*********************** Sub RebootXP() ActiveWorkbook.Save Application.DisplayAlerts = False Application.Quit Shell "shutdown -r -t 02", vbHide End Sub
    اگر بخواهیم مشروط کنیم چه ؟ مثلا سر ساعت مشخصی وقتی این فایل باز بود دستور Shut down اجرا بشود .

  5. #4


    آخرین بازدید
    2020/11/06
    تاریخ عضویت
    March 2015
    محل سکونت
    تهران
    نوشته ها
    1,248
    امتیاز
    2327
    سپاس
    600
    سپاس شده
    2,238 در 1,001 پست
    تعیین سطح نشده است

    با سلام
    کد:
    Sub SetTimer() DownTime = Now + TimeValue("00:10:00") Application.OnTime EarliestTime:=DownTime, _ Procedure:="TurnOffXP", Schedule:=True End Sub
    با قرار دادن یک تایمر میتونیم در زمان مشخص از زمان اجرا فایل رو ذخیره و دستور Shut down رو اجرا کنیم.
    ای برادر تو همه اندیشه ای


  6. #5


    آخرین بازدید
    2022/05/09
    تاریخ عضویت
    December 2013
    محل سکونت
    ارومیه
    نوشته ها
    132
    امتیاز
    30
    سپاس
    58
    سپاس شده
    16 در 12 پست
    تعیین سطح نشده است

    amir_ts جان ممنون ، بهترینی



اطلاعات موضوع

کاربرانی که در حال مشاهده این موضوع هستند

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

موضوعات مشابه

  1. اجرای برنامه vba در کامپیوتر دیگر
    توسط mmazad در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 3
    آخرين نوشته: 2016/04/06, 09:59
  2. [حل شده] وارد کردن یک فایل اکسل از اینترنت در فایل اکسل کامپیوتر
    توسط amin.t در انجمن فرم ها در ويژوال بيسيك - Forms in VBA
    پاسخ ها: 4
    آخرين نوشته: 2016/03/29, 20:52
  3. [حل شده] ثبت خودکار تاریخ کامپیوتر در یک ستون
    توسط pishraw در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 8
    آخرين نوشته: 2015/09/26, 01:30
  4. اجرای فایل اکسل فقط بر روی یک کامپیوتر
    توسط tahaatjensen در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 9
    آخرين نوشته: 2015/04/28, 13:15
  5. مشکل تغییر کردن اندازه سلولها در کامپیوترهای مختلف
    توسط mohsenp در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 1
    آخرين نوشته: 2015/04/11, 14:37

بازدید کنندگان با جستجو های زیر این صفحه را پیدا کرده اند

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

کلمات کلیدی این موضوع

علاقه مندی ها (Bookmarks)

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  
  • BB code ها فعال هستند
  • شکلک ها فعال هستند
  • کد [IMG] فعال است
  • کد [VIDEO] فعال است
  • کد HTML غیر فعال است