• Vui lòng đọc nội qui diễn đàn để tránh bị xóa bài viết
  • Tìm kiếm trước khi đặt câu hỏi

[VB6] Shutdown & Alarm

Bộ sưu tập mã nguồn các ứng dụng tiện ích
User avatar
NoBi
Quản trị
Quản trị
Posts: 959
Joined: Tue 18/03/2008 1:22 pm
Location: Sài Gòn
Has thanked: 53 times
Been thanked: 66 times
Contact:

[VB6] Shutdown & Alarm

Postby NoBi » Tue 03/02/2009 10:52 am

Tên chương trình: Shutdown & Alarm
Ngôn ngữ lập trình: VB6
Tác giả: NoBi
Chức năng: Chương trình cho phép bạn hẹn giờ Shutdown, Restart, LogOff, Standby, Hibernate và Lock Computer (dành cho Win NT trở lên). Ngoài ra bạn còn có thể theo dõi giờ, và trang trí cho Desktop của mình bằng cái đồng hồ nho nhỏ với 2 dạng : kim và số ...

Attachments
hinh.gif
hinh.gif (26.55 KiB) Viewed 5817 times
SA_source.rar
(111.63 KiB) Downloaded 3612 times


:>

btamsgn
Thành viên chính thức
Thành viên chính thức
Posts: 47
Joined: Thu 10/04/2008 4:40 pm
Has thanked: 3 times

Re: [VB6] Shutdown & Alarm

Postby btamsgn » Sun 24/10/2010 5:17 pm

mình đã download về bấm F5 để chạy và chọn giờ tắt nhưng sau 29giây xong nó vẫn không tắt máy.
mình đang dùng Windows Vista SP2

User avatar
NoBi
Quản trị
Quản trị
Posts: 959
Joined: Tue 18/03/2008 1:22 pm
Location: Sài Gòn
Has thanked: 53 times
Been thanked: 66 times
Contact:

Re: [VB6] Shutdown & Alarm

Postby NoBi » Mon 25/10/2010 10:45 am

Có chọn chế độ tắt ngay lập tức chưa?. Bạn thử build và chạy file .exe xem ntn.
:>

btamsgn
Thành viên chính thức
Thành viên chính thức
Posts: 47
Joined: Thu 10/04/2008 4:40 pm
Has thanked: 3 times

Re: [VB6] Shutdown & Alarm

Postby btamsgn » Mon 08/11/2010 10:38 am

chào NoBi,
mình chưa click vào chế độ tắt ngay lập tức nên pc không tắt.
Giờ ok rồi.
Thanks!

thanhtaixd
Posts: 1
Joined: Thu 25/11/2010 1:02 pm

Re: [VB6] Shutdown & Alarm

Postby thanhtaixd » Thu 25/11/2010 1:10 pm

cảm ơn Nobi nhiều

User avatar
truongphu
VIP
VIP
Posts: 4765
Joined: Sun 04/11/2007 10:57 am
Location: Cam Đức, Khánh hòa
Has thanked: 14 times
Been thanked: 519 times

Re: [VB6] Shutdown & Alarm

Postby truongphu » Thu 28/02/2013 5:25 pm

Lâu rồi không biết bài nầy, đọc thấy NoBi bỏ công thật nhiều, đúng là chuẩn VB6.

Tuy nhiên, Vb6 (hiện đang chết) thời gian sau đã thâm nhập nhiều nhánh ngôn ngữ trong đó, làm code gọn và hiệu quả hơn; (có lẽ classic như NoBi không thích). Riêng tôi khoái gọn mà hiệu quả như thế.

sau đây là nội dung chính yếu: Form có Mảng Command1

Code: Select all

Private Enum eSystemPowerState
    waSUSPEND
    waHIBERNATE
End Enum
Private Declare Function SetSuspendState Lib "Powrprof" (ByVal Hibernate As Long, ByVal ForceCritical As Long, ByVal DisableWakeEvent As Long) As Long

Private Sub Command1_Click(Index As Integer)
    Select Case Index
        Case 0: Shell "shutdown -f -s -t 1", vbHide
        Case 1: Shell "shutdown -f -r -t 1", vbHide
        Case 2: SetSuspendState waSUSPEND, 1, 0
        Case 3: Shell "shutdown -f -l -t 1", vbHide
    End Select
End Sub


* mảng command1 với index 0, 1, 3 gọi shutdown (force) cho shutdown, reboot và log off
* Enum eSystemPowerState khai báo hổ trợ standby, kèm hàm Api SetSuspendState dùng cho index 2

bạn muốn thêm râu ria... cứ việc!
o0o--truongphu--o0o

.........
Ghé thăm:
Chuyện Linh Tinh

maverickzero
Posts: 4
Joined: Fri 21/06/2013 8:04 pm

Re: [VB6] Shutdown

Postby maverickzero » Sat 29/06/2013 10:37 am

Xin chào bạn có biết hàm nào để Close chương trình do sử dụng hàm Shell Khôn[color=#4040FF][color=#4040FF][/color][/color]

maverickzero
Posts: 4
Joined: Fri 21/06/2013 8:04 pm

Re: [VB6] Shutdown

Postby maverickzero » Thu 01/08/2013 10:00 pm

bạn làm cách nào mà ghi được tiếng việt có dấu vậy????????


Return to “[VB] Mã nguồn chương trình tiện ích”

Who is online

Users browsing this forum: No registered users and 1 guest