繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP.NET > Sendkeys 和 Sendmessage 使用技巧一例 选择自 northwolves 的 Blog
- ASP.NET
- asp.net neatUpload 支持大文件上传组件
- ASP.net 动态加载控件时一些问题的总结
- web用户控件调用.aspx页面里的方法
- asp.net 继承自Page实现统一页面验证与错误处理
- asp.net 文件下载实现代码
- asp.net ToString()格式设置大全
- .NET 水晶报表使用代码
- c# NameValueCollection类读取配置信息
- asp.net 不用组件的URL重写(适用于较大型项目)
- .aspx中的命名空间设置实现代码
- asp.net access web.config denied
- JAVA正则表达式 Pattern和Matcher
- asp.net 每天定点执行任务
- asp.net fileupload 实现上传
- asp.net slickupload 使用方法(文件上传)
- asp.net 从客户端中检测到有潜在危险的 Request.Form 值错误解
- 关于asp.net button按钮的OnClick和OnClientClick事件
- asp.net 权限管理分析
- c# table 控件用法
- asp.net repeater手写分页实例代码
ASP.NET 中的 Sendkeys 和 Sendmessage 使用技巧一例 选择自 northwolves 的 Blog
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 240 ::
收藏到网摘: 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
