• 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

Chạy một ứng dụng và chờ đợi cho đến khi ứng dụng dừng lại

Các thủ thuật liên quan đến việc xử lý ứng dụng, biểu mẫu và control
QuangHoa
Guru
Guru
Bài viết: 542
Ngày tham gia: T.Năm 27/03/2008 9:02 am
Đến từ: Quê hương Đại tướng Võ Nguyên Giáp
Been thanked: 5 time
Liên hệ:

Chạy một ứng dụng và chờ đợi cho đến khi ứng dụng dừng lại

Gửi bàigửi bởi QuangHoa » CN 04/05/2008 8:28 am

Thủ thuật: Chạy một ứng dụng và chờ đợi cho đến khi ứng dụng dừng lại
Tác giả: Võ Quang Hòa
Mô tả: Chạy một ứng dụng và biết được sự kiện ứng dụng dừng lại (bị tắt)



Mã: Chọn hết

  1.  
  2. ' Code by Võ Quang Hòa
  3. ' http://www.dantinhoc.com
  4. ' http://www.caulacbovb.com
  5. Private Declare Function OpenProcess Lib "Kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
  6. Private Declare Function GetExitCodeProcess Lib "Kernel32" (ByVal hProcess As Long, lpExitCode As Long) As Long
  7. Private Declare Sub Sleep Lib "Kernel32" (ByVal dwMilliseconds As Long)
  8. Sub Shell32Bit(ByVal fullpath As String)
  9.          Dim hProcess As Long
  10.          Dim RetVal As Long
  11.          hProcess = OpenProcess(&H400, False, Shell(fullpath, 1))
  12.          Do
  13.              GetExitCodeProcess hProcess, RetVal
  14.              DoEvents: Sleep 100
  15.          Loop While RetVal = &H103
  16. End Sub
  17. Private Sub Form_Load()
  18. Shell32Bit "D:\GAMES\crates2.exe"
  19. msgbox " Nó đã dừng lại"
  20. End Sub
  21.  


朋友
这些年一个人风也过雨也走,有过泪有过错还记得坚持什么。
真爱过才会懂会记没会回手,终有梦中有你在心中。
朋友一生一起走那些日子不再有,一句话一辈子一生情一杯九。
朋友不曾孤单过一声朋友你会懂,还有伤还有痛还要走还有我。

Hình đại diện của người dùng
T7
Thành viên danh dự
Thành viên danh dự
Bài viết: 415
Ngày tham gia: T.Năm 24/05/2007 8:19 pm
Đến từ: Long Xuyên - An Giang
Been thanked: 12 time
Liên hệ:

Re: Chạy một ứng dụng và chờ đợi cho đến khi ứng dụng dừng lại

Gửi bàigửi bởi T7 » CN 04/05/2008 8:33 am

Có cách khác nhanh hơn nè :D

Mã: Chọn hết

  1. Dim WshShell
  2. Set WshShell = CreateObject("WScript.Shell")
  3. WshShell.Run """" & "Notepad" & """", , True
  4. MsgBox "Notepad closed !"
While (i <= you) i++;

Hình đại diện của người dùng
truongphu
VIP
VIP
Bài viết: 4756
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: 509 time

Re: Chạy một ứng dụng và chờ đợi cho đến khi ứng dụng dừng lại

Gửi bàigửi bởi truongphu » CN 04/05/2008 9:47 am

T7 dùng Script "chiến" quá! thật sự trước khi đọc bài T7 tôi chưa nghỉ đến code gọn như thế
Nên bỏ mấy dấu kép

Mã: Chọn hết

  1. Set WshShell = CreateObject("WScript.Shell")
  2. WshShell.Run "D:\games\freecell", , True
  3. MsgBox "freecell closed !"
o0o--truongphu--o0o

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

QuangHoa
Guru
Guru
Bài viết: 542
Ngày tham gia: T.Năm 27/03/2008 9:02 am
Đến từ: Quê hương Đại tướng Võ Nguyên Giáp
Been thanked: 5 time
Liên hệ:

Re: Chạy một ứng dụng và chờ đợi cho đến khi ứng dụng dừng lại

Gửi bàigửi bởi QuangHoa » T.Hai 05/05/2008 9:01 am

