第8课 制作新浪博客登陆+自动发博文机

87412598

支持一下。

苟无恒心

看看，找了很久了，易语言好强大

苟无恒心

{:3_244:}支持，顶下

Dellucy

这是网页操作吗？

hitlic

好好学习下

奔放

.版本 2

.程序集 窗口程序集1

.子程序 _按钮1_被单击
.局部变量 aa, 文本型
.局部变量 hWnd
.局部变量 句柄

编辑框1.内容 ＝ “”
aa ＝ 取空白文本 (255)
hWnd ＝ FindWindowExA (0, 0, “#32770”, 0)
.判断循环首 (hWnd ≠ 0)
    GetWindowTextA (hWnd, aa, 255)
    .如果 (取文本右边 (aa, 6) ＝ “聊天中”)
        跳出循环 ()
    .否则

    .如果结束
    hWnd ＝ FindWindowExA (0, hWnd, “#32770”, 0)
.判断循环尾 ()
句柄 ＝ FindWindowExA (hWnd, 0, “#32770”, 0)
句柄 ＝ FindWindowExA (句柄, 0, “AfxWnd42”, 0)
句柄 ＝ FindWindowExA (句柄, 0, “RICHEDIT”, 0)
编辑框2.内容 ＝ 到文本 (句柄)
置剪辑板文本 (“”)
SendMessageA (句柄, 177, 0, -1)
SendMessageA (句柄, 769, 0, 0)
SendMessageA (句柄, 177, 0, 0)
SendMessageA (编辑框1.取窗口句柄 (), 770, 0, 0)

.子程序 _按钮2_被单击
.局部变量 aa, 文本型
.局部变量 hWnd
.局部变量 句柄

编辑框1.内容 ＝ “”
aa ＝ 取空白文本 (255)
hWnd ＝ FindWindowExA (0, 0, “#32770”, 0)
.判断循环首 (hWnd ≠ 0)
    GetWindowTextA (hWnd, aa, 255)
    .如果 (取文本右边 (aa, 6) ＝ “聊天中”)
        跳出循环 ()
    .否则

    .如果结束
    hWnd ＝ FindWindowExA (0, hWnd, “#32770”, 0)
.判断循环尾 ()
句柄 ＝ FindWindowExA (hWnd, 0, “#32770”, 0)
句柄 ＝ FindWindowExA (句柄, 0, “RichEdit20A”, 0)
编辑框2.内容 ＝ 到文本 (句柄)
置剪辑板文本 (“”)
SendMessageA (句柄, 177, 0, -1)
SendMessageA (句柄, 769, 0, 0)
SendMessageA (句柄, 177, 0, 0)
SendMessageA (编辑框1.取窗口句柄 (), 770, 0, 0)


.子程序 __启动窗口_创建完毕


转自:E家通站长网[http://www.ejitong.com]
原文链接:http://www.ejitong.com/html/ejtgzs/201009/2492.html

康笑

呵呵！立马拿下

leegi

真精神！！！！！！

yongnian369

{:3_244:}  支持支持

agent

kankan  wo  ye  xuexue