【200精币悬赏神马的都是浮云】超文本浏览框取内部坐标

L·Y·D

  

DLL命令名	返回值类型	公开	备 注
取指定点窗口句柄_	整数型
DLL库文件名:
user32.dll
在DLL库中对应命令名:
WindowFromPoint
参数名	类 型	传址	数组	备 注

子程序名	返回值类型	公开	备 注
(未填写子程序名)
参数名	类 型	参考	可空	数组	备 注
参数名	类 型	参考	可空	数组	备 注
横坐标	整数型				xPoint，x点值
纵坐标	整数型				yPoint，y点值

.版本 2<br /> <br /> .DLL命令 取指定点窗口句柄_, 整数型, "user32.dll", "WindowFromPoint"<br /> .参数 横坐标, 整数型, , xPoint，x点值<br /> .参数 纵坐标, 整数型, , yPoint，y点值

200精币悬赏神马的都是浮云
我就是那穷逼一族
我呢
还是那什么
哦对是想取超文本浏览框的内部坐标
利用以上这个dll命令
所以嘛
你知道的...如题
取超文本浏览框内部的xy坐标

美淘科技

写了个例子并附上源码

  

数据类型名	公开	备 注
WINDOWPLACEMENT		窗口放置;
成员名	类 型	传址	数组	备 注
Length	整数型
flags	整数型
showCmd	整数型
ptMinPosition	POINTAPI
ptMaxPosition	POINTAPI
rcNormalPosition	RECT

数据类型名	公开	备 注
POINTAPI		坐标;
成员名	类 型	传址	数组	备 注
横向位置	整数型
纵向位置	整数型

数据类型名	公开	备 注
RECT		矩形;
成员名	类 型	传址	数组	备 注
左边	整数型
顶边	整数型
右边	整数型
底边	整数型

DLL命令名	返回值类型	公开	备 注
FindWindow	整数型
DLL库文件名:
在DLL库中对应命令名:
FindWindowA
参数名	类 型	传址	数组	备 注
lpClassName	文本型
lpWindowName	文本型

DLL命令名	返回值类型	公开	备 注
EnumChildWindows	整数型		为指定的父窗口枚举子窗口  非零表示成功，零表示失败
DLL库文件名:
user32
在DLL库中对应命令名:
EnumChildWindows
参数名	类 型	传址	数组	备 注
hWndParent	整数型			欲枚举子窗口的父窗口的句柄
lpEnumFunc	子程序指针			为每个子窗口调用的函数的指针。用AddressOf运算符获得函数在一个标准模块中的地址
lParam	整数型			在枚举期间，传递给dwcbkd32.ocx定制控件之EnumWindows事件的值。这个值的含义是由程序员规定的。（原文：Value that is passed to the EnumWindows event of the dwcbkd32.ocx custom control during enumeration. The meaning of this value is defined by the programmer.）;

DLL命令名	返回值类型	公开	备 注
GetClassName	整数型
DLL库文件名:
user32
在DLL库中对应命令名:
GetClassNameA
参数名	类 型	传址	数组	备 注
hwnd	整数型
lpClassName	文本型
nMaxCount	整数型

DLL命令名	返回值类型	公开	备 注
取指定点窗口句柄_	整数型
DLL库文件名:
user32.dll
在DLL库中对应命令名:
WindowFromPoint
参数名	类 型	传址	数组	备 注
横坐标	整数型			xPoint，x点值
纵坐标	整数型			yPoint，y点值

DLL命令名	返回值类型	公开	备 注
GetWindowPlacement	整数型
DLL库文件名:
在DLL库中对应命令名:
GetWindowPlacement
参数名	类 型	传址	数组	备 注
hwnd	整数型
lpwndpl	WINDOWPLACEMENT

DLL命令名	返回值类型	公开	备 注
ClientToScreen	整数型
DLL库文件名:
在DLL库中对应命令名:
ClientToScreen
参数名	类 型	传址	数组	备 注
hWnd	整数型
lpPoint	POINTAPI

窗口程序集名	保 留	保 留	备 注
程序集1
变量名	类 型	数组	备 注
超文本浏览框句柄	整数型

子程序名	返回值类型	公开	备 注
取窗口句柄_	整数型
参数名	类 型	参考	可空	数组	备 注
窗口类名	文本型
窗口标题	文本型

返回 (FindWindow (窗口类名, 窗口标题))

子程序名	返回值类型	公开	备 注
枚举子窗口回调	整数型		枚举主窗口下的所用子窗口
参数名	类 型	参考	可空	数组	备 注
hWnd	整数型
lParam	整数型

