• 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

Tạo Task Manager với VBS

Các mẹo vặt linh tinh khác, không thuộc nhóm nào
Hình đại diện của người dùng
truongphu
VIP
VIP
Bài viết: 4760
Ngày tham gia: CN 04/11/2007 10:57 am
Đến từ: Cam Đức, Khánh hòa
Has thanked: 14 time
Been thanked: 515 time

Tạo Task Manager với VBS

Gửi bàigửi bởi truongphu » T.Bảy 11/10/2008 10:42 am

Thủ thuật: Tạo Task Manager với VBS
Tác giả: truongphu
Mô tả: Tạo Task Manager với VBS


Phần VB6

Mã: Chọn hết

  1. Private Sub Form_Load()
  2. Set objWord = CreateObject("Word.Application")
  3. Set colTasks = objWord.Tasks
  4. For Each objTask In colTasks
  5.     If objTask.Visible Then a = a & objTask.Name & vbCr
  6. Next
  7. MsgBox a
  8. objWord.Quit
  9. End Sub

Nét hay của VBS là khỏi cần trình biên dịch. Với những công tác đơn giản như trên, bạn chỉ cần chép nội dung code vào notepad và lưu với đuôi file là .VBS, kết quả tương đương
Task Manager.VBS

Mã: Chọn hết

  1. Set objWord = CreateObject("Word.Application")
  2. Set colTasks = objWord.Tasks
  3. For Each objTask In colTasks
  4.     If objTask.Visible Then a = a & objTask.Name & vbCr
  5. Next
  6. MsgBox a
  7. objWord.Quit


o0o--truongphu--o0o

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

Hình đại diện của người dùng
playgemboy
Thành viên danh dự
Thành viên danh dự
Bài viết: 289
Ngày tham gia: CN 13/04/2008 6:10 am
Đến từ: Bình Phú, Quận 6, TP.HCM
Been thanked: 1 time
Liên hệ:

Re: Tạo Task Manager với VBS

Gửi bàigửi bởi playgemboy » T.Sáu 07/11/2008 1:47 pm

Bác TruongPhu ơi!, nó hiện lên list chứ chưa "Manager" được, theo cháu, sau khi hiện list, cho hiện inputbox nhập vào tên process (hoặc thứ tự trong list hồi nãy), nhưng cháu lại ko biết Kill nó ntn?
<I Come Back>

Hình đại diện của người dùng
truongphu
VIP
VIP
Bài viết: 4760
Ngày tham gia: CN 04/11/2007 10:57 am
Đến từ: Cam Đức, Khánh hòa
Has thanked: 14 time
Been thanked: 515 time

Re: Tạo Task Manager với VBS

Gửi bàigửi bởi truongphu » T.Sáu 07/11/2008 3:22 pm

playgemboy đã viết:nó hiện lên list chứ chưa "Manager" được

Đây là thủ thuật con chứ chưa đạt cấp sản phẩm, cái đó dành cho playgemboy!
Chú ý trong câu code: If objTask.Visible ..
Nếu muốn manager, bạn nên bỏ luôn đoạn If objTask.Visible Then thì tên các tiến trình đầy đủ hơn
Đã có string mong muốn, bạn cứ list1.add
playgemboy đã viết:nhưng cháu lại ko biết Kill nó ntn?

xem: Re: Hỏi về file WORD! cần gấp! help me
http://www.caulacbovb.com/forum/viewtopic.php?f=7&t=4034#p24744
nhiều vấn đề thú vị đấy! ;)
o0o--truongphu--o0o

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

Hình đại diện của người dùng
playgemboy
Thành viên danh dự
Thành viên danh dự
Bài viết: 289
Ngày tham gia: CN 13/04/2008 6:10 am
Đến từ: Bình Phú, Quận 6, TP.HCM
Been thanked: 1 time
Liên hệ:

Re: Tạo Task Manager với VBS

Gửi bàigửi bởi playgemboy » T.Bảy 08/11/2008 9:55 pm

Wa!, Đúng là học hỏi được rất nhiều, cháu cảm ơn bác TruongPhu nhé!
<I Come Back>


Quay về “[VB] Mẹo vặt khác”

Đang trực tuyến

Đang xem chuyên mục này: Không có thành viên nào trực tuyến.1 khách