Fe^^"]
Kn[1]Fe^^ said:
можно спросить у вас как сделать фейковый сервер ICQ?
Можно
Цитата:
Сообщение от Kn[1
Fe^^"]
Kn[1]Fe^^ said:
Желательно Delphi.
Берёшь делфи и пишешь. Документацию протокола OSCAR можешь почитать ЗДЕСЬ. Кроме того изучай исходники от карася (где взять уже писали). Для конкретных вопросов по коду есть соответствующий раздел "Программирование".
Dim Data As String
Private Sub Form_load() 'загрузка формы
Winsock1.RemotePort = 5190 'устанавливаем порт 5190
Winsock1.LocalPort = 5190 'устанавливаем локальный порт
Winsock1.Listen 'начинаем слушать порт
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) 'если нам чтото пришло
Winsock1.GetData Data 'то записываем это в переменную
MsgBox Data 'выводим на экран сообшение с тем что получили
End Sub
в клиенте вместо сеpвера авторизации ставь 127.0.0.1 или IP (если IP не под NAT'ом)