| |
| |
|
 | Salut,
peux mir s'il te plaît quelqu'un aider je veux den Pfad aus dem cela Aktuellle fonctionne auslesen.
cela soll avec GETDIR(@) aller.
sais malheureusement pas comment on den Befehl einsetzt.
Wäre sur répondre très reconnaissant!!!!
mfg
Julian57 |
|
| |
| |
| |
|
|
Dietmar
Horn | dans qui "Baby-Box" (F3-bouton) des XProfan-Managers simple den Suchbegriff "Ordner" eingeben, ensuite findest Du là z.B. aussi en supplément Codes, qui Du Dir seulement encore entsprechend anpassen brauchst, comment z.B.:
KompilierenMarqueSéparationdeclare text$
text$ = "Programmverzeichnis:\t" + $ProgDir
text$ = text$ + "\nWindowsverzeichnis:\t" + $WinPath
text$ = text$ + "\nWindows-System-Verzeichnis:\t" + $SysPath
text$ = text$ + "\nTemporäres Verzeichnis:\t" + $TempDir + "\n"
text$ = text$ + "\nTemporäres Verzeichnis:\t" + $TempDir + "\n"
text$ = text$ + "\nJulians Lieblingsordner:\t" + $ProgDir + "JULIAN"
Messagebox(text$,"I N F O",4160) >
Salut
Dietmar |
|
| |
| Multimedia für Jugendliche und junge Erwachsene - MMJ Hoyerswerda e.V. [...]  Windows 95 bis Windows 7 Profan² 6.6 bis XProfan X2 mit XPSE Das große XProfan-Lehrbuch: [...] | 14.10.2010 ▲ |
|
| |
|
|
Julian
Schmidt | Salut,
veux seulement den Laufwerbuchstaben auslesen,
seulement den Laufwerkbuchstaben, et dans einer Variable Sauver
mfg
Julian57 |
|
| |
| ˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗ Webseite [...] | 14.10.2010 ▲ |
|
| |
|
|
Dietmar
Horn | |
| |
| Multimedia für Jugendliche und junge Erwachsene - MMJ Hoyerswerda e.V. [...] Windows 95 bis Windows 7 Profan² 6.6 bis XProfan X2 mit XPSE Das große XProfan-Lehrbuch: [...] | 14.10.2010 ▲ |
|
| |
|
|
Julian
Schmidt | Salut,
ist malheureusement toujours faux, il soll pas toujours C: auslesen,
mais den Laufwerkbuchstaben de dem cela Script started
d.h. si je cela Script sur cela Laufwerk E starte soll il E: auslesen
et si je es sur F: speichere et starte soll es aussi F:ausgeben
mfg
Julian57 |
|
| |
| ˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗ Webseite [...] | 14.10.2010 ▲ |
|
| |
|
|
Dietmar
Horn | Welches "Script" veux Du car de woher lesen, starten, auswerten, ou bien comment ou bien quoi?
là müßtest Du toi déjà quelque chose verständlicher ausdrücken ... |
|
| |
| Multimedia für Jugendliche und junge Erwachsene - MMJ Hoyerswerda e.V. [...] Windows 95 bis Windows 7 Profan² 6.6 bis XProfan X2 mit XPSE Das große XProfan-Lehrbuch: [...] | 14.10.2010 ▲ |
|
| |
|
|
Julian
Schmidt | Salut,
j'ai un Script
KompilierenMarqueSéparationWindow 10,10-100,260
WindowStyle 536
WindowTitle " Unlock_by Julian57 :-)"
declare prgpfad$
declare e%,x%,y%,Edit&,weiter&,exit&,passwort$,admin&,gast&
declare text$
text$ = "Programmverzeichnis:\t" + $ProgDir
Cls rgb(0,255,0)
Print ""
Print " Wähle einen "
Print " Benutzer aus "
admin& = Create("Button",%hwnd,"Admin",5,60,100,30)
gast& = Create("Button",%hwnd,"Gast",5,100,100,30)
print ""
print ""
print ""
print ""
print ""
print ""
print " Optionen "
exit& = Create("Button",%hwnd,"Beenden",5,165,100,30)
While 1
WaitInput
If Clicked(admin&)
Cls rgb(0,0,0)
x% = 260
y% = 115
passwort$ = "Passwort von Admin"
WindowStyle 16
WindowTitle "Passwort-Abfrage"
Window (%MaxX- x%) / 2,(%MaxY - y%) / 2 - x%,y%
Edit& = Create("Edit",%HWnd,"",5,5,245,(-1) * 20)
weiter& = Create("Button",%HWnd,"Log in",5,Height(%HWnd) - 30,100,25)
exit& = Create("Button",%HWnd,"Beenden",Width(%HWnd) - 105,Height(%HWnd)- 30,100,25)
SetFocus(Edit&)
clear e%
whilenot e%
if Clicked(exit&)
e% = 1
elseif Clicked(weiter&)
ifnot GetText$(Edit&) = passwort$
Messagebox("Falsches Passwort!!!","I N F O",4160)
e% = 1
end
else
e% = 999
var lw$ = Left$($ProgDir,2)
shellexec("lw$/LEXAR","open",3)
end
endif
endif
endwhile
ElseIf Clicked(gast&)
Cls rgb(0,0,0)
x% = 260
y% = 115
passwort$ = "Passwort von Gast"
WindowStyle 16
WindowTitle "Passwort-Abfrage"
Window (%MaxX- x%) / 2,(%MaxY - y%) / 2 - x%,y%
Edit& = Create("Edit",%HWnd,"",5,5,245,(-1) * 20)
weiter& = Create("Button",%HWnd,"Log in",5,Height(%HWnd) - 30,100,25)
exit& = Create("Button",%HWnd,"Beenden",Width(%HWnd) - 105,Height(%HWnd)- 30,100,25)
SetFocus(Edit&)
clear e%
whilenot e%
WaitInput
if Clicked(exit&)
e% = 1
elseif Clicked(weiter&)
ifnot GetText$(Edit&) = passwort$
Messagebox("Falsches Passwort!!!","I N F O",4160)
e% = 1
end
else
e% = 999
var lw$ = Left$($ProgDir,2)
shellexec("lw$/LEXAR/Dokumente/Robtik/Lapview/FLL","open",3)
endif
endif
endwhile
ElseIf Clicked(exit&)
end
EndIf
Endwhile
end
quoi une Passwortabfrage pouvoir (avec deux Benutzern) et je veux cela cela Script une (eigentlich deux,une pour une Benutzer) certain Dossier sur meinen USB-Stick (wohin sich aussi cela Script est) ouvrez. malheureusement ist mais qui Laufwerkbuchstabe de meinen Stick variable et ändert sich ständig(weil je souvent à autre calculateur vais wohin qui Laufwerkbuchstabe anders ist).c'est pourquoi muss Je l' aktuellen Laufwerkbuchstaben auslesen!!!!
Hoffe vous avez mon Anliegen verstanden
mfg
Julian57 |
|
| |
| ˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗ Webseite [...] | 14.10.2010 ▲ |
|
| |
|
|
Jörg
Sellmeyer | si Du cela Skript (prf-Dossier )per Double-cliquez sur startest, wird es comme paramètre à cela eingestellte Profanprogramm transfert.
Par$(0) ist cela Programme selber, Par$(1) - Par$(n) sommes qui übergebenes paramètre.
À gauche$(Par$(1),3) ergibt alors qui ersten trois marque des Cordes pour qui prf-Dossier. |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ...  | 14.10.2010 ▲ |
|
| |
|
|
Julian
Schmidt | Ok cela avec dem Laufwerk funktioniert (ermittelt richtig) ouvrez mais ensuite quand même pas den gewünschten Dossier ici un Codeabschnitt
KompilierenMarqueSéparation
quoi muss je 1faire, cela es funktioniert?
mfg
Julian57 |
|
| |
| ˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗ Webseite [...] | 14.10.2010 ▲ |
|
| |
|
|
Jörg
Sellmeyer | tu dois Dir la fois durchlesen, comment on Stringvariablen et Cordes miteinander verbindet!
Pfad$ = lw$ + "LEXAR" |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 14.10.2010 ▲ |
|
| |
|
|
Julian
Schmidt | allô,
Ok super,
maintenant funktioniert!!!
merci à alle
mfg
Julian57 |
|
| |
| ˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗ Webseite [...] | 14.10.2010 ▲ |
|
| |
|
|
 | |
| |
| |
| |
|
(517)
Deutsch
English
Français
Español
Italia