ReadyGo!技术成就梦想 网络搜索 efish 2008-1-13 11:11:57

@#@#@#《怎样捕捉到窗体的句病，然后向它发送信息》@#@#@# 有分呀

楼主Mohoman（恶魔可乐）2002-01-04 17:46:39 在 VB / 基础类 提问

请问怎样捕捉一个外部程序的句柄（注明：不是自己写的程序）  
   
  得到句柄以后向它发送消息，来控制它。  
   
  （对了除了一些关闭命令还有其它的发送命令吗？，可以自己写一些命令发给外部程序吗？）比如在2000/xp里面的可以使自己的程序成为半透明的窗体，可否吧这个命令发给外部的程序，让他们也变得透明？？？？  
   
  谢谢帮助了，一定加分，谢谢拜托了。我还有很多问题可是没有人解答  
   
  请高手过目呀。 问题点数：30、回复次数：9Top

1 楼Bardo（巴顿(永远只有一个)）回复于 2002-01-04 18:12:42 得分 0

用FindWindow捕捉一个外部程序的句柄.再用SendMessage发送消息.消息可查该函数的帮助,同时API,   浏览器中有所有的常量.但有些需要用回调,不太安全.否则易导致指针错误!Top

2 楼Mohoman（恶魔可乐）回复于 2002-01-05 10:16:29 得分 0

FindWindow可以找到已经知道的窗口标题的句柄，可是如果在未知标题的情况下，怎么捕捉到窗体的句柄，（也就是把现在所有的可以捕捉的窗体的句柄都找到）请问怎么实现呀。  
   
  还有就是怎么样捕捉程序菜单的句柄呀  
   
  Top

3 楼jackjack（）回复于 2002-01-05 10:47:41 得分 0

"加一个CommandButton和一个ListBox倥件  
  "---------放到窗体里----------  
  Private   Sub   Command1_Click()  
          List1.Clear  
          EnumWindows   AddressOf   EnumWindowsProc,   0&  
  End   Sub  
  "---------放到窗体里----------  
   
   
  "-----以下放到模块里--------  
  Private   Declare   Function   EnumWindows   Lib   "user32"   (ByVal   lpEnumFunc   As   Long,   ByVal   lParam   As   Long)   As   Long  
   
  Function   EnumWindowsProc(ByVal   hwnd   As   Long,   ByVal   lParam   As   Long)   As   Boolean  
          Form1.List1.AddItem   hwnd   "hwnd是句柄  
          EnumWindowsProc   =   True  
  End   FunctionTop

4 楼jackjack（）回复于 2002-01-05 10:51:03 得分 0

Oh,Sorry!  
  EnumWindows在模块里的声明该成Public就可！Top

5 楼jackjack（）回复于 2002-01-05 14:45:42 得分 0

给分吧！！！Top

6 楼Mohoman（恶魔可乐）回复于 2002-01-05 15:26:21 得分 0

再给我解释解释为什么FINDWINDOW和你说的得到的句柄不一样  
   
  我马上给你加分，详细说明，怎样得到菜单的句柄，给它发送指令Top

7 楼jackjack（）回复于 2002-01-05 16:51:55 得分 0

"应该是一样的，你可以拿自己的窗体做测试！  
   
  "hwnd指定窗口的句柄,返回值是依附于指定窗口的一个菜单的句柄，否则返回零  
  Declare   Function   GetMenu   Lib   "user32"   Alias   "GetMenu"   (ByVal   hwnd   As   Long)   As   Long  
  具体的菜单函数很多的详见MSDNTop

8 楼jackjack（）回复于 2002-01-05 16:57:46 得分 30

对了！  
  窗口句柄生成后是唯一的！所以用不同的函数得到的不可能不一样！直到该进程销毁！  
  你关闭这个窗口再初始化一个当然和原来那个不一样啦！  
  句柄是3或4位那是很正常的！  
   
  Top

9 楼Mohoman（恶魔可乐）回复于 2002-01-05 19:00:39 得分 0

可是我是没有退出窗体使用了2个函数呀  
   
  结果不一样的  
   
  我答应你了2个30分给你了，但是你还是要给我说明白一点，谢谢Top