XProfan

Italia

Source wurde am 29.05.2006 in die Babyklappe auf XProfan.Com abgelegt:
***************************
* Program: POP3-Connect *
***************************
* written by M. Heinemann *
* *
* in 05 / 2006 *
* *
* thanks to Andreas Gaida *
* *
* for winsocks.inc *
***************************
************
* Includes *
************
 $I Winsocks.inc
*****************
* Deklarationen *
*****************
Declare sockTCP&,IP$,a&,Ende%,Computername$,z&
**************
* Prozeduren *
**************

proc receive

    sleep 50
    recfrom socktcp&
    print @$(0)

endproc

proc send

    parameters data$
    Daten senden
    print Sende:  + data$
    Sendet Daten zur einer IP mit der der Socket verbunden wurde
    sendTCP sockTCP&, @add$(data$,
    ) Sock ,Daten
    Daten empfangen
    receive

endproc

proc connect

    print Connect: ;IP$
    Init
    Init 1,1
    Stellt einen TCP Socket her
    CreateSocketTcp
    sockTCP& = @&(0)
    Stellt eine Verbindung zum angegebenen IP her
    ConnectTcpTo 110,IP$,sockTCP& Port, IP , Socket
    Daten empfangen
    receive

endproc

proc disconnect

    print Close
    Schliesst den TCP Socket
    CloseSocketx sockTCP&
    CloseWinsocks

endproc

*****************
* Hauptprogramm *
*****************
IP festlegen
IP$ = 127.0.0.1
Connect
connect
Daten senden
send user lkwpeter
send pass benzin
send list 1
send retr 1
send stat
send quit
Disconnect
disconnect
********
* Ende *
********
print
print
print
print Taste druecken um zu beenden
waitkey
end