Đóng File .exe đã Mở Bằng Shell Như Thế Nào? - Webketoan

Menu Menu Đăng nhập Đăng ký Tắt quảng cáo Menu Install the app Cài đặt

• Trang chủ
• Diễn đàn Bài viết mới
• Có gì mới Bài viết mới Hoạt động mới nhất

• Kế toán Căn bản thực chiến về Logistic/Forwarder
• Kế toán Căn Bản F&B " 2 buổi online - tự tin bước vào nghề!

Đóng file .exe đã mở bằng Shell như thế nào?

• Thread starter dvu58
• Ngày gửi 26/3/10

• Diễn đàn
• THÔNG TIN CẦN BIẾT VÀ HỎI ĐÁP NGHIỆP VỤ
• Tech Hub: AI - An toàn thông tin - Tin học quản lý

You are using an out of date browser. It may not display this or other websites correctly.You should upgrade or use an alternative browser. D

dvu58

Guest

1/6/08 1 0 0 63 Dalat Từ Excel, tôi dùng VBA tạo 1 code để mở một file .exe bằng lệnh SHELL. Xin các bạn cho tôi biết: Muốn đóng lại file .exe đó, tôi dùng lệnh nào trong VBA. Cảm ơn các bạn A

atmt17

Trung cấp

26/9/08 70 1 6 Đồng Nai

dvu58 nói: Từ Excel, tôi dùng VBA tạo 1 code để mở một file .exe bằng lệnh SHELL. Xin các bạn cho tôi biết: Muốn đóng lại file .exe đó, tôi dùng lệnh nào trong VBA. Cảm ơn các bạn Nhấn để mở rộng...

câu hỏi đơn giản nhưng để giải quyết quả chẳng dể tí nào! Tặng anh code này (dùng API) Mã: Private Declare Function CloseHandle Lib "Kernel32.dll" (ByVal Handle As Long) As Long Private Declare Function OpenProcess Lib "Kernel32.dll" (ByVal dwDesiredAccessas As Long, ByVal bInheritHandle As Long, ByVal dwProcId As Long) As Long Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long Private Declare Function CreateToolhelpSnapshot Lib "kernel32" Alias "CreateToolhelp32Snapshot" (ByVal lFlags As Long, lProcessID As Long) As Long Private Declare Function ProcessFirst Lib "kernel32" Alias "Process32First" (ByVal hSnapshot As Long, uProcess As PROCESSENTRY32) As Long Private Declare Function ProcessNext Lib "kernel32" Alias "Process32Next" (ByVal hSnapshot As Long, uProcess As PROCESSENTRY32) As Long Mã: Private Type PROCESSENTRY32 dwSize As Long cntUsage As Long th32ProcessID As Long th32DefaultHeapID As Long th32ModuleID As Long cntThreads As Long th32ParentProcessID As Long pcPriClassBase As Long dwFlags As Long szExeFile As String * 260 End Type Mã: Private Sub KillProcess(myName As String) Dim uProcess As PROCESSENTRY32 Dim rProcessFound As Long Dim hSnapshot As Long Dim szExename As String Dim exitCode As Long Dim myProcess As Long Dim AppKill As Boolean Dim appCount As Long Dim i As Long On Local Error GoTo Finish appCount = 0 uProcess.dwSize = Len(uProcess) hSnapshot = CreateToolhelpSnapshot(2&, 0&) rProcessFound = ProcessFirst(hSnapshot, uProcess) Do While rProcessFound i = InStr(1, uProcess.szExeFile, Chr(0)) szExename = LCase$(Left$(uProcess.szExeFile, i - 1)) If Right$(szExename, Len(myName)) = LCase$(myName) Then appCount = appCount + 1 myProcess = OpenProcess(1&, -1&, uProcess.th32ProcessID) AppKill = TerminateProcess(myProcess, 0&) Call CloseHandle(myProcess) End If rProcessFound = ProcessNext(hSnapshot, uProcess) Loop Call CloseHandle(hSnapshot) Finish: End Sub Đây là cái "sườn". Để sử dụng anh phải viết thêm 1 code nữa. Ví dụ: anh đang chạy file Test.exe, giờ anh muốn tắt nó, anh sẽ viết như sau: Mã: Sub Main() KillProcess "Test.exe" End Sub Anh thử xem

