16,552
社区成员
发帖
与我相关
我的任务
分享
Private Sub BtnTcpTestYaxin_Click(sender As Object, e As RoutedEventArgs) Handles btnTcpTestYaxin.Click
Me.btnTcpTestYaxin.Dispatcher.BeginInvoke(New Action(Sub()
'Thread.Sleep(TimeSpan.FromSeconds(3))
Debug.Print("ddddddddddddddddddddddddddddd")
Dim uri200 As System.Uri = New Uri(MySettings.Default.UrlYaxin200)
Dim uri250 As System.Uri = New Uri(MySettings.Default.UrlYaxin250)
Debug.Print(uri250.Host & "...." & uri250.Port)
Dim ok250 As String = IIf(TcpBase.TcpConnect(uri250.Host, uri250.Port), "250ok", "250no")
Dim ok200 As String = IIf(TcpBase.TcpConnect(uri200.Host, uri200.Port), "200ok", "200no")
btnTcpTestYaxin.Content = ok250 & vbCrLf & ok200
End Sub))
End Sub