作者qu34y7 (澈)
看板Visual_Basic
标题[.NET] 读取档案出错
时间Mon Nov 12 18:57:11 2007
这是我的程式码
Sub FileR() '读取伺服器位置
If Not File.Exists("ServerIP") Then
FileW()
End If
Using sr1 As StreamReader = New StreamReader("ServerIP")
Dim line As String
line = sr1.ReadLine
SET_sock(line)
While Not line Is Nothing
Dim f As Integer = 1
Dim b As Integer = 1
Do While b <= 2
Console.WriteLine(line)
Do
line = sr1.ReadLine
f = f + 1
Loop Until f > b
SET_sock(line)
b += 1
Loop
End While
End Using
End Sub
Sub SET_sock(ByVal ip As String) '设定封包目的
Using sr As StreamReader = New StreamReader("ServerIP")
Select Case z
Case 1
With AxWinsock1
.Protocol = MSWinsockLib.ProtocolConstants.sckUDPProtocol
.RemoteHost = Mid(ip, 1, InStr(ip, ":") - 1)
.RemotePort = Mid(ip, InStr(ip, ":") + 1, ip.Length -
InStr(ip, ":"))
.Bind()
.SendData(TextBox1.Text)
End With
Case 2
With AxWinsock5
.Protocol = MSWinsockLib.ProtocolConstants.sckUDPProtocol
.RemoteHost = Mid(ip, 1, InStr(ip, ":") - 1)
.RemotePort = Mid(ip, InStr(ip, ":") + 1, ip.Length -
InStr(ip, ":"))
.Bind()
.SendData(TextBox1.Text)
End With
Case 3
With AxWinsock6
.Protocol = MSWinsockLib.ProtocolConstants.sckUDPProtocol
.RemoteHost = Mid(ip, 1, InStr(ip, ":") - 1)
.RemotePort = Mid(ip, InStr(ip, ":") + 1, ip.Length -
InStr(ip, ":"))
.Bind()
.SendData(TextBox1.Text)
End Select
End Using
End Sub
我想要从档案读取server的ip跟port
然後Client的一个port依序从档案抓取字串来送
可是我按送出之後 在 .Protocol = MSWinsockLib.ProtocolConstants.sckUDPProtocol
这段会出错
想请问板上大大是哪里写错了
谢谢
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.130.189.49