Connection


Dim blnConnected As Boolean
Private Sub cmdConn_Click()
wsPop.Close
Do
DoEvents
Loop While wsPop.State <> sckClosed
wsPop.Connect txtserver.Text, txtport.Text
End Sub
Private Sub cmdSend_Click()
wsPop.SendData txtsend & vbCrLf
txtsend.SetFocus
End Sub

Private Sub Form_Load()

End Sub

Private Sub mnuClose_Click()
End
End Sub

Private Sub wsPop_Connect()
blnConnected = True
txtsend.Enabled = True
cmdSend.Enabled = True
txtReceived.Text = “Terkoneksi ke” & wsPop.RemoteHost
End Sub
Private Sub wsPop_DataArrival(ByVal bytesTotal As Long)
Dim strdata As String
wsPop.GetData strdata
txtReceived.Text = txtReceived.Text & vbNewLine & strdata
End Sub

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s