ovHeaders:= 'Content-Type: application/x-www-form-urlencoded'+ #10#13#0;
str1 := 'name=myname&pass=mypassword&type=1'; n := Length(str1);
ovPostData := VararrayCreate([0,n],varByte);
for i := 0 to n-1 do
ovPostData[i] := Ord(str1[i+1]);
ovPostData[n] := 0;
W1.Navigate('http://www.csdn.net/member/logon.asp',EmptyParam,EmptyParam,ovPostData,ovHeaders);这个是自动登录CSDN的,有没有用?
str1 := 'name=myname&pass=mypassword&type=1'; n := Length(str1);
ovPostData := VararrayCreate([0,n],varByte);
for i := 0 to n-1 do
ovPostData[i] := Ord(str1[i+1]);
ovPostData[n] := 0;
W1.Navigate('http://www.csdn.net/member/logon.asp',EmptyParam,EmptyParam,ovPostData,ovHeaders);这个是自动登录CSDN的,有没有用?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货