Tùy chọn
Hàm shutdown máy tính
- Hàm shutdown máy tính
-
Hàm shutdown máy tính
buida > 23-04-20, 12:33 AM
Em kính chào anh chị em
Em có một câu hỏi nhỏ xíu là
Em muốn tạo một nút nhấn, khi nhấn vào nút đó thì lập tức máy tính sẽ shutdown ngay lập tức.
Em chân thành cảm ơn anh chị em rất nhiều.
-
RE: tạo nút nhấn shutdown máy tính
tranthanhan1962 > 23-04-20, 07:24 AM
Cái này đâu phải là form của access đâu:
Bạn xem link này rồi thực hiện.https://topthuthuat.com/tao-nut-tat-may-windows/ -
RE: tạo nút nhấn shutdown máy tính
maidinhdan > 24-04-20, 04:39 PM
(23-04-20, 12:33 AM)buida Đã viết: Em kính chào anh chị em
Em có một câu hỏi nhỏ xíu là
Em muốn tạo một nút nhấn, khi nhấn vào nút đó thì lập tức máy tính sẽ shutdown ngay lập tức.
Em chân thành cảm ơn anh chị em rất nhiều.
Trả lời:
Dùng tạm 2 hàm này:
Mã PHP:Function TatMay()
Dim oShell, oExec As Variant
Dim strCmd As String
strCmd = "Shutdown -s -t 3600"
Set oShell = CreateObject("WScript.Shell")
Set oExec = oShell.Exec(strCmd)
End Function
Sẳn tăng luôn cái hàm khởi động lại máy
Mã PHP:Function KhoiDonglaiMay()
Dim oShell, oExec As Variant
Dim strCmd As String
strCmd = "Shutdown -r -t 3600"
Set oShell = CreateObject("WScript.Shell")
Set oExec = oShell.Exec(strCmd)
End Function
Ghi chú: số 3600 tính bằng giây =3600/60 = 60 phút sẽ tắt.
Bạn cứ tùy chỉnh số này tùy bạn.
Ghi nhớ là chèn thêm lệnh thoát Access nửa nhé: DoCmd.Quit
Hàm chỉ có tác dụng khi set cmd luôn chạy ở quyền quản trị.
Thân mến -
RE: tạo nút nhấn shutdown máy tính
buida > 24-04-20, 09:33 PM
(23-04-20, 07:24 AM)tranthanhan1962 Đã viết: Cái này đâu phải là form của access đâu:
Bạn xem link này rồi thực hiện.https://topthuthuat.com/tao-nut-tat-may-windows/
Em cảm ơn anh, xin lỗi anh vì câu hỏi của em đã không để ý.
Ý em là làm nút nhấn trên Form.
Dẫu vậy em cảm ơn anh nhiều. -
RE: tạo nút nhấn shutdown máy tính
thuyyeu99 > 24-04-20, 09:58 PM
Thi bạn gán cái udf vào form -
RE: tạo nút nhấn shutdown máy tính
tranthanhan1962 > 25-04-20, 10:54 AM
(24-04-20, 09:33 PM)buida Đã viết:
(23-04-20, 07:24 AM)tranthanhan1962 Đã viết: Cái này đâu phải là form của access đâu:
Bạn xem link này rồi thực hiện.https://topthuthuat.com/tao-nut-tat-may-windows/
Em cảm ơn anh, xin lỗi anh vì câu hỏi của em đã không để ý.
Ý em là làm nút nhấn trên Form.
Dẫu vậy em cảm ơn anh nhiều.
không có gì. Tuy nhiên. Để thực hiện việc tắt, khỡi động lại máy tình mà phải sử dụng startup chạy access rồi tạo form access để làm công việc này thì hơi thừa trong khi window có thể tạo một shorcut để thực hiện công việc đó nhanh chóng và ngay cả trên win cũng có nút shutdown. Lắm khi tôi cũng chẳng sử dụng nút shutdown mà cứ Alt+F4 rồi enter... -
RE: tạo nút nhấn shutdown máy tính
buida > 02-05-20, 10:31 AM
Dùng tạm 2 hàm này:
Mã PHP:Function TatMay()
Dim oShell, oExec As Variant
Dim strCmd As String
strCmd = "Shutdown -s -t [3600]"
Set oShell = CreateObject("WScript.Shell")
Set oExec = oShell.Exec(strCmd)
End Function
Bạn ơi, em tạo nút nhấn => event click =>
Private Sub TatMay_Click()
Dim oShell, oExec As Variant
Dim strCmd As String
strCmd = "Shutdown -s -t [3600]"
Set oShell = CreateObject("WScript.Shell")
Set oExec = oShell.Exec(strCmd)
End Sub
========================
mà chạy vẫn không được , thì làm sao, e mới chỉ học căn bản. đa tạ bạn nhiều.
Hình như đây là code PHP thì phải. -
RE: tạo nút nhấn shutdown máy tính
tranthanhan1962 > 02-05-20, 02:05 PM
Xem trang này.
https://docs.microsoft.com/en-us/office/...n-remotely -
RE: tạo nút nhấn shutdown máy tính
maidinhdan > 02-05-20, 04:02 PM
(02-05-20, 10:31 AM)buida Đã viết: Bạn ơi, em tạo nút nhấn => event click =>
mà chạy vẫn không được , thì làm sao, e mới chỉ học căn bản. đa tạ bạn nhiều.
Hình như đây là code PHP thì phải.
Hàm trên tôi viết dư dấu [] chỗ [3600]. Bỏ nó đi sẽ chạy. Hoặc Dùng hàm này đã test chạy 100%
Mã PHP:' --------------------------------------------------------------------------------------------------------
' Thuoc Modules/Class: Module1
' Ten ham/thu tuc : TatMay
' Tao tren may PC : HENDANWIN10PRO
' Author/ Tac gia : maidinhdan@gmail.com
' Ngay tao : 02/05/2020 2:58:37 PM
' Parameters/Tham so :
' Cu phap/ Purpose : TatMay(1)
' Pham vi ap dung :
' --------------------------------------------------------------------------------------------------------
Public Sub TatMay(ThamSoTat As Byte)
Dim Connection, WQL, SystemClass, System
Set Connection = GetObject("winmgmts:root\cimv2")
WQL = "Select Name From Win32_OperatingSystem"
Set SystemClass = Connection.ExecQuery(WQL)
For Each System In SystemClass
System.Win32ShutDown (ThamSoTat) ' ThamSoTat: 0=Log Off; 1=Shutdown; 2=Reboot; 8=Power Off
Next
End Sub
Cách dùng:
- Nếu tắt máy thì gọi: TatMay(1)
- Nếu Khởi động lại: TatMay(2)
---Cứ như thế bám vào Tham số tắt tôi ghi phía trên
Riêng link phía trên của anh TranThanAn là hướng dẫn thoát chương trình Access, không phải là hàm tắt máy...
Tặng thêm cái hàm tắt máy thằng khác trong mạng Lan
Mã PHP:Public Sub TatMayKhacTrongMangLan(TenMayCanTat, TenTaiKhoanUser, MatKhau)
Dim Connection, WQL, SystemClass, System
Dim Locator
Set Locator = CreateObject("WbemScripting.SWbemLocator")
Set Connection = Locator.ConnectServer(TenMayCanTat, "root\cimv2", TenTaiKhoanUser, MatKhau)
WQL = "Select Name From Win32_OperatingSystem"
Set SystemClass = Connection.ExecQuery(WQL)
For Each System In SystemClass
System.Win32ShutDown (1)
Next
End Sub
Hoặc nếu muốn gọn lẹ thì viết như sau là chạy:
Tắt máy:
Mã PHP:Public Sub TatMayNgay()
Shell "shutdown -s -t 02", vbHide ' Tắt sau 2 giây
End Sub
Khởi động lại
Mã PHP:Public Sub KhoiDonglaiNgay()
Shell "shutdown -r -t 02", vbHide ' Khởi động lại sau 2 giây
End Sub
Thân mến. -
RE: tạo nút nhấn shutdown máy tính
buida > 07-05-20, 08:53 AM
Tắt máy:
Mã PHP:Public Sub TatMayNgay()
Shell "shutdown -s -t 02", vbHide ' Tắt sau 2 giây
End Sub
Thân mến.
[/quote]
Đa tạ bạn:
cho em xin hỏi thêm một câu nữa là
Nếu em muốn định khi ngày hiện tại lớn hơn ngày 15/5/2020 khi nhấn vào thì tắt máy thì viết như thế này đúng không?
bởi vì e viết như vậy mà nó không chịu chạy?
[php]Private Sub tatmay_Click()
If (Date >= 15 / 5 / 2020) Then
MsgBox "tắt máy sau 10 giây"
Shell "shutdown -s -t 10", vbHide ' T?t sau 10 giây
End If
End Sub