XProfan

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
************
* Messages *
************
USERMESSAGES 0,5000,5001
*****************
* Deklarationen *
*****************
Declare sockTCP&,IP$,a&,Ende%,Computername$,z&
**************
* Prozeduren *
**************

proc receive

    Daten empfangen
    declare timeout&, count&
    count& = 0
    timeout& = 0

    whilenot timeout& = 1

        count& = count& + 1
        print Warte:  + @str$(count&) +  von 60 Sekunden bis Daten ankommen
        Wenn keine ankommenden Daten

        if %UMessage <> 5000

            case count& = 60: timeout& = 1 Nach 60 Sekunden Timeout ausloesen
            sleep 1000 Eine Sekunde = 1000ms

        endif

        Message vom Socket wenn Daten eintreffen

        if %UMessage = 5000

            timeout& = 1
            recfrom socktcp&
            print @$(0)

        endif

    wend

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)
    Socket wird als Threat gestartet so blockiet der Socket nicht bei vielen Befehlen
    SocketToThreatTcp sockTCP&,5000,%hWnd
    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