|
发表于 2011-2-17 00:53:05
|
显示全部楼层
山东省德州市
本帖最后由 易杨 于 2011-2-17 00:55 编辑
[e]回复 1# 【微凉清风】
LZ看看咱写法有啥区别!
大家来这复制吧还要下载币币啊!
.版本 2
.程序集 程序集1
.子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
_临时子程序 () ' 在初始化代码执行完毕后调用测试代码
返回 (0) ' 可以根据您的需要返回任意数值
易杨找频道 (0)
.子程序 _临时子程序
' 本名称子程序用作测试程序用,仅在开发及调试环境中有效,编译发布程序前将被系统自动清空,请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。
输出调试文本 (“精易论坛” + #换行符 + #换行符 + “精易⌒易杨” + #换行符 + #换行符 + “我是你们的朋友|精易⌒易杨” + #换行符)
.子程序 易杨找频道, 逻辑型, 公开, 精易论坛!我是易杨
.参数 频道ID, 整数型, 参考, 整数型,只填写你的频道ID即可
.局部变量 频道窗口, 整数型
.局部变量 ID控件, 整数型
.局部变量 是否找到, 逻辑型
.局部变量 缓冲大小, 整数型
.局部变量 缓冲区A, 文本型
频道窗口 = 寻找子窗口_ (0, 0, “YYChannelWindow”, 取空白文本 (0))
.如果 (频道窗口 ≠ 0)
缓冲大小 = 取标题文本长度_ (频道窗口)
缓冲区A = 取空白文本 (缓冲大小)
取窗口标题_ (频道窗口, 缓冲区A, 缓冲大小 + 1)
.如果 (寻找文本 (缓冲区A, 到文本 (频道ID), 0, 假) ≠ -1)
是否找到 = 真
.否则
是否找到 = 假
.如果结束
.否则
是否找到 = 假
.如果结束
返回 (是否找到)
输出调试文本 (“精易论坛” + #换行符 + “精易⌒易杨” + #换行符 + “我是你们的朋友|精易⌒易杨”)
复制代码[e].版本 2
.DLL命令 取窗口标题_, 整数型, "user32", "GetWindowTextA", , , 取得一个窗体的标题(caption)文字,或者一个控件的内容(在vb里使用:使用vb窗体或控件的caption或text属性) 复制到lpString的字串长度;不包括空中止字符。会设置GetLastError
.参数 窗口句柄, 整数型, , 欲获取文字的那个窗口的句柄
.参数 缓冲区, 文本型, , 预定义的一个缓冲区,至少有cch+1个字符大小;随同窗口文字载入
.参数 缓冲尺寸, 整数型, , lp缓冲区的长度;
.DLL命令 取标题文本长度_, 整数型, "user32.dll", "GetWindowTextLengthA", , ,
.参数 窗口句柄, 整数型
.DLL命令 寻找子窗口_, 整数型, "user32", "FindWindowExA", , , 在窗口列表中寻找与指定条件相符的第一个子窗口 找到的窗口的句柄。如未找到相符窗口,则返回零。会设置GetLastError
.参数 窗口句柄1, 整数型, , 在其中查找子的父窗口。如设为零,表示使用桌面窗口(通常说的顶级窗口都被认为是桌面的子窗口,所以也会对它们进行查找)
.参数 窗口句柄2, 整数型, , 从这个窗口后开始查找。这样便可利用对FindWindowEx的多次调用找到符合条件的所有子窗口。如设为零,表示从第一个子窗口开始搜索
.参数 欲搜索的类名1, 文本型, , 欲搜索的类名。“”表示忽略
.参数 欲搜索的类名2, 文本型, , 欲搜索的类名。“”表示忽略;[/e]
复制代码[/e] |
|