您的位置：程序门 -> vb -> 基础类

怎么我的wm_keydown不起作用啊.急死了,找一上午资料也没找到.

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

怎么我的wm_keydown不起作用啊.急死了,找一上午资料也没找到.[已结贴,结贴人:majiming]

发表于：2007-07-12 10:03:39 楼主

我是新手,我的程序代码如下,怎么搞记事本里都没有被输入内容,到底咋回事啊.急死了

private declare function sendmessage lib "user32 " alias "sendmessagea " （byval hwnd as long, byval wmsg as long, byval wparam as long, lparam as any) as long

dim ahwnd as long ' 储存 findwindow 函数返回的句柄

private sub form_load（)
ahwnd = findwindow（vbnullstring, "记事本 ")
if ahwnd = 0 then
msgbox "程序没有运行! "
end
end if
timer1.interval = 1000
end sub

private sub timer1_timer（)
sendmessage ahwnd, wm_keydown, 98, 0
end sub

发表于：2007-07-12 10:52:151楼得分:20

ahwnd = findwindow（vbnullstring, "无标题 - 记事本 ")
ahwnd = findwindowex（ahwnd, 0, "edit ", " ")

下一篇：怎么运行其它程序？
上一篇：单片机修改ip地址后如何让当前显示的ip地址更新为刚刚修改后的ip地址？