| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> DELPHI技术 斑竹:liumazi,sephil | |||||
| 作者： |
|
2004/2/24 9:21:45 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | 监视一个应用程序，只要它一运行，马上就把它关闭，如何实现？ ---------------------------------------------- - |
|||||
| 作者： |
|
2004/2/24 10:41:55 | ||||
| 1楼： | 已经有了 论坛全文检索！！！ ---------------------------------------------- 我来自农村广阔的田野我的每一个动作都很夸张http://waterstone.51r.com |
|||||
| 作者： |
|
2004/2/24 17:03:47 | ||||
| 2楼： | 哦，我找不到，可以帮忙找出来吗，谢谢~~~ ---------------------------------------------- - |
|||||
| 作者： |
|
2004/2/24 18:03:16 | ||||
| 3楼： | procedure TForm1.Timer1Timer(Sender: TObject); var h: THandle; text: array[0..255] of char; begin h := getWindow(handle, GW_HWNDFIRST); while h <> 0 do begin if GetWindowText(h, @text, 255) > 0 then if StrPas(text) = '计算器' then PostMessage(h, WM_SYSCOMMAND, SC_CLOSE, 0); h := GetWindow(h, GW_HWNDNEXT); end; end; ---------------------------------------------- - |
|||||
| 作者： |
|
2004/2/24 18:18:02 | ||||
| 4楼： | 好贴 ---------------------------------------------- - |
|||||
| 作者： |
|
2004/2/24 19:43:05 | ||||
| 5楼： | if GetWindowText(h, @text, 255) > 0 then if StrPas(text) = '游戏' then PostMessage(h, WM_SYSCOMMAND, SC_CLOSE, 0); h := GetWindow(h, GW_HWNDNEXT); 可以强行关闭这个程序吗？因为关闭这个程序时会提示 是不是真的退出的。 ---------------------------------------------- - |
|||||
| 作者： |
|
2004/2/24 21:17:35 | ||||
| 6楼： | ????
 
|
|||||
| 作者： |
|
2004/2/25 15:04:52 | ||||
| 7楼： | 好帖子 ---------------------------------------------- 尽情舒展,是一种向往,想去的地方、想拥有的感受,尽管追求! |
|||||
| 作者： |
|
2004/2/25 17:38:16 | ||||
| 8楼： | 好好好好好好好好好 ---------------------------------------------- 愿和所有喜欢DELPHI的人成为朋友！！ |
|||||
| 作者： |
|
2004/2/25 21:24:43 | ||||
| 9楼： | 好！ 不过这个好象只能监视程序！要怎样监视进程呢？ ---------------------------------------------- - |
|||||
| 作者： |
|
2004/2/25 21:55:41 | ||||
| 10楼： | :)
|
|||||
| 作者： |
|
2004/2/25 22:08:47 | ||||
| 11楼： | 我们把一个.exe文件称之为一个程序.这个程序被加载到内存里,也就是被执行之后我们就称它为一个进程,实际上进程就是程序. 你明白不? ---------------------------------------------- - |
|||||
| 作者： |
|
2004/2/26 0:17:06 | ||||
| 12楼： | 进程是一个动态的概念 ---------------------------------------------- 真正的程序员用C，聪明的程序员用DELPHI |
|||||
| 作者： |
|
2004/2/27 10:16:10 | ||||
| 13楼： | 我在玩奇迹的时候每次都要按 main.exe 然后又要选 →奇迹21区→连接 能不能按一下 button1 就直接代替以上步骤？
- |
|||||
| 作者： |
|
2004/2/27 10:17:03 | ||||
| 14楼： | 2
- |
|||||
| 作者： |
|
2004/2/27 18:19:51 | ||||
| 15楼： | 请大侠~帮忙`~ ---------------------------------------------- - |
|||||
| 作者： |
|
2004/2/27 18:39:00 | ||||
| 16楼： | 说起来简单 做起来还是有点复杂 要考虑的情况不少 按步骤来吧 1.查找MU登陆窗口 这个容易，找个Spy来，看看这个窗口的类名 然后用FindWindow搞定 2.查找“21区”这个按钮 麻烦来了 首先，我们假设这个21区按钮是个Window(在这里可以理解为Delphi的TWinControl) 那个根据按钮的标题(奇迹21区)直接找到这个按钮，然后发个BM_CLICK消息过去就好了 但是如果第一页没有这个按钮呢？？ 为了避免以后麻烦，我们还要逐个发消息去点下面的1 2 3..这些按钮翻页，然后再找21区的按钮 当然，这是我们假设这个21区按钮是Window的情况，如果不是的话 嘿嘿，那你就一点辙都没有 3.加入你运气好，到了连接窗口，找连接按钮和上面一样，很简单的 另外记得当MU切换窗口的时候要延时，否则窗口还没准备好的话后面的操作无法继续 看了这么多，你还想写么？ ---------------------------------------------- Click here to redirect to my home Click here to redirect to my blog |
|||||
| 作者： |
|
2004/2/27 18:41:11 | ||||
| 17楼： | 当然，你也可以用一个听起来很简单的办法 截MU的数据封包下来，分析他的结构 然后直接发数据包给MU的服务器登陆 不过你要是能做到的话，你早发了 ---------------------------------------------- Click here to redirect to my home Click here to redirect to my blog |
|||||
| 作者： |
|
2004/2/27 23:47:59 | ||||
| 18楼： | 看看
- |
|||||
| 作者： |
|
2004/2/27 23:49:41 | ||||
| 19楼： | 3
- |
|||||
| 作者： |
|
2004/2/27 23:51:04 | ||||
| 20楼： | 有办法吗？谢谢哦~~ ---------------------------------------------- - |
|||||
| 作者： |
|
2004/2/28 8:59:48 | ||||
| 21楼： | 那有这么麻烦 写个bat main.exe connect /u61.172.202.81 /p44405 ---------------------------------------------- - |
|||||
| 作者： |
|
2004/2/28 10:12:53 | ||||
| 22楼： | winexec('D:\腾飞MU0.96\GameGuard\main.exe connect /u61.172.202.81 /p44405',sw_show); 这样可以了~~~不过可不可以改变路径啊? winexec(pchar(Extractfilepath(application.exename)+'GameGuard\main.exe connect /u61.172.202.81 /p44405',sw_show); 为什么不行? ---------------------------------------------- - |
|||||
| 信息 |
| 登陆以后才能回复 |
