Beiträge von Kev

  • GDIPlus Digitaluhr

    Habs nun auch zum Laufen bekommen,war doch Layer8.
    Aber eben halt auch nur zum Laufen, mehr nicht.
    Der Prozess steht, die Font ist auf "Sylfaen" geändert, dennoch weit und breit keine Uhr.

  • GDIPlus Digitaluhr

    Also ick klick da druff, näh? un denn....passiert nischt, näh? also dit geht uff, un denn geht dit wieder zu wah.
    Aber ick se nüscht.
    Dit is ja an sich nit schlimm, aber ick globb nit dat dit so sein sollte :)

    Weß ick nich, evntl isset ja och Layer 8. Ick hän Win7 32bit

  • Backup - Filecopy Systemdateien

    Da der Thread schon wieder auf Seite 3 ist, hau ich das Ding mal mit einer neuen Bemerkung hoch.

    Ich habe über Shadowcopy mithilfe des Windows Volumeschattenkopie Dienstes eine Schattenkopie des System32 gefertigt.
    Wenn ich diesmal C:\Windows\System32\ mit meiner Kopie vergleiche, ist die Kopie größer ! Mehr Ordner & Dateien.

    Wie kann das bitte möglich sein? Ich hatte angenommen mit dem Anzeigen der Eigenschaften mir die kompletten Dateien/Ordner incl versteckter Benutzer und/oder wie auch immer angezeigt werden.

  • Backup - Filecopy Systemdateien

    Hi,

    ich arbeite momentan an einem Backup Tool für die Firma.
    Habe also testweise mal, den kompletten System32 Ordner im laufenden Betrieb kopiert.

    erst die Verzeichnisse eingelesen und erstellt. Danach die Dateien kopiert.

    Spoiler anzeigen
    [autoit]

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

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

    AutoIt Version: 3.3.8.1
    Author: myName

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

    Script Function:
    Template AutoIt script.

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

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

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

    ; Script Start - Add your code below here
    #include <Array.au3>

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

    $pfad = "C:\Windows\System32\"
    global $ordner = _RecursiveFileListToArray($pfad, '', 2)
    Global $dateien = _RecursiveFileListToArray($pfad, '', 1)
    _ArrayDisplay($dateien,"dateien")
    _ArrayDisplay($ordner,"ordner")

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

    for $a = 1 to $ordner[0]
    $ordner[$a] = Stringtrimleft($ordner[$a],19)
    ;msgbox(0,"",$ordner[$a])
    Dircreate(@scriptdir & "\est\" & $ordner[$a])
    Next
    msgbox(0,"","ordner done")
    for $i = 1 to $dateien[0]
    ;$dateien[$i] = StringTrimLeft($dateien[$i],19)
    ;msgbox(0,"",@scriptdir & "\est\" & StringTrimLeft($dateien[$i],20))

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

    FIlecopy($dateien[$i],@scriptdir & "\est\" & StringTrimLeft($dateien[$i],20))
    Next
    msgbox(0,"","Dateien done")

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

    Func _RecursiveFileListToArray($sPath, $sPattern, $iFlag = 0, $iFormat = 1, $sDelim = @CRLF)
    Local $hSearch, $sFile, $sReturn = ''
    If StringRight($sPath, 1) <> '\' Then $sPath &= '\'
    $hSearch = FileFindFirstFile($sPath & '*.*')
    If @error Or $hSearch = -1 Then Return SetError(0, 0, $sReturn)
    While True
    $sFile = FileFindNextFile($hSearch)
    If @error Then ExitLoop
    If StringInStr(FileGetAttrib($sPath & $sFile), 'D') Then
    If StringRegExp($sPath & $sFile, $sPattern) And ($iFlag = 0 Or $iFlag = 2) Then $sReturn &= $sPath & $sFile & '\' & $sDelim
    $sReturn &= _RecursiveFileListToArray($sPath & $sFile & '\', $sPattern, $iFlag, 0)
    ContinueLoop
    EndIf
    If StringRegExp($sFile, $sPattern) And ($iFlag = 0 Or $iFlag = 1) Then $sReturn &= $sPath & $sFile & $sDelim
    WEnd
    FileClose($hSearch)
    If $iFormat Then Return StringSplit(StringTrimRight($sReturn, StringLen($sDelim)), $sDelim, $iFormat)
    Return $sReturn
    EndFunc ;==>_RecursiveFileListToArray

    [/autoit]

    Folgendes Problem:

    [Blockierte Grafik: http://img713.imageshack.us/img713/9956/unbenanntrhm.png]

    Liegt das jetzt an versteckten Systemdateien oder an dem Zugriff vom System oder oder oder?
    Und wie kann ichs beheben?

  • Serialkey Generator - Database upload.

    Hi,

    habe vor 2-3 Jahren schonmal etwas ähnliches gebastelt, was extern gehostet wurde und nun nicht mehr da ist ^^.
    Bin gerade an einem etwas größerem Projekt, wobei dies ein Feature sein wird, welches ich benötige.


    - Generieren von 6x6stelligen Seriennummern (Groß & Kleinbuchstaben sowie Zahlen)
    - Anzeige in Listview
    - direkter MySQL Datenbankupload [Seriennummer,Used]
    - Editierbare Config für Zugangsdaten zum MySQL Server

    Die Usedflag sitzt standardmäßig auf '0' für unbenutzt.

    Screenshots

    Spoiler anzeigen

    [Blockierte Grafik: http://img696.imageshack.us/img696/6163/77126790.png]

    [Blockierte Grafik: http://img715.imageshack.us/img715/4362/unbenanntxq.png]

    Die Abfrage ob der Key benutzt wird und die Änderung in der Datenbank:

    Spoiler anzeigen
    [autoit]

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

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

    AutoIt Version: 3.3.9.0 (beta)
    Author: Kev.K

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

    Script Function:
    Template AutoIt script.

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

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

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

    ; Script Start - Add your code below here
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <mysql.au3>

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

    trialcheck()

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

    GUICreate("Produkt Activation",300,200)
    GuictrlcreateLabel("Please activate your Product with the purchased license",15,20,300,25)
    $serial = GuictrlcreateInput("",10,50,280,25)
    $activate = GuictrlcreateButton("Activate",20,150,100,25)
    $trial = GuictrlcreateButton("Trial",180,150,100,25)
    $purchase = GuictrlcreateButton("Purchase now !",100,100,100,25)
    GUISetState(@SW_SHOW)

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

    While 1
    $msg = GUIGetMsg()
    Switch $msg
    case $purchase
    ShellExecute("http://www.paypal.com")
    case $activate
    activate()
    case $trial
    trial_Date()
    Endswitch
    If $msg = $GUI_EVENT_CLOSE Then ExitLoop
    WEnd

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

    func activate()
    $username = "root"
    $pass = ""
    $host = "localhost"
    $db = "serialdb"

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

    _MySQL_InitLibrary()
    $MysqlConn = _MySQL_Init()

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

    $connected = _MySQL_Real_Connect($MysqlConn,$host,$username,$pass,$db)
    If $connected = 0 Then Exit MsgBox(16, 'Connection Error', _MySQL_Error($MysqlConn))

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

    $qur = "select `serial` from serialdb where (serial) =(" & "'" & Guictrlread($serial) & "'" & ")"
    ;ClipPut($qur)
    $solution = _MySQL_Real_Query($MysqlConn, $qur)
    $res = _MySQL_Store_Result($MysqlConn)
    $rows = _MySQL_Num_Rows($res)

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

    if $rows = "1" Then
    $usedcheck = "select `used` from serialdb where (serial,used) =(" & "'" & Guictrlread($serial) & "'" & ",0)"
    ;ClipPut($usedcheck)
    $solution = _MySQL_Real_Query($MysqlConn, $usedcheck)
    $res = _MySQL_Store_Result($MysqlConn)

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

    $fields = _MySQL_Num_Fields($res)

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

    $x = _MySQL_Num_Rows($res)
    if $x = "1" Then
    $quer = "UPDATE `serialdb` SET used =" & '"' & 1 & '"' & " WHERE `serial` = (" & "'" & Guictrlread($serial) & "'" & ")"
    Clipput($quer)
    _MySQL_Real_Query($MysqlConn, $quer)
    Traytip("Activation","Activation complete ! Thanks for purchasing the Product",2,1)
    _startProg()
    Endif
    Else
    msgbox(0,"Error","The Productkey you have entered is unavailable !")
    Endif
    Endfunc

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

    Func _startProg()
    msgbox(0,"","start Prog here")
    Endfunc

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

    func trial_date()
    $date = @MDAY & ":" & @MON & ":" & @YEAR
    $xs = RegWrite("HKEY_CURRENT_USER\SOFTWARE\YourTOOL\", "Registration", "REG_SZ",$date)
    Msgbox(0,"Trial Active","Your Trial is now running for 1 Month")
    Endfunc

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

    func trialcheck()
    $date = @MDAY & ":" & @MON & ":" & @YEAR
    $regread = RegRead("HKEY_CURRENT_USER\SOFTWARE\YourTOOL\","Registration")
    ;selfcreating Timediff.
    Endfunc

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

    [Blockierte Grafik: http://img803.imageshack.us/img803/928/unbenanntpn.png]

    Falls wer fragen hat, einfach her damit :)

  • _Arrays & Encrypt.

    stimmt, hab rumprobiert gehabt.

    Quellcode updated.
    geht dennoch nicht :) Bekomm die Strings jetz im Array angezeigt aber das entcrypten will nicht.

    Wehe es liegt an der neuen au3 beta... :cursing:

    //edit.

    Bekomm als Ergebnis. "3/4/5")

  • _Arrays & Encrypt.

    Hi,

    die Strings die gecryptet werden, werden in ein File geschrieben.
    Danach möchte ich diese wieder einlesen und ausgeben. Zur Überprüfung.

    Leider bekomm ich nur **** raus.

    ?(

    Spoiler anzeigen
    [autoit]

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

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

    AutoIt Version: 3.3.9.0 (beta)
    Author: myName

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

    Script Function:
    Template AutoIt script.

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

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

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

    ; Script Start - Add your code below here

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

    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #Include <String.au3>
    #include <Array.au3>
    #include <FIle.au3>

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

    Global $data[3], $ausgelesen, $info

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

    GUICreate("Config Creator",700,300)
    $data[0] = GuictrlcreateInput("RIESENTEXT",10,20,100,25)
    $data[1] = GuictrlcreateInput("ALTERNATIVE",10,50,100,25)
    $data[2] = GUictrlcreateInput("LOLEINBAUM",10,80,100,25)
    GUictrlcreateInput("RSS Feed",10,110,100,25)
    GUictrlcreateInput("RSS Feed",10,140,100,25)
    GUictrlcreateInput("RSS Feed",10,170,100,25)
    $erstellen = GuictrlcreateButton("Create Config",200,50,100,25)
    $einlesen = GuictrlcreateButton("lesen",200,90,100,25)
    GUISetState(@SW_SHOW)

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

    While 1
    $msg = GUIGetMsg()
    switch $msg
    case $erstellen
    _encrypt()
    case $einlesen
    _decrypt()
    EndSwitch
    If $msg = $GUI_EVENT_CLOSE Then ExitLoop
    WEnd

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

    func _encrypt()
    msgbox(0,"",UBound($data))
    for $i = 0 to Ubound($data) -1
    global $datanew = _StringEncrypt(1,$data[$i],"pass",5)
    _writeconfig()
    Next
    Endfunc

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

    func _writeconfig()
    Filewrite(@scriptdir & "\config.db",$datanew & @crlf)
    Endfunc

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

    func _decrypt()
    _FileReadToArray(@scriptdir & "\config.db",$ausgelesen)
    _ArrayDisplay($ausgelesen)
    for $a = 1 to $ausgelesen[0]
    $dataold = _StringEncrypt(0,$ausgelesen[$a],"pass",5)
    msgbox(0,"",$dataold)
    Next
    Endfunc

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

    Häng ich ein Arraydisplay ran, zeigt der mir Array $ausgelesen[1]-[3] befüllt an, allerdings ist sieht man nichts.
    Gebe ich mir die Elemente in ner Msgbox aus, sehe ich meine gecrypteten Daten.

    lg

    Kev