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
分享到:
相关推荐
Delphi中SendMessage使用技巧.txt
该程序支持消息传递,控制外部其他软件和程序的测试使用,系统从网络上借了一段递归遍历窗口句柄的代码 经过测试PB完全支持WIN8下的开发,PB自带的send函数封装了API的sendmessage函数,因此在WIN8下因为提高了系统...
使用SendMessage实现进程之间的通信 使用SendMessage实现进程之间的通信 使用SendMessage实现进程之间的通信 使用SendMessage实现进程之间的通信
SendMessage函数完全使用手册,最全的介绍啦!
举了4个例子来理解如何使用MFC的消息,使用Visual Studio 6.0
SendMessage函数完全使用手册关于vb网络的编程基础知识winsock控件的使用,简单的聊天程序,局域网的网络编程
该程序包含两个部分,一个发送端,一个接收端,使用findwindow和sendmessage实现,代码简单,但是可参考性较强。
C# Winform中使用SendMessage消息发送拦截,WndProc消息处理拦截。小案例。
在C#中可以使用Window API提供的SendMessage和PostMessage来传递参数。两者的区别简单介绍下:返回值的不同,我们先看一下 MSDN 里的声明: LRESULT SendMessage( HWND hWnd, UINT Msg, WPARAM wParam, LPARAM ...
本文实例讲述了C#使用SendMessage实现进程间通信的方法。分享给大家供大家参考。具体分析如下: 为了深入理解消息机制,先来做一个测试项目 在新建项目的Form1的代码中,加入方法: protected override void ...
1.下面我要实现的功能: 1.VS2010 基于对话框的操作;...4.父窗口上有一个按钮用于弹出子窗口,子窗口也有一个按钮用来触发事件; 5.子窗口的按钮触发事件后,发送消息给父窗口,然后在处理函数中写你想要的功能。
sendmessage 文本框 消息参数
QT 中使用 Windows API----SendMessage() 进行窗体间消息传递,方便主窗体下的单独兄弟窗口类之间传递消息
ON_MESSAGE 使用方法, 一个线程工作函数中向窗口发送消息,SendMessage 使用方法.
SendMessage消息大全及说明 SendMessage消息大全及说明
c# sendmessage 回车
详细介绍了MFC中怎样使用sendmessage自定义消息函数
发送消息滚动编辑框中的内容,使用SendMessage函数滚动编辑框控件中的内容。@易语言学习论坛。
sendmessage vc sendmessage vc