Problem mit AutoIt

Dizzy

Man(n) kann den Spaß natürlich auch unendlich erweitern und noch weiter vereinfachen (mehr Variable einsetzen für Startzeiten, Infos etc.

Spoiler anzeigen

[autoit]

#cs ----------------------------------------------------------------------------

[/autoit] [autoit][/autoit] [autoit]

AutoIt Version: 3.2.1.3 (beta)
Author: Valuater / Thomas Mega

[/autoit] [autoit][/autoit] [autoit]

Script Function:
Lock Screen

[/autoit] [autoit][/autoit] [autoit]

#ce ----------------------------------------------------------------------------

[/autoit] [autoit][/autoit] [autoit]

; Script Start - Add your code below here

[/autoit] [autoit][/autoit] [autoit]

#include <GuiConstants.au3>
#include <File.au3>
#include <misc.au3>
#notrayicon
$VER = "1.0.5 | "
$Ti=@HOUR & ":" & @MIN & ":" & @SEC
$Info = " to do : 20:00 Uhr Backup" ; " to do : 20:00 Uhr Backup"
$Infoneu = " gestartet : 20:00 Uhr Backup" ; " gestartet : 20:00 Uhr Backup"
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 & $Ti & @CRLF & $Info, 5, 5)
WinSetOnTop(" * MEGA *", "", 1)
WinSetTrans(" * MEGA *", "", 1)
$LOCK = DllOpen("user32.dll")
;MsgBox(262160, " * MEGA *", "LOCKED", 3)
WinSetOnTop(" * MEGA *", "", 1)

[/autoit] [autoit][/autoit] [autoit]

; *** Direktes sperren des Bildschirm - keine Abfrage nach dem Key
_FileWriteLog(@ScriptDir & "\lock.txt", "LOCKED")
SECURE()
$ENTRY = 1
$go=0 ; Flag für einmaligen Start

[/autoit] [autoit][/autoit] [autoit]

While 1
For $TRY = 1 To 91
If _IsPressed($TRY, $LOCK) Or _IsPressed("0D", $LOCK) Then
BREAKIN()
EndIf
Next
WinMinimizeAll()
; _MouseTrap(95, 18, 140, 22)
_MouseTrap(200, 20, 240, 25)
WinSetOnTop(" * MEGA *", "", 1)
Sleep(1)
$Ti=@HOUR & ":" & @MIN & ":" & @SEC
ToolTip("Protected by, * MEGA * v" & $VER & $Ti & @CRLF & $Info, 5, 5)
If $Ti="20:00:00" and $go=0 Then
run("C:\Dokumente und Einstellungen\thomasb\Desktop\autoit-v3\ADTG.exe","")
$go=1
$Info = $Infoneu
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 & "\lock.txt", "LOCKED")
; SECURE()
; $ENTRY = 1
; Return
; Else
WinSetState("Program Manager", "", @SW_HIDE)
$ATTEMPT = $ATTEMPT + 1
_FileWriteLog(@ScriptDir & "\lock.txt", "*** 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 & "\lock.txt", "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 & "\lock.txt", "*** 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 & "\lock.txt", "*** 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)

[/autoit] [autoit][/autoit] [autoit]

EndFunc ;==>SECURE

[/autoit] [autoit][/autoit] [autoit]

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

[/autoit] [autoit][/autoit] [autoit][/autoit]

Thomasb

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

Dizzy

Dann zeig uns doch mal das zweite Script.

CU
Dizzy

Thomasb

moin moin,

schaue bitte in den ersten Post von mir

mfg Thomas

Dizzy

Hmm - im Prinzip müßte das Script laufen.
Ich habe mal die einzelnen Hochkommas gegen doppelte getauscht (vielleicht hat das "send" ein Problem mit dem "!") und ein sleep eingefügt.

Teste das mal :

Spoiler anzeigen

[autoit]

#cs ----------------------------------------------------------------------------

[/autoit] [autoit][/autoit] [autoit]

AutoIt Version: 3.2.1.3 (beta)
Author: myName

[/autoit] [autoit][/autoit] [autoit]

Script Function:
Template AutoIt script.

[/autoit] [autoit][/autoit] [autoit]

