Laufwerk öffnen / schließen
Übersicht BlitzBasic DLLs und Userlibs
BigmichiBetreff: Laufwerk öffnen / schließen |
Mi, Aug 25, 2004 16:48 Antworten mit Zitat |
|
---|---|---|
in die decls oder wie die heißt
Code: [AUSKLAPPEN] .lib "winmm.dll" mciExecute%(lpstrCommand$) : "mciExecute" Beispiel: Code: [AUSKLAPPEN] Graphics 1024,768,16,2
SetBuffer BackBuffer() Global Status$ Global A While Not KeyHit(1) If KeyHit(57) Then A = Not A : CDO(A) Text 10,10,Status$ Flip Cls Wend End Function CDO(auf) If auf = True Status = "Laufwerk wird geöffnet" Text 10,10,Status$ Flip mciExecute "Set CDaudio door open" Status = "Laufwerk ist geöffnet" Else Status = "Laufwerk wird geschlossen" Text 10,10,Status$ Flip mciExecute "Set CDaudio door closed" Status = "Laufwerk ist geschlossen" End If End function Ich habs gebraucht vielleicht kann es ja jemand auch gebrauchen =) |
||
lettorTrepuS |
Mo, Nov 01, 2004 17:34 Antworten mit Zitat |
|
---|---|---|
-aus Sicherheitsgründen gelöscht- Diese Information ist mit Ihrer Sicherheitsfreigabe leider nicht erhältlich, Bürger. | ||
Sebastian |
Di, Nov 02, 2004 15:23 Antworten mit Zitat |
|
---|---|---|
Wie deinstallieren ?!
Und vorallen : Wie lauten den die Kommands ?! |
||
Seit 2 Jahren kein BlitzBasic und kein Windows mehr, und stolz darauf ! |
David |
Di, Nov 02, 2004 15:32 Antworten mit Zitat |
|
---|---|---|
Hi!
Wie wärs mit Google??? http://msdn.microsoft.com/libr...mmands.asp grüße |
||
http://bl4ckd0g.funpic.de |
Sebastian |
Di, Nov 02, 2004 15:35 Antworten mit Zitat |
|
---|---|---|
Hab ich gleich nach dem Post gemacht ......
Und auf die Seite bin ich auch gestoßen. Danke .... |
||
Seit 2 Jahren kein BlitzBasic und kein Windows mehr, und stolz darauf ! |
lettorTrepuS |
Di, Nov 02, 2004 15:45 Antworten mit Zitat |
|
---|---|---|
-aus Sicherheitsgründen gelöscht- Diese Information ist mit Ihrer Sicherheitsfreigabe leider nicht erhältlich, Bürger. | ||
Sebastian |
Di, Nov 02, 2004 17:13 Antworten mit Zitat |
|
---|---|---|
Big Sorry ....
Jezt mal was andres : Wenn man den Befehl Zitat: play CDaudio from 1 to 2
übergibt. Sollte das den Track01 aufner CD die sich in der CDaudio-Device befindet abspilen ...... Tut es aber nicht ..... Ich les jetzt noch ein bichen auf der Microschrott - Website , wäre aber füpr Vorschläge von euere Seite dankbar .... |
||
Seit 2 Jahren kein BlitzBasic und kein Windows mehr, und stolz darauf ! |
lettorTrepuS |
Di, Nov 02, 2004 18:46 Antworten mit Zitat |
|
---|---|---|
-aus Sicherheitsgründen gelöscht- Diese Information ist mit Ihrer Sicherheitsfreigabe leider nicht erhältlich, Bürger. | ||
Sebastian |
Di, Nov 02, 2004 20:33 Antworten mit Zitat |
|
---|---|---|
Groß und Kleinschreibeung ?!
Teste doch mal Play und play mit nem mp3 file . Beides funtzt ..... |
||
Seit 2 Jahren kein BlitzBasic und kein Windows mehr, und stolz darauf ! |
lettorTrepuS |
Mi, Nov 03, 2004 5:21 Antworten mit Zitat |
|
---|---|---|
-aus Sicherheitsgründen gelöscht- Diese Information ist mit Ihrer Sicherheitsfreigabe leider nicht erhältlich, Bürger. | ||
Sebastian |
Do, Nov 04, 2004 19:05 Antworten mit Zitat |
|
---|---|---|
Also wen man Das Kabel von CDrom aufem Aux steck ..........
(So wie das bei mir war ..........) Passiert Garnix ... Mit richtigem Kabel lüuf alles bestens .... Kaum macht ma's richdich schun funktionierts .... |
||
Seit 2 Jahren kein BlitzBasic und kein Windows mehr, und stolz darauf ! |
Schnuff |
Mo, Mai 16, 2005 20:56 Antworten mit Zitat |
|
---|---|---|
also ich bin mit DLL´s noch sehr unerfahren
und der Code funktioniert bei mir nicht köntet ihr mir sagen was ich Falsch mache ich kopierte den gesammten(unteren) Queltext in meinen Editor(BB3D Version:1.90) sagte immer was von Funktion not Found Bitte helft mir |
||
Vertex |
Mo, Mai 16, 2005 22:26 Antworten mit Zitat |
|
---|---|---|
https://www.blitzforum.de/search.php
Stickwort: Userlib Forum: Beginner meine fresse aber auch... |
||
vertex.dreamfall.at | GitHub |
Mr Hopp |
Di, Aug 09, 2005 12:14 Antworten mit Zitat |
|
---|---|---|
Und wie kann man bestimmen welches Laufwerk geöffnet wird? | ||
Sebastian |
Di, Aug 09, 2005 12:57 Antworten mit Zitat |
|
---|---|---|
Guckst du da :
http://msdn.microsoft.com/libr...mmands.asp |
||
Seit 2 Jahren kein BlitzBasic und kein Windows mehr, und stolz darauf ! |
Mr Hopp |
Di, Aug 09, 2005 13:01 Antworten mit Zitat |
|
---|---|---|
Mein Englisch is ja schon so nich das beste, aber dann auch noch das Fachgeschwetz und C++ von dem ich überhaupt nichts verstehe...Kannst du's mir nich einfach sagen? | ||
Sebastian |
Di, Aug 09, 2005 13:49 Antworten mit Zitat |
|
---|---|---|
Code: [AUSKLAPPEN] open <DriveLetter> Alias <Aliasname> Type <DeviceType> Exampel : BlitzBasic: [AUSKLAPPEN]
Ich gestehe das ich selbst ne weile suchen musste ...... Aber wer suchet der findet ..... |
||
Seit 2 Jahren kein BlitzBasic und kein Windows mehr, und stolz darauf ! |
Mr Hopp |
Di, Aug 09, 2005 13:53 Antworten mit Zitat |
|
---|---|---|
Naja...Danke
Edit: Und was ist der Aliasname? |
||
Mr Hopp |
Mi, Aug 10, 2005 20:59 Antworten mit Zitat |
|
---|---|---|
Oder viel mehr: Was für eine Rolle spielt der Aliasname? Wo is der Unterschied zwischen Cdaudio und Cdaudio2?
Edit: Ok, schon gut, sorry...eigentlich kein unterschied, aber wenn man mit mehreren Laufwerken in einer Runtime arbeitet, bekommen sie verschiedene Nummer, oder? Edit: Ok, langsam wird's peinlich, was ist denn bitte an diesem Testprogramm (Was noch erweitert werden soll) falsch? Code: [AUSKLAPPEN] ;Deklarieren
Global A Alias_z = 1 Type TDLaufwerk Field Laufwerk.TLaufwerk End Type Type TLaufwerk Field Status$ Field Aliasname$ Field DriveLetter$ End Type DLaufwerk.TDLaufwerk = New TDLaufwerk ;Info's des PC's auslesen Info = ReadFile("Nbqcqbzjg.txt") While (Eof(Info) = 0) DLaufwerk\Laufwerk.TLaufwerk = Last TLaufwerk DLaufwerk\Laufwerk.TLaufwerk = New TLaufwerk DLaufwerk\Laufwerk\DriveLetter$ = ReadLine(Info) DLaufwerk\Laufwerk\Aliasname$ = ("Cdaudio"+Alias_z) DLaufwerk\Laufwerk\Status$ = "close" Alias_z = Alias_z + 1 Wend CloseFile(Info) Repeat ;Gewünschtes Laufwerk abfragen Drive$ = Input("Laufwerk: ") ;Daten aufrufen DLaufwerk\Laufwerk.TLaufwerk = First TLaufwerk While Drive$ = DLaufwerk\Laufwerk\DriveLetter$ DLaufwerk\Laufwerk.TLaufwerk = After DLaufwerk\Laufwerk.TLaufwerk Wend Print(DLaufwerk\Laufwerk\Aliasname$) ;Laufwerk öffnen bzw. schließen If DLaufwerk\Laufwerk\Status$ = "open" Then DLaufwerk\Laufwerk\Status$ = "close" If DLaufwerk\Laufwerk\Status$ = "close" Then DLaufwerk\Laufwerk\Status$ = "open" If DLaufwerk\Laufwerk\Status$ = "open" Then mciExecute "open "+DLaufwerk\Laufwerk\DriveLetter$+" Alias "+DLaufwerk\Laufwerk\Aliasname$+" Type Cdaudio" If DLaufwerk\Laufwerk\Status$ = "close" Then mciExecute "close "+DLaufwerk\Laufwerk\DriveLetter$+" Alias "+DLaufwerk\Laufwerk\Aliasname$+" Type Cdaudio" If DLaufwerk\Laufwerk\Status$ = "open" Then mciExecute "Set "+DLaufwerk\Laufwerk\Aliasname$+" door open" If DLaufwerk\Laufwerk\Status$ = "close" Then mciExecute "Set "+DLaufwerk\Laufwerk\Aliasname$+" door closed" Forever Die Datei Was-weis-ich (verschlüsselt für spätere Zwecke) beinhaltet die Laufwerksbuchstaben |
||
Watte |
So, Dez 16, 2007 13:45 Antworten mit Zitat |
|
---|---|---|
sry das ich den alten Thread wieder ausgrabe.. Aber ich hab da nichts verstanden.. Kann mit das mal bitte jemand erklärne? auf noob niveau ? | ||
Übersicht BlitzBasic DLLs und Userlibs
Powered by phpBB © 2001 - 2006, phpBB Group