код помощи удаления спама:
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