CLwin 1.0 按名称批量关闭窗口

xinje

继续编写第三方，应shuaige100，写了一个批量关闭窗口的第三方。

CLwin 1.0 按名称关闭窗口
作者：xinje
E-mail：xinje@126.com
2010.7.6

CLwin [/C] [欲关闭窗口名称]

例如：
   CLwin /C photoshop  
   关闭所有标题包含“PHOTOSHOP”的窗口。特别注意是所有！

http://bcn.bathome.net/s/tool/index.html?key=CLwin

shuaige100

关闭进程的——
这个vb的不知道怎么写，才能变第三方？

1. Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
   
2. Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
   
3. 
   
4. Const WM_CLOSE = &H10
   
5. Private Sub Form_Load()
   
6. Dim hwnd As Long
   
7. hwnd = FindWindow(vbNullString, "vbs") '查找窗体标题
   
8. If hwnd <> 0 Then
   
9. PostMessage hwnd, WM_CLOSE, 0&, 0&
   
10. End If
    
11. hwnd = FindWindow(vbNullString, "6122软件") '查找窗体标题
    
12. If hwnd <> 0 Then
    
13. PostMessage hwnd, WM_CLOSE, 0&, 0&
    
14. End If
    
15. End Sub

复制代码

[ 本帖最后由 shuaige100 于 2010-7-6 23:04 编辑 ]

defanive

吧窗体去掉，代码写在模块里面，启动选择Sub Main

xinje

不太会用VB，听楼上的吧。

shuaige100

你说的我也不会，闻所未闻，呵呵

defanive

工程->移除Form1
工程->添加模块
写代码，主程序的代码在Sub Main()过程里面写
工程->工程1 属性->启动对象选为Sub Main
编译就可以了

canyuexiaolang

可否多加点参数呢，比如只关闭名称是cmd.exe的窗口，是11cmd.exe就不关闭了

不过这样改和taskkill没什么区别了..
==========================
怎么到了VB了啊。老本行...

junwalo

学习中，谢谢各位。。。。。

zjw767676

CLwin /C *
关闭所有窗口？

gobi918

好东西！！真好急需这个功能！！！