Option Explicit
'You don't use this API function.
'Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
'Dim lcounter As Long
'Do this...
Private lcounter As Long
'Pass strFilename 'ByVal'
Public Sub SendFile(ByVal strFileName As String, wins1 As winsock)
'Use proper coding conventions. Use prefixes such as int, byt etc.
'Use descriptive variable names.
'Dim FreeF2 As Integer
Dim intFreeFile As Integer
'Dim LocData2() As Byte
Dim bytTwoKB() As Byte
'Dim LenData2 As Long
Dim lngLen As Long
'Dim sendloop2 As Long
Dim lngCount As Long
intFreeFile = FreeFile 'Get free file.
Open strFileName For Binary As #intFreeFile 'Open file
ReDim bytTwoKB(1 To 2048) As Byte 'Work in 2kb chunks
lngLen = LOF(intFreeFile) 'Get length of file
For lngCount = 1 To lngLen \ 2048 'Go through file
Get #intFreeFile, , bytTwoKB 'Get data from the file nCnt is from where to start the get
DoEvents 'Give some time.
wins1.SendData bytTwoKB 'Send the chunk
DoEvents 'Give some time.
lcounter = lcounter + 1
'Form a proper 'If Else' case.
'If lCounter Mod 50 = 0 Then DoEvents
If lcounter Mod 50 = 0 Then
DoEvents
End If
'Always clarify the variable in a loop. 'Next' wont work if you have loops within loops...
'Next
Next lngCount
If lngLen Mod 2048 <> 0 Then ' If there is any left over at the end
ReDim bytTwoKB(1 To lngLen Mod 2048) As Byte 'Resize byte array.
Get #intFreeFile, , bytTwoKB 'Get the chunk.
DoEvents 'Give some time.
wins1.SendData bytTwoKB 'Send the chunk
DoEvents 'Give some time.
End If
Close #intFreeFile
DoEvents
End Sub
'Use descriptive sub/function names...
'ByRef is fine, as we may be dealing with large amounts of data.
Public Function oPD(strData As String) As String
MsgBox "used oPD"
'Again, use descriptive variable names.
'Dim TextC As String * 3
Dim strFix3 As String * 3 'Fixed length string. 3 characters.
Dim G As Long
Dim lngLen As Long 'Length of data
'Dim TextX As String
Dim strOut As String 'Output string.
'Dim x As Long
Dim i As Long 'Counting variable.
lngLen = Len(strData)
'Generally, use letters i, j, k for counting variables... coders tradition.
For i = 1 To lngLen
strFix3 = Asc(Mid(strData, i, 1))
strOut = strOut & strFix3
Next i
oPD = strOut
End Function
'Use descriptive sub/function names...
Public Function rPD(Text As String) As String
MsgBox "used rPD"
'Again, use descriptive variable names.
'Dim TextC As String * 3
Dim strFix3 As String * 3 'Fixed length string. 3 characters.
Dim G As Long
Dim lngLen As Long 'Length of data
'Dim TextX As String
Dim strOut As String
'Dim x As Long
Dim i As Long 'Counting variable
lngLen = Len(Text)
For i = 1 To G
'The Chr() function takes a long. Convert the expression using Clng.
'First check if it is numeric.
If IsNumeric(Trim(Mid(Text, i, 3))) = True Then
strFix3 = Chr(CLng(Mid(Text, i, 3)))
End If
strOut = strOut & strFix3
Next i
rPD = strOut
End Function