变量名	类 型	静态	数组	备 注
ClassName	文本型

超文本浏览框句柄 ＝ 0
ClassName ＝ 取空白文本 (256)
GetClassName (hWnd, ClassName, 256)  ' 取窗口的类名
如果真 (ClassName ＝ “Internet Explorer_Server”)
lParam ＝ hWnd
返回 (0)  ' 符合条件后结束遍历
返回 (1)  ' 不符合条件继续遍历

子程序名	返回值类型	公开	备 注
取超文本浏览框句柄	整数型
参数名	类 型	参考	可空	数组	备 注
主窗口句柄	整数型

变量名	类 型	静态	数组	备 注
hWnd	整数型

EnumChildWindows (主窗口句柄, &枚举子窗口回调, hWnd)  ' 遍历主窗口下的所有子窗口
返回 (hWnd)

子程序名	返回值类型	公开	备 注
取窗口所在坐标	逻辑型
参数名	类 型	参考	可空	数组	备 注
窗口句柄	整数型
x	整数型
y	整数型

变量名	类 型	静态	数组	备 注
lpwndpl	WINDOWPLACEMENT
nom	整数型
hdc	整数型
Int	整数型
lpPoint	POINTAPI

lpwndpl.Length ＝ 44
nom ＝ GetWindowPlacement (窗口句柄, lpwndpl)  ' 取出窗口所在用户区
x ＝ lpwndpl.rcNormalPosition.左边
y ＝ lpwndpl.rcNormalPosition.顶边
Int ＝ ClientToScreen (窗口句柄, lpPoint)  ' 用户坐标转到屏幕坐标
x ＝ lpPoint.横向位置
y ＝ lpPoint.纵向位置
返回 (Int ≠ 0)

子程序名	返回值类型	公开	备 注
取指定点窗口句柄	整数型
参数名	类 型	参考	可空	数组	备 注
x	整数型
y	整数型

变量名	类 型	静态	数组	备 注
hwnd	整数型

hwnd ＝ 取指定点窗口句柄_ (x, y)
返回 (hwnd)

