|

楼主 |
发表于 2013-8-2 17:48:42
|
显示全部楼层
山东省青岛市
.版本 2
.支持库 iext
.程序集 窗口程序集1
.程序集变量 DOC, DOC
.子程序 _窗口1_创建完毕
.子程序 _按钮_Login_被单击
CloseHandle (线程_启动 (&Login))
.子程序 Login
.局部变量 Str, 文本型
.局部变量 name, 文本型
.局部变量 Cookie, 文本型
状态条1.置文本 (1, “正在登录...”)
Str = DOC.Login (编辑框_Email.内容, 编辑框_PassWord.内容)
状态条1.置文本 (1, Str)
.如果真 (Str = “登录成功”)
name = DOC.Getname ()
状态条1.置文本 (0, name)
Cookie = DOC.GetCookie ()
编辑框_Cookie.内容 = Cookie
.如果真结束
.子程序 _按钮_Writear_被单击
CloseHandle (线程_启动 (&Writear))
.子程序 Writear
.局部变量 Str, 文本型
状态条1.置文本 (1, “正在发布...”)
Str = DOC.Writear (编辑框_Title.内容, 编辑框_Body.内容)
状态条1.置文本 (1, Str)
这个一点看不懂啊,,,,,, |
|