vb inet的问题 跪求大仙 本人做了提交Post的Inet5.Execute 但是state=7的时候出现程序无响应

Question

vb inet的问题 跪求大仙 本人做了提交Post的Inet5.Execute myurl, "POST", send_data, my_head 经过很多的的测试有时候会出现state=7的时候 程序出现无响应 也就是死掉的效果 跪求有经验的大仙给予一下解答 谢谢

Answer 1

Private Declare Function icePub_postUrl Lib "icePubDll.dll" (ByVal hostAddress As String, ByVal strObject As String, ByVal m_param As String, ByVal Referer As String, ByVal strHtmlText As String, ByVal textMaxLen As Integer, ByVal strProxy As String) As Integer

Dim a As Integer
Dim myHtml As String
Dim myPostData As String
Dim myUserName As String
Dim myPassWord As String

myHtml = Space(1024 * 10)
myUserName = "yueguang"
myPassWord = "123456"

'构建登录参数，这个可以从网站的登录页面上获得
myPostData = "action=login&loginid=" & myUserName & "&pwdid=" & myPassWord & "&surflink=&submit=+Login+Now+"
'进行登录
a = icePub_postUrl("www.smileytraffic.com", "/login.php", myPostData, "http://www.smileytraffic.com/login.php", myHtml, 1024 * 10, "")
MsgBox myHtm
'在此写相关代码进行判断是否登录成功

参考资料：http://bbs.icese.net/icepubdll/icePubDLL%bd%d2%c3%d820110624.pdf