繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP.NET > Sendkeys 和 Sendmessage 使用技巧一例
- ASP.NET
- asp.net图片加水印
- Asp.Net中页面运行时动态载入的UserControl内元素的事
- ASP.NET底层架构探索之再谈.NET运行时(二)
- 借助封装类实现线程调用带参方法
- 面向对象设计思想（C#）
- asp.net URL重写（URLRewriter） 简化版
- GUID在.net里的使用，就用System.Guid结构
- 不要忽略c#中的using和as操作符
- C#中ref和out的使用小结
- C#的Web XML编程
- asp.net2.0下 如何实现服务器端压缩包自解压
- javascript如何调用C#后台代码中的过程 和ASP.NET调用
- 在ASP.NET中自动给URL加上超链接
- ASP.NET 中处理页面“回退”的方法
- ASP.NET的四种错误机制
- asp.net跳转页面的三种方法比较
- ASP.NET2.0中将GridView导出到Excel文件中
- ASP.NET 2.0中GridView无限层复杂表头的实现
- ASP.NET 2.0 中动态添加 GridView 模板列
- 十天学会ASP.net之第一天
ASP.NET 中的 Sendkeys 和 Sendmessage 使用技巧一例
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 57 ::
收藏到网摘: 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