Oài, không ngờ cái của mình lại dài dữ vậy thật thẹn quá :x
朋友
这些年一个人风也过雨也走,有过泪有过错还记得坚持什么。
真爱过才会懂会记没会回手,终有梦中有你在心中。
朋友一生一起走那些日子不再有,一句话一辈子一生情一杯九。
朋友不曾孤单过一声朋友你会懂,还有伤还有痛还要走还有我。

Hình đại diện của người dùng
truongphu
VIP
VIP
Bài viết: 4756
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: 509 time

Re: Chạy một ứng dụng và chờ đợi cho đến khi ứng dụng dừng lại

Gửi bàigửi bởi truongphu » T.Hai 05/05/2008 10:07 am

quanghoa đã viết:cái của mình lại dài dữ vậy thật thẹn quá

Không phải thế đâu!
"cái" của bạn là code VB chính thống
Còn code T7 là đi tắt, nhờ WSH Chạy các hàng lệnh ngầm và dài của bạn đấy thôi
Cũng như câu trả lời của anhtuyenbk "Re: Làm thế nào để xóa thư mục trong VB6", các code anhtuyenbk dùng là vb6 chính thống. Nếu bạn muốn dùng code ngắn để xóa thư mục với vbscript, trong chuyên mục tip vb nầy có rất nhiều bài viết đấy.
o0o--truongphu--o0o

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

QuangHoa
Guru
Guru
Bài viết: 542
Ngày tham gia: T.Năm 27/03/2008 9:02 am
Đến từ: Quê hương Đại tướng Võ Nguyên Giáp
Been thanked: 5 time
Liên hệ:

Re: Chạy một ứng dụng và chờ đợi cho đến khi ứng dụng dừng lại

Gửi bàigửi bởi QuangHoa » T.Hai 05/05/2008 10:32 am

Bác Truongphu có thể giải thích chút về WSH được không, nó là gì vậy và cả cái vbscript nửa. Qua mấy Topic như thay đổi tên nút Start, Chạy một ứng dụng... em mới bắt đầu được nghe đến hai thứ đó :-/ . Bác có tài liệu gì về chúng không, Share cho với, em ngoài VBCLUB, mấy tài liệu Download được trên mạng ra thì chẳng có thêm tài liệu gì :( , em đang tự học VB mà thấy càng ngày càng có nhiều thứ chưa biết đến quá. :((
朋友
这些年一个人风也过雨也走,有过泪有过错还记得坚持什么。
真爱过才会懂会记没会回手,终有梦中有你在心中。
朋友一生一起走那些日子不再有,一句话一辈子一生情一杯九。
朋友不曾孤单过一声朋友你会懂,还有伤还有痛还要走还有我。

Hình đại diện của người dùng
clarkkent
Mạnh Thường Quân
Mạnh Thường Quân
Bài viết: 1641
Ngày tham gia: T.Tư 16/04/2008 11:25 am
Đến từ: Chợ Lách - Bến Tre
Been thanked: 31 time
Liên hệ:

Re: Chạy một ứng dụng và chờ đợi cho đến khi ứng dụng dừng lại

Gửi bàigửi bởi clarkkent » T.Hai 05/05/2008 12:35 pm

Hôm bữa có gởi lên 1 cuốn ebook về vbscipt bằng tiếng Anh, nhưng mà ở đâu thì tự nhiên quên luôn...
• Hôm bây: www.tinsoftware.com ^ ^
Cố gắng lên...

Giang Hồ
Thành viên năng nổ
Thành viên năng nổ
Bài viết: 50
Ngày tham gia: T.Bảy 12/05/2007 2:36 pm
Đến từ: http://vn-soft.net
Been thanked: 1 time
Liên hệ:

Re: Chạy một ứng dụng và chờ đợi cho đến khi ứng dụng dừng lại

Gửi bàigửi bởi Giang Hồ » T.Năm 08/05/2008 4:07 pm

Hehe, code của quanghoa gần giống như cái mình viết hồi. Giờ lại biết thêm cái VBScript cực gọn này nữa thì tuyệt quá. Thank for share!
Code chỉ một lần mà fix bug thì mãi mãi
-----------------------------------
VnSecurity 2008 - Bảo vệ máy tính theo phong cách của bạn
Website: http://vn-soft.net


Quay về “[VB] Ứng dụng - Form và Control”

Đ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