求天涯post登录用户发帖
已经实现大部分代码了，现在问题是无法登录用户。我用xmlhttp组建可以共享IE的cookies，所以在网页上登录后程序就无需二次登录。
关键是，用了xmlhttp就无法获取到验证码，所以改用winhttp.winhttprequest.5.1组建，因此cookies就无法共享了。
求大神给一个解决的办法，谢谢！
$hForm=guicreate("输入验证码",150,150)
guisetbkcolor(0x000000)
guictrlcreatelabel("验证码：",0,0,0,0)
$hCode=guictrlcreateinput("",10,120,80,20)
$hOK=guictrlcreatebutton("确认",90,120,50,20)
$hPic=guictrlcreatepic("",5,5,140,105)
const $chkpic=@tempdir&"\~"&random(10000,99999,1)&".gif"
$url="http://imgcode.tianya.cn/services/ImageCodeService"
$oIE=objcreate("winhttp.winhttprequest.5.1")
$oIE.open("GET",$url,false)
$oIE.setRequestHeader("Referer",$url)
$oIE.send()
$HTMLSource=$oIE.ResponseBody
$oH=ObjCreate("Adodb.Stream")
$oH.Type = 1
$oH.Mode = 3
$oH.Open
$oH.write($htmlsource)
$oH.SaveToFile($chkpic)
$oH.Close()
guictrlsetimage($hPic,$chkpic)
filedelete($chkpic)
guisetstate()
while 1
switch guigetmsg()
case -3
exit
case $hOK
$vCode=guictrlread($hCode)
if $vCode then
$url="http://bbs.tianya.cn/api?method=bbs.ice.compose"
$data="params.item=water&parmas.bScore+=true¶ms.subItem="& _
"¶ms.vCode="&$vCode& _
"¶ms.title=hello123"& _
"¶ms.content=test_text_text_content"
$oIE.open("POST",$url,False)
$oIE.setRequestHeader("Content-Type", "application/x-www-form-urlencoded")
$oIE.setRequestHeader("Referer",$url)
$oIE.Send($data)
$htm=binarytostring($oIE.ResponseBody,4)
msgbox(0,'',$htm)
else
msgbox(48,"提示","你还没输入验证码呢！")
endif
endswitch
wend
求大神，登陆能实现不。。。 不知道呢
同问
页:
[1]