16 , 2011

, .


  17 , 2011
PHP
. . . . ..


  25 , 2011
web-.
, ..


  22 , 2011
.
, ..


 

postheadericon / web / web

WEB-.


web-.

Winsock1.SendData "Subject:" & txtSubject & vbLf & vbCrLf

Debug.Print "Subject:" & txtSubject

Dim varLines As Variant

Dim varLine As Variant

Dim strMessage As String

strMessage = txtMessage & vbCrLf & vbCrLf & m_strEncodedFiles

m_strEncodedFiles = ""

varLines = Split(strMessage, vbCrLf)

strMessage = ""

For Each varLine In varLines

Winsock1.SendData CStr(varLine) & vbLf

Debug.Print CStr(varLine)

Next

Winsock1.SendData "." & vbCrLf

Debug.Print "."

Case MAIL_DOT

m_State = MAIL_QUIT

Winsock1.SendData "QUIT" & vbCrLf

Debug.Print "QUIT"

Case MAIL_QUIT

Winsock1.Close

End Select

Else

Winsock1.Close

If Not m_State = MAIL_QUIT Then

MsgBox "SMTP Error: " & strServerResponse, _

vbInformation, "SMTP Error"

Else

MsgBox "Message sent successfuly.", vbInformation

End If

End If

End Sub

Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)

MsgBox "Winsock Error number " & Number & vbCrLf & _

Description, vbExclamation,

"Winsock Error"

End Sub

Winsock. . . .

M_UUCode.bas

Attribute VB_Name = "M_UUCode"

Public Function UUDecodeToFile(strUUCodeData As String, strFilePath As String)

Dim vDataLine As Variant

Dim vDataLines As Variant

Dim strDataLine As String

Dim intSymbols As Integer

Dim intFile As Integer

Dim strTemp As String

If Left$(strUUCodeData, 6) = "begin " Then

strUUCodeData = Mid$(strUUCodeData, InStr(1, strUUCodeData, vbLf) + 1)

End If

If Right$(strUUCodeData, 4) = "end" + vbLf Then

strUUCodeData = Left$(strUUCodeData, Len(strUUCodeData) - 7)

End If

intFile = FreeFile

Open strFilePath For Binary

: 11 , 2010
: 5665

-  17  -

<1 | 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

WEB-.

web-.

WAP .

WAP

web-.

, .

.

, , .