fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

Denkfehler?

Uploader:	max06
Datum/Zeit:	09.07.2007 21:56:31

Case "playerlist"

                    Dim As Integer x, y

                    Print "<playerlist>"

                    saccess = 0

                    SendText("pl"+NEWLINE)

                        Sleep 50

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

                        For x = 1 To 16 Step 1

                            playertable(x, 0)=substr(s, ";", x)

                        Next x

                        For y = 1 To 100

                            For x = 1 To 16 Step 1

                                sleep 50

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

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

                            Next x

                        Next y

                        For x=1 To 16

                            For y=0 To 100

                                Print playertable(x, y)

                            Next x

                        Next y

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.