{ KŸLIN }

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

'建立 SmtpClient 物件 並設定 Gmail的smtp主機及Port Dim MySmtp As New System.Net.Mail.SmtpClient("smtp.gmail.com", 587) '設定你的帳號密碼 MySmtp.Credentials = New System.Net.NetworkCredential("帳號", "密碼") 'Gmial 的 smtp 使用 SSL MySmtp.EnableSsl = True '發送Email MySmtp.Send("發送者 XXX@gmail.com >", "收件者 XXX@gmail.com >", "Gmail發信測試", "TEST")

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 Sha...

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...

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 hCard As Integer...

台北 5/26(一) 1:30pm~3:30pm 亞太會館 台北市信義區松高路68號(B1大觀宴會廳) 桃園 5/20(二) 1:30pm~3:30pm 古華花園飯店 桃園縣中壢市民權路398號(3F春風軒) 台中 5/21(三) 1:30pm~3:30pm 日華金典酒店 台中市西區健行路1049號(13F精英一廳)

中華電信為推動加值軟體之開發並帶動數位內容產業之發展，自2003年起舉辦本活動，期自競賽活動中，吸引大量電信加值服務人才關注，並投入電信加值軟體開發與應用，從而帶動數位內容產業之蓬勃發展 我這次教學場次是第二場台中及第三場高雄，聽說高雄人數破七十還要開二班喔。 http://telsoft.hinet.net/training.html