97蔡宝健怎么飞:关于vb的网络编成问题

来源：百度文库编辑：高考问答时间：2024/05/03 06:10:54

Public Sub Command1_Click()
Inet1.Execute "http://127.0.0.1/t.asp?word=444w", "POST", "word=111111"
End Sub

Public Sub Inet1_StateChanged(ByVal State As Integer)
Dim vtData As Variant: vtData = ""
Dim strData As String: strData = ""
Dim bDone As Boolean: bDone = False
If State = 12 Then
vtData = Inet1.GetChunk(1024, icString)
Do While Not bDone
strData = strData & vtData
vtData = Inet1.GetChunk(1024, icString)
If Len(vtData) = 0 Then
bDone = True
End If
Loop
End If
Text1.Text = strData
End Sub

这是源代码，我想用post返回一个网页的数据，但是不行，没有网页接受到数据，请高手帮我改改
顶

关于vb的网络编成问题 VB中网络编成的一点小问题 VB的问题(编成实例)关于模仿鼠标键盘的动作的关于VB的网络数据共享问题关于VB的问题关于VB的问题关于VB的问题???? 关于VB的问题？关于VB的问题! 关于VB的问题