我上次说的那个自动填表的问题解决了··但是用了段时间后不行了，这次在网上看教程，和各位前辈的指点下 用POST发送回复信息·然后凑了些代码 算是能用了，现在遇到点问题··请教风吹大大··
Private Sub Command5_Click()

无需返回 = 发送帖子("http://dzh., "回帖内容···")
End Sub

Private Sub Command6_Click()
If Int(发送数据("http://dzh., "auto_login=1&name=疯狂的烟头888&password=1a2b3c")) = 0 Then
MsgBox "登录成功"
Else
MsgBox "登录失败"
End If
End Sub
现在是单个帖子回复··我的连接全部在LIST里面保存的。怎么一次POST LIST里面的连接。然后返回信息显示在TEXT里面·谢谢了···

[ 本帖最后由 anluboy 于 2013-4-30 20:00 编辑 ]

大大只需要 告诉我
下面代码中的连接地址一次从LIST1中获取··内容 依次从LIST2中获取就可以了··
Private Sub Command5_Click()

无需返回 = 发送帖子("http://dzh., "内容")
End Sub

Private Sub Command4_Click()
If Int(发送数据("http://dzh., "auto_login=1&name=" & Text4.Text & "&password= & Text5.Text & ")) = 0 Then
MsgBox "登录成功"
Else
MsgBox "登录失败"
End If
End Sub
这里为什么我写TEXT4.TEXT 然后登陆就失败··如果直接写用户名和密码就能登陆成功呢？

错在哪里？谢谢了···

按钮那里怎么写？我是小白···定时器搞定了··

搞不定啊···

Private Sub Timer2_Timer()
无需返回 = 发送帖子(List1.List(Timer2.Tag), List1.List(Timer2.Tag))
Timer2.Tag = Timer2.Tag + 1
Text3.Text = List1.List(Timer2.Tag)
End Sub
定时器这样对吗？