fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

/dev/oss/

Uploader:	ThePuppetMaster
Datum/Zeit:	11.03.2008 22:03:32

Dim XFIDI as Integer

Dim XFIDO as Integer

XFIDI = FreeFile

'If Open pipe("cat /dev/dsp" for input as #XFID) <> 0 Then Print "Open-Error!": End

If Open pipe("cat /dev/dsp" for input as #XFIDI) <> 0 Then Print "Open-Error!": End

XFIDO = FreeFile

'If Open ("/dev/dsp" for output as #XFIDO) <> 0 Then Print "Open-Error!": End

If Open ("/dev/audio" for output as #XFIDO) <> 0 Then Print "Open-Error!": End

Dim D as String

Dim O as String

Dim X as ULong = 1

Do

    Input #XFIDI, D

    If D <> "" Then

        O = ""

        For X = 1 to Len(D)

'           If asc(Mid(D, X, 1)) > 100 Then

'               O += Chr(asc(Mid(D, X, 1)) \ 2)

'           Else: O += Mid(D, X, 1)

'           End If

            O += Chr(255 - asc(Mid(D, X, 1)))

        Next

        Print #XFIDO, O;

    End if

Loop until inkey() = chr(27)

Close #XFIDO

Close #XFIDI

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.