TcpClient使非同步連接

Dim MyTcpClient As New TcpClient()
Dim MyResult As IAsyncResult = MyTcpClient.BeginConnect(YourTargetIP, YourTargetPort, Nothing, Nothing)
MyResult.AsyncWaitHandle.WaitOne(3000, True) '等三秒
If Not MyResult.IsCompleted Then
MyTcpClient.Close()
ElseIf MyTcpClient.Connected = True Then
MyTcpClient.Close()
End If

留言

張貼留言

這個網誌中的熱門文章

使用VB讀取健保卡基本資料

Imports System Imports System.Text Imports System.Runtime.InteropServices Class CitizenDigitalCertificateCardNoReader Public Structure SCARD_IO_REQUEST Public dwProtocol As Integer Public cbPciLength As Integer End Structure '引用 PC/SC(Personal Computer/Smart Card) API WinScard.dll _ Public Shared Function SCardEstablishContext(ByVal dwScope As UInteger, ByVal nNotUsed1 As Integer, ByVal nNotUsed2 As Integer, ByRef phContext As Integer) As Integer End Function _ Public Shared Function SCardReleaseContext(ByVal phContext As Integer) As Integer End Function _ Public Shared Function SCardConnect(ByVal hContext As Integer, ByVal cReaderName As String, ByVal dwShareMode As UInteger, ByVal dwPrefProtocol As UInteger, ByRef phCard As Integer, ByRef ActiveProtocol As Integer) As Integer End Function _ Public Shared Function SCardDisconnect(ByVal hC...
閱讀完整內容

北港壽豐奇遇記

真是難得北港媽東巡到壽豐媽住駕，當我在接到北港的金身感覺無比興奮好像中樂透一樣，他的木頭一定用很好的材料二尺二的金身真的很重，對了還有他彫功很利害臉看起來很飽滿就好像很久不見的阿媽😭，期待在相見。  
閱讀完整內容