код помощи удаления спама:

stu$ = fData

su$ = hex2str("000500")

For v = 1 To Len(stu$)

If Mid$(stu, v, Len(su$)) = su$ Then

k = v

GoTo qu:

End If

Next

qu:

stu2$ = fData

su2$ = hex2str("3A35313930")

For v2 = 1 To Len(stu2$)

If Mid$(stu2, v2, Len(su2$)) = su2$ Then

k2 = v2

GoTo qu2:

End If

Next

qu2:

Serv2 = Mid(fData, k + 4, k2 - (Hex(GetByte(fData, 4)) + 9))

Port2 = 5190

cook = Mid(fData, k2 + 5, Len(fData))

CloseConnection

Connect Serv2, Port2