fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

noch besser, noch richtiger xD

Uploader:	ytwinky
Datum/Zeit:	13.10.2007 19:57:23

'So läuft es auf alle Fälle unter FB0.181f

'Ohne zusätzliche Compilerschalter

Var LockMode=0, DateiNr=FreeFile

Open "lock" For Binary As #DateiNr

    Input #DateiNr, LockMode

Close #DateiNr

Print *IIF(Lockmode, @"Block", @"OK")



If LockMode=0 Then

  OPEN "lock" For Output As #DateiNr

    Print #DateiNr, 1

  Close #DateiNr

End If



Sleep

If LockMode=0 Then Kill "lock"

'..

End

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.