#ce ----------------------------------------------------------------------------

[/autoit] [autoit][/autoit] [autoit]

; Prologue ; should be renamed (?) and called somewhere if you are converting an include file
__init()
; End Prologue

[/autoit] [autoit][/autoit] [autoit]

;runwait,%comspec% /C del "t:\\adtg.fbk"
;Sleep,10000
;runwait,%comspec% /C del "t:\\adtg2.fbk"
;Sleep,10000
Run ( "C:\Programme\Microsoft Business Solutions-Navision\Client\fin.exe" )
Sleep ( 1000 )
WinWaitActive ( "Anmelden" )
Send ( "thomasb{TAB}123{ENTER}{ENTER}" )
Sleep ( 1000 )
Send ( "!xs" ) ;hier bleibt es stehen
Send ( "ADTG tägl.Sicherung{TAB}c:\adtg.fbk{ENTER}{ENTER}" )
WinWaitActive ( "", "wurde erfolgreich beendet" )
Sleep ( 5000 )
Send ( "{ENTER}" )
Sleep ( 5000 )
Send ( "!{F4}" )
Exit

[/autoit] [autoit][/autoit] [autoit]

; Epilogue Extra Functions needed for Compatibility execution
; take care of possible redefinition if you are converting an include file
;
func __init () ; to define global variables needed
endfunc
; End Epilogue

[/autoit]

CU
Dizzy

Thomasb

hi,

ne es hilft nicht. Das zweite STartet dan bleibt es in der Anmeldung stehen. Alleine läuft das zweite Sript problemlos.

mfg thomas

Dizzy

Hallo Thomas,

ich habe das bei mir mit einer Anmeldung an einem Pop3 Postfach mal nachgebildet - das klappt einwandfrei.
Es pop zwar für einen Bruchteil einer Sekunde kurz ein Fenster auf, aber danach ist es wieder weg. Die Anmeldung wird durchgeführt.

Wo bleibt der zweite Job denn exakt stehen? Bei der Übergabe vom "Alt XS?"? Wurde dein Username ud das PW eingetragen?
Wo ist der Focus nach dem Alt xs?

Leider kann man das Proggi nicht herunterladen und Navision habe ich nicht - daher kann ich es auch nicht näher testen.

Gruß
Dizzy

Thomasb

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:

Dizzy

Liegt das zweite Script als exe vor und das wird dann vom ersten gestartet? Mir fällt dazu leider nicht mehr viel ein.

Leider kann ich das auch nicht weiter nachstellen und testen.

* denk * :irre:

Hat noch jemand eine Idee?

CU
Dizzy

Dizzy

Kann man dieses "fin.exe" ohne Installation auf einem anderen Rechner starten (klar das es nach einer fiktiven Anmeldung auf die Bretter fliegt)?

Wenn ja - dann beam das Teil mal rüber.

Dizzy

Thomasb

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

Dizzy

Gibt es irgendwo eine Test- oder Trialversion, die man sich ziehen kann?
Wenn ja, dann bitte die URL mal posten.

Dizzy

Thomasb

ne ,
da musste ca 100000 euro ans bein binden mit allen Programmierungen.

Dizzy

:schild4:

Dann bin ich raus aus der Nummer - oder findet sich ein Sponsor? :party4:

**peethebee**

Hallo!

Ich habe es nicht ganz genau verfolgt hier, aber helfen ein paar Screenshots vielleicht?

peethebee

Thomasb

geht leider nicht da das Script alles blockiert

**Xenobiologist**

Hi,

habe mal einen anderen Ansatz. Probier das hier mal aus:

So long,

Mega

Thomasb

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.

Spoiler anzeigen

Send ( 'thomasb{TAB}{Tab}111{ENTER}{ENTER}' )

was kann man hier machen?

mfg Thomas

**Xenobiologist**

Hi,

ich habe im Script auch TAB verboten. Nimm das einfach raus:

HotKeySet("{TAB}", "doNothing")

ersetzen durch

;HotKeySet("{TAB}", "doNothing")

So long,

Mega

Thomasb

Hi,

habe tab durch enter ersetzt dann geht es. Jetzt teste ich erstmal.

mfg Thomas