Последние записи
- Прозрачность тайлсета в TPNGImage
- Как сделать VBA макрос в excel
- Поиск по столбцу 1-ого не нулевого значения (формулой в Microsoft Office Excel)
- Простановка единиц в ячейки под объектами (Microsoft Office Excel)
- Расчет затраченного времени между определенным рабочим временем (формулой в Microsoft Office Excel)
- Мигающий экран на Assembler
- VBA-макрос по копированию 10 строчек в выбранном диапазоне в Microsoft Office Excel
- Копирование только нужного диапазона в Microsoft Office Excel
- Перенос диапазона стоки в Microsoft Office Excel на другой лист по условию
- Мелодия в Pascal.ABC.Net с помощью System.Console.Beep — задержка воспроизведения звука
22nd
Май
Сеть на ассемблере: проблема
Posted by maloy under assembler
Питерский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] ;Закрываем сокет
;=================================================
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 - искомое
