我想用TClientSocket做一个登录网站的登录工具（输入用户名，密码后登录），该如何做？

Question

比如我想通过该软件登录www.163.com，
在edit1.text输入我在163的用户名“heihei”,
在edit2.text输入我在163的密码“123456”
点击确定按钮后我就登录www.163.com了，并根据我的要求去我想去的地方（比如进入163的邮箱），还要获得当前网页的源文件（注：决不使用WebBrowser1.Navigate方法），并始终监听网页的变化，如果网页发生跳转，程序将始终跟踪，直到我关闭为止。事关重大，多谢各位，最好有源代码。
QQ：82276899

Answer 1

http://delphi.ktop.com.tw/topic.asp?TOPIC_ID=50491var userdata : TStringList;
    resphtml : TStringList;
begin
   userdata:=TStringList.create;
   resphtml:=TStringList.create;
   userdata.add('username=ABC');
   userdata.add('password=123');
   resphtml:=idhttp.post('http://www.mysite.com.tw/login.asp',userdata);   if resphtml.count>0 then 
      showmessage(resphtml.text);// 收到網頁資料了
   
   resphtml.free;
   userdata.free;
end;

Answer 2

得到源代码只能得到HTML码，程序码只能通过黑客手段。自己动登录功能：你的先看懂登录页的Form(指HTML中的Form)中相应的用户名输入框的名称和密码框的名称。然后直接上传到Form指向的页。然后根据返回值看是否登录成功。源码整丢了，白瞎了，哎！！！！！！！！