VB读取TXT问题，请高手指点
思路：winsock接收到命令后，在CMD下执行命令，命令结果保存在1.TXT文件里，然后逐行读取内容用winsock把执行结果发送回来。思路是这样的，请大家先看看代码：
Private Sub Wk_DataArrival(ByVal bytesTotal As Long)
Dim datas As String, pdi
Dim hpro, tet As String
Wk.GetData datas
On Error Resume Next
pdi = Shell("cmd.exe /c " & datas & ">>c:\1.txt", vbHide)
here:
hpro = OpenProcess(PROCESS_ALL_ACCESS, False, pdi) '判断shell调用 是否完成。
If hpro <> 0 Then
MsgBox "运行到我了"
GoTo here
Else
'读取1.txt内的内容
Open "c:\1.txt" For Input As #2
Do While Not EOF(2)’-------------------------------标记开始处
Line Input #2, tet
Wk.SendData tet & Chr(13)
Loop’------------------------------------------------标记结束
Close #2
Kill "c:\1.txt"
End If
End Sub
问题： 为什么在上面代码标记的地方会出现死循环？而且发送的数据全是空格（接收端接收到的数据全是空格） 是什么原因啊？请高手帮帮忙啊。
Line Input #2, tet 前加doevents
Wk.SendData tet & Chr(13) & Chr(10)
你这个顺序没搞明白吧
应该在Wk_DataArrival里面启动个Timer
在Timer等待数据接收完毕
再写到Text
然后再发送
因为发送和接收都是需要时间的，不是瞬间完成的
楼上的朋�
相关问答：
请教一下：我用vb写了一个调用Illustrator的测试程序，代码很简单：Private Sub Command1_Click()
Dim app As New Illustrator.Application
Dim doc As Illustrator.Document
Dim thislayer As Illustrator.Layer ......
各位大虾：
我有一个VB调用水晶报表的系统，报表是作为一个Design嵌在VB里的，今天发现打印第一张报表正常，同样的数据，在点打印再调用一次就会报 Memory Full的错误，但是 ......
我想做个用vb6做的程序，可以控制GPRS MODEM拨号，如拨我自己的手机
可以啊
你先下个AT命令集合学习学习
我来顶
顶贴
LZ好厉害
不顶不行
老是排MP
引用
LZ好厉害
......
有没有杭州的朋友，熟悉VB的，有兴趣做的话留下联系方式
VB6 OR VB.NET?
可惜不在杭州,遠程可否?
兄台联系方式呢
我也联系一下，不过在宁波
可惜我也不在杭州
北京的行不？
我在苏州， ......
看了一些VB ini文件写入读取的方法 但是还是不知道怎么写，上面写了很长 很多，但是我不知道怎么用，我想问一下怎样写才能实现在TEXT1中写字，然后点Command1提交，然后TEXT1里面的数字就写进INI里面[Section]的Key1 ......
