Need a HELP!

[Ghost_of_Net]

Пытаюсь написать FTP клиент на VBS, использую Catalyst SocketCtrl. В примерах дан вполне действующий кусок кода,
Возможно ли его заствить работать в VBS:

Function FtpGetResult(strResult As String) As Integer
Dim strBuffer As String
Dim cchBuffer As Integer
Dim strLine As String
Dim nPos As Integer
Dim nResult As Integer
Dim bContinue As Integer

FtpGetResult = 0
strResult = ""
bContinue = True
Do While bContinue = True
cchBuffer = formMain.sockCmd.Read(strBuffer, 512)
If cchBuffer < 1 Then
formMain.sockCmd.Action = SOCKET_DISCONNECT
Exit Function
End If
Do
nPos = InStr(strBuffer, vbCrLf)
If nPos > 0 Then
strLine = strLine + Left(strBuffer, nPos - 1)
cchBuffer = cchBuffer - (nPos + 1)
strBuffer = Right(strBuffer, cchBuffer)
nResult = Val(Left(strLine, 3))
If Mid(strLine, 4, 1) <> "-" Then
bContinue = False
End If
If Len(strResult) > 0 Then strResult = strResult + " "
strResult = strResult + Right(strLine, Len(strLine) - 4)
strLine = ""
Else
strLine = strLine + strBuffer
Exit Do
End If
Loop
DoEvents
Loop
FtpGetResult = nResult
End Function

[RayShade]

Думаю, да.



Если в начало вставить

Код: Выделить всё

set ftpctrl = createobject(имяклассаобъектафтпконтрола)


И затем использовать его вместо formMain.sockCmd

[Ghost_of_Net]

Думаю, да.

Если в начало вставить

Код: Выделить всё

set ftpctrl = createobject(имяклассаобъектафтпконтрола)


И затем использовать его вместо formMain.sockCmd

Что самое удивительное я это сделал... Постоянно выскакиевает ошибка "Несоответствие типа"

[alibek]

А SOCKET_DISCONNECT объявлена?

[Ghost_of_Net]

А SOCKET_DISCONNECT объявлена?

Объявлена, объявлена... Вылетает на:

Код: Выделить всё

cchBuffer = formMain.sockCmd.Read(strBuffer, 512)

Вылетает только в VBS, в VB работает без проблем... Я того чтобы все это перенести в VBS я чуть-чуть подправил код VB...