如何通过句柄获取外部程序的窗口的内容

如何通过句柄获取外部程序的窗口的内容

Option Explicit'常数申明Public Const LVM_FIRST As Long = &H1000Public Const LVM_GETHEADER As Long = LVM_FIRST + 31Public Const

LVM_GETITEMCOUNT As Long = LVM_FIRST + 4Public Const LVM_GETITEMTEXT As Long = LVM_FIRST +

45Public Const HDM_FIRST As Long =

&H1200Public Const HDM_GETITEMCOUNT As Long = (HDM_FIRST + 0)Public Const

PROCESS_VM_OPERATION As Long = &H8Public Const PROCESS_VM_READ As Long = &H10Public Const PROCESS_VM_WRITE As Long = &H20Public Const MAX_LVMSTRING As Long = 255Public Const MEM_COMMIT As Long = &H1000Public Const MEM_RELEASE As Long = &H8000&Public Const PAGE_READWRITE As Long = &H4Public Const LVIF_TEXT As Long = &H1'类型申明Public Type LV_ITEMA mask As Long iItem

As Long iSubItem As Long State As Long stateMask As Long pszText As Long cchTextMax As LongEnd Type'API申明Public

Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcId As Long) As Long '打开进程Public Declare Function VirtualAllocEx Lib "kernel32" (ByVal hProcess As Long, ByVal lpAddress As Long, ByVal dwSize As Long, ByVal flAllocationType As Long, _

ByVal flProtect As Long) As Long '获取内存空间Public Declare Function VirtualFreeEx Lib "kernel32" (ByVal hProcess As Long, ByVal lpAddress As Long, ByVal dwSize As Long, ByVal dwFreeType As Long) As Long '释放内存空间Public Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Long, ByRef lpBuffer As LV_ITEMA, ByVal nSize As Long, _

lpNumberOfBytesWritten As Long) As Long '向内存写数据Public Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Long, ByRef lpBuffer As Any, ByVal nSize As Long, _

lpNumberOfBytesWritten As Long) As Long '向内存读数据Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As

Long, ByVal wParam As Long, ByRef lParam As Any) As Long '发送消息Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long '关闭进程Public Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long '获得进程IDPublic Function GetListViewTextArray(ByVal hWindow As Long) As String() Dim myItem() As LV_ITEMA Dim PHandle

As Long Dim ProcessId As Long Dim PStrBufferMemory As Long Dim PMyItemMemory

As Long Dim StrBuffer(MAX_LVMSTRING) As Byte

Dim TmpString As String Dim Ih As Long, J As Long, HCount As Long Dim StrArr() As String, ItemString As String Dim Ji As Long, MyItemLength() As Long GetWindowThreadProcessId hWindow, ProcessId HCount = SendMessage(hWindow, LVM_GETHEADER, 0, 0) '获取列数If HCount > 0 Then HCount = SendMessage(HCount, HDM_GETITEMCOUNT, 0, 0) - 1 Else 'NOT HCOUNT... HCount = 0 End If PHandle = OpenProcess(PROCESS_VM_OPERATION Or PROCESS_VM_READ Or PROCESS_VM_WRITE, 0, ProcessId) ReDim myItem(HCount) ReDim

MyItemLength(HCount) PStrBufferMemory = VirtualAllocEx(PHandle, 0, MAX_LVMSTRING,

MEM_COMMIT, PAGE_READWRITE)

PMyItemMemory = VirtualAllocEx(PHandle, 0,

MAX_LVMSTRING, MEM_COMMIT, PAGE_READWRITE) Ji = SendMessage(hWindow, LVM_GETITEMCOUNT, 0, 0) - 1 On Error GoTo err1 ReDim StrArr(Ji)

For Ih = 0 To HCount myItem(Ih).mask =

LVIF_TEXT myItem(Ih).iSubItem = Ih

myItem(Ih).pszText = PStrBufferMemory

myItem(Ih).cchTextMax = MAX_LVMSTRING MyItemLength(Ih) = Len(myItem(Ih)) Next Ih

For J = 0 To Ji ItemString = "" For Ih = 0 To HCount WriteProcessMemory PHandle, PMyItemMemory, myItem(Ih), MyItemLength(Ih), 0

If SendMessage(hWindow, LVM_GETITEMTEXT, J, ByVal PMyItemMemory) > 0 Then

ReadProcessMemory PHandle, PStrBufferMemory, StrBuffer(0), MAX_LVMSTRING, 0

TmpString = StrConv(StrBuffer, vbUnicode)

TmpString = Left(TmpString, InStr(TmpString, vbNullChar) - 1) ItemString = ItemString &

TmpString & Chr(9) ' Chr$(32) End If Next Ih If ItemString <> "" Then

StrArr(J) = Left(ItemString, Len(ItemString) - 1)

End If Next J VirtualFreeEx PHandle, PMyItemMemory, 0, MEM_RELEASE VirtualFreeEx PHandle, PStrBufferMemory, 0, MEM_RELEASE CloseHandle (PHandle) ItemString = "" GetListViewTextArray = StrArr Exit Functionerr1: MsgBox "不是Listview类吧？", vbInformationEnd Function

数控车床由浅入深的宏程序实例

