hi,
wenn ich das VErzeichniss lösche muss ich es aber gleich wieder anlegen. Schöner wäre die Möglichkeit das die Dateien die mit .fbk enden gelöscht werden. Ist das möglich?
Die andere Frage ist meinst du beim Mailserver Outlook oder Exchange?
mfg Thomas
sorry habe das Problem mit dem Löschen habe ich gelöst.
hi,
neuer Tag neus Glück, ich habe gerade einen erneuten Test hinter mir und siehe da es geht. 
Es kann es möglichsein das ich inm Akkubetrieb das nicht kann, wie ich gestern abend war.
Zwei Fragen habe ich aber noch wie kann ich in einem Ordner alle Löschen, da sonst die SIcherung einen manuellen Eingriff benötigt und kann eine Mail nach erfolgtem Bakup versendet werden?
Ich verteile :keks:
MFG
Thomas
hi,
so ich habe einen Test gefahren. Das zweite läuft an. Es kommte bis zum Start dder Sicherung und dann schläft es ein. Es läuft dann weiter wenn ich F9 drücke. Gibt es eventuell hier noch ein Lösung?
MFg
Thomas
Hi,
habe tab durch enter ersetzt dann geht es. Jetzt teste ich erstmal.
mfg Thomas
hi,
das ist ja super es läuft jetzt schon wesendlich besser. Doch leider macht nun das zweite Script ein Problem
in der Anmeldung sollte eigentlich die Anmelddaten in zwei Zeile stehen aber erschreibt es in eine Zeile was ja falsch ist.
Send ( 'thomasb{TAB}{Tab}111{ENTER}{ENTER}' )
was kann man hier machen?
mfg Thomas
geht leider nicht da das Script alles blockiert
ne ,
da musste ca 100000 euro ans bein binden mit allen Programmierungen.
hallo,
ne die exe ist direct aus Microsoft Business Soulution Navision. Das Teil ist installiert. und auch lizenziert.
Schade das ich keine andere Lösung habe.
mfg Thomas
hi
er bleibt in der Anmeldung stehen bis ich über F9 gehe. Dann lüft das Script weiter aber an einer anderen Stelle.
Was nu
mfg
thomasb
:weinen:
hi,
ne es hilft nicht. Das zweite STartet dan bleibt es in der Anmeldung stehen. Alleine läuft das zweite Sript problemlos.
mfg thomas
moin moin,
schaue bitte in den ersten Post von mir
mfg Thomas
hi,
super es funzt erstmal soweit bis auf den Punkt das das zwiete Script stehenbleibt. Wenn ich über F9 komme läuft es weiter aber an einer anderen Stelle und macht dann Quark!
MFg Thomasb
hi,
ich habe es jetzt so eingebaut
#include <GUIConstants.au3>
#include <File.au3>
#include <misc.au3>
#notrayicon
$VER = "1.0.4"
Opt("WinTitleMatchMode", 4)
Dim $KEY = "111"
Dim $ENTRY, $ATTEMPT = 0, $PHOTO = 3, $COMBO
ENTRY()
If $COMBO = "" Then Exit
HotKeySet("!{TAB}", "BREAKIN")
HotKeySet("{ESC}", "BREAKIN")
HotKeySet("{F9}", "ENTRY")
$SAFE = GUICreate('')
GUISetState($WS_EX_TRANSPARENT, $SAFE)
$VAULT = GUICreate(" *Mega*", @DesktopWidth, @DesktopHeight, -1, -1, -1, -1, $SAFE)
GUISetState()
ToolTip("Protected by, *Mega* v" & $VER, 5, 5)
WinSetOnTop(" *Mega*", "", 1)
WinSetTrans(" *Mega*", "", 1)
$LOCK = DllOpen("user32.dll")
MsgBox(262160, " *Mega*", "LOCKED", 3)
WinSetOnTop(" *Mega*", "", 1)
While 1
For $TRY = 1 To 91
If _IsPressed($TRY, $LOCK) Or _IsPressed("0D", $LOCK) Then
BREAKIN()
EndIf
Next
WinMinimizeAll()
_MouseTrap(95, 180, 140, 22)
WinSetOnTop(" *Mega*", "", 1)
Sleep(1)
$Ti=@HOUR & ":" & @MIN & ":" & @SEC
If $Ti="17:42:00" Then
run("C:\Dokumente und Einstellungen\thomasb\Desktop\autoit-v3\ADTG.exe","")
EndIf
WEnd
Func ENTRY()
;WinSetState("Program Manager", "", @SW_SHOW)
$COMBO = InputBox(" *Mega*", "Please Type in Your Password", "", "*", 150, 100, 50, 50, 10)
If $COMBO = "" Then Return
If Not $ENTRY Then
If $COMBO = $KEY Then
_FileWriteLog(@ScriptDir & "\Mega.dat", "LOCKED")
SECURE()
$ENTRY = 1
Return
Else
WinSetState("Program Manager", "", @SW_HIDE)
$ATTEMPT = $ATTEMPT + 1
_FileWriteLog(@ScriptDir & "\Mega.Dat", "*** LOCK ERROR *** " & $ATTEMPT)
MsgBox(262160, " *Mega*", "LOCK ERROR", 3)
WinSetOnTop(" *Mega*", "", 1)
REPORT()
WinSetOnTop(" *Mega*", "", 1)
Exit
EndIf
Else
If $COMBO = $KEY Then
_FileWriteLog(@ScriptDir & "\Mega.Dat", "UNLOCKED")
DllClose($LOCK)
WinClose("Windows Task Manager")
WinClose("Windows Task-Manager")
WinClose("Windows-Sicherheit")
MsgBox(64, " *Mega*", "UNLOCKED", 3)
;WinMinimizeAllUndo()
ControlEnable("classname=Shell_TrayWnd", "", "ToolbarWindow321")
ControlEnable("classname=Shell_TrayWnd", "", "ToolbarWindow322")
ControlEnable("classname=Shell_TrayWnd", "", "ToolbarWindow323")
ControlEnable("classname=Shell_TrayWnd", "", "Button1")
WinSetState("classname=Progman", "", @SW_ENABLE)
WinSetState("Classname=Shell_TrayWnd", "", @SW_SHOW)
WinSetState("Program Manager", "", @SW_SHOW)
WinSetState("DV2ControlHost", "", @SW_SHOW)
_MouseTrap()
Exit
Else
$ATTEMPT = $ATTEMPT + 1
_FileWriteLog(@ScriptDir & "\Mega.Dat", "*** UNLOCK ERROR *** " & $ATTEMPT)
;MsgBox(262160, " *Mega*", "UNLOCK ERROR", 3)
WinSetOnTop(" *Mega*", "", 1)
REPORT()
WinSetOnTop(" *Mega*", "", 1)
Return
EndIf
EndIf
EndFunc ;==>ENTRY
Func BREAKIN()
WinSetState("Program Manager", "", @SW_HIDE)
;WinMinimizeAll()
WinSetOnTop(" *Mega*", "", 1)
$ATTEMPT = $ATTEMPT + 1
_FileWriteLog(@ScriptDir & "\Mega.Dat", "*** BREAKIN ERROR *** " & $ATTEMPT)
WinSetState("Windows Task Manager", "", @SW_HIDE)
WinSetState("Windows Task-Manager", "", @SW_HIDE)
WinSetState("Windows-Sicherheit", "", @SW_HIDE)
;MsgBox(262160, " *Mega*", "BREAKIN ERROR", 3)
;WinMinimizeAll()
WinSetOnTop(" *Mega*", "", 1)
REPORT()
WinSetOnTop(" *Mega*", "", 1)
EndFunc ;==>BREAKIN
Func SECURE()
Run("taskmgr.exe", "", @SW_DISABLE)
ControlDisable("classname=Shell_TrayWnd", "", "ToolbarWindow321")
ControlDisable("classname=Shell_TrayWnd", "", "ToolbarWindow322")
ControlDisable("classname=Shell_TrayWnd", "", "ToolbarWindow323")
ControlDisable("classname=Shell_TrayWnd", "", "Button1")
WinSetState("Program Manager", "", @SW_HIDE)
WinSetState("classname=Progman", "", @SW_DISABLE)
WinSetState("DV2ControlHost", "", @SW_HIDE)
;WinMinimizeAll()
ControlSetText("classname=Shell_TrayWnd", "", "Button1", "*V*")
WinSetState("Classname=Shell_TrayWnd", "", @SW_HIDE)
EndFunc ;==>SECURE
Func REPORT()
;WinMinimizeAll()
ProgressOn(" *Mega*", "SAVING TO FILE", "0 PERCENT")
For $i = 10 To 100 Step 10
Sleep(50)
ProgressSet($i, $i & " PERCENT")
Next
ProgressSet(100, "DONE", "COMPLETE")
;WinMinimizeAll()
Sleep(500)
ProgressOff()
EndFunc ;==>REPORT
Jetzt startet das zweite Script drei bis vier mal bis eine Fehlermeldung seitens des ERP System. Ist es richtig eingebaut?
Mfg
Thomasb
hi,
das ist die Fehlermeldung die ich bekomme
C:\Dokumente und Einstellungen\thomasb\Desktop\autoit-v3\Include\uhr.au3 (3) : ==> Unknown function name.:
FileWriteLog(@ScriptDir & "\Mega.dat", "Es ist jetzt "& @HOUR & ":" & @MIN & ":" & @SEC)
^ ERROR
mfg Thomasb
hi,
nun habe ich den ganzen Vormittag geübt, soweit ich durch das Script durchgesehen habe habe ich es verändert. Leider imm mit dem gleichen erfolg das kein zweites Script zulääsig ist. Was kann ich noch machen?
MFg
Thomas :weinen:
hi,
ja ich kann es nicht so richtig testen, die erste Version ist besser gelaufen. In der ersten ist der Desktop komplet wech, jetzt kann ich immer noch die Tasten benutzen.
mfg
hallo,
nun bin ich mit meinem Test fertig und muss sagen das das auch nicht geht. Es bleibt schon bei der Anmeldung am System stehen. Vielleicht muss man dem ersten Script noch sagen das ein weiteres zulässig ist?
MFG Thomas
hi,
ich wollte daraus eine exe machen das ich es besser steuer kann. Doch dann ist es vorbei. Ich habe auch versucht es direkt ohne Scite zu machen auch dann ist schluss.
mfg Thomas
:weinen:
hi,
so nun wollte ich es komplieren und dann ist es wieder vorbei. es geht dann nicht. Wie schon beschrieben.
mfg Thomas :irre:
hi,
hier die Antworten,
das Script startet so wie gesagt ich sehe die Box gebe ein pw ein dann fängt es anzuarbeiten dann sind sämtliche Symbole auf dem Desktop weg. Eine Datei wird angelegt. Was ich ab jetzt noch benutzen kann ist die Maus, und die Windowstaste. WENN ICH F9 drücke geschieht nichts.
mfg
sorry war im falschen Film aus Scite herraus geht es
