код помощи удаления спама: 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
Устанавливайте анти спам бот, чистите контакты. И проблем не будет, мне раньше не авторизованных пользователей приходило. Поставил антиспам бот, забыл что это такое.
