• Home
 · 
• Internet/HTML
 · 
• SMTP RAW with WInsock

SMTP RAW with WInsock

SMTP RAW with WInsock

Rate SMTP RAW with WInsock

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Private Sub Command1_Click()
Winsock1.RemoteHost = Combo1.Text
Winsock1.Connect
step = 0
End Sub

Private Sub Form_Load()
Combo1.AddItem "192.168.0.1"
Combo1.AddItem "192.168.0.220"
Combo1.ListIndex = 0
End Sub

Private Sub Text5_Change()
If Text5.Text = "1" Then Winsock1.SendData ("HELO server" + vbCrLf)
If Text5.Text = "2" Then Winsock1.SendData ("mail from:" & Text2.Text + vbCrLf)
If Text5.Text = "3" Then Winsock1.SendData ("rcpt to:" & Text3.Text + vbCrLf)
If Text5.Text = "4" Then Winsock1.SendData ("data" + vbCrLf)
If Text5.Text = "5" Then Winsock1.SendData (Text4.Text + vbCrLf & "." + vbCrLf)
If Text5.Text = "6" Then Winsock1.SendData ("quit" + vbCrLf)
If Text5.Text = "7" Then Winsock1.Close
If Text5.Text = "7" Then List1.AddItem "-----------------------------------------"
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim strData As String
Winsock1.GetData strData
List1.AddItem strData
step = step + 1
Text5.Text = step
End Sub