16 , 2011

, .


  17 , 2011
PHP
. . . . ..


  25 , 2011
web-.
, ..


  22 , 2011
.
, ..


 

postheadericon / web / web

WEB-.


web-.

lstAttachments.RemoveItem lstAttachments.ListIndex

End Sub

Private Sub cmdSend_Click()

'

Dim i As Integer

'

'

'

For i = 0 To lstAttachments.ListCount - 1

lstAttachments.ListIndex = i

m_strEncodedFiles = m_strEncodedFiles & _

UUEncodeFile(lstAttachments.Text) & vbCrLf

Next i

'

Winsock1.Connect Trim$(txtHost), 25

m_State = MAIL_CONNECT

'

End Sub

Private Sub Form_Load()

'

' textboxes

'

For Each ctl In Me.Controls

If TypeOf ctl Is TextBox Then

ctl.Text = ""

End If

Next

'

End Sub

Private Sub Form_Unload(Cancel As Integer)

Set m_colAttachments = Nothing

End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)

Dim strServerResponse As String

Dim strResponseCode As String

Dim strDataToSend As String

Winsock1.GetData strServerResponse

Debug.Print strServerResponse

strResponseCode = Left(strServerResponse, 3)

If strResponseCode = "250" Or _

strResponseCode = "220" Or _

strResponseCode = "354" Then

Select Case m_State

Case MAIL_CONNECT

m_State = MAIL_HELO

strDataToSend = Trim$(txtSender)

strDataToSend = Left$(strDataToSend, _

InStr(1, strDataToSend, "@") - 1)

Winsock1.SendData "HELO " & strDataToSend & vbCrLf

Debug.Print "HELO " & strDataToSend

Case MAIL_HELO

m_State = MAIL_FROM

Winsock1.SendData "MAIL FROM:" & Trim$(txtSender) & vbCrLf

Debug.Print "MAIL FROM:" & Trim$(txtSender)

Case MAIL_FROM

m_State =

MAIL_RCPTTO

Winsock1.SendData

"RCPT TO:" & Trim$(txtRecipient) & vbCrLf

Debug.Print "RCPT TO:" & Trim$(txtRecipient)

Case MAIL_RCPTTO

m_State = MAIL_DATA

Winsock1.SendData "DATA" & vbCrLf

Debug.Print "DATA"

Case MAIL_DATA

m_State = MAIL_DOT

: 11 , 2010
: 5763

-  16  -

<1 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 |  16  | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 | 45>

|

postheadericon

.

, , .

Star Force AlB.

, .

.

" " .

.

.