很多次遇到这个问题 上百度问 有人回答 用户什么什么的 新建了好几个用户也不行。。
If Dir(\"alive\") <> \"\" And Dir(\"ideal\") <> \" Then Print \"strive\" End If
我不是说了么...这不是三言两语说得清楚的...
叫我去回答你这问题我一样要去查api的手册...
你这个问题...解决的的步骤是
1.向这个窗体发送一个消息
问:怎么样才能使这个窗体接收到这个消息.?
答:获得此窗体的句柄
问:怎么样才能获取窗体的句柄?
答:api函数
问:什么api函数?
答:查.....
问:怎么用?
答:查.....
1.向这个窗体发送一个消息
问:怎么样才能使这个窗体接收到这个消息.?
答:获得此窗体的句柄 这个我知道,如果不知道就不会提出这个函数的用法和使用。
问:怎么样才能获取窗体的句柄?
答:api函数 这个回答有点废,就是知道API函数,但不知道用法的具体格式。
问:什么api函数?
答:查..... 这个回答也是废的。如果查能解决一切我就不用这么辛苦天天在等啦。
问:怎么用?
答:查.....这个回答更是废上加废,而且答复的很肤浅。我不是要应付。
附:上面的图片就是 向活动窗口发送信息时 说权限什么的错误。
你这么有种...就把所有的api函数和它的参数和常量背下来...
就一个sendmessage函数的常量就有下面这么多(还不完整的),你给我记啊..
WM_NULL = 0
WM_CREATE = 1
'应用程序创建一个窗口
WM_DESTROY = 2
'一个窗口被销毁
WM_MOVE = 3
'移动一个窗口
WM_SIZE = 5
'改变一个窗口的大小
WM_ACTIVATE = 6
' 一个窗口被激活或失去激活状态;
WM_SETFOCUS = 7
' 获得焦点后
WM_KILLFOCUS = 8
' 失去焦点
WM_ENABLE = &HA
' 改变enable状态
WM_SETREDRAW = &HB
' 设置窗口是否能重画
WM_SETTEXT = &HC
' 应用程序发送此消息来设置一个窗口的文本
WM_GETTEXT = &HD
' 应用程序发送此消息来复制对应窗口的文本到缓冲区
WM_GETTEXTLENGTH = &HE
' 得到与一个窗口有关的文本的长度 (不包含空字符)
WM_PAINT = &HF
' 要求一个窗口重画自己
WM_CLOSE = 10
' 当一个窗口或应用程序要关闭时发送一个信号
WM_QUERYENDSESSION = 11
' 当用户选择结束对话框或程序自己调用ExitWindows函数
WM_QUIT = 12
' 用来结束程序运行或当程序调用postquitmessage函数
WM_QUERYOPEN = 13
' 当用户窗口恢复以前的大小位置时,把此消息发送给某个图标
WM_ERASEBKGND = 14
' 当窗口背景必须被擦除时 (例在窗口改变大小时)
WM_SYSCOLORCHANGE = 15
' 当系统颜色改变时,发送此消息给所有顶级窗口
WM_ENDSESSION = 16
' 当系统进程发出WM_QUERYENDSESSION消息后,此消息发送给应用程序,
'通知它对话是否结束
WM_SYSTEMERROR = 17
WM_SHOWWINDOW = 18
'当隐藏或显示窗口是发送此消息给这个窗口
WM_ACTIVATEAPP = &H1C
'发此消息给应用程序哪个窗口是激活的,哪个是非激活的;
WM_FONTCHANGE = &H1D
'当系统的字体资源库变化时发送此消息给所有顶级窗口
WM_TIMECHANGE = &H1E
'当系统的时间变化时发送此消息给所有顶级窗口
WM_CANCELMODE = &H1F
'发送此消息来取消某种正在进行的摸态 (操作)
WM_SETCURSOR = 20
'如果鼠标引起光标在某个窗口中移动且鼠标输入没有被捕获时,就发消息给某个窗口
WM_MOUSEACTIVATE = 21
'当光标在某个非激活的窗口中而用户正按着鼠标的某个键发送此消息给当前窗口
WM_CHILDACTIVATE = 22
'发送此消息给MDI子窗口当用户点击此窗口的标题栏,或当窗口被激活,移动,改变大小
WM_QUEUESYNC = 23
'此消息由基于计算机的训练程序发送,通过WH_JOURNALPALYBACK的hook程序
'分离出用户输入消息
WM_GETMINMAXINFO = 24
'此消息发送给窗口当它将要改变大小或位置;
WM_PAINTICON = 26
'发送给最小化窗口当它图标将要被重画
WM_ICONERASEBKGND = 27
'此消息发送给某个最小化窗口,仅当它在画图标前它的背景必须被重画
WM_NEXTDLGCTL = 28
'发送此消息给一个对话框程序去更改焦点位置
WM_SPOOLERSTATUS = &H2A
'每当打印管理列队增加或减少一条作业时发出此消息
WM_DRAWITEM = &H2B
'当button,combobox,listbox,menu的可视外观改变时发送
'此消息给这些空件的所有者
WM_MEASUREITEM = &H2C
'当button, combo box, list box, list view control, or menu item 被创建时
'发送此消息给控件的所有者
WM_DELETEITEM = &H2D
'当the list box 或 combo box 被销毁 或 当 某些项被删除通过LB_DELETESTRING, LB_RESETCONTENT, CB_DELETESTRING, or CB_RESETCONTENT 消息
WM_VKEYTOITEM = &H2E
'此消息有一个LBS_WANTKEYBOARDINPUT风格的发出给它的所有者来响应WM_KEYDOWN消息
WM_CHARTOITEM = &H2F
'此消息由一个LBS_WANTKEYBOARDINPUT风格的列表框发送给他的所有者来响应WM_CHAR消息
WM_SETFONT = 30
'当绘制文本时程序发送此消息得到控件要用的颜色
WM_GETFONT = 31
'应用程序发送此消息得到当前控件绘制文本的字体
WM_SETHOTKEY = 32
'应用程序发送此消息让一个窗口与一个热键相关连
WM_GETHOTKEY = 33
'应用程序发送此消息来判断热键与某个窗口是否有关联
WM_QUERYDRAGICON = 37
'此消息发送给最小化窗口,当此窗口将要被拖放而它的类中没有定义图标,应用程序能返回一个图标或光标的句柄,当用户拖放图标时系统显示这个图标或光标
WM_COMPAREITEM = &H39
'发送此消息来判定combobox或listbox新增加的项的相对位置
WM_GETOBJECT = &H3D
WM_COMPACTING = 41
'显示内存已经很少了
WM_WINDOWPOSCHANGING = 46
'发送此消息给那个窗口的大小和位置将要被改变时,来调用setwindowpos函数或其它窗口管理函数
WM_WINDOWPOSCHANGED = 47
'发送此消息给那个窗口的大小和位置已经被改变时,来调用setwindowpos函数或其它窗口管理函数
WM_POWER = 48 ';(适用于16位的windows)
'当系统将要进入暂停状态时发送此消息
WM_COPYDATA = &H4A
'当一个应用程序传递数据给另一个应用程序时发送此消息
WM_CANCELJOURNAL = &H4B
'当某个用户取消程序日志激活状态,提交此消息给程序
WM_NOTIFY = &H4E
'当某个控件的某个事件已经发生或这个控件需要得到一些信息时,发送此消息给它的父窗口
WM_INPUTLANGCHANGEREQUEST = 50
'当用户选择某种输入语言,或输入语言的热键改变
WM_INPUTLANGCHANGE = 51
'当平台现场已经被改变后发送此消息给受影响的最顶级窗口
WM_TCARD = 52
'当程序已经初始化windows帮助例程时发送此消息给应用程序
WM_HELP = 53
'此消息显示用户按下了F1,如果某个菜单是激活的,就发送此消息个此窗口关联的菜单,否则就
'发送给有焦点的窗口,如果当前都没有焦点,就把此消息发送给当前激活的窗口
WM_USERCHANGED = 54
'当用户已经登入或退出后发送此消息给所有的窗口,当用户登入或退出时系统更新用户的具体
'设置信息,在用户更新设置时系统马上发送此消息;
WM_NOTIFYFORMAT = 55
'公用控件,自定义控件和他们的父窗口通过此消息来判断控件是使用ANSI还是UNICODE结构
'在WM_NOTIFY消息,使用此控件能使某个控件与它的父控件之间进行相互通信
WM_CONTEXTMENU = &H7B
'当用户某个窗口中点击了一下右键就发送此消息给这个窗口
WM_STYLECHANGING = &H7C
'当调用SETWINDOWLONG函数将要改变一个或多个 窗口的风格时发送此消息给那个窗口
WM_STYLECHANGED = &H7D
'当调用SETWINDOWLONG函数一个或多个 窗口的风格后发送此消息给那个窗口
WM_DISPLAYCHANGE = &H7E
'当显示器的分辨率改变后发送此消息给所有的窗口
WM_GETICON = &H7F
'此消息发送给某个窗口来返回与某个窗口有关连的大图标或小图标的句柄;
WM_SETICON = 80
'程序发送此消息让一个新的大图标或小图标与某个窗口关联;
WM_NCCREATE = 81
'当某个窗口第一次被创建时,此消息在WM_CREATE消息发送前发送;
WM_NCDESTROY = 82
'此消息通知某个窗口,非客户区正在销毁
WM_NCCALCSIZE = 83
'当某个窗口的客户区域必须被核算时发送此消息
WM_NCHITTEST = 84 ';//移动鼠标,按住或释放鼠标时发生
WM_NCPAINT = 85
'程序发送此消息给某个窗口当它(窗口)的框架必须被绘制时;
WM_NCACTIVATE = 86
'此消息发送给某个窗口 仅当它的非客户区需要被改变来显示是激活还是非激活状态;
WM_GETDLGCODE = 87
'发送此消息给某个与对话框程序关联的控件,widdows控制方位键和TAB键使输入进入此控件
'通过响应WM_GETDLGCODE消息,应用程序可以把他当成一个特殊的输入控件并能处理它
WM_NCMOUSEMOVE = &HA0
'当光标在一个窗口的非客户区内移动时发送此消息给这个窗口 //非客户区为:窗体的标题栏及窗
' 的边框体
WM_NCLBUTTONDOWN = &HA1
'当光标在一个窗口的非客户区同时按下鼠标左键时提交此消息
WM_NCLBUTTONUP = &HA2
'当用户释放鼠标左键同时光标某个窗口在非客户区十发送此消息;
WM_NCLBUTTONDBLCLK = &HA3
'当用户双击鼠标左键同时光标某个窗口在非客户区十发送此消息
WM_NCRBUTTONDOWN = &HA4
'当用户按下鼠标右键同时光标又在窗口的非客户区时发送此消息
WM_NCRBUTTONUP = &HA5
'当用户释放鼠标右键同时光标又在窗口的非客户区时发送此消息
WM_NCRBUTTONDBLCLK = &HA6
'当用户双击鼠标右键同时光标某个窗口在非客户区十发送此消息
WM_NCMBUTTONDOWN = &HA7
'当用户按下鼠标中键同时光标又在窗口的非客户区时发送此消息
WM_NCMBUTTONUP = &HA8
'当用户释放鼠标中键同时光标又在窗口的非客户区时发送此消息
WM_NCMBUTTONDBLCLK = &HA9
'当用户双击鼠标中键同时光标又在窗口的非客户区时发送此消息
WM_KEYFIRST = 100
WM_KEYDOWN = 100
'//按下一个键
WM_KEYUP = 101
'//释放一个键
WM_CHAR = 102
' //按下某键,并已发出WM_KEYDOWN, WM_KEYUP消息
WM_DEADCHAR = 103
' 当用translatemessage函数翻译WM_KEYUP消息时发送此消息给拥有焦点的窗口
WM_SYSKEYDOWN = 104
' 当用户按住ALT键同时按下其它键时提交此消息给拥有焦点的窗口;
WM_SYSKEYUP = 105
' 当用户释放一个键同时ALT 键还按着时提交此消息给拥有焦点的窗口
WM_SYSCHAR = 106
' 当WM_SYSKEYDOWN消息被TRANSLATEMESSAGE函数翻译后提交此消息给拥有焦点的窗口
WM_SYSDEADCHAR = 107
'当WM_SYSKEYDOWN消息被TRANSLATEMESSAGE函数翻译后发送此消息给拥有焦点的窗口
WM_KEYLAST = 108
WM_INITDIALOG = 110
'在一个对话框程序被显示前发送此消息给它,通常用此消息初始化控件和执行其它任务
WM_COMMAND = 111
'当用户选择一条菜单命令项或当某个控件发送一条消息给它的父窗口,一个快捷键被翻译
WM_SYSCOMMAND = 112
' 当用户选择窗口菜单的一条命令或当用户选择最大化或最小化时那个窗口会收到此消息
WM_TIMER = 113 ' //发生了定时器事件
WM_HSCROLL = 114
'当一个窗口标准水平滚动条产生一个滚动事件时发送此消息给那个窗口,也发送给拥有它的控件
WM_VSCROLL = 115
'当一个窗口标准垂直滚动条产生一个滚动事件时发送此消息给那个窗口也,发送给拥有它的控件 WM_INITMENU = $0116;
'当一个菜单将要被激活时发送此消息,它发生在用户菜单条中的某项或按下某个菜单键,它允许程序在显示前更改菜单
WM_INITMENUPOPUP = 117
'当一个下拉菜单或子菜单将要被激活时发送此消息,它允许程序在它显示前更改菜单,而不要改变全部
WM_MENUSELECT = &H11F
'当用户选择一条菜单项时发送此消息给菜单的所有者 (一般是窗口)
WM_MENUCHAR = 120
'当菜单已被激活用户按下了某个键(不同于加速键),发送此消息给菜单的所有者;
WM_ENTERIDLE = 121
'当一个模态对话框或菜单进入空载状态时发送此消息给它的所有者,一个模态对话框或菜单进入空载状态就是在处理完一条或几条先前的消息后没有消息它的列队中等待
WM_MENURBUTTONUP = 122
WM_MENUDRAG = 123
WM_MENUGETOBJECT = 124
好的 我就给你写个例子吧
问题描述:向指定标题的窗口“消息接收窗体”发送按键被按下的信息WM_KEYDOWN(发送A键)
(为了让你理解,我们写两个程序,一个用于接收按键信息(A),另一个程序向前面的窗口发送
WM_KEYDOWN信息。)
'第一个程序 (相当于你所说得“泡泡糖”窗体)
’只需要一个窗体就可以了。将form1的caption设置为"消息接收窗体",并在form_Keydown事件处理过
程中写如下代码用于判断消息是否被成功接收到。
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyA Then
MsgBox "成功接受到消息A被按下了!", 0, "报告"
End If
End Sub
'第二个程序(用于向其它窗体发送消息,这里当我们点击command1按钮时向窗体名称为“消息接收窗体
”的窗体发送指定消息)
‘程序流程如下:
1 首先我们要获取标题为“消息接收窗体”的窗体的句柄,以便后面我们向该窗体发送消息。我们是
用Findwindow函数,下面介绍一个这个函数
函数名称:Findwindow
函数功能:用于在当前运行的应用程序窗口中查找和给定字符串匹配的窗口,并返回该窗口句柄
函数声明:略(自己查)
参数说明:IpclassName 指定一个类名字符串,在我们的程序中我们将它设置为"VBNullString"
IpwindowName 制定一个窗体标题,在我们的程序中我们将它设置为“消息接收窗体”
返回值: 如果找到符合条件的窗体则返回该窗体的句柄,如果没有找到返回VBNullString
2 向前面获取的句柄发送消息,使用SendMessage 函数,下面介绍一下这个函数
函数名称:SendMessage
函数功能:向指定窗体发送消息
函数声明:略(自己查)
参数说明:Hwnd 接收对象的句柄 ,在我们的程序中,它对应于上面我们所得到的窗体句柄
WMsg 指定所发送的消息,我们要向窗体发送按键信息,因此这里我们为WM_KEYDOWN
Wparam 指定附加信息,这个参数与消息类型有关。这里为A对应的虚拟键码
Lparam (同上) 这里我们设为1
代码如下:
'函数声明:
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long)
'常量声明:
Private Const WM_KEYDOWN = &H100
Private Sub Command1_Click()
Dim findhwnd As Long
findhwnd = FindWindow(vbNullString, "消息接收窗体")
If findhwnd = vbNullString Then
MsgBox "接受消息窗体没有运行", 0, "报告"
Exit Sub
End If
SendMessage findhwnd, WM_KEYDOWN, 65, 1&
End Sub
到这里这个程序已经完成了,至于要实现你自己的功能 只需要做一点些改就行了
附 (程序)
[此贴子已经被作者于2007-4-20 11:41:58编辑过]
[此贴子已经被作者于2007-4-20 14:58:05编辑过]