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
然后再发送
因为发送和接收都是需要时间的，不是瞬间完成的
楼上的朋�
相关问答：
我有厂家做的ASP的监控录像（DVR）的局域网播放的源程序与控件，想要用ASP.net做一个视频回放的程序（利用他的控件）但不知如下去做，望各位指点。
先搞清楚他们的控件是怎么用的,
然后就直接用好了.
不过,如 ......
我用Delphi写了一个DLL, DLL里有MDI的子窗体,DLL初始化时 传递调用者的TApplication给DLL, 在Delphi7中调用已经通过,但是不知道在VB中有无TApplication对应类型, 是否能在VB中调用?
你好，用instance不是就可以了&# ......
比如进程加载新的程序。
在其运行之前阻止。
然后允许后放行。
比如程序主文件路径是c:\test\test.exe，建立内容任意的文件c:\test\test.exe.manifest。
就是不知道程序文件路径。
设� ......
VB偶学得不错，现在大一，高三的时候就学VB了，现在学校里都是学C#和VB.NET的兄弟多。。。
偶要转行VB.NET了~当年学VB学了2年，对VB里面的常用函数都十分了解。
Select、If结构、For Next循环、等都了解。。。 ......
Private Sub Check1_Click()
If Check1.Value = 1 Then
DTP1.Enabled = True
Else
DTP1.Enabled = False
End If
End Sub
Private Sub Check2_Click()
If Check2.Value = 1 Then
DTP2.Enabled = True
Else
......