宏程序 裳华职业技术中专鲍新涛 宏程序概述 其实说起来宏就是用公式来加工零件的，比如说,如果没有宏的话，我们要逐点算出上的点，然后慢慢来用直线逼近，如果是个光洁度要求很高的工件的话，那么需要计算很多的点，可是应用了宏后，我们把椭圆公式输入到系统中然后我们给出Z坐标并且每次加10um那么宏就会自动算出X坐标并且进行切削，实际上宏在程序中主要起到的是运算作用。.宏一般分为A类宏和B类宏。 A类宏是以G65 Hxx P#xx Q#xx R#xx的格式输入的，而B类宏程序 则是以直接的公式和语言输入的和C语言很相似在0i系统中应用比较广。 宏程序的作用 数控系统为用户配备了强有力的类似于高级语言的宏程序功能，用户可以使用变量进行算术运算、逻辑运算和函数的混合运算，此外宏程序还提供了循环语句、分支语句和子程序调用语句，利于编制各种复杂的零件加工程序，减少乃至免除手工编程时进行繁琐的数值计算，以及精简程序量。 宏程序指令适合抛物线、椭圆、双曲线等没有插补指令的曲线编程；适合图形一样，只是尺寸不同的系列零件的编程；适合工艺路径一样，只是位置参数不同的系列零件的编程。较大地简化编程；扩展应用范围。 宏的分类 B类宏 由于现在B类宏程序的大量使用,很多书都进行了介绍这里我就不再重复了,但在一些老系统中,比如（FANUC）OTD系统中由于它的MDI键盘上没有公式符号,连最简单的等于号都没有,为此如果应用B类宏程序的话就只能在计算机上编好

再通过RSN-32接口传输的数控系统中,可是如果我们没有PC机和RSN-32电缆的话怎么办呢,那么只有通过A类宏程序来进行宏程序编制了,下面我介绍一下A 类宏的引用; A类宏 A类宏是用G65 Hxx P#xx Q#xx R#xx或G65 Hxx P#xx Qxx Rxx格式输入的,xx 的意思就是数值,是以um级的量输入的,比如你输入100那就是0.1MM.#xx就是号,变量号就是把数值代入到一个固定的地址中,固定的地址就是变量,一般OTD 系统中有#0~#100~#149~#500~#531.关闭电源时变量#100~#149被初始化成“空”，而变量#500~#531保持数据.我们如果说#100=30那么现在#100地址内的数据就是30了,就是这么简单.好现在我来说一下H代码,大家可以看到A类宏的标准格式中#xx和xx都是数值,而G65表示使用A类宏,那么这个H就是要表示各个数值和变量号内的数值或者各个变量号内的数值与其他变量号内的数值之间要进行一个什么运算,可以说你了解了H代码A类宏程序你基本就可以应用了,好,现在说一下H代码的各个含义: 应用 以下都以#100和#101和#102,及数值10和20做为例子,应用的时候别把他们当格式就行, 基本指令 H01赋值;格式:G65H01P#101Q#102:把#102内的数值赋予到#101中 G65H01P#101Q#10:把#10赋予到#101中 H02加指令;格式G65 H02 P#101 Q#102 R#103,把#102的数值加上#103的数值赋予#101

C#中使用FindWindow函数详解 从标题获取句柄

C#中使用FindWindow函数详解从标题获取句柄 FindWindow用来根据类名和窗口名来得到窗口句柄的。但是这个函数 不能查找子窗口，也不区分大小写。 如果要从一个窗口的子窗口中查找需要使用FindWindowEX。 1.在C#中使用方法如下： [DllImport("User32.dll", EntryPoint = "FindWindow")] private static extern IntPtrFindWindow(string lpClassName,stringlpWindowName); [DllImport("User32.dll", EntryPoint = "FindWindowEx")] private static extern IntPtrFindWindowEx(IntPtrhwndParent, IntPtrhwndChildAfter, string lpClassName, string lpWindowName); [DllImport("User32.dll", EntryPoint = "FindWindow")] private static extern IntPtrFindWindow(string lpClassName,stringlpWindowName); [DllImport("User32.dll", EntryPoint = "FindWindowEx")] private static extern IntPtrFindWindowEx(IntPtrhwndParent, IntPtrhwndChildAfter, string lpClassName, string lpWindowName); 2. 实例参考： IntPtrhWnd = FindWindow(null, "test Demo"); 这样会查找所有title是"test Demo"的窗口。 参考下面的资料解释 3. FindWindow参数详解： Parameters

VCMFC编程各种窗口句柄获取函数详解

