Сеть на ассемблере: проблема

[Питерский2]

Здравствуйте))
Пишу программку которая при включении компа отсылает на заданный электронный ящик письмо с временем и датой включения. Все уже готово, кроме, собственно, отправки эмейла. Для этого решил воспользоваться стандартными средствами ВинАпи, вручную реализовав smtp протокол. Но проблемы начались уже при подключении...
Отладчик показал, что ошибку выдает функция "connect".
Помогите разобраться, пожалуйста.
Заранее спасибо.
Код:

      Invoke MessageBoxA,0,Offset M_Bgn,Offset M_Bgn,0         ;Сообщение о начале исполнения программы
      Invoke GetModuleHandle,0 
      Mov [hInst], EAX
;=================================================
      Invoke WSAStartup, 202h, Offset Skdt                     ;Активируем WSock32.dll
      Test EAX,EAX
Jz @Ok_1
      Jmp @Err
@Ok_1:
;=================================================
      invoke socket, AF_INET, SOCK_STREAM,IPPROTO_TCP          ;Создаем сокет
      Cmp EAX,INVALID_SOCKET
Jne @Ok_2
      Jmp @Err
@Ok_2:
      Mov [hSoc],EAX
;=================================================
      Invoke gethostbyname, Offset Mailru                      ;Получаем адрес mail.ru
      Cmp EAX,NULL
Jne @Ok_3
      Jmp @Err
@Ok_3:                        
                                                               ;Заполняем структуру sockaddr_in
      Mov Sadr.sin_addr,EAX
      Mov Sadr.sin_family, AF_INET
      Invoke htons,25
      Mov Sadr.sin_port,AX                                     ;????????????????  
                                    
      Invoke connect, [hSoc], Offset Sadr, SizeOf Sadr       ;Пытаемся установить подключение... и тут ОШИБКА!
      Test EAX,EAX
Jz @Ok_4
      Jmp @Err
@Ok_4:
 
      Invoke closesocket, [hSoc]                             ;Закрываем сокет
;=================================================

[Питерский2]

Строка Mailru содержит адрес "smtp.mail.ru"
Sadr - структура типа sockaddr_in

[vadimych]

Питерский2, gethostbyname возвращает не адрес, а указатель на структуру hostent, из которой уже нужно извлечь адрес.

invoke gethostbyname,offset name
test eax,eax
je error

mov eax,(hostent ptr [eax]).h_list
mov eax,[eax]
mov eax,[eax] ; в eax - искомое

[waleri]

А зачем все это дело на ассемблере?

[Питерский2]

vadimych, спасибо большое, всё заработало)