| |
| |
|
 | ¡Hola,
kann me Por favor, alguien helfen Yo voluntad el Pfad de el el Aktuellle se ejecuta auslesen.
el se con GetDir(@) ir.
Weiß por desgracia, no cómo el Befehl einsetzt.
Wäre encima antworten muy dankbar!!!!
mfg
Julian57 |
|
| |
| |
| |
|
|
Dietmar
Horn | In el "Baby-Box" (F3-Taste) des XProfan-Managers simplemente el Suchbegriff "Ordner" eingeben, entonces findest Usted hay z.B. auch dazu Codes, el Usted Usted sólo todavía entsprechend adaptar necesidad, como z.B.:
KompilierenMarcaSeparacióndeclare 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) >
Saludo
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 | ¡Hola,
voluntad sólo el Laufwerbuchstaben auslesen,
Nur el Laufwerkbuchstaben, y uno Variable speichern
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 | ¡Hola,
es desafortunadamente siempre todavía falso, él se no siempre C: auslesen,
pero el Laufwerkbuchstaben de el el Script started
d.h. si yo el Script el Laufwerk E starte se él E: auslesen
y si yo lo en F: speichere y starte se lo auch F:ausgeben
mfg
Julian57 |
|
| |
| ˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗ Webseite [...] | 14.10.2010 ▲ |
|
| |
|
|
Dietmar
Horn | Welches "Script" willst Usted porque de woher lesen, starten, auswerten, oder como oder qué?
Como müßtest Usted Usted ya algo 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 | ¡Hola,
Yo habe una Script
KompilierenMarcaSeparaciónWindow 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
Was una Passwortabfrage macht (con zwei Benutzern) y Yo voluntad el el Script una (eigentlich zwei,una para una Benutzer) cierto Ordner en media USB-Stick (wo se auch el Script befindet) öffnet. Leider es pero la Laufwerkbuchstabe de media Stick variable y ändert se ständig(porque Yo oft a otro Rechner gehe wo el Laufwerkbuchstabe anders es).Deshalb muss Yo, el aktuellen Laufwerkbuchstaben auslesen!!!!
Hoffe ihr habt mein Anliegen verstanden
mfg
Julian57 |
|
| |
| ˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗ Webseite [...] | 14.10.2010 ▲ |
|
| |
|
|
Jörg
Sellmeyer | Si usted el Skript (prf-Expediente )por Haga doble clic en startest, se lo como Parámetro a el eingestellte Profanprogramm transferencia.
Par$(0) es el Programa selber, Par$(1) - Par$(n) son el übergebenes Parámetro.
Left$(Par$(1),3) ergibt Así que el ersten drei Signo des Cuerdas para el prf-Expediente. |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ...  | 14.10.2010 ▲ |
|
| |
|
|
Julian
Schmidt | Ok el con el Laufwerk funktioniert (ermittelt correcto) öffnet aber entonces trotzdem no el deseado Ordner hier una Codeabschnitt
KompilierenMarcaSeparación
Was muss Yo tun, el lo funktioniert?
mfg
Julian57 |
|
| |
| ˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗ Webseite [...] | 14.10.2010 ▲ |
|
| |
|
|
Jörg
Sellmeyer | Usted mußt Dir veces durchlesen, cómo Stringvariablen y Cuerdas miteinander verbindet!
Pfad$ = lw$ + "LEXAR" |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 14.10.2010 ▲ |
|
| |
|
|
Julian
Schmidt | hallo,
Ok super,
ahora funktioniert!!!
danke a todos
mfg
Julian57 |
|
| |
| ˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗ Webseite [...] | 14.10.2010 ▲ |
|
| |
|
|
 | |
| |
| |
| |
|
(523)
Deutsch
English
Français
Español
Italia