.版本 2<br /> <br /> .数据类型 WINDOWPLACEMENT, , 窗口放置;<br />     .成员 Length, 整数型<br />     .成员 flags, 整数型<br />     .成员 showCmd, 整数型<br />     .成员 ptMinPosition, POINTAPI<br />     .成员 ptMaxPosition, POINTAPI<br />     .成员 rcNormalPosition, RECT<br /> <br /> .数据类型 POINTAPI, , 坐标;<br />     .成员 横向位置, 整数型<br />     .成员 纵向位置, 整数型<br /> <br /> .数据类型 RECT, , 矩形;<br />     .成员 左边, 整数型<br />     .成员 顶边, 整数型<br />     .成员 右边, 整数型<br />     .成员 底边, 整数型<br /> .版本 2<br /> <br /> .DLL命令 FindWindow, 整数型, , "FindWindowA"<br />     .参数 lpClassName, 文本型<br />     .参数 lpWindowName, 文本型<br /> <br /> .DLL命令 EnumChildWindows, 整数型, "user32", "EnumChildWindows", , 为指定的父窗口枚举子窗口  非零表示成功，零表示失败<br />     .参数 hWndParent, 整数型, , 欲枚举子窗口的父窗口的句柄<br />     .参数 lpEnumFunc, 子程序指针, , 为每个子窗口调用的函数的指针。用AddressOf运算符获得函数在一个标准模块中的地址<br />     .参数 lParam, 整数型, 传址, 在枚举期间，传递给dwcbkd32.ocx定制控件之EnumWindows事件的值。这个值的含义是由程序员规定的。（原文：Value that is passed to the EnumWindows event of the dwcbkd32.ocx custom control during enumeration. The meaning of this value is defined by the programmer.）;<br /> <br /> .DLL命令 GetClassName, 整数型, "user32", "GetClassNameA"<br />     .参数 hwnd, 整数型<br />     .参数 lpClassName, 文本型<br />     .参数 nMaxCount, 整数型<br /> <br /> .DLL命令 取指定点窗口句柄_, 整数型, "user32.dll", "WindowFromPoint"<br />     .参数 横坐标, 整数型, , xPoint，x点值<br />     .参数 纵坐标, 整数型, , yPoint，y点值<br /> <br /> .DLL命令 GetWindowPlacement, 整数型, , "GetWindowPlacement"<br />     .参数 hwnd, 整数型<br />     .参数 lpwndpl, WINDOWPLACEMENT<br /> <br /> .DLL命令 ClientToScreen, 整数型, , "ClientToScreen"<br />     .参数 hWnd, 整数型<br />     .参数 lpPoint, POINTAPI<br /> .版本 2<br /> <br /> .程序集 程序集1<br /> .程序集变量 超文本浏览框句柄, 整数型<br /> <br /> .子程序 取窗口句柄_, 整数型, 公开<br /> .参数 窗口类名, 文本型<br /> .参数 窗口标题, 文本型, 可空<br /> <br /> 返回 (FindWindow (窗口类名, 窗口标题))<br /> <br /> <br /> .子程序 枚举子窗口回调, 整数型, , 枚举主窗口下的所用子窗口<br /> .参数 hWnd, 整数型<br /> .参数 lParam, 整数型, 参考<br /> .局部变量 ClassName, 文本型<br /> <br /> 超文本浏览框句柄 ＝ 0<br /> ClassName ＝ 取空白文本 (256)<br /> GetClassName (hWnd, ClassName, 256)  ' 取窗口的类名<br /> .如果真 (ClassName ＝ “Internet Explorer_Server”)<br />     lParam ＝ hWnd<br />     返回 (0)  ' 符合条件后结束遍历<br /> .如果真结束<br /> 返回 (1)  ' 不符合条件继续遍历<br /> <br /> .子程序 取超文本浏览框句柄, 整数型, 公开<br /> .参数 主窗口句柄, 整数型<br /> .局部变量 hWnd, 整数型<br /> <br /> EnumChildWindows (主窗口句柄, &枚举子窗口回调, hWnd)  ' 遍历主窗口下的所有子窗口<br /> 返回 (hWnd)<br /> <br /> <br /> .子程序 取窗口所在坐标, 逻辑型<br /> .参数 窗口句柄, 整数型<br /> .参数 x, 整数型, 参考<br /> .参数 y, 整数型, 参考<br /> .局部变量 lpwndpl, WINDOWPLACEMENT<br /> .局部变量 nom, 整数型<br /> .局部变量 hdc, 整数型<br /> .局部变量 Int, 整数型<br /> .局部变量 lpPoint, POINTAPI<br /> <br /> lpwndpl.Length ＝ 44<br /> nom ＝ GetWindowPlacement (窗口句柄, lpwndpl)  ' 取出窗口所在用户区<br /> x ＝ lpwndpl.rcNormalPosition.左边<br /> y ＝ lpwndpl.rcNormalPosition.顶边<br /> <br /> Int ＝ ClientToScreen (窗口句柄, lpPoint)  ' 用户坐标转到屏幕坐标<br /> x ＝ lpPoint.横向位置<br /> y ＝ lpPoint.纵向位置<br /> <br /> 返回 (Int ≠ 0)<br /> <br /> <br /> .子程序 取指定点窗口句柄, 整数型<br /> .参数 x, 整数型<br /> .参数 y, 整数型<br /> .局部变量 hwnd, 整数型<br /> <br /> hwnd ＝ 取指定点窗口句柄_ (x, y)<br /> 返回 (hwnd)

取超文本浏览框句柄例子.rar (3.1 KB, 下载次数: 7)

2014-5-20 22:23 上传

点击文件名下载附件

L·Y·D

咦为何粘贴出来是这样的

L·Y·D

为何感觉不流利的表达和看起来幼稚的语言让我看这贴像是小学狗发的

492634926

  

子程序名	返回值类型	公开	备 注
回答楼主的

492634926���楼主 ()

子程序名	返回值类型	公开	备 注
492634926≠楼主

输出调试文本 (“楼主你好啊！”)

.版本 2<br /> <br /> .子程序 回答楼主的<br /> <br /> 492634926≠楼主 ()<br /> <br /> .子程序 492634926≠楼主<br /> 输出调试文本 (“楼主你好啊！”)

补充内容 (2014-5-20 18:09):
好奇怪的乱码。

H裸奔的鸭子C

路过这里

L·Y·D

归类：易语言取超文本浏览框内指定坐标的坐标句柄
设这个点在超文本浏览框的中心【不写中心也可以】

美淘科技

这个要先取出他的句柄才可以

L·Y·D

角落 发表于 2014-5-20 18:59
这个要先取出他的句柄才可以

刷精币的吧...

美淘科技

L·Y·D 发表于 2014-5-20 19:02
刷精币的吧...

卧槽  本人技术流绝非刷金币的