Sendkeys 和 Sendmessage 使用技巧一例

御雷剑

御雷剑

2016-01-29 13:20

Sendkeys 和 Sendmessage 使用技巧一例,Sendkeys 和 Sendmessage 使用技巧一例

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
展开更多 50%)
分享

猜你喜欢

Sendkeys 和 Sendmessage 使用技巧一例

电脑网络
Sendkeys 和 Sendmessage 使用技巧一例

Sendkeys 和 Sendmessage 使用技巧一例 选择自 northwolves 的 Blog

电脑网络
Sendkeys 和 Sendmessage 使用技巧一例 选择自 northwolves 的 Blog

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

INSERT语法使用技巧一例

SQLServer
INSERT语法使用技巧一例

使用VB建立WebServer一例

编程语言 网络编程
使用VB建立WebServer一例

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

实现FTP访问一例

Linux Linux命令 Linux安装 Linux编程 Linux桌面 Linux软件 Linux内核 Linux管理
实现FTP访问一例

smtp邮件发送一例

PHP
smtp邮件发送一例

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

Flash MX2004入门与进阶实例——元件和实例(6)

Flash MX2004入门与进阶实例——元件和实例(6)

PHP新手上路(十四) 其他杂项

PHP新手上路(十四) 其他杂项
下拉加载更多内容 ↓