要怎么样才能在我的软件里登陆这个页面 ( 积分: 100 )

  • 主题发起人 主题发起人 edren
  • 开始时间 开始时间
E

edren

Unregistered / Unconfirmed
GUEST, unregistred user!
我在写一个管理软件
POST的时候出了问题
http://www.uucall.com/login.do
好像这个页面不可以POST
要怎么样才能在我的软件里登陆这个页面呢
 
你可以利用:ShellExecute

如:
ShellExecute(handle, nil, pchar('http://www.uucall.com/login.do'), nil, nil,sw_shownormal);
 
我的意思是写一个软件来管理账号,其中有一个功能是用自己的软件来提交我的“账号”和“密码”进行登陆
 
公司现在都是用这个来打电话
公司申请了几十个这个账号,所以管理起来麻烦,里面有多少钱都不知道
所以写这个软件
先用帐号和密码登陆(直接用POST来登陆也可以)
然后从网页的源代码里找出我账户的余额
这样就能很方便的管理这些账号
 
你可以开发一个框架程序, 内嵌webBrowser控件, 来进行登录管理, 可是你的登录日志和通话日志对不上, 这是个大问题
 
用一个webBrowser加载该页面,然后根据输入框的id获取到对应的输入框,把你的登陆信息赋值给对应的输入框。根据id获取到提交按钮,执行它的onclick事件。
 
创建Cookies:
procedure TIWForm1.CreateTheCookie;
var
MyCookies: TstringList;
begin
try
MyCookies := TstringList.create;
MyCookies.Add('CookieName1=CookieValue1');
MyCookies.Add('CookieName2=CookieValue2');
Webapplication.Response.SetCookieField(
MyCookies, { 要设置的Cookies}
'', { 发送到Cookies的域名,如果为空的话,则使用当前的 }
'', { 发送到Cookies的路径,如果为空的话,则使用任意路径 }
Now+1, { Cookies的有效期 }
False { 是否使用加密的连接 }
);
finally
MyCookies.free;
end;
end;
读取Cookies:
procedure TIWForm1.ReadTheCookie;
var
Value1: String;
Value2: String;
begin
Value1 := webapplication.request.cookieFields.values['CookieName1'];
Value2 := webapplication.request.cookieFields.values['CookieName2'];
end;
 
接受答案了.
 
后退
顶部