| |
| |
|
| - Seite 1 - |
|
Julian
Schmidt | Hallo,
ich bin gerade auf Fehlersuche bis jetzt leider noch erfolglos.
und zwar ich habe das Programm
DEF GetSysColor(1)!"USER32","GetSysColor"
declare e%,ok&,exit&,Edit&,passwort$,pfad$,lw$,cbox&,eintrag$,x$
PROC AUSWERTUNG
eintrag$=GetText$(cbox&)
if eintrag$ = "Admin"
passwort$="pw1"
if getfocus(ok&)
ifnot GetText$(Edit&) = passwort$
Messagebox("Falsches Passwort!!!","I N F O",4160)
e%= 1
else
lw$ = Left$($ProgDir,(1),3)
pfad$ = lw$ + "LEXAR"
shellexec(pfad$,"explore",3)
e%= 1
end
endif
endif
elseif eintrag$ = "Robotik"
passwort$="pw2"
if getfocus(ok&)
ifnot GetText$(Edit&) = passwort$
Messagebox("Falsches Passwort!!!","I N F O",4160)
e%= 1
else
lw$ = Left$($Progdir,(1),3)
pfad$ = lw$ + "LEXAR\Dokumente\Robotik"
shellexec(pfad$,"explore",3)
e%= 1
endif
endif
endif
EndProc
WindowStyle 24
Windowtitle "Unlock"
Window 10,10-200,210
cls GetSysColor(15)
Create("GroupBox",%HWnd,"Wähle einen Benutzer:",5,5,185,70)
Create("GroupBox",%HWnd,"Gib ein Passwort ein:",5,75,185,65)
cbox&=Create("ChoiceBox",%HWnd,x$,15,30,165,80)
Clearlist
Addstring "Admin"
Addstring "Robotik"
MovelisttoChoice(cbox&)
sendmessage(cbox&,$014E,0,0)
ok& = Create("Button",%HWnd,"OK",10,145,40,25)
exit& = Create("Button",%HWnd,"Beenden",105,145,80,25)
Edit&= Create("Edit",%HWnd,"",15,100,165,(-1) * 20)
SetFocus(Edit&)
whilenot e%
WaitInput
If getfocus(exit&)
MessageBox("Möchten Sie das Programm wirklich Beenden?","F r a g e",4132)
if %Button=6
e%=1
EndIf
elseif getfocus(ok&)
Auswertung
endif
endwhile
end
Es soll mir einen gewünschten Ordner öffnen und das tut es nicht, obwohl er vorhanden ist!!! Zeile 12 bis Zeile14 & Zeile 26 bis Zeile 28
Was ist falsch?
Hoffe auf schnelle Hilfe 
mfg
Julian57 |
|
| |
| ˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗ Webseite [...]  | 06.12.2010 ▲ |
|
| |
|
 |
« Dieser Beitrag wurde als Lösung gekennzeichnet. » |
|
Thomas
Freier | Wenn's nur die Partition sein soll warum nicht:
Aus der Hilfe: $ProgDir
Das Verzeichnis, in dem die Exedatei gestartet wurde
Im Interpretermodus geht' meist schief und meist nur mit: GetDir$("@") |
|
| |
| |
| |
|
|
|
 | Mach mal statt:
ein:
und poste mal was dann in der Zwablage liegt. |
|
| |
| |
| |
|
|
| Wenn Du MessageBox(S1,S2,N) als Funktion nutzt...
kannst doch gleich...
if MessageBox("Möchten Sie das Programm wirklich Beenden?","F r a g e",4132)=6
e%=1
EndIf
bzw. wie oben genutzt sogar:
|
|
| |
| |
| |
|
|
Rolf
Koch | und um Deinen Pfad zurückzukommen - wird sehrwahrscheinlich der Fehler sein:
Wieso:
????
Es gehört sich so:
keine Ahnung was Du mit der (1) willst.
Schau nochmal dort in der Hilfe nach. |
|
| |
| |
| |
|
|
| |
| |
| |
| |
|
|
Thomas
Freier | Wenn's nur die Partition sein soll warum nicht:
Aus der Hilfe: $ProgDir
Das Verzeichnis, in dem die Exedatei gestartet wurde
Im Interpretermodus geht' meist schief und meist nur mit: GetDir$("@") |
|
| |
| |
| |
|
|
Julian
Schmidt | Danke schön an alle funktioniert jetzt  |
|
| |
| ˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗ Webseite [...] | 07.12.2010 ▲ |
|
| |
|
|
| Bitte, wenn möglich, den Beitrag mit der Lösung als Lösung markieren!
Edit: Ah, haste ja - super! |
|
| |
| |
| |
|
(528)
Deutsch
English
Français
Español
Italia