AfxGetMainWnd AfxGetMainWnd获取自身窗口句柄 HWND hWnd = AfxGetMainWnd()->m_hWnd; GetTopWindow 函数功能：该函数检查与特定父窗口相联的子窗口z序（Z序：垂直屏幕的方向，即叠放次序），并返回在z序顶部的子窗口的句柄。 函数原型：HWND GetTopWindow（HWND hWnd）； 参数： hWnd:被查序的父窗口的句柄。如果该参数为NULL，函数返回Z序顶部的窗口句柄。返回值： 如果函数成功，返回值为在Z序顶部的子窗口句柄。如果指定的窗口无子窗口，返回值为NULL。 GetForegroundWindow 函数功能：该函数返回当前系统的前台窗口的窗口句柄。 函数原型：HWND GetForegroundWindow（VOID） 返回值：函数返回前台窗回的句柄。 GetActiveWindow 函数功能：该函数可以获得与调用该方法的线程的消息队列相关的活动窗口的窗口句柄（就是取得当前进程的活动窗口的窗口句柄）。 函数原型：HWND GetActiveWindow（VOID） 返回值：返回值是与调用线程的消息队列相关的活动窗口的句柄。否则，返回值为NULL。 GetSafeHwnd 函数功能：获取某个窗口对象（CWnd的派生对象）指针的句柄（HWND）时，最安全的方法是使用GetSafeHwnd()函数。 通过下面的例子来看其理由： CWnd *pwnd = FindWindow(“ExploreWClass”,NULL); //希望找到资源管理器 HWND hwnd = pwnd->m_hwnd; //得到它的HWND 这样的代码当开始得到的pwnd为空的时候就会出现一个“General protection error”,并关闭应用程序，因为一般不能对一个NULL指针访问其成员，如果用下面的代码：CWnd *pwnd = FindWindow(“ExploreWClass”,NULL); //希望找到资源管理器 HWND hwnd = pwnd->GetSafeHwnd(); //得到它的HWND 就不会出现问题，因为尽管当pwnd是NULL时，GetSafeHwnd仍然可以用，只是返回NULL IsWindowVisible 函数功能：该函数获得给定窗口的可视状态。 函数原型：BOOL IsWindowVisible（HWND hWnd）； 参数； hWnd：被测试窗口的句柄。 返回值：

数控铣宏程序实例(DOC)

数控铣宏程序实例(DOC)

数控铣宏程序实例 §4.1 椭圆加工（编程思路:以一小段直线代替曲线）例1：整椭圆轨迹线加工（假定加工深度为2mm) 方法一:已知椭圆的参数方X=acosθ Y=bsinθ变量数学表达式 设定θ= #1（0°～ 360°） 那么 X= #2 = acos［#1］ Y= #3= bsin［#1］ 程序 O0001; S1000 M03; G90 G54 G00 Z100; G00 Xa Y0; G00 Z3; G01 Z-2 F100; #1=0; N1 #2=a*cos［#1］； #3=b*sin［#1］； G01 X#2 Y#3 F300; #1=#1+1; IF［#1LE360］GOT01； GOO Z50； M30；

例2：斜椭圆且椭心不在原点的轨迹线加工（假设加工深度为2mm） 椭圆心不在原点的参数方程 X=a*CＯS［#1］+ M Y=b*SIN［#1］+ N 变量数学表达式 设定θ=#1; (0°～360°) 那么X=#2=a*CＯS［#1］+ M Y=#3=b*SIN［#1］+ N 因为此椭圆绕（M ,N）旋转角度为A 可运用坐标旋转指令G68 格式 G68 X - Y - R - X,Y：旋转中心坐标; R: 旋转角度 程序 Ｏ0002; S1000 M03; G90 G54 G00 Z100; GOO Xa+M YN; GOO Z3; G68 XM YN R45; #1=0; N99 #2=a*COS［#1］+M; #3=b*SIN［#1］+N; GO1 X#2 Y#3 F300; G01 Z-2 F100; #1=#1+1; IF［#1LE360］GOTO99; G69 ； GOO Z100; M30;

获取当前鼠标所在的窗口句柄

用到的API函数： GetCursorPos 基本信息 函数功能：该函数检取光标的位置，以屏幕坐标表示。 函数原型：BOOL GetCursorPos（LPPOINT lpPoint）； 参数： IpPoint：POINT结构指针，该结构接收光标的屏幕坐标。 使用时要先定义一个数据结构： Public Type POINTAPI x As Long y As Long End Type 例如： dim biao as POINTAPI GetCursorPos biao 那么biao.x用来存放当前光标的x轴坐标,biao.y用来存放当前y轴的坐标。 返回值：如果成功，返回值非零；如果失败，返回值为零。若想获得更多错误信息，请调用GetLastError函数。 备注： 1.光标的位置通常以屏幕坐标的形式给出，它并不受包含该光标的窗口的映射模式的影响。该调用过程必须具有对窗口站的WINSTA_READATTRIBUTES访问权限。 2.此函数为api函数，调用时要函数声明：Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long 速查：Windows NT：3.1及以上版本：Windows：95及以上版本；Windows CE：不支持；头文件：winuser.h；库文件：user32.lib。 WindowFromPoint 函数功能：该函数获得包含指定点的窗口的句柄。 函数原型：HWND WindowFromPoint（POINT Point）； 参数：

Point：指定一个被检测的点的POINT结构。 返回值S：返回值为包含该点的窗口的句柄。如果包含指定点的窗口不存在，返回值为NULL。如果该点在静态文本控件之上，返回值是在该静态文本控件的下面的窗口的句柄。 备注：WindowFromPoint函数不获取隐藏或禁止的窗口句柄，即使点在该窗口内。应用程序应该使用ChildWindowFromPoint函数进行无限制查询，这样就可以获得静态文本控件的句柄。 速查：Windows NT：3.1以上版本：Windows：95以上版本；Windows CE：1.0以上版本：头文件：Winuser.h；库文件：user32.lib。 获取当前鼠标所在的窗口句柄代码： POINT pNow = {0,0}; If (GetCursorPos(&pNow)) { HWND hwndPointNow = NULL; hwndPointNow = WindowFromPoint(pNow); if (hwndPointNow) cout <<“Success!!”<< endl; else cout <<“Error!!”<< endl; } else cout <<“Error!!”<< endl;

