XProfan

ipouttxt$=Translate$(ipouttxt$,@Chr$(10),"")
bla$=trim$(blub$)e>

String verlängern

Proc extend

    parameters var$, length%

    while len(var$)<length%

        var$=var$+" "

    endwhile

endproc

Testprogramm
declare text$,text1$,text2$,textg$,edit%
windowstyle 27
windowtitle "test"
window 50,50,600,600
edit%=create("multiedit",%hWnd,"",60,60,500,200)
text$="hallo"
text1$=text$+"		-	welt
"
extend text$,12
text2$=text$+"		-	welt"
textg$=text1$+text2$
settext edit%,textg$
waitkey

Déclarer-partie:
declare ping%, btn%, ipinput%, ipoutput%, exit%, ipline%, ip$, curline%
declare outgesamt$, outtxt$, statusbar%, text1%, text2%
Proc-partie:

Proc Ping

    declare pingdatei1$, pingdatei2$, pingstring$, ping$
    Paramètres ip$
    let pingdatei1$="PINGTEST.TXT"
    let pingdatei2$="PING.BAT"
    let pingstring$="PING.EXE -n 1",ip$,">",pingdatei1$
    Assign #6,pingdatei2$
    Rewrite #6
    Imprimer #6,pingstring$
    Fermer #6
    WinExecwait(pingdatei2$,0)
    Assign #5,pingdatei2$
    Effacer #5
    ASSIGN #3,pingdatei1$
    RESET #3
    Ping%=0

    WHILENOT EOF(#3)

        input #3,ping$
        ping$=mid$(ping$,1,11)
        cas equ$(ping$,"Antwort von"):Ping%=1

    WEND

    CLOSE #3
    Assign #1,pingdatei1$
    Effacer #1

ENDPROC

Def-partie:
DEF GetSysColor(1) !"User32","GetSysColor"
la fenêtre erstellen:
Fenêtre Style 571
Titre de la fenêtre "IP Checker"
Fenêtre 50,50 - 600,600
CLS GetSysColor(15)
Usefont "MS Sans Serif",15,0,0,0,0
setdialogfont 1
Fensterelemente gestalten
ipinput%=Créer("MultiEdit",%HWnd,»,10,50,570,-200)
btn%=Créer("Button",%HWnd,"Überprüfen",250,260,100,30)
ipoutput%=Créer("MultiEdit",%HWnd,»,10,320,570,-200)
statusbar%=create("statuswindow",%hWnd,"Bitte donner vous qui IPs un qui überprüft volonté devoir.")
Infotexte eingeben
text1%=create("text",%hWnd,"Geben vous voilà qui IPs par Absätze getrennt un:",50,25,400,20)
text2%=create("text",%hWnd,"Hier sommes qui Ergebnisse:",50,295,200,20)

WhileNot exit%

    waitinput
    cas %clé=2 : pause

    Si clicked(btn%)

        clear outgesamt$
        settext ipoutput%,»
        ipline%=GetLineCount(ipinput%)
        curline%=0
        settext statusbar%,"Verbleibend: "+str$(ipline%)

        Tandis que ipline%

            ip$=GetLine$(ipinput%,curline%)
            ping ip$

            Si ping%=1

                outtxt$=ip$+"		-	Erreichbar
                "

            d'autre

                outtxt$=ip$+"		-	Nicht Erreichbar
                "

            EndIf

            outgesamt$=outgesamt$+outtxt$
            settext ipoutput%,outgesamt$
            inc curline%
            dec ipline%
            settext statusbar%,"Verbleibend: "+str$(ipline%)

        Endwhile

        settext statusbar%,"Vorgang abgeschlossen"
        settext ipinput%,"Vorgang abgeschlossen"

    EndIf

Endwhile

s$=mkstr$("-",12-len(s$))+s$