fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

und noch einer ^^

Uploader:	max06
Datum/Zeit:	10.07.2007 19:14:37

    Sub playerlist()



        Dim As Integer x, y





        Print "<playerlist>"

        saccess = 0

        SendText("pl"+NEWLINE)

        Sleep 50



        Print "<Daten abholen>"

        For y = 0 To 100

            'Print "schleife y="; y

            s=replace(S, chr(9), ";")

            If InStr(s, "OK") Then Exit For

            For x=1 To 16

                'Print "schleife x="; x

                playertable(x, y)=SubStr(s, ";", x)

            Next x

            saccess=0

            Sleep 50

        Next y



        For y=0 To 100

            If playertable(y, 1)<>"" then

                For x=1 To 16

                    Print playertable(x, y),

                Next

            End if

        Next

        Print "<fertig>"



    End Sub

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.