VB winsock传递数据问题
我用VB winsock做了一个传递CMD命令的软件，为什么发送端发送的数据和接收端接收到的数据不一样啊？（本机测试）比如我在发送端发送了一个命令"dir c:\ "为什么接收端接收到的数据却是乱码？
发送端代码：
Private Sub Command1_Click()
For i = 0 To F1.serversk.UBound '查找将接收数据的IP。
If F1.serversk(i).RemoteHostIP = S Then ’S为一个IP字符串，前面代码得到的IP
F1.serversk(i).SendData Text2.Text
End If
Next i
End Sub
接收端代码：
Private Sub Wk_DataArrival(ByVal bytesTotal As Long)
Dim datas, pdi
Dim hpro, tet As String
Wk.GetData datas
MsgBox datas ’就这个msgbox显示出来的消息，怎么会是乱码呢？请各位帮忙。谢谢
pdi = Shell("cmd.exe /c " & datas & " >> c:\1.txt", vbHide)
hpro = OpenProcess(PROCESS_ALL_ACCESS, False, pdi)
here:
If hpro <> 0 Then’如果HPRO=0则表示shell调用的命令已经执行完成。
GoTo here:
Else
'读取1.txt内的内容
Open App.Path & "\1.txt" For Input As #2
Do While Not EOF(2)
Line Input #2, tet
Wk.SendData tet
Loop
Close #2
Kill App.Path & "\1.txt"
End If
End Sub
用psexec就行了。
http://www.google.cn/search?hl=zh-CN&newwindow=1&q=psexec%E7%94%A8%E6%B3%95&aq=3&oq=psexec
相关问答：
vb写的程序编译后,运行若出错,如何知道到在哪一行?
按Ctrl+F5预编译，出错时会跳转到错误行
不是那样的了,我是要求编译成EXE后运行,提示出错能否提示错在哪一行.
我编译后在我的电脑上运行没问题,但� ......
Option Explicit
Private Sub Command1_Click()
WebBrowser1.Navigate "http://mc.qeedoo.com/servers.php"
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal ......
题目描述应该不是很准确。
现状是：假如一个文本文件共100行，那么我循环次数最大就是100×100=10000下，花费时间非常多，请问有没有办法能够提高对文本文件的循环访问速度。非数据库技术。
你要循环做什么� ......
用VB怎么只针对windows自带的文件的右键添加菜单 如（.txt .doc)
这个是只针对以这两个为扩展名的文件操作
Windows Registry Editor Version 5.00
[HKEY_CLASSES_ROOT\txtfile\shell\[随便起名]\command]
@= ......
再VB模块中我是通过如下方式来连接主库和历史库的(历史库数据量大)
VB code:
Public Connstr As String
Public objConn As New ADODB.Connection
Public ConnHISstr As String
Public objConnHIS As New A ......
