비주얼베이직 네이트온 접속 관련 소스

Private Sub Sock_Connect()
 Sock.SendData "PVER 1 1.1.0.301 3.0 ko.linuxm" & vbCrLf
 Text2.Text = Text2.Text & "PVER 1 1.1.0.301 3.0 ko.linuxm" & vbCrLf
End Sub

Private Sub Sock_DataArrival(ByVal bytesTotal As Long)
Dim Packet$

Sock.GetData Packet ' load received data into Packet

If InStr(Packet, "PVER") > 0 Then
  Sock.SendData "AUTH 2 DES" & vbCrLf
  Text2.Text = Text2.Text & "AUTH 2 DES" & vbCrLf
ElseIf InStr(Packet, "AUTH") > 0 Then
  Sock.SendData "REQS 3 DES " & Text3.Text & "@nate.com" & vbCrLf
  Text2.Text = Text2.Text & "REQS 3 DES " & Text3.Text & "@nate.com" & vbCrLf
ElseIf InStr(Packet, "REQS") > 0 Then
  Sock2.SendData "LSIN 4 " & Text3.Text & "@nate.com " & makeTicketURL(Text3.Text, Text4.Text) & " SSL 1.1.0.301 EUC-KR ko.linuxm %%00 " & MakePCID & " N " & Text3.Text & "@ubuntu " & GetLockey & vbCrLf
Text2.Text = Text2.Text & "LSIN 4 " & Text3.Text & "@nate.com " & makeTicketURL(Text3.Text, Text4.Text) & " SSL 1.1.0.301 UTF8 ko.linuxm %%00 " & MakePCID & " N " & Text3.Text & "@ubuntu " & GetLockey & vbCrLf
End If

Text1.Text = Text1.Text & Packet  ' show new string
End Sub

 

Private Sub Command1_Click()
Sock.Close
Sock.Connect "203.226.253.91", 5004
End Sub