levanduyet

Welcome

16/10/04 537 19 18 HCM my.opera.com Bác thử dùng code này: Mã: Sub Close_Process() Dim sCloseProcess As String 'Thay process Bác muốn tại đây. Ví dụ: Excel.exe sCloseProcess = "TASKKILL /F /IM [COLOR="Red"]Excel.exe[/COLOR]" Shell sCloseProcess , vbHide End Sub Lê Văn Duyệt Toggle signature Hãy đơn giản như Excel My Facebook A

atmt17

Trung cấp

26/9/08 70 1 6 Đồng Nai

levanduyet nói: Bác thử dùng code này: Mã: Sub Close_Process() Dim sCloseProcess As String 'Thay process Bác muốn tại đây. Ví dụ: Excel.exe sCloseProcess = "TASKKILL /F /IM [COLOR="Red"]Excel.exe[/COLOR]" Shell sCloseProcess , vbHide End Sub Lê Văn Duyệt Nhấn để mở rộng...

He... he... Bác lại mang chuông đi đánh xứ người ha! Bạn phải đăng nhập hoặc đăng ký để bình luận.

Similar threads

S Copilot & VBA

• SA_DQ
• 1/9/24
• Tech Hub: AI - An toàn thông tin - Tin học quản lý

Trả lời 2 Lượt xem 5K Tech Hub: AI - An toàn thông tin - Tin học quản lý 25/1/25 SA_DQ S

• Ghim lại

Ra mắt AI Agent nghiệp vụ Tài chính & Kế toán theo quy chuẩn ngành Việt Nam

• Webketoan.vn
• 16/7/25
• Tech Hub: AI - An toàn thông tin - Tin học quản lý

Trả lời 1 Lượt xem 2K Tech Hub: AI - An toàn thông tin - Tin học quản lý 16/7/25 Trịnh Hồng Khánh S Lập trình từ trí tuệ nhân tạo microsoft Bing: Mã hóa số liệu 1 ngày-tháng-năm cụ thể sang chuỗi 3 kí tự

• SA_DQ
• 8/10/23
• Tech Hub: AI - An toàn thông tin - Tin học quản lý

Trả lời 3 Lượt xem 25K Tech Hub: AI - An toàn thông tin - Tin học quản lý 12/10/23 SA_DQ S Dự báo 10 xu hướng An ninh mạng trong năm 2025

• Webketoan.vn
• 25/12/24
• Tech Hub: AI - An toàn thông tin - Tin học quản lý

Trả lời 0 Lượt xem 2K Tech Hub: AI - An toàn thông tin - Tin học quản lý 25/12/24 Webketoan.vn Dự báo 10 xu hướng An ninh mạng trong năm 2025

• Webketoan.vn
• 24/12/24
• Tech Hub: AI - An toàn thông tin - Tin học quản lý

Trả lời 0 Lượt xem 1K Tech Hub: AI - An toàn thông tin - Tin học quản lý 24/12/24 Webketoan.vn Chia sẻ: Facebook Email Chia sẻ Link

Xem nhiều

• M Thi tuyển công chức thuế năm 2012!
  • Started by MINA
  • 5/5/12
  • Lượt xem: 9,010,207
  Phát triển bản thân
• M Thi công chức hải quan!
  • Started by meomalem
  • 2/5/10
  • Lượt xem: 3,578,227
  Phát triển bản thân
• T Lập nhóm ôn thi công chức bhxh 2013
  • Started by truongvucanh
  • 29/3/13
  • Lượt xem: 3,178,135
  Phát triển bản thân
• M Tổng hợp các nội dung liên quan đến việc thi tuyển vào ngân hàng!
  • Started by mechipchip
  • 18/7/06
  • Lượt xem: 3,090,968
  Chế độ kế toán khác
• J Thi tuyển công chức thuế 2014
  • Started by jinna
  • 23/12/13
  • Lượt xem: 2,717,521
  Thi công chức thuế

Liên kết

Tâm An kế toán quản trị

Chia sẻ trang

Share this page Chia sẻ Facebook Email Chia sẻ Link Top Bottom