新代宏程序实例

新代宏程序实例文件编码（GHTU-UITID-GGBKT-POIU-WUUI-8968）

1、R E P E A T直到型循环REPEAT <循环体> UNTIL <条件表达式> END_REPEAT； 说明：REPEAT直到型循环控制，先执行循环体，后判断条件表达式，当条件满足时退出循环。 例如： % @MACRO ，为了;?倾向于;?关于;?当作; conj.因为，由于;? FOR <循环变量> ：= <表达式1> TO <表达式2> [ BY <表达式3>] DO <循环体> END_FOR; 说明：FOR循环控制，式中各参数意义如下 循环变量——控制循环次数的变量； 表达式1——循环计数的起始值，可为整数或表达式； 表达式2——循环计数的终止值，可为整数或表达式； 表达式3——循环计数每次的累加值，可为整数或表达式； 循环体——循环每次执行内容； FOR循环执行过程为：先给循环变量赋起始值，然后判断循环变量是否为终止值，当循环变量已为终止值时退出循环，否则执行循环体，再对循环变量加上每次累加值， 4、无条件转移

GOTO转移语句 语法： GOTO n; 说明：无条件地跳到指定的n行号执行，其中n可为整数或表达式。GOTO常和IF语句搭配使用，那就是说当程序检查到某个条件满足时用GOTO语句去进一步处理，但应尽量少用该语句以提高程序可读性。 范例： % @MACRO Ｚ10.; … N100 G01 X30. Ｚ30.; … M02; EXIT循环中断语句 语法：EXIT; 说明：循环中断，跳离循环控制；用在循环控制中，通常EXIT都和IF 语句搭配使用，当某个条件满足后就跳离循环。请参考WHILE范例。

用进程名获取进程ID取窗口句柄

以前用输入法注入的时候需要用到的代码，写的还不错，分享一下吧，顺便当个备用 view source print? 01 //根据进程名获取进程ID 02 DWORD GetPidByProcessName(TCHAR * pProcess) 03 { 04 HANDLE hSnapshot; 05 PROCESSENTRY32 lppe; 06 //创建系统快照 07 hSnapshot = ::CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, NULL); //#include 08 if (hSnapshot == NULL) 09 return 0; 10 //初始化 lppe 的大小 11 lppe.dwSize = sizeof (lppe); 12 //查找第一个进程 13 if (!::Process32First(hSnapshot, &lppe)) 14 return false ; 15 do

