繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP.NET > Sendkeys 和 Sendmessage 使用技巧一例 选择自 northwolves 的 Blog
- ASP.NET
- 关于如何操作其他窗体的控件或变量的方法
- 一个简单的.net remoting客户端例子
- System.Runtime.Remoting.Activation.ActivationServices.CreateInstance()
- 单点登录—演示：passport.winspace.net
- WebSerivce研究笔记
- [新]可精确到1毫秒的用以在记录文件中写入自定义的调试信息（主要是时间）的组件
- vs.net 2005中文版下载地址收藏
- VS2005Beta2安装几点经验和体会
- 一个Web文件上传的C#源代码
- C#重点知识详解（一）
- 利用C#线程机制实现应用程序的单实例运行
- C#重点知识详解（二）
- c#重点知识详解（三）
- c#重点知识详解（四）
- c#重点知识解答（五）
- c#重点知识详解（六）
- 通过命令行方式使用NUnit进行UT
- 程序控制开始菜单的弹出 C#
- XSL、XML教程-DVBBS皮肤制作 最基本的语法
- MapX从数据库读取数据形成新图层（C#）
ASP.NET 中的 Sendkeys 和 Sendmessage 使用技巧一例 选择自 northwolves 的 Blog
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 116 ::
收藏到网摘: n/a
Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Function sqrx(ByVal x As Double) As String '计算平方根（比VB DOUBLE 类型精度高）
Dim temp As String, i As Long, j As Long
Shell "Calc.EXE", vbMinimizedNoFocus '运行计算器
temp = x & "y0.5="
For i = 1 To Len(temp)
SendKeys Mid(temp, i, 1), True '向计算器顺序发送按键消息X (X^Y) 0.5=
Next
temp = String(64, Chr(0))
i = FindWindow(vbNullString, "计算器") '窗口句柄
j = FindWindowEx(i, ByVal 0&, "Edit", vbNullString) '编辑框句柄
SendMessage j, &HD, Len(temp), ByVal temp '发送编辑框文本至temp
SendKeys "%{F4}", True '调用ALT+F4关闭计算器窗口
sqrx = temp
End Function
Private Sub Command1_Click()
Dim i As Integer
For i = 17 To 24
Debug.Print "sqrx(" & i & ")=" & sqrx(i)
Next
End Sub
返回：
sqrx(17)=4.1231056256176605498214098559741
sqrx(18)=4.2426406871192851464050661726291
sqrx(19)=4.3588989435406735522369819838596
sqrx(20)=4.4721359549995793928183473374626
sqrx(21)=4.582575694955840006588047193728
sqrx(22)=4.6904157598234295545656301135445
sqrx(23)=4.7958315233127195415974380641627 sqrx(24)=4.8989794855663561963945681494118"
评论 (0) All
