繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP.NET > Sendkeys 和 Sendmessage 使用技巧一例 选择自 northwolves 的 Blog
- ASP.NET
- 从一个舆论调查的制作谈面向对象的编程思路（二）
- 从一个舆论调查的制作谈面向对象的编程思路（三）
- 从一个舆论调查的制作谈面向对象的编程思路（四）
- 从一个舆论调查的制作谈面向对象的编程思路（五）
- c#写的五子棋程序，供学习WinForms的鼠标事件和使用GDI+
- 我对.Net技术中asp.net应用的一点看法
- ASP.NET连SQL7接口源代码
- ASP.NET中密码保护，MD5和SHA1算法的使用
- 微软的远程处理框架.NET Remoting - 1
- 微软的远程处理框架.NET Remoting - 2
- 黑客写出了针对.Net平台的反编译器
- 在config.web中保存数据库连接串
- 在ASP.Net中两种利用CSS实现多界面的方法
- ASP.NET中如何调用存储过程
- ASP.NET中取代ASP的RS(Remote Scripting)技术的Framework
- 刚学ASP.Net，学了个简单的计算器
- ASP.NET 链接数据库基础
- 一个简单的加密/解密方法
- 加入身份验证信息的SMTP mail发送
- webconfig的设置节点说明
ASP.NET 中的 Sendkeys 和 Sendmessage 使用技巧一例 选择自 northwolves 的 Blog
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 120 ::
收藏到网摘: 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
