| « | August 2025 | » | | 日 | 一 | 二 | 三 | 四 | 五 | 六 | | | | | | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | | | | | | | |
|
公告 |
| 暂无公告... |
| Blog信息 |
|
blog名称:VFP及Sql Server拙笔
日志总数:46
评论数量:107
留言数量:0
访问次数:431722
建立时间:2005年5月12日 |
| |
|
 [VFP与SQL]WIN API-VFP获得其他程序多个输入框的内容(转)
文章收藏, 网上资源, 软件技术
老瓷 发表于 2009/8/28 23:21:25 |
| WIN API-VFP获得其他程序多个输入框的内容原文——十豆三*--------------------------------------先用SPY++得知其他程序（我测试的软件）的输入框类是Edit下面你启动测试的软件，在多个输入框中随意输入几个字符，然后用以下代码即可获得你在多个输入框中输入的字符。
Declare Integer FindWindow In user32 String lpClassName,String lpWindowNameDeclare Integer FindWindowEx In user32 Integer hwndParent,Integer hwndChildAfter,String @lpszClass,String @lpszWindowDeclare Integer SendMessage In user32 Integer,Integer,Integer,String @#Define WM_GETTEXT 0xDlcCaption="要查找窗口的Caption" &&要查找窗口的标题lnHandle=FindWindow(Null,lcCaption)If lnHandle>0 lnSendHwnd=0 Do While .T. lnSendHwnd=FindWindowEx(lnHandle,lnSendHwnd,"Edit",Null) &&获得输入框句柄 If lnSendHwnd<>0 lcTextValue=Space(255) SendMessage(lnSendHwnd,WM_GETTEXT,255,@lcTextValue) &&获取输入框内容 ?lcTextValue &&显示得到的输入框内容 Else Exit Endif EnddoElse Messagebox("没有找到 ["+lcCaption+"] 窗体！"+Space(5),48,"信息提示")Endif
本文来自CSDN博客，转载请标明出处：http://blog.csdn.net/apple_8180/archive/2009/04/07/4054601.aspx |
|
|