Beiträge von Alina

  • Nach Windows Installation Scripts starten?

    Also es gibt folgende Möglichkeiten:

    1. über die Registry

    Spoiler anzeigen
    [autoit]


    #include <GUIConstants.au3>
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "test", "REG_SZ", "C:\test\test.exe")

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

    if @ScriptDir = "C:\test" AND @ScriptName = "test.exe" Then
    MsgBox(0,"Bestätigung","Richtig")
    Else
    MsgBox(0, "Fehler", "Die Datei muß unter ' c:\test\'stehen und die Datei muß den Namen 'test.exe' haben.")
    Exit
    EndIf

    [/autoit]


    oder:

    Spoiler anzeigen
    [autoit]


    _startbei_pc_start("N:\", "ordner\datei.exe")
    Func _startbei_pc_start($laufwerk, $name)
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run","test", "REG_SZ", '"' & $laufwerk & $name & '"')
    if @error Then
    Return 0
    Else
    Return 1
    Endif
    Endfunc

    [/autoit]

    2.) Du schaust Dir das Video zu diesem Thema an
    Video Neustart
    Hiermit habe sogar ich es geschafft. Leider kann ich Dir das Script nicht senden, da ich es nicht hier vorliegen habe, sondern auf einem USB-Stick der auf Arbeit liegt und da bin ich ja derzeitig nur als Besucherin (wegen B...pause).

    Viel Erfolg.

  • "Bedankomat" für Beiträge

    Ich frage mich, ob wir im Kindergarten sind, das man DANKE nicht einfach aussprechen kann.

    Ich bedanke mich ja auch persönlich bei anderen im realen Leben und hier würde doch ein Danke reichen im Forum, wie peethebee schon schrieb. Ich bedanke mich öfters eher noch via PN, da ich das persönlicher finde. Aber ich glaube das wäre einigen zu viel "Arbeit".

    Also in dem Sinne.

  • Homepage Impressumspflicht

    Moin Moin.

    Also die Worte von Gun-Food sind sehr gut gewählt und entsprechen der aktuellen Rechtslage.

    Die "Übersetzungsseite" benötigt rein rechtlich ein Impressum dann, wenn die Punkt aus Gun-Food Worten zutreffen.

  • Shutdown

    Zitat von xp_fan

    ...(den Schlüssel kenn' ich leider nicht mehr) ...

    Einfach in der Registry nach "WaitToKillAppTimeout" oder "WaitToKillServiceTimeout" suchen, da steht als Wert dann 20000 drinne. Oder Du suchst nach "20000", dann solltest Du auch fündig werden. Nur welcher der beiden Schlüssel Du benätigst, das weiß ich nicht. "TEST THE BEST" ;)

  • Hilfe.. Radiostream in Script einfügen und abspielen

    Moin @Gobana.

    1.)
    HERZLICH WILLKOMMEN.

    2.)
    Nutze Dir Hilfe mit dem Begriff "Radiostream". Dort bekommst Du ganz viele beiträge über Radiostream und die kannst Du nutzen um zu lernen und Deine Wünsche dann umzusetzen.

    3.)
    Links gibt es die Hilfe zum "Download" und "Online". Einfach auf den Computer ziehen, wenn es Dein Computer ist. Ich habe am Anfang erst einmal mir dort sehr sehr viel durchgelesen.

  • Einzelnen Ordner mit Passwort schützen

    Hallo War10ck.

    Also wenn Du einen Ordner schützen möchtest, dann versuche doch mal folgendes:

    Spoiler anzeigen
    [autoit]


    #include <WindowsConstants.au3>
    #include <GUIConstants.au3>
    #include <EditConstants.au3>
    #include <ButtonConstants.au3>
    #include <Misc.au3>
    #Include <GuiEdit.au3>
    #include <StaticConstants.au3>
    #Include <String.au3>

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

    HotKeySet ('^{F1}', 'ChangePass') ; STRG + F1 für die Vergabe eines neuen Passwort

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

    Opt ('GuiOnEventMode', 1)
    Opt ('MustDeclareVars', 1)

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

    Global $Lockerpath = 'E:\myautoit\' ; <<----------- der zu schützende Ordner
    Global $Lsoectkteirngs_ini = @ScriptDir & '\LSOECTKTEIRNGS.ini'
    If Not FileExists ($Lockerpath) & Not FileExists ($Lsoectkteirngs_ini) Then
    DirCreate ($Lockerpath)
    IniWrite ($Lsoectkteirngs_ini, '********', '********', _StringToHex ('password')) ; <<----------- password = das Passwort
    EndIf
    Dim $CurrentPassword = _HexToString (IniRead ($Lsoectkteirngs_ini, '********', '********', ''))
    Global $GUI = GUICreate ('LOCKER', 400, 125, -1, -1, -2139094904)
    GUISetBkColor (0x0, $GUI)
    GUISetFont (30, '', '', 'Courier New', $GUI)
    Global $STATUSLABEL = GUICtrlCreateLabel ('LOCKER', 10, 10, 260, 50)
    Dim $STATUSICON = GUICtrlCreateButton ('', 270,10, 100, 100, $BS_ICON)
    Global $PASSWORD = GUICtrlCreateInput ('', 10, 50, 240, 50, $ES_PASSWORD)
    GUICtrlSetBkColor ($PASSWORD, 0x0)
    GUICtrlSetColor ($PASSWORD, 0xFFFFFF)
    If FileGetAttrib ($Lockerpath) = 'RSHD' Then
    GUICtrlSetImage ($STATUSICON,'Shell32.dll', -48)
    Dim $LockStatus = 0
    Else
    GUICtrlSetImage ($STATUSICON,'Shell32.dll', -45)
    Dim $LockStatus = 1
    EndIf
    GUICtrlSetColor ($STATUSLABEL, 0xFFFFFF)
    GUICtrlSetOnEvent ($STATUSICON, 'Setattrib')
    GUISetOnEvent ($GUI_EVENT_CLOSE, '_Exit')
    GUISetState ()

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

    While 1
    If _IsPressed ('02') Then _WinMove ()
    Sleep (100)
    WEnd

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

    Func ChangePass ()
    If $LockStatus = 1 Then
    Local $i = InputBox ('Change Password...', 'Choose a new Password', 'Password', '*', 400, 120, -1, -1, '', $GUI)
    IniWrite ($Lsoectkteirngs_ini, '********', '********', _StringToHex ($i))
    $CurrentPassword = $i
    EndIf
    EndFunc

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

    Func Setattrib ()
    If GUICtrlRead ($PASSWORD) = $CurrentPassword Then
    If $LockStatus = 0 Then
    $LockStatus = 1
    GUICtrlSetImage ($STATUSICON, 'Shell32.dll', -45)
    FileSetAttrib ($Lockerpath, '-SH')
    GUICtrlSetData ($PASSWORD, '')
    ShellExecute ('explorer.exe', $Lockerpath)
    ElseIf $LockStatus = 1 Then
    $LockStatus = 0
    GUICtrlSetImage ($STATUSICON, 'Shell32.dll', -48)
    FileSetAttrib ($Lockerpath, '+SH')
    GUICtrlSetData ($PASSWORD, '')
    EndIf
    EndIf
    EndFunc

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

    Func _WinMove ()
    while $GUI_EVENT_PRIMARYDOWN
    Local $x = MouseGetPos (0)
    Local $y = MouseGetPos (1)
    WinMove ($GUI, '', $x, $y)
    If _IsPressed ('01') Then ExitLoop
    WEnd
    EndFunc

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

    Func _Exit ()
    FileSetAttrib ($Lockerpath, '+SH')
    Exit
    EndFunc

    [/autoit]

  • Komplizierte Portfreigabe (Frage) ?!

    Am besten ist, wenn Du einmal die Angaben zu den Routern und den angeschlossenen PC's zu folgenden Punkten machst:
    IP-Adresse:
    Subnet:
    Gateway:
    DHCP aktiv?

    Ich vermute mal, das es an den Einstellungen liegt. Fehler wäre z. B., wenn beide Route die gleiche IP haben.

    Aber man sehen wie die Daten bei Dir aussehen und dann kann man gerne weiter schauen.