Gui Probleme

1. offizieller Beitrag

    Hiho,

    ich habe ein GUI gebastelt, in dem 2 Buttons jeweils ein weiteres GUI öffnen.
    Soweit klappt das auch alles, jedoch gibt es 2 probleme.

    prob 1
    wenn einer der beiden knöpfe gedrückt wurde und gui2 wieder verlassen wurde, kann man sie anschließend nicht erneut öffnen.

    prob 2
    wenn einer dieser beiden knöpfe gedrückt und gui2 wieder beendet wurde, lässt sich gui1 nicht mehr bedienen.

    also ich bin gerade dabei, dass komplette script umzuschreiben, deswegen sind eh noch nicht alle sachen fertig (das GUI zu button 2 existiert noch garnicht, aber das problem wird ja das selbe sein).

    Spoiler anzeigen
    [autoit]

    ;create gui 1
    $gui = GUICreate($script & " V3", 400, 300, -1, -1, -1, $WS_EX_ACCEPTFILES)
    $ok = GUICtrlCreateButton("&OK", 40, 251, 70)
    $cancel = GUICtrlCreateButton("&Cancel", 290, 251, 70)
    $label = GUICtrlCreateLabel("© blabla", 160, 260)
    GUICtrlSetColor(-1, 0x9E9E9E)
    GUICtrlSetFont($label, 7)
    $menu = GUICtrlCreateMenu("&More")
    $infos = GUICtrlCreateMenuitem("&Info", $menu)
    $about = GUICtrlCreateMenuitem("&About", $menu)
    $language = GUICtrlCreateMenu("&Language")
    $eng = GUICtrlCreateMenuitem("&Englisch", $language)
    $ger = GUICtrlCreateMenuitem("&German", $language)

    ;tab1
    GUICtrlCreateTab(0, 0, 400, 245)
    GUICtrlCreateTabItem("Modify Start")
    FileInstall("Henkel2.jpg", @TempDir & "\")
    GUICtrlCreatePic(@TempDir & "\Henkel2.jpg", 200, 30, 180, 110)
    $cbportal = GUICtrlCreateCheckbox("Close Portal", 30, 40)
    GUICtrlSetTip($cbportal, "Closes the Portal if you don´t need it")
    If $portal = 1 then GUICtrlSetState($cbportal, 1)
    $cbinfo = GUICtrlCreateCheckbox("Close HDInfo-Window", 30, 70)
    GUICtrlSetTip($cbinfo, "Closes the HDInfo-Window if you don´t need it")
    If $info = 1 then GUICtrlSetState($cbinfo, 1)
    $cbinstall = GUICtrlCreateCheckbox("Close Install/Error Windows", 30, 100)
    GUICtrlSetTip($cbinstall, "Closes some Error/Install-Windows which sometimes appear")
    If $install = 1 then GUICtrlSetState($cbinstall, 1)
    GUICtrlCreateLabel("----------------------------------------------------", 30, 130)
    $cbbackup = GUICtrlCreateCheckbox("Run Lotus Notes Backup", 30, 150)
    GUICtrlSetTip($cbbackup, "Runs the Backup-my-Data-Function for Lotus Notes")
    If $backup = 1 then GUICtrlSetState($cbbackup, 1)
    $cbnotes = GUICtrlCreateCheckbox("Run Lotus Notes", 30, 180)
    GUICtrlSetTip($cbnotes, "Runs Lotus Notes (after the Backup)")
    If $notes = 1 then GUICtrlSetState($cbnotes, 1)
    $IE = GUICtrlCreateButton("IE-Settings", 290, 160, 70) ;button startet gui 2
    $Tools = GUICtrlCreateButton("Tool-Settings", 290, 190, 70)

    ;tab2
    GUICtrlCreateTab(-1, -1, 400, 245)
    GUICtrlCreateTabItem("Modify Shutdown")
    $cbshutdown = GUICtrlCreateCheckbox("Message before Shutdown", 30, 40)
    GUICtrlSetTip($cbshutdown, "Shows a MsgBox with some Information, if you Turn off, Reboot, or Logout")
    If $shutdown = 1 then GUICtrlSetState($cbshutdown, 1)
    $edit = GUICtrlCreateEdit("Put here your text you want to see before the Shutdown", 10, 70, 380, 150, $ES_AUTOVSCROLL+$ES_AUTOHSCROLL+$ES_WANTRETURN+$ES_MULTILINE)
    If $shutdown = 1 then GUICtrlSetData($edit, $inimsg)

    GUISetState(@SW_SHOW)

    While 1
    $msg = GUIGetMsg()
    Select
    case $msg = $gui_event_close
    Exit
    Case $msg = $cancel
    Exit
    case $msg = $infos
    MsgBox(32, "Info", "General:" & @CRLF & "This little program will help you, to modify your systemstart and shutdown with different settings")
    case $msg = $about
    MsgBox(64, "About", "This tool is written by sc4ry" & @CRLF & @CRLF & " ----------- IFK 2005 -----------")
    ;IE-Settings GUI
    case $msg = $IE ;ruft gui 2 auf
    $guiie = GUICreate("IE-Settings", 300, 250)
    $ok2 = GUICtrlCreateButton("Ok", 20, 220, 70)
    $cancel2 = GUICtrlCreateButton("Cancel", 220, 220, 70)
    GUICtrlCreateTab(0, 0, 300, 215)
    GUICtrlCreateTabItem("Internet Access")
    $access = GUICtrlCreateCheckbox("automatic Internet Access Logon", 50, 40)
    GUICtrlSetTip($access, "If you select this option, you will automaticly get access to the Internet, without writing your UserID & PW every time")
    GUICtrlCreateLabel("UserID", 50, 82, 50)
    $user = GUICtrlCreateInput("", 110, 80, 100)
    GUICtrlCreateLabel("Password", 50, 122, 50)
    $pw = GUICtrlCreateInput("", 110, 120, 100, "", $ES_PASSWORD)
    GUICtrlCreateTab(-1, -1, 300, 215)
    GUICtrlCreateTabItem("Sites to open")
    GUICtrlCreateLabel("URL 1", 10, 45)
    $link1 = GUICtrlCreateInput("", 50, 40, 230, 25)
    GUICtrlSetTip(-1, "Please input here a URL, which you want to launch after the Start")
    GUICtrlCreateLabel("URL 2", 10, 75)
    $link2 = GUICtrlCreateInput("", 50, 70, 230, 25)
    GUICtrlSetTip(-1, "Please input here a URL, which you want to launch after the Start")
    GUICtrlCreateLabel("URL 3", 10, 105)
    $link3 = GUICtrlCreateInput("", 50, 100, 230, 25)
    GUICtrlSetTip(-1, "Please input here a URL, which you want to launch after the Start")
    GUICtrlCreateLabel("URL 4", 10, 135)
    $link4 = GUICtrlCreateInput("", 50, 130, 230, 25)
    GUICtrlSetTip(-1, "Please input here a URL, which you want to launch after the Start")
    GUICtrlCreateLabel("URL 5", 10, 165)
    $link5 = GUICtrlCreateInput("", 50, 160, 230, 25)
    GUICtrlSetTip(-1, "Please input here a URL, which you want to launch after the Start")
    GUISetState (@SW_SHOW)
    While 1
    $msg = GUIGetMsg()
    Select
    case $msg = $gui_event_close
    GUIDelete($guiie)
    Case $msg = $cancel2
    GUIDelete($guiie)
    case $msg = $ok2
    If GUICtrlRead($access) = 1 Then
    IniWrite(@ScriptDir & "\" & $ini, "IE-Settings", "IE Access", "1")
    $iniuser = GUICtrlRead($user)
    $ieuser = IniWrite(@scriptdir & "\" & $ini, "IE-Settings", "UserID", $iniuser)
    $pwEncrypt = _StringEncrypt(1, GUICtrlRead($pw), $pwkey, 4)
    $iepw = IniWrite(@scriptdir & "\" & $ini, "IE-Settings", "Password", $pwEncrypt)
    Else
    IniWrite(@ScriptDir & "\" & $ini, "IE-Settings", "IE Access", "0")
    EndIf
    $inilink1 = GUICtrlRead($Link1)
    IniWrite(@ScriptDir & "\" & $ini, "IE-Settings", "Link 1", $inilink1)
    $inilink2 = GUICtrlRead($Link2)
    IniWrite(@ScriptDir & "\" & $ini, "IE-Settings", "Link 2", $inilink2)
    $inilink3 = GUICtrlRead($Link3)
    IniWrite(@ScriptDir & "\" & $ini, "IE-Settings", "Link 3", $inilink3)
    $inilink4 = GUICtrlRead($Link4)
    IniWrite(@ScriptDir & "\" & $ini, "IE-Settings", "Link 4", $inilink4)
    $inilink5 = GUICtrlRead($Link5)
    IniWrite(@ScriptDir & "\" & $ini, "IE-Settings", "Link 5", $inilink5)
    GUIDelete($guiie)
    EndSelect
    WEnd
    case $msg = $tools ;create gui 2 No. 2 (nicht fertig)
    GUICreate("Tool Settings")
    GUICtrlCreateLabel("Here you are able to Start some own Tools", 10, 10)
    $input1 = GUICtrlCreateInput("", 30, 40, 250, 25)
    GUICtrlSetState(-1, $GUI_ACCEPTFILES)
    $button1 = GUICtrlCreateButton("Browse&1", 300, 40, 70)
    $input2 = GUICtrlCreateInput("", 30, 70, 250, 25)
    GUICtrlSetState(-1, $GUI_ACCEPTFILES)
    $button2 = GUICtrlCreateButton("Browse&2", 300, 70, 70)
    $input3 = GUICtrlCreateInput("", 30, 100, 250, 25)
    GUICtrlSetState(-1, $GUI_ACCEPTFILES)
    $button3 = GUICtrlCreateButton("Browse&3", 300, 100, 70)
    GUISetState (@SW_SHOW)

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

    Case $msg = $ok ;bedingungen von gui 1
    If GUICtrlRead($cbportal) = 1 Then
    IniWrite(@ScriptDir & "\" & $ini, "Kill on Start", "portal", "1")
    Else
    IniWrite(@ScriptDir & "\" & $ini, "Kill on Start", "portal", "0")
    EndIf
    If GUICtrlRead($cbinfo) = 1 Then
    IniWrite(@ScriptDir & "\" & $ini, "Kill on Start", "info", "1")
    Else
    IniWrite(@ScriptDir & "\" & $ini, "Kill on Start", "info", "0")
    EndIf
    If GUICtrlRead($cbinstall) = 1 Then
    IniWrite(@ScriptDir & "\" & $ini, "Kill on Start", "install", "1")
    Else
    IniWrite(@ScriptDir & "\" & $ini, "Kill on Start", "install", "0")
    EndIf
    If GUICtrlRead($cbbackup) = 1 Then
    IniWrite(@ScriptDir & "\" & $ini, "Run on Start", "backup", "1")
    Else
    IniWrite(@ScriptDir & "\" & $ini, "Run on Start", "backup", "0")
    EndIf
    If GUICtrlRead($cbnotes) = 1 Then
    IniWrite(@ScriptDir & "\" & $ini, "Run on Start", "notes", "1")
    Else
    IniWrite(@ScriptDir & "\" & $ini, "Run on Start", "notes", "0")
    EndIf
    If GUICtrlRead($cbshutdown) = 1 Then
    IniWrite(@ScriptDir & "\" & $ini, "Run End", "end", "1")
    $editmsg = GUICtrlRead($edit, 1)
    IniWrite(@ScriptDir & "\" & $ini, "Run End", "msg", StringReplace($editmsg, @CRLF, "[CRLF]"))
    Opt("OnExitFunc", "endscript")
    Else
    IniWrite(@ScriptDir & "\" & $ini, "Run End", "end", "0")
    Exit
    EndIf

    [/autoit]

    also ich verstehe schon was du meinst, (hört sich auch nicht schlecht an), aber hast du vllt ein minibsp, wo ich es mir mal angucken kann ... weil so wie ich es mache, funzt es nicht richtig.

    sobald ich gui2 aufrufe, verhunzt wieder irgendwas

    EDIT:

    [autoit]

    case $msg = $IE
    GUISetState (@SW_SHOW, $guiie)
    Case $msg = $cancel2
    GUICtrlSetState(@SW_HIDE, $guiie)

    [/autoit]

    also wenn ich den button $IE klicke, funzt show, klicke ich aber $cancel2, bleibt das fenster bestehen

    EDIT2:

    fehler erkannt und gebannt, hab ein GUICtrlSetState statt GUISetState =)

    ich habe noch eine frage:

    ich habe jetzt 3 gui, deren buttons ich alle in einer while-schleife verwalte.
    die buttons kann ich ja bennen, wie ich will, dass nichts durcheinander gerät, doch was mache ich mit $gui_event_close, also dem "x" oben rechts?

    wenn das maingui gestartet ist, und $gui_event_close gedrückt wird, soll natürlich alles geschlossen werden.
    passiert dass aber bei gui2 und 3, soll nur das jeweilige gui geschlossen werden.

    im mom ist es halt so:

    case $msg = $gui_event_close
    Exit

    alle 3 gui reagieren darauf

    • Offizieller Beitrag

    Hi,

    Spoiler anzeigen
    [autoit]

    #include <GUIConstants.au3>
    $main_GUI = GUICreate("Main GUI", 300, 100, 10, 10)
    $b_1 = GUICtrlCreateButton("Click me 1", 10, 10, 80, 20)
    GUISetState(@SW_SHOW, $main_GUI)

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

    $child_GUI = GUICreate("Child GUI", 300, 100, 330, 10, Default, Default, $main_GUI)
    $b_2 = GUICtrlCreateButton("Click me 2", 10, 10, 80, 20)
    GUISetState(@SW_SHOW, $child_GUI)

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

    While 1
    $msg = GUIGetMsg(1)
    Select
    Case $msg[0] = $GUI_EVENT_CLOSE And $msg[1] = $main_GUI
    MsgBox(16, "MAIN", "Closed MAIN", 2)
    Exit(0)
    Case $msg[0] = $GUI_EVENT_CLOSE And $msg[1] = $child_GUI
    MsgBox(16, "CHILD", "CLOSED CHILD", 2)
    GUIDelete($child_GUI)
    Case $msg[0] = $b_1 And $msg[1] = $main_GUI
    MsgBox(16, "MAIN", "Button 1", 2)
    Case $msg[0] = $b_2 And $msg[1] = $child_GUI
    MsgBox(16, "CHILD", "Button 2", 2)
    EndSelect
    WEnd

    [/autoit]

    So long,

    Mega

    das geht über ne dll - also das faden - ich suche es mal schnell heraus

    [autoit]


    #include <GUIConstants.au3>
    $hwnd = GUICreate("")
    DllCall ( "user32.dll", "int", "AnimateWindow", "hwnd", $hwnd, "int", 3000, "long", 0x00080000 );fade-in Zeit in Ms hier 3sec

    [/autoit]

    bitte schön

    2 Mal editiert, zuletzt von leviathan (6. Juni 2007 um 14:22)

    hierzu habe ich leider noch eine frage. leider klappt es bei mir nicht richtig, wo liegt der fehler (kein fehler beim compilieren vorhanden, jedoch reagiert kein button mehr)

    [autoit]


    ...
    $gui = GUICreate($script & " V3", 400, 300, -1, -1, -1, $WS_EX_ACCEPTFILES)
    $menu = GUICtrlCreateMenu("&More")
    $infos = GUICtrlCreateMenuitem("&Info", $menu)
    $about = GUICtrlCreateMenuitem("&About", $menu)
    ...
    ...
    $helpgui = GUICreate("Information", 600, 400, "", "", "", "", $gui)
    ...
    ...
    case $msg[0] = $infos And $msg[1] = $helpgui
    GUISetState(@SW_SHOW, $helpgui)
    ...

    [/autoit]

    PS: sorry, ich seh es jetzt schon =)
    PPS: thx euch allen =)

    bitte mal ein ganzes testbares script und du hast auch auch keinen Button da inna GUI

    • Offizieller Beitrag

    Hi,

    Valuater hat mal eine Funktion geschrieben für das anminieren der Fenster:

    [autoit]

    Func XSkinAnimate($Xwnd, $Xstate = 1, $Xstyle = 0, $Xtrans = 0, $Xspeed = 1000)
    ; $Xstate - 1 = Show, 2 = Hide, '' = No State Set
    ; $Xstyle - 1=Fade, 3=Explode, 5=L-Slide, 7=R-Slide, 9=T-Slide, 11=B-Slide, 13=TL-Diag-Slide, 15=TR-Diag-Slide, 17=BL-Diag-Slide, 19=BR-Diag-Slide
    Local $Xpick = StringSplit('80000,90000,40010,50010,40001,50002,40002,50001,40004,50008,40008,50004,40005,5000a,40006,50009,40009,50006,4000a,50005', ',')
    If Not WinExists($Xwnd) Then XSkinAnError('XSkinAnimate, $Xwnd - Window not found ')
    If $Xstyle > $Xpick[0] Then XSkinAnError('XSkinAnimate, $Xstyle max is 19 ')
    If $Xstyle <> 0 Then Local $ret = DllCall('user32.dll', 'int', 'AnimateWindow', 'hwnd', $Xwnd, 'int', $Xspeed, 'long', '0x000' & $Xpick[$Xstyle])
    If $Xtrans <> 0 Then WinSetTrans($Xwnd, '', $Xtrans)
    If $Xstate = 1 Then GUISetState(@SW_SHOW, $Xwnd)
    If $Xstate = 2 Then GUISetState(@SW_HIDE, $Xwnd)
    If $Xstyle <> 0 Then Return $ret
    EndFunc ;==>XSkinAnimate

    [/autoit]

    So long,

    Mega

    @leviathan

    hab das prob schon selbst gefunden, als ich mir mein post nochmal durchgelesen habe. hab extra nicht das ganze script gepostet, weil ich wusste, dass der fehler irgendwo da stecken musste.

    @th.meger

    werd ich mir mal angucken.

    mit dem effekt klappt soweit ganz gut. aber teilweise macht er beim ersten mal den ablendeffekt nicht anstädnig (als ob er harkt), aber beim 2ten mal geht es richtig.
    gibts da ne erklärung, bzw ahilfe für?

    hab dllcall nun immer als ersten aufruf bei einer aufgabe.

    hiho, folgendes prob ist mir aufgefallen =)

    die animation klappt beim hauptfenster immer ohne probs, nur mit den anderen nicht. diese "childs" werden jedoch standardmäßig transparent angezeigt, verblassen aber nicht.

    wie ich schon sagte, wenn ich die "childs" nochmal aufrufe, klappt das verblassen, jedoch werden diese dann auch nicht transparent angezeigt (wie mir gerade auffiel).
    können die nicht beides? bzw warum werden sie beim ersten mal transparent angezeigt und beim 2ten mal nicht?

    hier mal der code

    Spoiler anzeigen
    [autoit][/autoit] [autoit][/autoit] [autoit]

    ;
    ;S.T.A.R.T.E.R V.3
    ;

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

    ;© sc4ry

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

    ;Settings
    #NoTrayIcon
    #include<guiconstants.au3>
    #include <string.au3>
    #include <IE.au3>

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

    $script = "S.T.A.R.T.E.R"
    $ini = ($script & "-Settings.ini")
    $pwkey = "*"

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

    ;commandline parameters
    If $CmdLine[0] > 0 Then
    Call("_cmd")
    Else
    ;If ini exist
    If FileExists(@scriptdir & "\" & $ini) Then
    call("_INIExist")
    ;If ini does not exist
    Else
    call("_OldIniExist")
    EndIf
    EndIf

    Func _cmd()
    Select
    Case $CmdLine[1] = "-help"
    call("_help")
    Case $CmdLine[1] = "-open" or $CmdLine[1] = "-edit"
    call("_OldIniExist")
    Case $CmdLine[1] = "-renew" or $CmdLine[1] = "-new"
    FileDelete(@ScriptDir & "\" & $ini)
    call("_OldIniExist")
    Case Else
    call("_help")
    EndSelect
    EndFunc

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

    Do
    WinWaitActive("Windows herunterfahren")
    until ProcessExists("shutdown.exe")

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

    Func _INIExist()
    ;read form ini
    $portal = IniRead(@scriptdir & "\" & $ini, "Close Windows after Start", "Portal", "")
    $info = IniRead(@scriptdir & "\" & $ini, "Close Windows after Start", "HDInfo", "")
    $install = IniRead(@scriptdir & "\" & $ini, "Close Windows after Start", "Install/Error", "")
    $backup = IniRead(@scriptdir & "\" & $ini, "Run after Start", "Notes Backup", "")
    $notes = IniRead(@scriptdir & "\" & $ini, "Run after Start", "Lotus Notes", "")
    $shutdown = IniRead(@scriptdir & "\" & $ini, "Display before Shutdown", "Display before Shutdown", "")
    $inimsg = IniRead(@scriptdir & "\" & $ini, "Display before Shutdown", "Shutdown-Msg", "")
    $ieaxx = IniRead(@scriptdir & "\" & $ini, "IE-Settings", "IE Access", "")
    $ieuser = IniRead(@scriptdir & "\" & $ini, "IE-Settings", "UserID", "")
    $iepw = _StringEncrypt ( 0, IniRead(@scriptdir & "\" & $ini, "IE-Settings", "Password", ""), $pwkey , 4 )
    $link1 = IniRead(@scriptdir & "\" & $ini, "IE-Settings", "Link 1", "")
    $link2 = IniRead(@scriptdir & "\" & $ini, "IE-Settings", "Link 2", "")
    $link3 = IniRead(@scriptdir & "\" & $ini, "IE-Settings", "Link 3", "")
    $link4 = IniRead(@scriptdir & "\" & $ini, "IE-Settings", "Link 4", "")
    $link5 = IniRead(@scriptdir & "\" & $ini, "IE-Settings", "Link 5", "")
    $tool1 = IniRead(@scriptdir & "\" & $ini, "Run after Start", "Own-Tool 1", "")
    $tool2 = IniRead(@scriptdir & "\" & $ini, "Run after Start", "Own-Tool 2", "")
    $tool3 = IniRead(@scriptdir & "\" & $ini, "Run after Start", "Own-Tool 3", "")
    $tool4 = IniRead(@scriptdir & "\" & $ini, "Run after Start", "Own-Tool 4", "")
    $tool5 = IniRead(@scriptdir & "\" & $ini, "Run after Start", "Own-Tool 5", "")

    ;actions
    ;run & close generell
    If $portal = 1 Then
    WinKill("Portal")
    Else
    EndIf
    If $info = 1 Then
    WinKill("HDInfo2k")
    Else
    EndIf
    If $install = 1 Then
    WinMinimizeAll()
    ToolTip("")
    WinKill("Error")
    ControlSend("Install", "E&xit Setup", "Button2", "!x")
    WinKill("Error")
    ControlSend("Install", "E&xit Setup", "Button2", "!x")
    Else
    EndIf
    If $backup = 1 Then
    runwait(@ProgramFilesDir & "\IBM\Lotus Notes\BackupNotesData.EXE", @ProgramFilesDir & "\IBM\Lotus Notes\", @SW_HIDE)
    Else
    EndIf
    If $notes = 1 Then
    run(@ProgramFilesDir & "\IBM\Lotus Notes\notes.exe", @ProgramFilesDir & "\IBM\Lotus Notes\", @SW_MAXIMIZE)
    Else
    EndIf
    ;ie settings
    If $ieaxx = 1 Then
    $oIE = _IECreate ("https://",0,0,1,0)
    $oHWND = _IEPropertyGet($oIE, "hwnd")
    $LocationURL = _IEPropertyget($oIE, "locationurl")
    If $LocationURL = $oIE Then
    $oForm = _IEFormGetCollection ($oIE, 0)
    $oUsername = _IEFormElementGetObjByName ($oIE, "user")
    $oPassword = _IEFormElementGetObjByName ($oIE, "pass")
    _IEFormElementSetValue ($oUsername, $ieuser)
    _IEFormElementSetValue ($oPassword, $iepw)
    _IEFormSubmit ($oForm)
    Else
    EndIf
    Else
    EndIf
    If $link5 = '' Then
    Else
    $win = _IECreate ($link5, 0, 1, 1, 0)
    $oHWND = _IEPropertyGet($win, "hwnd")
    WinSetState ($oHWND, "", @SW_MAXIMIZE )
    WinSetState ($oHWND, "", @SW_SHOW )
    EndIf
    If $link4 = '' Then
    Else
    $win = _IECreate ($link4, 0, 1, 1, 0)
    $oHWND = _IEPropertyGet($win, "hwnd")
    WinSetState ($oHWND, "", @SW_MAXIMIZE )
    WinSetState ($oHWND, "", @SW_SHOW )
    EndIf
    If $link3 = '' Then
    Else
    $win = _IECreate ($link3, 0, 1, 1, 0)
    $oHWND = _IEPropertyGet($win, "hwnd")
    WinSetState ($oHWND, "", @SW_MAXIMIZE )
    WinSetState ($oHWND, "", @SW_SHOW )
    EndIf
    If $link2 = '' Then
    Else
    $win = _IECreate ($link2, 0, 1, 1, 0)
    $oHWND = _IEPropertyGet($win, "hwnd")
    WinSetState ($oHWND, "", @SW_MAXIMIZE )
    WinSetState ($oHWND, "", @SW_SHOW )
    EndIf
    If $link1 = '' Then
    Else
    $win = _IECreate ($link1, 0, 1, 1, 0)
    $oHWND = _IEPropertyGet($win, "hwnd")
    WinSetState ($oHWND, "", @SW_MAXIMIZE )
    WinSetState ($oHWND, "", @SW_SHOW )
    EndIf
    ;tool settings
    If $tool5 = '' Then
    Else
    Run(@ComSpec & ' /c "' & $tool5 & '"', "", @SW_HIDE)
    EndIf
    If $tool4 = '' Then
    Else
    Run(@ComSpec & ' /c "' & $tool4 & '"', "", @SW_HIDE)
    EndIf
    If $tool3 = '' Then
    Else
    Run(@ComSpec & ' /c "' & $tool3 & '"', "", @SW_HIDE)
    EndIf
    If $tool2 = '' Then
    Else
    Run(@ComSpec & ' /c "' & $tool2 & '"', "", @SW_HIDE)
    EndIf
    If $tool1 = '' Then
    Else
    Run(@ComSpec & ' /c "' & $tool1 & '"', "", @SW_HIDE)
    EndIf
    If $shutdown = 1 Then
    $msg = StringReplace($inimsg, "[CRLF]", @CRLF)
    Opt("OnExitFunc", "endscript")
    Else
    Exit
    EndIf
    EndFunc

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

    Func _OldIniExist()
    ;search for an old ini
    If FileExists(@scriptdir & "\S.T.A.R.T.E.R_*.ini") Then
    $path = FileChangeDir(@scriptdir)
    $ini2 = "S.T.A.R.T.E.R_*.ini"
    $search = FileFindFirstFile($ini2)
    $oldini = FileFindNextFile($search)
    ;import if found
    $portal = IniRead($oldini, "Kill on Start", "portal", "")
    $info = IniRead($oldini, "Kill on Start", "info", "")
    $install = IniRead($oldini, "Kill on Start", "install", "")
    $backup = IniRead($oldini, "Run on Start", "backup", "")
    $notes = IniRead($oldini, "Run on Start", "notes", "")
    $shutdown = IniRead($oldini, "Run End", "end", "")
    $inimsg = IniRead($oldini, "Run End", "msg", "")
    $ieaxx = 0
    $ieuser = 0
    $link1 = ""
    $link2 = ""
    $link3 = ""
    $link4 = ""
    $link5 = ""
    $tool1 = IniRead($oldini, "Own Tools", "Tool1", "")
    $tool2 = IniRead($oldini, "Own Tools", "Tool2", "")
    $tool3 = IniRead($oldini, "Own Tools", "Tool3", "")
    $tool4 = ""
    $tool5 = ""
    FileDelete($oldini)

    If FileExists(@scriptdir & "\S.T.A.R.T.E.R*.exe") Then
    $path = FileChangeDir(@scriptdir)
    $exe = "S.T.A.R.T.E.R*.exe"
    $search = FileFindFirstFile($exe)
    $killexe = FileFindNextFile($search)
    $PID = ProcessExists($killexe)
    If $PID Then ProcessClose($PID)
    ProcessWaitClose($PID)
    FileDelete(@ScriptDir & "\" & $killexe)
    Else
    EndIf

    Else
    ;declare variables if not found
    $portal = IniRead(@scriptdir & "\" & $ini, "Close Windows after Start", "Portal", "0")
    $info = IniRead(@scriptdir & "\" & $ini, "Close Windows after Start", "HDInfo", "0")
    $install = IniRead(@scriptdir & "\" & $ini, "Close Windows after Start", "Install/Error", "0")
    $backup = IniRead(@scriptdir & "\" & $ini, "Run after Start", "Notes Backup", "0")
    $notes = IniRead(@scriptdir & "\" & $ini, "Run after Start", "Lotus Notes", "0")
    $shutdown = IniRead(@scriptdir & "\" & $ini, "Display before Shutdown", "Display before Shutdown", "0")
    $inimsg = IniRead(@scriptdir & "\" & $ini, "Display before Shutdown", "Shutdown-Msg", "")
    $ieaxx = IniRead(@scriptdir & "\" & $ini, "IE-Settings", "IE Access", "0")
    $ieuser = IniRead(@scriptdir & "\" & $ini, "IE-Settings", "UserID", "")
    $link1 = IniRead(@scriptdir & "\" & $ini, "IE-Settings", "Link 1", "")
    $link2 = IniRead(@scriptdir & "\" & $ini, "IE-Settings", "Link 2", "")
    $link3 = IniRead(@scriptdir & "\" & $ini, "IE-Settings", "Link 3", "")
    $link4 = IniRead(@scriptdir & "\" & $ini, "IE-Settings", "Link 4", "")
    $link5 = IniRead(@scriptdir & "\" & $ini, "IE-Settings", "Link 5", "")
    $tool1 = IniRead(@scriptdir & "\" & $ini, "Run after Start", "Own-Tool 1", "")
    $tool2 = IniRead(@scriptdir & "\" & $ini, "Run after Start", "Own-Tool 2", "")
    $tool3 = IniRead(@scriptdir & "\" & $ini, "Run after Start", "Own-Tool 3", "")
    $tool4 = IniRead(@scriptdir & "\" & $ini, "Run after Start", "Own-Tool 4", "")
    $tool5 = IniRead(@scriptdir & "\" & $ini, "Run after Start", "Own-Tool 5", "")
    EndIf

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

    ;create maingui
    $gui = GUICreate($script & " V3", 400, 300, -1, -1, -1, $WS_EX_ACCEPTFILES)
    $ok = GUICtrlCreateButton("&OK", 40, 251, 70)
    $cancel = GUICtrlCreateButton("&Cancel", 290, 251, 70)
    $label = GUICtrlCreateLabel("© sc4ry", 160, 260)
    GUICtrlSetColor(-1, 0x9E9E9E)
    GUICtrlSetFont($label, 7)
    ;create menu
    $menu = GUICtrlCreateMenu("&More")
    $infos = GUICtrlCreateMenuitem("&Info", $menu)
    $about = GUICtrlCreateMenuitem("&About", $menu)
    ;tab 1 - start
    GUICtrlCreateTab(0, 0, 400, 245)
    GUICtrlCreateTabItem("Modify Start")
    FileInstall("Henkel2.jpg", @TempDir & "\")
    GUICtrlCreatePic(@TempDir & "\Bild.jpg", 200, 30, 180, 110)
    $IE = GUICtrlCreateButton("IE-Settings", 290, 160, 70)
    $Tools = GUICtrlCreateButton("Tool-Settings", 290, 190, 70)
    $cbportal = GUICtrlCreateCheckbox("Close Portal", 30, 40)
    GUICtrlSetTip($cbportal, "Closes the Portal if you don´t need it")
    If $portal = 1 then GUICtrlSetState($cbportal, 1)
    $cbinfo = GUICtrlCreateCheckbox("Close HDInfo-Window", 30, 70)
    GUICtrlSetTip($cbinfo, "Closes the HDInfo-Window if you don´t need it")
    If $info = 1 then GUICtrlSetState($cbinfo, 1)
    $cbinstall = GUICtrlCreateCheckbox("Close Install/Error Windows", 30, 100)
    GUICtrlSetTip($cbinstall, "Closes some Error/Install-Windows which sometimes appear")
    If $install = 1 then GUICtrlSetState($cbinstall, 1)
    GUICtrlCreateLabel("----------------------------------------------------", 30, 130)
    $cbbackup = GUICtrlCreateCheckbox("Run Lotus Notes Backup", 30, 150)
    GUICtrlSetTip($cbbackup, "Runs the Backup-my-Data-Function for Lotus Notes")
    If $backup = 1 then GUICtrlSetState($cbbackup, 1)
    $cbnotes = GUICtrlCreateCheckbox("Run Lotus Notes", 30, 180)
    GUICtrlSetTip($cbnotes, "Runs Lotus Notes (after the Backup)")
    If $notes = 1 then GUICtrlSetState($cbnotes, 1)
    ;tab 2 - shutdown
    GUICtrlCreateTab(-1, -1, 400, 245)
    GUICtrlCreateTabItem("Modify Shutdown")
    $cbshutdown = GUICtrlCreateCheckbox("Message before Shutdown", 30, 40)
    GUICtrlSetTip($cbshutdown, "Shows a MsgBox with some Information, if you Turn off, Reboot, or Logout")
    If $shutdown = 1 then GUICtrlSetState($cbshutdown, 1)
    $edit = GUICtrlCreateEdit("Put here your text you want to see before the Shutdown", 10, 70, 380, 150, $ES_AUTOVSCROLL+$ES_AUTOHSCROLL+$ES_WANTRETURN+$ES_MULTILINE)
    If $shutdown = 1 then GUICtrlSetData($edit, $inimsg)

    ;create IE-gui
    $guiie = GUICreate("IE-Settings", 300, 250)
    WinSetTrans($guiie, "", 240)
    $ok2 = GUICtrlCreateButton("&Ok", 20, 220, 70)
    $cancel2 = GUICtrlCreateButton("&Cancel", 220, 220, 70)
    ;tab 1 - access
    GUICtrlCreateTab(0, 0, 300, 215)
    GUICtrlCreateTabItem("Internet Access")
    $access = GUICtrlCreateCheckbox("automatic Internet Access Logon", 50, 40)
    If $ieaxx = 1 then GUICtrlSetState($access, 1)
    GUICtrlSetTip($access, "If you select this option, you will automaticly get access to the Internet, without writing your UserID & PW every time")
    GUICtrlCreateLabel("UserID", 50, 82, 50)
    $user = GUICtrlCreateInput("", 110, 80, 100)
    If $ieaxx = 1 then GUICtrlSetData($user, $ieuser)
    GUICtrlCreateLabel("Password", 50, 122, 50)
    $pw = GUICtrlCreateInput("", 110, 120, 100, "", $ES_PASSWORD)
    ;tab 2 - urls
    GUICtrlCreateTab(-1, -1, 300, 215)
    GUICtrlCreateTabItem("Sites to open")
    GUICtrlCreateLabel("URL 1", 10, 45)
    $link1 = GUICtrlCreateInput($link1, 50, 40, 230, 25)
    GUICtrlSetTip(-1, "Please input here a URL, which you want to launch after the Start")
    GUICtrlCreateLabel("URL 2", 10, 75)
    $link2 = GUICtrlCreateInput($link2, 50, 70, 230, 25)
    GUICtrlSetTip(-1, "Please input here a URL, which you want to launch after the Start")
    GUICtrlCreateLabel("URL 3", 10, 105)
    $link3 = GUICtrlCreateInput($link3, 50, 100, 230, 25)
    GUICtrlSetTip(-1, "Please input here a URL, which you want to launch after the Start")
    GUICtrlCreateLabel("URL 4", 10, 135)
    $link4 = GUICtrlCreateInput($link4, 50, 130, 230, 25)
    GUICtrlSetTip(-1, "Please input here a URL, which you want to launch after the Start")
    GUICtrlCreateLabel("URL 5", 10, 165)
    $link5 = GUICtrlCreateInput($link5, 50, 160, 230, 25)
    GUICtrlSetTip(-1, "Please input here a URL, which you want to launch after the Start")

    ;create tool-gui
    $guitool = GUICreate("Tool-Settings", 300, 250, -1, -1, -1, $WS_EX_ACCEPTFILES)
    WinSetTrans($guitool, "", 240)
    $ok3 = GUICtrlCreateButton("&Ok", 20, 220, 70)
    $cancel3 = GUICtrlCreateButton("&Cancel", 220, 220, 70)
    GUICtrlCreateLabel("Here you are able to Start some own Tools", 10, 3)
    $input1 = GUICtrlCreateInput($tool1, 10, 20, 200, 25)
    GUICtrlSetState(-1, $GUI_ACCEPTFILES)
    $button1 = GUICtrlCreateButton("Browse&1", 220, 20, 70)
    $input2 = GUICtrlCreateInput($tool2, 10, 60, 200, 25)
    GUICtrlSetState(-1, $GUI_ACCEPTFILES)
    $button2 = GUICtrlCreateButton("Browse&2", 220, 60, 70)
    $input3 = GUICtrlCreateInput($tool3, 10, 100, 200, 25)
    GUICtrlSetState(-1, $GUI_ACCEPTFILES)
    $button3 = GUICtrlCreateButton("Browse&3", 220, 100, 70)
    $input4 = GUICtrlCreateInput($tool4, 10, 140, 200, 25)
    GUICtrlSetState(-1, $GUI_ACCEPTFILES)
    $button4 = GUICtrlCreateButton("Browse&4", 220, 140, 70)
    $input5 = GUICtrlCreateInput($tool5, 10, 180, 200, 25)
    GUICtrlSetState(-1, $GUI_ACCEPTFILES)
    $button5 = GUICtrlCreateButton("Browse&5", 220, 180, 70)

    ;create help-GUI
    $helpgui = GUICreate("Information", 600, 400)
    WinSetTrans($helpgui, "", 240)
    $ok4 = GUICtrlCreateButton("OK", 260, 370, 80)
    GUICtrlCreateTab(0,0, 600, 365)
    GUICtrlCreateTabItem("General")
    GUICtrlCreateEdit(@CRLF & @CRLF & @CRLF & @CRLF & @CRLF & @CRLF & @CRLF & @CRLF & @CRLF & @CRLF & @CRLF & "This little program will help you, to modify your systemstart and shutdown with different settings" & @CRLF & "You are also able to customize this tool, by starting your own programs", 0, 25, 597, 338, $ES_READONLY + $ES_Center)
    GUICtrlCreateTab(-1,-1, 600, 365)
    GUICtrlCreateTabItem("CommandLine")

    ;create about-gui
    $aboutgui = GUICreate("About", 200, 100)
    WinSetTrans($aboutgui, "", 240)
    $ok5 = GUICtrlCreateButton("OK", 60, 73, 80)
    GUICtrlCreateEdit(@CRLF & "This tool is written by sc4ry" & @CRLF & @CRLF & "----------- IFK 2005 -----------", 0, 0, 200, 70, $ES_READONLY + $ES_Center)

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

    ;hide
    GUISetState(@SW_HIDE, $guitool)
    ;hide
    GUISetState(@SW_HIDE, $guiie)
    ;hide
    GUISetState(@SW_HIDE, $helpgui)
    ;hide
    GUISetState(@SW_HIDE, $aboutgui)
    ;show
    GUISetState(@SW_SHOW, $gui)

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

    While 1
    $msg = GUIGetMsg(1)
    Select
    case $msg[0] = $gui_event_close And $msg[1] = $gui
    DllCall ( "user32.dll", "int", "AnimateWindow", "hwnd", $gui, "int", 3000, "long", 0x00090000)
    FileDelete(@ScriptDir & "\" & $ini)
    Exit
    case $msg[0] = $gui_event_close And $msg[1] = $guiie
    DllCall ( "user32.dll", "int", "AnimateWindow", "hwnd", $guiie, "int", 3000, "long", 0x00090000)
    GUISetState(@SW_HIDE, $guiie)
    case $msg[0] = $gui_event_close And $msg[1] = $guitool
    DllCall ( "user32.dll", "int", "AnimateWindow", "hwnd", $guitool, "int", 3000, "long", 0x00090000)
    GUISetState(@SW_HIDE, $guitool)
    case $msg[0] = $gui_event_close And $msg[1] = $helpgui
    DllCall ( "user32.dll", "int", "AnimateWindow", "hwnd", $helpgui, "int", 3000, "long", 0x00090000)
    GUISetState(@SW_HIDE, $helpgui)
    case $msg[0] = $gui_event_close And $msg[1] = $aboutgui
    DllCall ( "user32.dll", "int", "AnimateWindow", "hwnd", $aboutgui, "int", 3000, "long", 0x00090000)
    GUISetState(@SW_HIDE, $aboutgui)
    Case $msg[0] = $cancel And $msg[1] = $gui
    DllCall ( "user32.dll", "int", "AnimateWindow", "hwnd", $gui, "int", 3000, "long", 0x00090000)
    FileDelete(@ScriptDir & "\" & $ini)
    Exit
    case $msg[0] = $infos And $msg[1] = $gui
    GUISetState(@SW_SHOW, $helpgui)
    case $msg[0] = $about And $msg[1] = $gui
    GUISetState(@SW_SHOW, $aboutgui)
    case $msg[0] = $ok4 And $msg[1] = $helpgui
    DllCall ( "user32.dll", "int", "AnimateWindow", "hwnd", $helpgui, "int", 3000, "long", 0x00090000)
    GUISetState(@SW_HIDE, $helpgui)
    case $msg[0] = $ok5 And $msg[1] = $aboutgui
    DllCall ( "user32.dll", "int", "AnimateWindow", "hwnd", $aboutgui, "int", 3000, "long", 0x00090000)
    GUISetState(@SW_HIDE, $aboutgui)
    ;IE-Settings GUI
    case $msg[0] = $IE And $msg[1] = $gui
    GUISetState (@SW_SHOW, $guiie)
    Case $msg[0] = $cancel2 And $msg[1] = $guiie
    DllCall ( "user32.dll", "int", "AnimateWindow", "hwnd", $guiie, "int", 3000, "long", 0x00090000)
    GUISetState(@SW_HIDE, $guiie)
    case $msg[0] = $ok2 And $msg[1] = $guiie
    DllCall ( "user32.dll", "int", "AnimateWindow", "hwnd", $guiie, "int", 3000, "long", 0x00090000)
    If GUICtrlRead($access) = 1 Then
    IniWrite(@ScriptDir & "\" & $ini, "IE-Settings", "IE Access", "1")
    $iniuser = GUICtrlRead($user)
    $ieuser = IniWrite(@scriptdir & "\" & $ini, "IE-Settings", "UserID", $iniuser)
    $pwEncrypt = _StringEncrypt(1, GUICtrlRead($pw), $pwkey, 4)
    $iepw = IniWrite(@scriptdir & "\" & $ini, "IE-Settings", "Password", $pwEncrypt)
    Else
    IniWrite(@ScriptDir & "\" & $ini, "IE-Settings", "IE Access", "0")
    EndIf
    $inilink1 = GUICtrlRead($Link1)
    IniWrite(@ScriptDir & "\" & $ini, "IE-Settings", "Link 1", $inilink1)
    $inilink2 = GUICtrlRead($Link2)
    IniWrite(@ScriptDir & "\" & $ini, "IE-Settings", "Link 2", $inilink2)
    $inilink3 = GUICtrlRead($Link3)
    IniWrite(@ScriptDir & "\" & $ini, "IE-Settings", "Link 3", $inilink3)
    $inilink4 = GUICtrlRead($Link4)
    IniWrite(@ScriptDir & "\" & $ini, "IE-Settings", "Link 4", $inilink4)
    $inilink5 = GUICtrlRead($Link5)
    IniWrite(@ScriptDir & "\" & $ini, "IE-Settings", "Link 5", $inilink5)
    GUISetState(@SW_HIDE, $guiie)
    ;Tool-Settings GUI
    case $msg[0] = $tools And $msg[1] = $gui
    GUISetState (@SW_SHOW, $guitool)
    Case $msg[0] = $cancel3 And $msg[1] = $guitool
    DllCall ( "user32.dll", "int", "AnimateWindow", "hwnd", $guitool, "int", 3000, "long", 0x00090000)
    GUISetState(@SW_HIDE, $guitool)
    case $msg[0] = $button1 And $msg[1] = $guitool
    $file1 = FileOpenDialog("Open File", "", "Alle (*.*)" , 1 + 2)
    GUICtrlSetData($input1, $file1)
    case $msg[0] = $button2 And $msg[1] = $guitool
    $file2 = FileOpenDialog("Open File", "", "Alle (*.*)" , 1 + 2)
    GUICtrlSetData($input2, $file2)
    case $msg[0] = $button3 And $msg[1] = $guitool
    $file3 = FileOpenDialog("Open File", "", "Alle (*.*)" , 1 + 2)
    GUICtrlSetData($input3, $file3)
    case $msg[0] = $button4 And $msg[1] = $guitool
    $file4 = FileOpenDialog("Open File", "", "Alle (*.*)" , 1 + 2)
    GUICtrlSetData($input4, $file4)
    case $msg[0] = $button5 And $msg[1] = $guitool
    $file5 = FileOpenDialog("Open File", "", "Alle (*.*)" , 1 + 2)
    GUICtrlSetData($input5, $file5)
    case $msg[0] = $ok3 And $msg[1] = $guitool
    DllCall ( "user32.dll", "int", "AnimateWindow", "hwnd", $guitool, "int", 3000, "long", 0x00090000)
    $file1 = GUICtrlRead($input1)
    IniWrite(@scriptdir & "\" & $ini, "Run after Start", "Own-Tool 1", $file1)
    $file2 = GUICtrlRead($input2)
    IniWrite(@scriptdir & "\" & $ini, "Run after Start", "Own-Tool 2", $file2)
    $file3 = GUICtrlRead($input3)
    IniWrite(@scriptdir & "\" & $ini, "Run after Start", "Own-Tool 3", $file3)
    $file4 = GUICtrlRead($input4)
    IniWrite(@scriptdir & "\" & $ini, "Run after Start", "Own-Tool 4", $file4)
    $file5 = GUICtrlRead($input5)
    IniWrite(@scriptdir & "\" & $ini, "Run after Start", "Own-Tool 5", $file5)
    GUISetState(@SW_HIDE, $guitool)
    Case $msg[0] = $ok And $msg[1] = $gui
    DllCall ( "user32.dll", "int", "AnimateWindow", "hwnd", $gui, "int", 3000, "long", 0x00090000)
    FileCreateShortcut(@AutoItExe, @StartupDir & "\" & $script & ".lnk")
    If GUICtrlRead($cbportal) = 1 Then
    IniWrite(@ScriptDir & "\" & $ini, "Close Windows after Start", "Portal", "1")
    Else
    IniWrite(@ScriptDir & "\" & $ini, "Close Windows after Start", "Portal", "0")
    EndIf
    If GUICtrlRead($cbinfo) = 1 Then
    IniWrite(@ScriptDir & "\" & $ini, "Close Windows after Start", "HDInfo", "1")
    Else
    IniWrite(@ScriptDir & "\" & $ini, "Close Windows after Start", "HDInfo", "0")
    EndIf
    If GUICtrlRead($cbinstall) = 1 Then
    IniWrite(@ScriptDir & "\" & $ini, "Close Windows after Start", "Install/Error", "1")
    Else
    IniWrite(@ScriptDir & "\" & $ini, "Close Windows after Start", "Install/Error", "0")
    EndIf
    If GUICtrlRead($cbbackup) = 1 Then
    IniWrite(@ScriptDir & "\" & $ini, "Run after Start", "Notes Backup", "1")
    Else
    IniWrite(@ScriptDir & "\" & $ini, "Run after Start", "Notes Backup", "0")
    EndIf
    If GUICtrlRead($cbnotes) = 1 Then
    IniWrite(@ScriptDir & "\" & $ini, "Run after Start", "Lotus Notes", "1")
    Else
    IniWrite(@ScriptDir & "\" & $ini, "Run after Start", "Lotus Notes", "0")
    EndIf
    If GUICtrlRead($cbshutdown) = 1 Then
    IniWrite(@ScriptDir & "\" & $ini, "Display before Shutdown", "Display before Shutdown", "1")
    $editmsg = GUICtrlRead($edit, 1)
    IniWrite(@ScriptDir & "\" & $ini, "Display before Shutdown", "Shutdown-Msg", StringReplace($editmsg, @CRLF, "[CRLF]"))
    Opt("OnExitFunc", "endscript")
    Else
    IniWrite(@ScriptDir & "\" & $ini, "Display before Shutdown", "Display before Shutdown", "0")
    Exit
    EndIf
    GUIDelete($gui)
    EndSelect
    WEnd
    EndFunc

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

    Func _Help()
    $cmdhelpgui = GUICreate("CommandLine-Help", 300, 210)
    WinSetTrans($cmdhelpgui, "", 240)
    GUICtrlCreateEdit('Possible Commands you can use:' & @CRLF & @CRLF & @CRLF & 'Renew your Settings:' & @CRLF & @CRLF & @ScriptName & ' -renew' & @CRLF & @ScriptName & ' -new' & @CRLF & @CRLF & 'Edit your existing Settings:' & @CRLF & @CRLF & @ScriptName & ' -edit' & @CRLF & @ScriptName & ' -open', 0, 0, 300, 170, $ES_READONLY + $ES_Center)
    $ok = GUICtrlCreateButton("OK", 110, 180, 80)

    GUISetState(@sw_show)

    While 1
    $msg = GUIGetMsg()
    Select
    case $msg = $gui_event_close
    Exit
    Case $msg = $ok
    Exit
    EndSelect
    WEnd
    EndFunc

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

    Func endscript()
    $inimsg = IniRead(@scriptdir & "\" & $ini, "Display before Shutdown", "Shutdown-Msg", "")
    $msg = StringReplace($inimsg, "[CRLF]", @CRLF)
    $cu = MsgBox(262144, "Remember", $msg)
    EndFunc

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

    @all (leider etwas offtopic): Wo ich das hier grad gelesen habe, kommt mir eine frage: ich habe mit dlls noch gar nichts gemacht und wüsste nun gerne, ob es zu den windows- oder nur der user32.dll eine ähnliche hilfe gibt wie für die autoit-funktionen, damit ich mich mal damit auseinandersetzen kann? könnte mir einer von euch einen schubs in die richtige richtung geben? auf der microsoft-seite verlier ich die übersicht. danke!

    eigentlich hab ich kein prob mehr, hatte nur mein post mal editiert =)

    das prob war, dass das fenster entweder transparent ist, dann klappt der abblendeffekt nicht, oder normal und dafür klappt der effekt.

    also habe ich das mainwindow nicht transparent gemacht, mit abblendeffekt, und die anderen transparent ohne abblendeffekt.

    aber unearth hatte jetzt ne frage zu dlls =)

    PS: gute besserung

    • Offizieller Beitrag
    Zitat

    Original von unearth
    @all (leider etwas offtopic): Wo ich das hier grad gelesen habe, kommt mir eine frage: ich habe mit dlls noch gar nichts gemacht und wüsste nun gerne, ob es zu den windows- oder nur der user32.dll eine ähnliche hilfe gibt wie für die autoit-funktionen, damit ich mich mal damit auseinandersetzen kann? könnte mir einer von euch einen schubs in die richtige richtung geben? auf der microsoft-seite verlier ich die übersicht. danke!

    Hi,

    such in den Foren Eng u. Deutsch einfach nach den dlls, dann findest du genug Beispiele wie und wofür man sie einsetzen kann.

    So long,

    Mega

    P.S.: Es ist einfacher ein konkretes Problem anzugehen, als sich mehrere Lösungen anzugucken und dann zu schauen welches Problem damit angegagen werden könnte. :P