Const BufLen As Integer=800
數據包發送間隔
整數形式的常量間隔=62
緩沖器
dim buf As Byte()=無
遠程(目的地)網絡端點
dim remote EP As IPEndPoint = Nothing
如果您已經將s定義為類的成員變量(實例或* * *)，請註釋掉下面的句子。
Dim s As UdpClient=Nothing
Dim將被讀取為整數
嘗試
buf =新字節(BufLen-1) {}
s =新UdpClient()
文本框1。文本包含遠程(目標)主機的IP地址。
文本框2。文本包含遠程(目標)主機的端口號。
remote EP = New IPEndPoint(IP address。Parse(Trim(TextBox1。Text))、CInt(TextBox2。正文))
標簽2。文本包含要發送的文件的路徑。
將文件系統用作新的文件流(標簽2。文本，文件模式。打開，文件訪問。閱讀)
而fs。位置& lt& gtfs。長度
willread=BufLen
如果fs。長度-fs。位置& lt那就布夫倫吧
willread=CInt(fs。長度-fs。位置)
如果…就會結束
fs。Read(buf，0，willread)
南Send(buf，willread，remoteep)
線程。睡眠(間歇)
結束時間
結束使用
將ex作為異常捕獲
MsgBox(例如ToString())
最後
如果s不是空的，那麽
南關閉()
如果…就會結束
結束嘗試