16 { 17 if(StrCmp(lppe.szExeFile, pProcess) == 0)//#include 18 { 19 return lppe.th32ProcessID; 20 } 21 } 22 while (::Process32Next(hSnapshot, &lppe)); //查找下一个进程 23 24 return 1; 25 } 26 27 //根据进程ID获取窗口句 柄 28 HWND GetHwndByPid(DWORD dwProcessID) 29 { 30 //返回Z序顶部的窗口句 柄 31 HWND hWnd = ::GetTopWindow(0); 32 while ( hWnd ) 33 { 34 DWORD pid = 0;

大漠插件后台找图、自动获取坐标窗口句柄鼠标多点左单击脚本

大漠插件后台找图、自动获取坐标窗口句柄鼠标多点左单击 脚本 一、准备工作 第一步：下载大漠插件、解压，运行“注册大漠插件到系统.bat”，把全部东东都复制到按键精灵的plugin目录下吧~ 第二步：创建一个文件夹，以d:\test 为例。把你要找的图(60.bmp)、大漠插件里的dm.dll 和RegDll.dll复制到这个文件夹。 第三步：打开按键精灵，创建一个新脚本。往附件(在软件左边框选项)里面添加dm.dll、Reg.dll和图60.bmp 二、复制以下代码到按键精灵 dim ys1,ys2,ys3,a,b,zbx,zby//自定义变量 ys1=9000//1和2点延时 ys1=9000//2和3点延时 ys1=9000//3和1点延时 a=15//纵向下移15单位 b=-15//纵向上移15单位 zbx=100//获取窗口句柄给定的坐标x zby=100//获取窗口句柄给定的坐标y PutAttachment "d:\test", "*.*" //意思是释放所有附件到d:\test目录。就是把有用的文件打包到test目录下 PutAttachment ".\Plugin", "RegDll.dll" //意思是释放RegDll.dll文件到按键精灵安装目录的Plugin目录下，用来完成大漠插件的注册 Call Plugin.RegDll.Reg("d:\test\dm.dll") //调用大漠插件，在按键精灵中使用 Set dm = createobject("dm.dmsoft") //用大漠插件创建一个对象dm dm_ret = dm.SetPath("d:\test") // 设置全局路径，以后你找图用的图片都默认是test目录里的图片了，否则你要用绝对路径d:\test\1.bmp来该表示图片 dm_ret = dm.LoadPic("*.bmp") // 字面意思是加载test目录下的所有图片 Hwnd = dm.GetPointWindow(zbx,zby)//用大漠软件获取给定坐标(zbx,zby)的窗口句柄,保存在Hwnd里 Call Plugin.Window.Move(Hwnd, 0, 0) // 把窗口移到屏幕的(0，0)，即左上角 dm_ret = dm.BindWindow(Hwnd,"gdi","windows","windows",0) //这句用来绑定辅助操作的对象窗口 //下面是一条判断语句，如果绑定失败就会提示。那就从前面几几步中找原因吧 Delay 10 If dm_ret = 1 Then Else MessageBox "绑定失败，重启脚本或联系作者" EndScript

EXCEL宏编程实例.doc

Excel 宏编程举例说明 学习宏编程，需要VB基础，如果一点VB基础和面向对象的概念，建议先去补补VB，不然即使自认为学好了也只能拿着高射炮打蚊子！ 一)、宏学习 首先需要明确的是，本文不可能教会您关于宏的所有内容。您需要学会利用"录制宏"的方法来学习宏：点击Excel"工具"下拉菜单中"宏"下?quot;录制新宏"，此后可象平时一样进行有关操作，待完成后停止录制。然后再点击"工具"下拉菜单中"宏"下"宏"的"编辑"选项即可打开刚才所录制的宏的Visual Basic源程序，并且可以在此时的"帮助"下拉菜单中获得有关的编程帮助。对录制宏进行修改不仅可以学习宏的使用，还能大大简化宏的编写。 二)、基本概念 为了学习Excel中的宏，我们需要先了解以下一些基本概念。 1、工作簿：Workbooks、Workbook、ActiveWorkbook、ThisWorkbook Workbooks集合包含Excel中所有当前打开的Excel工作簿，亦即所有打开的Excel文件；Workbook对应Workbooks中的成员，即其中的Excel文件；ActiveWorkbook代表当前处于活动状态的工作簿，即当前显示的Excel文件；ThisWorkbook代表其中有Visual Basic代码正在运行的工作簿。 在具体使用中可用Workbooks(index)来引用Workbook对象，其中index为工作簿名称或编号；如Workbooks(1)、Workbooks("年度报表.xls")。而编号按照创建或打开工作簿的顺序来确定，第一个打开的工作簿编号为1，第二个打开的工作簿为2……。 2、工作表：Worksheets、Worksheet、ActiveSheet Worksheets集合包含工作簿中所有的工作表，即一个Excel文件中的所有数据表页；而Worksheet则代表其中的一个工作表；ActiveSheet代表当前处于的活动状态工作表，即当前显示的一个工作表。 可用Worksheets(index)来引用Worksheet对象，其中index为工作表名称或索引号；如Worksheets(1)、Worksheets("第一季度数据")。工作表索引号表明该工作表在工作表标签中的位置：第一个（最左边的）工作表的索引号为1，最后一个（最右边的）为Worksheets.Count。需要注意的是：在使用过程中Excel会自动重排工作表索引号，保持按照其在工作表标签中的从左至右排列，工作表的索引号递增。因此，由于可能进行的工作表添加或删除，工作表索引号不一定始终保持不变。3、图表：Chart 、Charts、ChartObject、ChartObjects、ActiveChart Chart代表工作簿中的图表。该图表既可为嵌入式图表（包含在ChartObject中），也可为一个分开的（单独的）图表工作表。 Charts代表指定工作簿或活动工作簿中所有图表工作表的集合，但不包括嵌入式在工作表或对话框编辑表中的图表。使用Charts(index) 可引用单个Chart图表，其中index是该图表工作表的索引号或名称；如Charts(1)、Charts("销售图表")。图表工作表的索引号表示图表工作表在工作簿的工作表标签栏上的位置。Charts(1)是工作簿中第一个（最左边的）图表工作表；Charts(Charts.Count)为最后一个（最右边的）图表工作表。 ChartObject代表工作表中的嵌入式图表，其作用是作为Chart对象的容器。利用ChartObject 可以控制工作表上嵌入式图表的外观和尺寸。 ChartObjects代表指定的图表工作表、对话框编辑表或工作表上所有嵌入式图表的集合。可由ChartObjects(index)引用单个ChartObject，其中index为嵌入式图表的编号或名称。如

数控宏程序实例

第7章宏程序 7.3 宏程序调用 7.3.1 宏程序调用指令（G65） 在主程序中可以用G65调用宏程序。指令格式如下： G65 P L 〈自变量赋值〉； 其中：P指定宏程序号：L为重复调用次数（1—9999）；自变量赋值是由地址和数值构成的，用以对宏程序中的局部变量赋值。 例如： 主程序： O7002 ... G65 P7100 L2 A1.0 B2.0 ... M30 宏程序： #3=#1+#2； IF [#3 GT 360] GOTO 9； G00 G91 X#3 N9 M99

7.3.2 自变量赋值 自变量赋值有两种类型。自变量I使用除去G，L，N，O，P以外的其他字母作为地址，自变量II可以使用A，B，C每个字母一次，I，J，K每个字母可使用十次作为地址。表7—3和7—4分别为两种类型自变量赋值的地址和变量号码之间的对应关系： 表7—3 自变量赋值的地址和变量号码之间的对应关系 表7—4 自变量II的地址与变量号码之间的对应关系

