Question

vb inet发送数据的问题

代码是这样的
.......
Open "C:\Documents and Settings\cmd.txt" For Input As #1
Do While Not EOF(1) '循环至文件尾
Line Input #1, myline '读入一行数据并将其赋予某变量

send_data = "data=" & myline & Chr(13) + Chr(10) '在立即窗口中显示数据

Inet1.Execute myurl, "POST", send_data, my_head

Loop
.......

是一段循环读取一个文件然后在每行循环的时候把读出来的内容发送到一个ASP文件

可是就这样是发送不了

如果在Inet1.Execute myurl, "POST", send_data, my_head

Loop之间加上一个msgbox "xx"，每循环一次就弹一个框，这样可以发送，去掉了就不行

我还以为是循环速度和发送速度不同导致的，加上Sleep (500）也没有效，不加上msgbox就一行都发送不出去，谁知道如果解决这个的？
另外，如果把读取的内容放到一个变量里，读完后再发送这样可以，但是接受那边却接收不了回车，内容全都是连起来的，如果解决这个也可以
能不能写上修改后的代码？？
INET发送是发不了回车键的么？

Answer 1

Open "C:\Documents and Settings\cmd.txt" For Input As #1
Do While Not EOF(1) '循环至文件尾
Line Input #1, myline '读入一行数据并将其赋予某变量
send_data = "data=" & myline & Chr(13) + Chr(10) '在立即窗口中显示数据
Inet1.Execute myurl, "POST", send_data, my_head
Do While Inet1.StillExecuting '在此加入等待语句
DoEvents
Loop
Loop

Answer 2

加个doevents试试，好像拼写错了。