....inzwischne weiß ich von drei großen TS3-Hostern das sie die UDF ohne Probleme in der Praxis einsetzen...
https://autoit.de/www.chip-ts3hosting.com
https://autoit.de/www.chip-ts3hosting.net
https://autoit.de/www.chip-ts3hosting.org
Spaß beiseite. Ich benutz die UDF auch ohne jegliche Probleme 
Hi,
dit ändert it och nich. Wissn se. Dit is janz komisch. Ick klick da ruff, dann kommt dit au3 symbol für ne milisekunde un denn..isset wech.
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
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.
Testsystem ja. Livesystem nein.
Windows Server 2003.
Daher bringt mir das nicht viel.
Desweiteren will ich das Ganze schon selbst schreiben.
Ein komplettes Image bringt mir nichts, ich brauche nur das Dateisystem, weil ich tägliche Vergleiche der Dateien und Ordner durchführen möchte.
Prüfsumme/Size etc.
Dahinter steckt schon Sinn und Zweck.
Spontan würde mir da nur einfallen eine GUI ohne Rand mit dem Bild über das Control zu legen und die GUI mit der des Programms zu fixieren.
Das System = 24/7. Also mit kurz ma aus, ist nicht
Daher muss ich irgendeine Möglichkeit finden.
Ich kopiere ja nur und cutte nicht oder ändere was an den Files.
Sowas wie Shadowcopy o.Ä ist nicht möglich?
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.
#cs ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]AutoIt Version: 3.3.8.1
Author: myName
Script Function:
Template AutoIt script.
#ce ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]; Script Start - Add your code below here
#include <Array.au3>
$pfad = "C:\Windows\System32\"
global $ordner = _RecursiveFileListToArray($pfad, '', 2)
Global $dateien = _RecursiveFileListToArray($pfad, '', 1)
_ArrayDisplay($dateien,"dateien")
_ArrayDisplay($ordner,"ordner")
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))
FIlecopy($dateien[$i],@scriptdir & "\est\" & StringTrimLeft($dateien[$i],20))
Next
msgbox(0,"","Dateien done")
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
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?
Alles Gute zu deinem Bday ! Lass dich dick feiern
[Blockierte Grafik: http://www.serienoldies.de/images4/chip_chap_chip.jpg]
Oh Mist, da hab ich durch meine Teilinaktivität das große Event deutlichst verpasst.
Dennoch ! Alles Gute nachträglich zu deinem Geburtstag UEZ
Blume - es gibt immer Mittel un Wege für Alles
10.02.2012
Datenbankabfrage & Update hinzugefügt.
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
[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:
#cs ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]AutoIt Version: 3.3.9.0 (beta)
Author: Kev.K
Script Function:
Template AutoIt script.
#ce ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]; Script Start - Add your code below here
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <mysql.au3>
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)
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
func activate()
$username = "root"
$pass = ""
$host = "localhost"
$db = "serialdb"
_MySQL_InitLibrary()
$MysqlConn = _MySQL_Init()
$connected = _MySQL_Real_Connect($MysqlConn,$host,$username,$pass,$db)
If $connected = 0 Then Exit MsgBox(16, 'Connection Error', _MySQL_Error($MysqlConn))
$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)
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)
$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
Func _startProg()
msgbox(0,"","start Prog here")
Endfunc
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
func trialcheck()
$date = @MDAY & ":" & @MON & ":" & @YEAR
$regread = RegRead("HKEY_CURRENT_USER\SOFTWARE\YourTOOL\","Registration")
;selfcreating Timediff.
Endfunc
[Blockierte Grafik: http://img803.imageshack.us/img803/928/unbenanntpn.png]
Falls wer fragen hat, einfach her damit
grrrrrrrrr ! zu ein Schwachsinnsfehler von mir. Voll vergessen.
thx 
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... 
//edit.
Bekomm als Ergebnis. "3/4/5")
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.
#cs ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]AutoIt Version: 3.3.9.0 (beta)
Author: myName
Script Function:
Template AutoIt script.
#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>
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)
While 1
$msg = GUIGetMsg()
switch $msg
case $erstellen
_encrypt()
case $einlesen
_decrypt()
EndSwitch
If $msg = $GUI_EVENT_CLOSE Then ExitLoop
WEnd
func _encrypt()
msgbox(0,"",UBound($data))
for $i = 0 to Ubound($data) -1
global $datanew = _StringEncrypt(1,$data[$i],"pass",5)
_writeconfig()
Next
Endfunc
func _writeconfig()
Filewrite(@scriptdir & "\config.db",$datanew & @crlf)
Endfunc
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
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
Heyho
[Blockierte Grafik: http://www.huettenhilfe.de/wp-content/uploads/2007/02/wiener-schnitzel.jpg]
Ich wünsch dir alles Gute zum Geburtstag ! Lass dich dick feiern & es dir gut gehen
[Blockierte Grafik: http://www.riemann-greifenberg.de/images2/geburtstag.png]
Ich persönlich ziehe ja Skincrafter vor
Hi,
ich lese Daten in 2 hintereinanderfolgenden for schleifen ein und setzte diese als Items in meine Listview.
JEtzt geschieht das hier:
kann ich irgendwie definieren, dass die Einträge von "Test" auch oben anfangen?
[Blockierte Grafik: http://img830.imageshack.us/img830/5387/unbenanntrr.png]
lg
