Beiträge von Eddy_Erpel

[autoit]

#include <string.au3>
#include <GUIConstants.au3>

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

Run("regedit /s D:\SoftM_Start\Reg\Alkor_Suite_T0.reg") ;Warum nicht gleich alle Reg-Keys per AutoIt schreiben???

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

Dim $useridout
Dim $useridin
Dim $useridstd
Dim $useridSoftm
Dim $userpass
Dim $userpassver
Dim $userpassent
Dim $userpassreg
Dim $NameAS400
Dim $DLL
Dim $Temp
Dim $FehlerCode
Dim $nMsg
Dim $start_B

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

$NameAS400 = RegRead("HKEY_CURRENT_USER\Software\SoftM\Global\Parametersteuerung", "System")
$useridout = RegRead("HKEY_CURRENT_USER\Software\IBM\Client Access Express\CurrentVersion\Environments\My Connections\"& $NameAS400 &"\Communication", "User ID")
$useridstd = RegRead("HKEY_CURRENT_USER\Software\IBM\Client Access Express\CurrentVersion\Environments\My Connections\"& $NameAS400 &"\Communication", "Signon Mode")
$useridsoftm = RegRead("HKEY_CURRENT_USER\Software\SoftM\Global\Environment", "StandardUser")
$userpassreg = RegRead ( "HKEY_CURRENT_USER\Software\IBM\Client Access Express\CurrentVersion\Environments\My Connections\"& $NameAS400 &"\Communication" ,"User PW")

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

If ($useridsoftm = "" and $useridout = "") or ($useridsoftm = "" and $useridout <> "") Then
;Opt("GUIOnEventMode", 1) ; Wechsle in den OnEvent Modus
GUICreate("Anmeldung AS/400", 200, 200)
GUICtrlCreateLabel("AS/400 UserName:", 42, 35, 131, 27)
$useridin = GUICtrlCreateInput("", 42, 50, 121, 21)
GUICtrlCreateLabel("AS/400 Passwort:", 42, 85, 111, 17)
$userpass = GUICtrlCreateInput("", 42, 100, 121, 21)
$okbutton = GUICtrlCreateButton("OK", 70, 145, 60)

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

GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $okbutton
_start($NameAS400, GUICtrlRead($useridin), GUICtrlRead($userpass))
EndSwitch
WEnd
Else
if $NameAS400<>"" and $userpassreg And $useridout<>"" Then
_start($NameAS400,$useridout,_StringEncrypt(0,$userpassreg,"passwortencrypten",2)) ;Ich hoffe ich habe die Variablen sinngemäss benutzt.
EndIf
EndIf

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

Func _start($NameAS400, $useridin, $userpass)
RegWrite ( "HKEY_CURRENT_USER\Software\IBM\Client Access Express\CurrentVersion\Environments\My Connections\"& $NameAS400 &"\Communication" ,"User ID", "REG_SZ", $useridin)
ShellExecute("C:\Program Files\IBM\Client Access\cwblogon.exe", " " & $NameAS400 & " /u " & $useridin & " /p " & $userpass,@SW_HIDE)
$userpassver = _StringEncrypt(1, $userpass, "passwortencrypten", 2)
RegWrite ( "HKEY_CURRENT_USER\Software\IBM\Client Access Express\CurrentVersion\Environments\My Connections\"& $NameAS400 &"\Communication" ,"User PW", "REG_SZ", $userpassver)
;ShellExecute($run, '', '', '', @SW_HIDE)
EndFunc ;==>_start

[/autoit]

[autoit]

#include <GuiConstants.au3>
dim $TimeOut=20
AdlibEnable("LabelTimer",1000)
$GUI_Start = @SEC

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

GuiCreate("Zu guter Letzt...", 370, 311,-1, -1 , BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS))

$Radio_2 = GuiCtrlCreateRadio("Ja, das war gar nicht so schlecht...", 50, 130, 270, 20)
$Radio_3 = GuiCtrlCreateRadio("Nein, danke...", 50, 190, 270, 20)
GUICtrlSetState($Radio_3, $GUI_CHECKED)
$Button_6 = GuiCtrlCreateButton("OK", 260, 240, 80, 30)
$Button_7 = GuiCtrlCreateButton("Beenden", 30, 240, 80, 30)
$Label = GUICtrlCreateLabel("Sie haben noch 20 sekunden bis sich das fenster schließt...", 10, 10)
GuiSetState()
while 1
$msg = GuiGetMsg()
Select

Case $msg = $Button_6
If GUICtrlGetState($Radio_2) = $GUI_CHECKED Then
Run("BspMusik.exe")
Else
ExitLoop
EndIf
Case $msg = $Button_7
ExitLoop
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
EndSelect


WEnd

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

Func LabelTimer()
$TimeOut-=1
GUICtrlSetData($Label,"Sie haben noch "& $TimeOut&" sekunden bis sich das fenster schließt...")
if $TimeOut=0 Then
AdlibDisable()
Exit
EndIf
EndFunc

[/autoit]

[autoit]

#include <date.au3>
#include <misc.au3>
#include <inet.au3>
#include <file.au3>
#include <array.au3>
Opt("TrayIconDebug", 1) ;0=no info, 1=debug line info
Dim $aRecords,$zeiten
$Txt = "c:\Datensicherung\Timer.prob"
_FileReadToArray($Txt, $aRecords)
_ArrayReverse($aRecords, 1)
$Outlook2003 = @ProgramFilesDir & "\Microsoft Office\Office11\Outlook.exe"
$PID = ProcessExists("Outlook.exe")
$Addresse = "T:\Datensicherung"
$Ti = @HOUR & ":" & @MIN & ":" & @SEC
$Address= ("behlke@adtg.de")
$Subject= ("Tägliche Datensicherung vom " & _NowDate())
for $i=1 to $aRecords[0]
$zeiten &= $aRecords[$i] &@LF & @LF
Next
$Body = (" Die Tägliche Datensicherung wurde um " & $Ti & " erfolgreich erstellt." & @LF & @LF & _
" Die Scripte liefen " & $zeiten & @LF & @LF & _
" Sie liegt im Pfad. " & "" & $Addresse & "" & @LF & @LF & _
" Freundliche Grüße" & @LF & @LF & " Administrator")
If FileExists("T:\Datensicherung\") Then
If $PID Then
_INetMail($address, $subject, $Body)
Sleep(5000)
Send("!s")
Else
Run($Outlook2003)
WinWaitActive("Posteingang - Microsoft Outlook")
_INetMail($address, $subject, $Body)
Sleep(5000)
Send("!s")
Sleep(1500)
Send("!{F4}")
EndIf
Else
If $PID Then
_INetMail($address, $subject, $Body)
Sleep(5000)
Send("!s")
Else
Run($Outlook2003)
WinWaitActive("Posteingang - Microsoft Outlook")
_INetMail($address, $subject, $Body)
Sleep(5000)
Send("!s")
Sleep(1500)
Send("!{F4}")
EndIf
EndIf

[/autoit]