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 ......
比如进程加载新的程序。
在其运行之前阻止。
然后允许后放行。
比如程序主文件路径是c:\test\test.exe，建立内容任意的文件c:\test\test.exe.manifest。
就是不知道程序文件路径。
设� ......
vb中怎么通过xml来解析数据库中的字段值。
没办法用XML解析数据库的字段值，除非数据库中保存的是XML格式的字符串文档。
XML用来展示层次的数据。
数据库一般是二维数据。
数据库中保存的是XML字符串格式� ......
有没有杭州的朋友，熟悉VB的，有兴趣做的话留下联系方式
VB6 OR VB.NET?
可惜不在杭州,遠程可否?
兄台联系方式呢
我也联系一下，不过在宁波
可惜我也不在杭州
北京的行不？
我在苏州， ......
据说java语言是这样的，那VB呢？
byte[] b(byte)0x62,(byte)0x11,(byte)0x72,(byte)0x31};
try {
System.out.println(new String(b,"UTF-16"));
} catch (UnsupportedEnco ......
