繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP.NET > Sendkeys 和 Sendmessage 使用技巧一例
- ASP.NET
- 自定义控件（支持模板）
- 自定义控件（模板+数据绑定）
- 自定义控件(可以动态加载用户控件)
- 在代码隐藏中遍历当前页的所有控件
- 关于C#调用Office Web Components绘图的问题
- 利用Visual C#打造一个平滑的进度条
- [VB] 防止程序运行多个实例
- Visual Studio.Net 快捷键表
- WinForm中ToolBar与TabControl的一些事件写法（C#）
- 【翻译】Managed DirectX（第六章）
- 利用.NET语言开发自己的脚本语言(一)
- 自动改变CheckBoxList选择项目的背景颜色
- vb.net中windows服务的创建
- BASE64编码规则及C#实现
- .net中判断该应用程序是否已经启动,防止重复启动
- XML Web Service 数据交换
- 开发花絮：一个DataList的ItemCommand事件意外
- Snake.Net中的ORM(二)
- ASP操作XML数据小结
- 可用来显示空值的时间选择控件4
ASP.NET 中的 Sendkeys 和 Sendmessage 使用技巧一例
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 69 ::
收藏到网摘: 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
