TC官方合作论坛

标题: TC中有结束进程的函数吗？ [打印本页]

---

作者: lijooge    时间: 2013-7-3 16:20
标题: TC中有结束进程的函数吗？
如题，TC中有结束进程的函数吗？就是类似XX精灵里Call Lib.系统.结束进程(映像名称)的那个？TC或者TS中哪些函数能结束进程啊？例如结束：“iexplore.exe”该怎么写？

还有，我翻了TC的说明文档和TS的说明，里面很多函数都是用句柄对程序的控制，可是有些进程貌似是找不到句柄啊...反正TS里那个内存部分有一个终止进程的命令，可是我用了却没得到我想要的结果，直接给我关闭程序了....求帮助，哪些好使啊？如果要调用某插件的话也一起帮忙写出插件名吧。
如果没有合适的那最后能不能帮我把XX精灵里的结束进程函数翻译成TC语言的？

Sub 结束进程(映像名称)
    //Call Lib.系统.结束进程("notepad.exe")
    Dim strComputer, objWMIService, colProcessList, objProcess
    strComputer = "."
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
    Set colProcessList = objWMIService.ExecQuery("Select * from Win32_Process Where Name = '" & 映像名称 & "'")
    For Each objProcess in colProcessList
        objProcess.Terminate
    Next
End Sub
以上是XX精灵里翻出来的，我就想着如果没有自己搞一个算了，不是有范例嘛，翻译一下就好用了，可是我自己翻译只翻译到了"GetObject"就提示错误了！这个函数貌似是VB函数，TC好像不能用啊？这该怎么搞？

先在这里谢谢各位看官和热心人了...

---

作者: lijooge    时间: 2013-7-3 16:23
沙发自己留..

---

作者: TC    时间: 2013-7-3 16:30
进程句柄=进程.获取进程句柄("大话西游")
是否关闭=进程.关闭进程(进程句柄)

---

作者: lijooge    时间: 2013-7-3 16:52
回复 3楼TC的帖子


[attach]9988[/attach]
我刚刚用您给的函数测试了一下，只有填入游戏标题才能结束....有些进程是没有标题的啊，还有，这个标题必须是全部，部分都不行的，这不会很感觉很别扭和有缺陷吗？功能明显被限制了，有些程序无法完成啊，还有其他的函数吗？TC里能用的

---

作者: jrflsh    时间: 2013-7-3 16:56
你可以通过窗口名，类名或者进程名来枚举一下

---

作者: lijooge    时间: 2013-7-3 17:51
回复 5楼jrflsh的帖子


[attach]9991[/attach]
如图，我按照枚举的方式做了(才接触，查资料花了一些时间，刚弄好)，能成功结束大部分同进程的程序，但是还有有问题，还有错误信息，我代码哪里出的错？请指教....

---

作者: lijooge    时间: 2013-7-3 17:54
我先贴一下代码，热心的朋友可以先试试
空间 vf

功能 开始_点击()
    vf.特殊()
功能结束

//退出按钮_点击操作
功能 退出_点击()
   
    辅助.退出()
功能结束



功能 特殊()
  返回值=系统.枚举("notepad.exe",2)

        返回串

        是否成功=字符串.分割(返回值,"|",返回串)
整型 c1,i=0
                       
   数组空间.大小(返回串,c1)//获取数组维数

如果(是否成功)   //如果分割成功,依次输出分割后字串
     循环(i < c1)
         类型.转整型(返回串)
         i=i + 1
         进程.关闭进程(返回串)
  循环结束
如果结束
功能结束

空间结束

---

作者: lijooge    时间: 2013-7-3 21:46
已经搞定了，这里有源码
http://bbs.tyuyan.com/thread-28341-1-1.html

---

欢迎光临 TC官方合作论坛 (http://bbs.52tc.co/)

Powered by Discuz! X3.1