by [email protected] (2 Submissions)
Category: Internet/HTML
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Thu 1st July 2004
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
SMTP RAW with WInsock
VBcoders
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