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
相关问答：
login.aspx.vb:
Public ReadOnly Property nameT() As String
Get
Return TextBox1.Text
&nb ......
vb中怎么通过xml来解析数据库中的字段值。
没办法用XML解析数据库的字段值，除非数据库中保存的是XML格式的字符串文档。
XML用来展示层次的数据。
数据库一般是二维数据。
数据库中保存的是XML字符串格式� ......
用VB怎么只针对windows自带的文件的右键添加菜单 如（.txt .doc)
这个是只针对以这两个为扩展名的文件操作
Windows Registry Editor Version 5.00
[HKEY_CLASSES_ROOT\txtfile\shell\[随便起名]\command]
@= ......
就是设计一个计算机模拟考试系统，带有学生和管理员，所以登录窗体和主窗体想分开，登陆学生的显示学生的主窗体，登陆管理员显示管理主窗体，我只会一个窗体用一堆控件，现在享有多个主窗体，不知道怎么做，希望请大 ......