上表中的I，J，K的下标只表示顺序，并不写在实际命令中。在G65的程序段中，可以同时使用表4—1及表4—2中的两组自变量赋予值。系统可以根据使用的字母自动判断自变量赋值的类型。 7.4 变量的控制和运算指令 7.4.1 算术运算和逻辑运算 在变量之间，变量和常量之间，可以进行各种运算，常用的见表7—5。

表7—5 算术和逻辑运算 运算的优先顺序如下： 1）函数。 2）乘除，逻辑与。 3）加减，逻辑或，逻辑异或。 可以用[ ]来改变顺序

7.4.2 控制指令 1.无条件转移（GOTO语句） 语句格式为： GOTO n 其中n为顺序号（1—9999），可用变量表示。例如： GOTO 1； GOTO #10； 2. 条件转移（IF 语句） 语句格式为： IF [条件式] GOTO n 条件式成立时，从顺序号为n的程序段开始执行；条件式不成立时，执行下一个程序段。 条件式有以下几类： # j EQ # K # j NE # K # j GT # K # j LT # K # j GE # K # j LE # K 条件式中变量#J或#K可以是常量也可以是表达式，条件式必须用括弧括起来。下面的程序可以得到1到10的和： O7100

易语言模拟输入方法和窗口句柄的获取

