Beiträge von Das Schwert

  • Leerzeichen rausfiltern

    Wie wärs mit StringSpli?

    Wenn du sagst

    [autoit]

    $input1 = InputBox ("", "")
    $input2 = InputBox ("", "")
    $input1split = StringSplit ($input1, " ")
    $input2split = StringSplit ($input2, " ")

    [/autoit]


    Geben $input2split und $input1split Array ohne leerzeichen zurück...
    Also dann so:

    [autoit]

    $input1 = InputBox ("", "")
    $input2 = InputBox ("", "")
    If StringInStr ($input1, " ") Then
    $input1split = StringSplit ($input1, " ")
    $i = 1
    $input1 = ""
    Do
    $input1 &= $input1split[$i]
    $i += 1
    Until $i = $input1split[0]
    Endif
    If StringInStr ($input2, " ") Then
    $input2split = StringSplit ($input2, " ")
    $i = 1
    $input2 = ""
    Do
    $input2 &= $input2split[$i]
    $i += 1
    Until $i = $input2split[0]
    Endif

    [/autoit]

    Und dannfindest du in $input2 keine Leers und in $input1 keine leers mehr...

  • Gui Internet Objekt no Scroll

    Bin schonmal soweit, das man nicht scrollen kann (Dafür leider auch nix eingeben)^^

    Spoiler anzeigen

    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <IE.au3>
    _IEErrorHandlerRegister()
    $oIE = _IECreateEmbedded()
    $Gui = GUICreate("Account Ersteller " & "", 640, 155, -1, -1, $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS + $WS_CLIPCHILDREN)
    $GUIActiveX = GUICtrlCreateObj($oIE, 5, 5, 630, 120)
    $GUI_Button_Home = GUICtrlCreateButton(" E r s t e l l e n ", 2, 125, 638, 30)
    GUISetState() ;Show GUI
    _IENavigate($oIE, "http://tuttifrutti.kilu.de/index.html")
    GUICtrlSetStyle($GUIActiveX, $WS_Disabled)
    While 1
    $msg = GUIGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
    ExitLoop
    Case $msg = $GUI_Button_Home
    GuiCtrlSetState($GUIActiveX,$GUI_HIDE)
    GUICtrlCreateLabel("Dies kann einige Sekunden dauern." & @CRLF & "Wir bedauern, dass es so lange dauert," & @CRLF & "wenn viele Leute sich accounts erstellen" & @CRLF & "kann es ein paar Sekunden dauern.", 10, 10, 468, 84)
    GUICtrlSetFont(-1, 11, 400, 0, "Century Gothic")

    $oForm = _IEFormGetCollection($oIE, 0)
    _IEFormSubmit($oForm)
    If _IELoadWait ($oIE) Then Exit 0
    EndSelect
    WEnd
    GUIDelete()
    Exit

  • Undeclared Variable auf Line -1?

    Hi, Ich hab mal als mir langweilig war (und zur "entspannung") ein Downloader angefangen, er labert ab und zu etwas vor sich in ("information received", etc...) und ich versuche
    gerade eine KOmmandozeil-unterstützung (inetget <url> <Speicherpfad>) hinzubekommen, aber immer wenn ich das Script compile und Mit der CMD so aufrufe:
    "inetget <url> C:\testfile.exe" (ohne die "")

    Kommt das Loading fenster, welches auch kommen soll und anschließend die Warnmeldung

    "Line -1:
    Error: Variable used without being declared"

    Aber da mir Line -1 nicht sehr viel sagt und ich den Fehler selber nicht funde wollte ich euch mal um Hilfe bitten...

    Spoiler anzeigen
    [autoit]

    #cs $size = InetGetSize ("http://www.vbox.me/?path=./VirtualBox%20v3.0.2&file=Portable-VirtualBox_v3.0.2-Starter_v3.1.0-Win32_64.exe")
    MsgBox (0, "Download", "URL: " & $url & @CRLF & "Size: " & $size & @CRLF & "Destionation: " & $dest)
    #ce InetGet ("http://www.vbox.me/?path=./VirtualBox%20v3.0.2&file=Portable-VirtualBox_v3.0.2-Starter_v3.1.0-Win32_64.exe", @ScriptDir & "\portable vb.exe")
    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    $cmd = False
    $infogetted = False
    IF $CMDLINE[0] <> 0 Then
    $cmd = True
    EndIf
    GUICreate ("tit", "200", 100)
    $label = GUICtrlCreateLabel ("Loading...", 20, 20, 100)
    GUICtrlSetFont ($label, 14, "", "", "Arial")
    GUISetState (@SW_SHOW)
    GUISetStyle ($WS_POPUP)
    SoundPlay (@ScriptDir & "\sounds\data established.mp3", 1)
    $ping = Ping ("autoitscript.com")
    $internet = True
    GUIDelete ()
    If $ping == 0 Then
    $i = 0
    Do
    $ping = Ping ("autoitscript.com")
    $i += 1
    Until $i = 20 Or $ping <> 0
    If $ping = 0 Then
    MsgBox (0, "Error", "Please check youre internet-conection!")
    $internet = False
    EndIf
    EndIf
    If $cmd = False Then
    MsgBox (0, "", @ScriptLineNumber)
    #Region ### START Koda GUI section ### Form=c:\dokumente und einstellungen\keno\eigene dateien\eigene dokumente\koda\au3 download.kxf
    $Form1 = GUICreate("Au3 Download", 633, 447, 192, 124)
    $Label1 = GUICtrlCreateLabel("Download URL:", 8, 8, 80, 17)
    $urlfiled = GUICtrlCreateInput("", 96, 8, 401, 21)
    $Label2 = GUICtrlCreateLabel("Destionation:", 8, 40, 66, 17)
    $destfield = GUICtrlCreateInput("", 96, 40, 401, 21)
    $searchHD = GUICtrlCreateButton("Search", 512, 40, 75, 25, $WS_GROUP)
    $Label3 = GUICtrlCreateLabel("Informations", 16, 128, 100, 23)
    GUICtrlSetFont(-1, 12, 800, 0, "Arial")
    $getInfo = GUICtrlCreateButton("Get Info's", 512, 8, 75, 25, $WS_GROUP)
    $infoedit = GUICtrlCreateEdit("", 16, 152, 273, 289)
    $go = GUICtrlCreateButton("Start downoading!", 304, 152, 323, 289, $WS_GROUP)
    GUICtrlSetFont(-1, 14, 400, 0, "Arial")
    GUICtrlSetColor(-1, 0xFF0000)
    ;$multi = GUICtrlCreateButton("Multiple Download", 496, 80, 107, 25, $WS_GROUP)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###
    $goloding = "abcdefghi"
    $n = 1
    EndIf
    If $internet = True Then SoundPlay (@ScriptDir & "\sounds\internet.mp3")
    $msg = GUIGetMsg ()
    If $cmd == True Then $msg = $getInfo
    While 1
    If $msg = -3 Then Exit
    If $msg = $getInfo Then
    MsgBox (0, "", @ScriptLineNumber)
    GUICtrlSetData ($infoedit, "Getting data...")
    If $cmd = False Then
    $size = InetGetSize (GUICtrlRead ($urlfiled))
    $url = GUICtrlRead ($urlfiled)
    Else
    $size = InetGetSize ($CMDLINE[1])
    $url = $CMDLINE[1]
    EndIf
    $anbieter = StringSplit ($url, "/")
    $anbieter1 = $anbieter[1]
    If $anbieter [1] = "http:" Then $anbieter1 = $anbieter[3]
    If $anbieter[1] = "ftp:" Then $anbieter1 = $anbieter[3]
    $fname = $anbieter[$anbieter[0]]
    $ping = Ping ($anbieter1)
    If $cmd = False Then
    If GUICtrlRead ($urlfiled) <> "" Then
    SoundPlay (@ScriptDir & "\sounds\inforeceived.mp3")
    EndIf
    EndIf
    $infogetted = True
    If $cmd = True Then $n = $goloding
    If $cmd = False Then GUICtrlSetData ($infoedit, "File size (in bytes): " & $size & @CRLF & @CRLF & "Ping-Geschwindigkeit: " & $ping & "ms" & @CRLF & @CRLF & "Download URL: " & $url & @CRLF & @CRLF & "URL of download host: " & $anbieter1 & @CRLF & "File name: " & $fname)
    EndIf
    If $msg = $searchHD Then
    If $infogetted = True Then
    $path = FileOpenDialog ("Au3 Download", @DesktopDir, "*.* (All files)", "", $fname)
    Else
    $path = FileOpenDialog ("Au3 Download", @DesktopDir, "*.* (All files)", "")
    EndIf
    If @error Then
    $path = ""
    ElseIf Not @error Then
    GUICtrlSetData ($destfield, $path)
    $path = ""
    EndIf
    EndIf
    If $msg == $go Then
    If $infogetted = False Then
    #cs
    #ce
    GUICtrlSetData ($infoedit, "Getting data...")
    If $cmd = False Then
    $size = InetGetSize (GUICtrlRead ($urlfiled))
    $url = GUICtrlRead ($urlfiled)
    EndIf
    $anbieter = StringSplit ($url, "/")
    $anbieter1 = $anbieter[1]
    If $anbieter [1] = "http:" Then $anbieter1 = $anbieter[3]
    If $anbieter[1] = "ftp:" Then $anbieter1 = $anbieter[3]
    $fname = $anbieter[$anbieter[0]]
    $ping = Ping ($anbieter1)
    If $cmd = False Then
    If GUICtrlRead ($urlfiled) <> "" Then
    ;SoundPlay (@ScriptDir & "\sounds\inforeceived.mp3")
    EndIf
    EndIf
    $infogetted = True
    If $cmd = True Then $n = $goloding
    If $cmd = False Then GUICtrlSetData ($infoedit, "File size (in bytes): " & $size & @CRLF & @CRLF & "Ping-Geschwindigkeit: " & $ping & "ms" & @CRLF & @CRLF & "Download URL: " & $url & @CRLF & @CRLF & "URL of download host: " & $anbieter1 & @CRLF & "File name: " & $fname)
    EndIf
    #cs
    #ce
    $url = GUICtrlRead ($urlfiled)
    $path = GUICtrlRead ($destfield)
    $text = GUICtrlRead ($infoedit)
    GUISetState (@SW_HIDE)
    #Region ### START Koda GUI section ### Form=c:\dokumente und einstellungen\keno\eigene dateien\eigene dokumente\koda\au3 download stage 2.kxf
    $2Form1 = GUICreate("Downloading...", 340, 248, 652, 140)
    $2Label1 = GUICtrlCreateLabel("Downlaoding...", 8, 16, 299, 17)
    $2Edit1 = GUICtrlCreateEdit("", 8, 40, 297, 121)
    GUICtrlSetState(-1, $GUI_DISABLE)
    $Progress = GUICtrlCreateProgress(8, 176, 294, 17)
    $run = GUICtrlCreateButton("Run File", 8, 208, 75, 25, $WS_GROUP)
    GUICtrlSetState(-1, $GUI_DISABLE)
    $openfolder = GUICtrlCreateButton("Open containing folder", 88, 208, 139, 25, $WS_GROUP)
    GUICtrlSetState(-1, $GUI_DISABLE)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###
    SoundPlay (@ScriptDir & "\sounds\beaming data.mp3", 0)
    GUICtrlSetData ($2Edit1, $text)
    InetGet ($url, $path, 1, 1)
    $size = InetGetSize (GUICtrlRead ($urlfiled))
    $1Procent = $size / 100
    $c = 100 / $size
    While @InetGetActive
    GUICtrlSetData ($progress, Round(@InetGetBytesRead * 100 /$Size,1))
    If GUIGetMsg () == -3 Then
    FileDelete ($path)
    ExitLoop
    Endif
    GUICtrlSetData ($2Label1, "Downloading... " & @InetGetBytesRead & " of " & $size & " bytes loaded.")
    WEnd
    If FileExists ($path) Then
    GUICtrlSetData ($2Edit1, "Downloaded Successfull!")
    GUICtrlSetState ($run, $GUI_ENABLE)
    GUICtrlSetState ($openfolder, $GUI_ENABLE)
    Else
    GUICtrlSetData ($2Edit1, "Sorry, The File " & $path & " does not exist.")
    EndIf
    Do
    $msg = GUIGetMsg ()
    If $msg = $run Then
    ShellExecute ($path)
    EndIf
    If $msg = $openfolder Then
    $split = StringSplit ($path, "\")
    $i = 1
    $pathn = ""
    Do
    $pathn &= $split[$i] & "\"
    $i += 1
    If $i -1 == $split[0] -1 Then ExitLoop
    Until $pathn == 1
    ShellExecute ("explorer.exe", $pathn & ",/e,/select," & $pathn & $split[$split[0]])
    EndIf
    Until $msg = -3
    GUIDelete ($2Form1)
    GUISetState (@SW_SHOW)
    EndIf
    If $n = $goloding Then
    MsgBox (0, "", @ScriptLineNumber)
    #Region ### START Koda GUI section ### Form=c:\dokumente und einstellungen\keno\eigene dateien\eigene dokumente\koda\au3 download stage 2.kxf
    $2Form1 = GUICreate("Downloading...", 340, 200, 192, 124)
    $2Label1 = GUICtrlCreateLabel("Downlaoding...", 8, 8, 300, 17)
    $2Edit1 = GUICtrlCreateEdit("", 8, 32, 297, 121)
    $Progress = GUICtrlCreateProgress(16, 168, 294, 17)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###
    $size = InetGetSize ($CMDLINE[1])
    $spltx = StringSplit ($CMDLINE[1], " ")
    $url = $spltx[1]
    $path = $spltx[3]
    $size = InetGetSize ($url)
    GUICtrlSetData ($2Edit1, "File size (in bytes): " & $size & @CRLF & @CRLF & "Ping-Geschwindigkeit: " & $ping & "ms" & @CRLF & @CRLF & "Download URL: " & $url & @CRLF & @CRLF & "URL of download host: " & $anbieter1 & @CRLF & @CRLF & "File name: " & $fname)
    InetGet ($url, $path, 1, 1)
    While @InetGetActive
    GUICtrlSetData ($2Label1, "Downloading... " & @InetGetBytesRead & " of " & $size & " loaded.")
    WEnd
    If FileExists ($path) Then
    MsgBox (0, "", "Download Successfull!")
    Else
    MsgBox (0, "Error", "File couldn't be downloaded.")
    EndIf
    Exit
    EndIf

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

    $msg = GUIGetMsg ()
    If $infogetted = True Then
    If GUICtrlRead ($urlfiled) <> $url Then $infogetted = False
    EndIf
    WEnd
    Func OnAutoItExit ()
    GUIDelete ()
    SoundPlay (@ScriptDir & "\sounds\data lost.mp3")
    Sleep (2500)
    EndFunc

    [/autoit]

    P.S.:
    Wenn ich an der Stelle

    [autoit]

    $cmd = False
    $infogetted = False

    [/autoit]


    Noch MsgBox (0, "", @ScriptLineNUmber) hinterhänge ist die Antowrt auch -1...
    Liegt es dran das das Script compiled ist?

    Thx schonmal, Das Schwert

  • Bei Run Eingabeaufforderung nicht schließen

    Du meinst mit den Parametern

    [autoit]

    $mac & "\<ip>"

    [/autoit]

    ?
    Dann gehts so:

    [autoit]

    ShellExecute (@COMSPEC & " /c " & @ScriptDir & "\wake.exe ", $mac & " 193.196.108.255")

    [/autoit]

    Du kannst dir ShellExecute ja mal in der Helpfile angucken...
    Kannst das Fesnter damit z.b. aich unsichtbar starten, wird dann aber schwieriger es zu steuern...
    (ControlClick, ControlSend, etc...)
    Ist aber auch nicht sooooo schwer... :)


    EDIT:

    Ich nehme mal an Eucaplytus script wird auf jeden fall gehen- er ist erfahrener als ich :D

  • Datei als Admin starten - Windows 7

    Tach, hab n problem mit Windows 7...
    Ich will mir ein Sicherheits system schreiben, und es ist so konzipiert
    das es sich in der Registery als Shell einträgt (HKLocalMachine\Software\Microsoft\Windows NT\Winlogon --> Shell).
    Sobald das System erfolgreich entsperrt wurde soll jedoch der ganz normal erxplorer starten... Die Taskliste usw. Startet jedoch nur wenn der Explorer als Shell eingetragen ist. ( HKLocalMachine\Software\Microsoft\Windows NT\Winlogon --> Shell) :D
    Damit eine Datei jedoch in diesen Reg eintrag schreiben kann muss sie als Admin gestartet werden...
    (Rechte Maustaste --> Als Admin starten) Auf XP usw. Ging das ja mit RunAs, aber auf Win 7 geht das nichtmeher... Wie starte ich das Programm jetzt als Admin? (#RequireAdmin geht aus technischen gründen nicht)

  • Hacker gesucht!

    Hallo, einer von euch hatte die Idee mit der Fensterliste... Ich habs geschafft, Wenn sich ein neues Fenster öffnet geht der PC aus :D

    Es ist ziemlich "agressiv"... Hier ist mal nur die Engine, damit es geht muss man es anmachen, es startet noch nicht automatisch... Eben nur um mal den Code anzugucken...
    Damit es geht müsst ihr noch mit dem Autoit-befehl driveGetSerial (..) herausfinden wie die Serial von eurem stick ist...

    Und noch was ganz wichtiges: Wozu ist diese Tool überhaupt da???

    Es soll den zweck haben das ihr einen USB-STICK wie einen Schlüssel benutzen könnt.
    (Rechner geht an, wenn ihr nicht den passenden Stick einsteckt wird er mit einem großen Fenster verpserrt...)


    Die benötigete Data.ini (Ihr müsst sie "per Hand" noch ausfüllen...)
    Data.ini

    Spoiler anzeigen


    data.ini


    Erklärungen:
    Serial.........Die serial nummer müsst ihr mit DriveGetSerial herausfinden und hier eintragen...
    methode........Das was passiert wenn ein Fenster geöffnet wird....Methoden wie in den Batch-skripten:


    Herunterfahren Neustarten abmelden
    -s -r alles andere... z.B.: digjghigkm Wäre das gleich wie log off... ;)

    letter........Der Laufwerksbuchstabe des Sticks (Du findest ihn unter Arbeitspaltz)

    Ich bin natürlich dabei ein Tool zu schreiben welches dashier automatisch übernimmt xD

    Viel spaß, Das Schwert!!!


    [ops]
    serial=469949998
    methode=log off
    letter=I:

    Der Code

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #include <Misc.au3>
    #include <Array.au3>
    #include <String.au3>
    HotKeySet ("Q", "_exist") ;!!!!!!!! Unbedingt vor veröfentlichung löschen!!!!!!!;;;;;Dient nur als not-aus für Testphase
    If IniRead ("data.ini", "ops", "password", "False") == "True" Then HotKeySet ("^p", "pwd")
    $ini = IniRead ( "data.ini", "ops", "serial", "noser" )
    $letter = IniRead ("data.ini", "ops", "letter", "nole")
    If $letter = "nole" Then
    MsgBox (0, "Fehler!", "Kein Laufwerk-buchstabe angegeben!")
    Exit
    EndIf
    If IniRead ("data.ini", "ops", "methode", "0") == "-s" Then
    $methode = 4
    ElseIf IniRead ("data.ini", "ops", "methode", "0") == "-r" Then
    $methode = Shutdown (2)
    Else
    $methode = 0
    EndIf
    _trystart ()
    Func _trystart ()
    If $ini = "noser" Then
    MsgBox (0, "Fehler!", "Keine Serial-nummer definiert!")
    Exit
    EndIf
    $drive = DriveGetSerial ($letter)
    If $drive = $ini Then _exist ()
    _nodrive ()
    EndFunc
    Func pwd ()
    If InputBox ("Security system", "Geben sie das Passwort ein!", "", "*") == _StringEncrypt (0, IniRead ("data.ini", "ops", "pwd", ""), "pwdpasswort") Then
    _exist ()
    EndIf
    EndFunc
    Func _exist ()
    $drive = ""
    If WinExists ( "Security" ) Then WinClose ( "Security" )
    Exit
    EndFunc

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

    Func _nodrive ()
    #Region ### START Koda GUI section ### Form=C:\Programme\AutoIt3\Extras\FD\Forms\Security v2.kxf
    $Form1 = GUICreate("Security", @desktopwidth, @desktopheight, 0, 2, $WS_POPUP)
    $Label1 = GUICtrlCreateLabel("Security alert: No acces to system!", 304, 320, 682, 54)
    GUICtrlSetFont(-1, 26, 400, 0, "Arial Black")
    $again = GUICtrlCreateButton("Try-again", 0, 712, 75, 25, 0)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###
    GUISetStyle ( $WS_POPUP, $WS_EX_TOPMOST )
    $list = WinList ()
    While 1
    $list2 = WinList ()
    If WinExists ("Windows Task-Manager") Then Shutdown ($methode)
    If $list[0][0] <> $list2[0][0] Then
    If WinExists ("", "Dieser Datenträger bzw. das Gerät enthält Inhalte verschiedener Typen.") Then WinClose ("", "Dieser Datenträger bzw. das Gerät enthält Inhalte verschiedener Typen.")
    ContinueLoop
    Exit
    ;Shutdown ($methode) Achtung! Zu testzwecken deaktiviert... Bitte bei "echter" Benutzung wieder aktivieren
    EndIf
    If Not WinActive ( "Security" ) Then WinActivate ( "Security" )
    GUISetState (@SW_MAXIMIZE)
    If GUIGetMsg () = $again Then _trystart ()
    _MouseTrap ( 0, 0, @desktopwidth, @DesktopHeight - 50)
    WEnd
    EndFunc

    [/autoit]


    Viel spaß damit :D:D

    Bitte um Feedback!! Sei es lob oder tadel!!


    EDIT:
    Der button hies noch "Herunterfahren", war aber auch Try-again... Jetzt verbessert :D

  • Hacker gesucht!

    @MathiasG: StickSecurity läuft bei mir überhaupt nicht!

    1.: Das Programm sperrt auch bei der Einstellung "Nur für diesen Bemutzer" alle Benutzer
    2.: Das Programm lässt siich auch mit richtigem stick nicht entsperren (?!)
    --> Str+Alt+Entf--> Neuer task --> Explorer.exe
    Ist zwar so ein hässliches Fenster, aber dann hat man vollen zugtiff auf alles...
    Is wohl n andres stick security :D