|
发表于 2011-2-17 00:47:40
|
显示全部楼层
山东省德州市
{:3_244:}大家来这复制吧还要下载币币啊!-
- .版本 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]
复制代码 |
|