Board logo

标题: [其他] CLwin 1.0 按名称批量关闭窗口 [打印本页]

作者: xinje    时间: 2010-7-6 22:40     标题: CLwin 1.0 按名称批量关闭窗口

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

CLwin 1.0 按名称关闭窗口
作者:xinje
E-mail:[email]xinje@126.com[/email]
2010.7.6

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

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

http://bcn.bathome.net/s/tool/index.html?key=CLwin
作者: shuaige100    时间: 2010-7-6 23:03     标题: 回复 1楼 的帖子

关闭进程的——
这个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. Const WM_CLOSE = &H10
  4. Private Sub Form_Load()
  5. Dim hwnd As Long
  6. hwnd = FindWindow(vbNullString, "vbs") '查找窗体标题
  7. If hwnd <> 0 Then
  8. PostMessage hwnd, WM_CLOSE, 0&, 0&
  9. End If
  10. hwnd = FindWindow(vbNullString, "6122软件") '查找窗体标题
  11. If hwnd <> 0 Then
  12. PostMessage hwnd, WM_CLOSE, 0&, 0&
  13. End If
  14. End Sub
复制代码

[ 本帖最后由 shuaige100 于 2010-7-6 23:04 编辑 ]
作者: defanive    时间: 2010-7-6 23:08     标题: 回复 2楼 的帖子

吧窗体去掉,代码写在模块里面,启动选择Sub Main
作者: xinje    时间: 2010-7-6 23:15

不太会用VB,听楼上的吧。
作者: shuaige100    时间: 2010-7-6 23:19     标题: 回复 3楼 的帖子

你说的我也不会,闻所未闻,呵呵
作者: defanive    时间: 2010-7-6 23:27

工程->移除Form1
工程->添加模块
写代码,主程序的代码在Sub Main()过程里面写
工程->工程1 属性->启动对象选为Sub Main
编译就可以了
作者: canyuexiaolang    时间: 2010-7-7 10:19

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

不过这样改和taskkill没什么区别了..
==========================
怎么到了VB了啊。老本行...
作者: junwalo    时间: 2010-7-7 10:48

学习中,谢谢各位。。。。。
作者: zjw767676    时间: 2010-7-7 18:30

CLwin /C *
关闭所有窗口?
作者: gobi918    时间: 2012-3-10 10:14

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




欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2