易语言模拟输入方法和窗口句柄的获取 IE打开不同选项卡，发现却有相同的句柄。 打开新的选项卡时，必须重新对句柄进行初始化。可以用以下三种方式来取句柄， ·直接用顶级句柄0 ·窗口_取句柄_模糊(,“IEFrame”)) ·IEhandle(“IEFrame”,“用户登录_微贷网官网专业的理财平台-Windows Internet Explorer”)，这句页面不存在时，标题更换了，取不到句柄。 打开新页面时，必须加入延时，等待页面载入完成，可用网页填表.就绪判断(“可用余额”)穿透网页框架时，要用微凉网页填表模块。 取余额时，用标签名可取网页填表.取操作元素(“SPAN[15]”,元素对象,) 对链接不能用网页填表.按钮_点击(“id=submit”,1)，而要用以下取元素对象再点击的方式 .如果(网页填表.取操作元素(“innerText=我要投资”,元素对象,)) 网页填表.操作元素_点击(元素对象)'也许是因为链接不能用按纽的形式点击 .否则调试输出(“获取操作元素对象innerText=我要投资失败!”) 若取所有的窗口句柄和窗口标题时 窗口_枚举子窗口(0,子句柄数组,) .计次循环首(5,i)'计次循环首(取数组成员数(子句柄数组),i) 输出调试文本(取窗口标题(子句柄数组[i])) .计次循环尾() 对账号及密码输入，可用 网页填表.文本框_写内容(“name=userName”,编辑框1.内容,) 网页填表.文本框_写内容(“name=password”,编辑框3.内容,) 模拟输入方式 方式一 置剪辑板文本(“918236”) 网页填表.取操作元素(“name=password”,元素对象,) '编辑框3.获取焦点() 网页填表.操作元素_置焦点(元素对象)'必须要焦点，否则密码没地方输入 模拟按键(#Ctrl键,#V键,)'必须加延时，否则网页递交时密码还未提交 '网页填表.按钮_点击(“btn_submit”)‘该方式不行，必须用上面操作元素点击的方式延迟(1000) 方式二 网页填表.取操作元素(“name=password”,元素对象,)

数控宏程序实例

数控宏程序实例 第7章宏程序 7.3 宏程序调用 7.3.1 宏程序调用指令(G65) 在主程序中可以用G65调用宏程序。指令格式如下: G65 P L 〈自变量赋值〉; 其中:P指定宏程序号:L为重复调用次数(1—9999);自变量赋值是由地址和数值构成的，用以对宏程序中的局部变量赋值。 例如: 主程序: O7002 ... G65 P7100 L2 A1.0 B2.0 ... M30 宏程序: #3=#1+#2; IF [#3 GT 360] GOTO 9; G00 G91 X#3 N9 M99 7.3.2 自变量赋值 自变量赋值有两种类型。自变量I使用除去G，L，N，O，P以外的其他字母作为地址，自变量II可以使用A，B，C每个字母一次，I，J，K每个字母可使用十

次作为地址。表7—3和7—4分别为两种类型自变量赋值的地址和变量号码之间的对应关系: 表7—3 自变量赋值的地址和变量号码之间的对应关系 地址宏程序中变量地址宏程序中变量 A #1 Q #17 B #2 R #18 C #3 S #19 D #7 T #20 E #8 U #21 F #9 V #22 H #11 W #23 I #4 X #24 J #5 Y #25 K #6 Z #26 M #13 表7—4 自变量II的地址与变量号码之间的对应关系 地址宏程序中变量地址宏程序中变量 A #1 #18 B #2 #19 C #3 #20 #4 #21 #5 #22 #6 #23 #7 #24 #8 #25

#9 #26 #10 #27 #11 #28 #12 #29 #13 #30 #14 #31 #15 #32 #16 #33 #17 上表中的I，J，K的下标只表示顺序，并不写在实际命令中。在G65的程序段中，可以同时使用表4—1及表4—2中的两组自变量赋予值。系统可以根据使用的字母自动判断自变量赋值的类型。 7.4 变量的控制和运算指令 7.4.1 算术运算和逻辑运算 在变量之间，变量和常量之间，可以进行各种运算，常用的见表7—5。 表7—5 算术和逻辑运算 运算格式说明 赋值 #i=#j 加 #i=#j+#k 减 #i=#j-#k 乘 #i=#j*#k 除 #i=#j/#k 正弦 #i=sin[#j] 角度单位为度余弦 #i=cos[#j] 正切 #i=tan[#j]

VB_API调用,实现获取窗口信息

VB编程：浅谈API的应用——实现获取目标窗口的信息 1.第一部分 废话不说，先把几个用到的API声明源码发出来，我是在“模块”里声明的 Option Explicit Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long '窗口置顶 Declare Function SetCapture Lib "user32" (ByVal hwnd As Long) As Long '捕获鼠标所在窗口信息 Declare Function ReleaseCapture Lib "user32" () As Long ' 与setcapture对应 Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long '返回鼠标所在窗口的句柄 Declare Function ClientToScreen Lib "user32" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long '坐标转化 Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long '获取指定窗口类名 Public Type POINTAPI X As Long Y As Long End Type 大家看到了，这里我用到了6个API，每个API声明的后面我都把它的功能注释出来了。 2.第二部分 下面是实现获取窗口信息源码，我是写在“窗体”源码里的 Dim TuBiaoFlag As Boolean Dim ShuBiao As POINTAPI Private Sub Check1_Click() ZhiDing (Check1.Value) End Sub Private Sub Form_Load() Picture1.Picture = LoadPicture(App.Path & "\pass.ico") TuBiaoFlag = 0

新代宏程序实例

1、REPEAT直到型循环 REPEAT <循环体> UNTIL <条件表达式> END_REPEAT； 说明：REPEAT直到型循环控制，先执行循环体，后判断条件表达式，当条件满足时退出循环。 例如： % @MACRO // 启动MACRO语法% @MACRO (宏指令开始) #1=-0.2 REPEAT REPEAT（重复） G01Z#1F80; G1X-20.F700; #2=#1-0.2; G1Z#2F80; G1X-53.F700; #1=#1-0.4; UNTIL (#1<-2.6) END_REPEAT; UNTIL（到…为止，在…以前）END（结束，终止）M30; 2、WHILE当型循环 WHILE <条件表达式> DO→<循环体>→END_WHILE; 说明：WHILE当型循环控制，先判断条件表达式，当条件满足时执行循环体，否则退出循环。例如： % @MACRO; #1=-0.2; WHILE (#14>-2.6) DO WHILE(虽然; 在…期间; 与…同时) IF #1<-2.6THEN EXIT; EXIT(退出; 退场; 离开; 去世) END_IF; G01Z#1F80; G1X-20.F700; #2=#1-0.2; G1Z#2F80; G1X-53.F700; #1=#1-0.4; END_WHILE; M30 3、FOR循环 FOR 翻译：p rep.为，为了; 倾向于; 关于; 当作; conj.因为，由于; FOR <循环变量> ：= <表达式1> TO <表达式2> [ BY <表达式3>] DO <循环体> END_FOR;

C利用句柄操作窗口

C# 实现过程： 过程一：找到当前鼠标位置的句柄 您的使用2个WinAPI（俺喜欢自己封装下来用）： View Code [DllImport("", EntryPoint = "GetCursorPos")] public static extern bool GetCursorPos(out Point pt); [DllImport("", EntryPoint = "WindowFromPoint")] public static extern IntPtr WindowFromPoint(Point pt);

ndexOf; } public override string ToString() { StringBuilder result = new StringBuilder(); for (WinHWND winHandle = this; winHandle != null; winHandle = { ("{0}:{1};", Escape, if == -1) break; }

return ().TrimEnd(';'); } private static string GetBaseMark(string sMark) { string[] sMarks = (';'); return sMarks[ - 1].Split(':')[0]; } private static string[] GetChildMarks(string sMark) {

string[] sMarks = (';'); string[] sChildMarks = new string[ - 1]; for (int i = 0; i < ; i ++ ) { sChildMarks[i] = sMarks[i ]; } return sChildMarks; } .是不是都匹配 foreach (IntPtr baseHwnd in baseHwnds)

MFC窗口

MFC窗口的创建过程详细解析 作者：https://www.wendangku.net/doc/611695691.html, 关于MFC的窗口创建过程一直感觉比较神秘，那么我们来看下MFC中的窗口创建到底是一个什么过程(窗口创建前的窗口类准备就直接忽略了，与标准Win32窗口类准备大同小异)。MFC中窗口创建主要涉及三个重要的函数，分别是CWnd::CreateEx（或者CWnd::Create）、AfxHookWindowCreate、AfxCbtFilterHook函数，首先是大概介绍下MFC 的窗口创建过程，当CWnd::CreateEx被调用时，CWnd::CreateEx在调用API函数::CreateWindowEx创建窗口前会通过调用AfxHookWindowCreate安装一个名为_AfxCbtFilterHook的线程钩子，并将需要创建的窗口的CWnd指针保存到线程状态结构中，在API函数::CreateWindowEx真正创建窗口前AfxCbtFilterHook会被调用，AfxCbtFilterHook 会执行子类化操作，把要创建的窗口的窗口过程子类化为线程状态结构中的窗口过程(AfxGetModuleState()->m_pfnAfxWndProc)，即MFC的标准窗口过程，这样MFC的窗口(CWnd及其派生类)都可以通过消息映射机制接收和响应包括从创建开始的各种各样的消息。(关于AfxCbtFilterHook可以参考MSDN中关于SetWindowsHookEx的解释。) 1. CWnd::CreateEx BOOL CWnd::CreateEx(DWORD dwExStyle, LPCTSTR lpszClassName, LPCTSTR lpszWindowName, DWORD dwStyle, int x, int y, int nWidth, int nHeight, HWND hWndParent, HMENU nIDorHMenu, LPVOID lpParam) { // allow modification of several common create parameters 准备一个结构给PreCreateWindow函数使用，这样就允许应用程序在创建窗口前修改窗口创建参数，比如给cs.lpszClass重新指定一个窗口类给CreateWindow函数。CREATESTRUCT cs; cs.dwExStyle = dwExStyle; cs.lpszClass = lpszClassName; cs.lpszName = lpszWindowName; cs.style = dwStyle;

EXCEL宏编程简明教程(有实例),

Excel 宏编程简明教程 一)、宏学习 首先需要明确的是，本文不可能教会您关于宏的所有内容。您需要学会利用"录制宏"的方法来学习宏：点击Excel"工具"下拉菜单中"宏"下?quot;录制新宏"，此后可象平时一样进行有关操作，待完成后停止录制。然后再点击"工具"下拉菜单中"宏"下"宏"的"编辑"选项即可打开刚才所录制的宏的Visual Basic源程序，并且可以在此时的"帮助"下拉菜单中获得有关的编程帮助。对录制宏进行修改不仅可以学习宏的使用，还能大大简化宏的编写。 二)、基本概念 为了学习Excel中的宏，我们需要先了解以下一些基本概念。 1、工作簿：Workbooks、Workbook、ActiveWorkbook、ThisWorkbook Workbooks集合包含Excel中所有当前打开的Excel工作簿，亦即所有打开的Excel文件；Workbook对应Workbooks中的成员，即其中的Excel文件；ActiveWorkbook代表当前处于活动状态的工作簿，即当前显示的Excel文件；ThisWorkbook代表其中有Visual Basic代码正在运行的工作簿。 在具体使用中可用Workbooks(index)来引用Workbook对象，其中index为工作簿名称或编号；如Workbooks(1)、Workbooks("年度报表.xls")。而编号按照创建或打开工作簿的顺序来确定，第一个打开的工作簿编号为1，第二个打开的工作簿为2……。 2、工作表：Worksheets、Worksheet、ActiveSheet Worksheets集合包含工作簿中所有的工作表，即一个Excel文件中的所有数据表页；而Worksheet则代表其中的一个工作表；ActiveSheet代表当前处于的活动状态工作表，即当前显示的一个工作表。 可用Worksheets(index)来引用Worksheet对象，其中index为工作表名称或索引号；如Worksheets(1)、Worksheets("第一季度数据")。工作表索引号表明该工作表在工作表标签中的位置：第一个（最左边的）工作表的索引号为1，最后一个（最右边的）为Worksheets.Count。需要注意的是：在使用过程中Excel 会自动重排工作表索引号，保持按照其在工作表标签中的从左至右排列，工作表的索引号递增。因此，由于可能进行的工作表添加或删除，工作表索引号不一定始终保持不变。 3、图表：Chart 、Charts、ChartObject、ChartObjects、ActiveChart Chart代表工作簿中的图表。该图表既可为嵌入式图表（包含在ChartObject 中），也可为一个分开的（单独的）图表工作表。 Charts代表指定工作簿或活动工作簿中所有图表工作表的集合，但不包括嵌入式在工作表或对话框编辑表中的图表。使用Charts(index) 可引用单个Chart图表，其中index是该图表工作表的索引号或名称；如Charts(1)、Charts("销售图表")。图表工作表的索引号表示图表工作表在工作簿的工作表标签栏上的位置。Charts(1)是工作簿中第一个（最左边的）图表工作表； Charts(Charts.Count)为最后一个（最右边的）图表工作表。 ChartObject代表工作表中的嵌入式图表，其作用是作为Chart对象的容器。

如何通过句柄获取外部程序的窗口的内容

如何通过句柄获取外部程序的窗口的内容 Option Explicit'常数申明Public Const LVM_FIRST As Long = &H1000Public Const LVM_GETHEADER As Long = LVM_FIRST + 31Public Const LVM_GETITEMCOUNT As Long = LVM_FIRST + 4Public Const LVM_GETITEMTEXT As Long = LVM_FIRST + 45Public Const HDM_FIRST As Long = &H1200Public Const HDM_GETITEMCOUNT As Long = (HDM_FIRST + 0)Public Const PROCESS_VM_OPERATION As Long = &H8Public Const PROCESS_VM_READ As Long = &H10Public Const PROCESS_VM_WRITE As Long = &H20Public Const MAX_LVMSTRING As Long = 255Public Const MEM_COMMIT As Long = &H1000Public Const MEM_RELEASE As Long = &H8000&Public Const PAGE_READWRITE As Long = &H4Public Const LVIF_TEXT As Long = &H1'类型申明Public Type LV_ITEMA mask As Long iItem As Long iSubItem As Long State As Long stateMask As Long pszText As Long cchTextMax As LongEnd Type'API申明Public