Nicht nur das der Quellcode oben aussieht als hätte man ihn 3mal durch 10 verschiedene Obfuscatoren ( ein Wort 
) gequetscht, nein dazu kommt noch, dass dies dein gefühlt 7ter Thread zu deinem "Updater" ist... 
Könnte bitte ein Moderator mal die anderen löschen?
Also bitte füg den Quellcode nocheinmal ein, während du dich im "Quellcode-Tab" befindest... Der heißt nämlich nicht umsonst so. 
Beiträge von BinDannMalWeg
-
-
Okay ich hatte die Frage gestellt weil die Hilfe mir nicht helfen konnte
"Der Moment wenn Leute es nicht schaffen ihre Standard-Suchmaschiene zu benutzen..."
"autoit gui button" -
Mit welcher Sprache ist dieses "Tool" denn programmiert worden? Achja und dein "Virusscan" Bildchen ist vollkommen nutzlos... Wenn dann läd man die Datei zum Beispiel bei Virustotal hoch, was ich jetzt mal für dich erledigt habe: Scan
-
Sieht gut aus...
Aber du hast nicht im Ernst die Hintergrundmusik mit deinem Handy gemacht?
-
-.-
Das Thema haben wir nun wirklich schon hunderte mal durchgekaut... Bitte benutze in Zukunft Google und die Forums-Suche!
Zum Beispiel Dieser Thread ist nicht mal eine Woche alt!
Zumal die benötigten Suchwörter ja schon in deinem Namen enthalten sind... -
einer von uns beiden hat die Aufgabenstellung nicht richtig erfasst,ich komme auf ein ganz anderes Eregebnis.
Ja ich hatte da echt was falsch verstanden, habe meinen Post oben verbessert...
-
Um Dateitypen zu erkennen hatte ich in folgendem Script mal eine Funktion geschrieben... Allerdings erkennt sie nur .jpg .png .gif .mp3 .mp4 .flv und .exe Dateien.
Um ein Zip-Archiv zu entpacken kannst du die 7za.exe von 7Zip verwenden. (Einfach mal googeln)Spoiler anzeigen
[autoit]#include <File.au3>
[/autoit] [autoit][/autoit] [autoit]
Local $hFile, $sContent, $sCacheDir = @UserProfileDir & "\AppData\Local\Google\Chrome\User Data\Default\Cache\", $sDestDir = @ScriptDir & "\cache\"
Local $aPath = _FileListToArray($sCacheDir)
If Not FileExists($sDestDir) Then DirCreate($sDestDir)For $i = 1 To $aPath[0]
[/autoit] [autoit][/autoit] [autoit]
$hFile = FileOpen($sCacheDir & $aPath[$i], 16)
$sTyp = _GetFileFormat($hFile)
If Not @error Then
If Not FileExists($sDestDir & $sTyp & "\") Then DirCreate($sDestDir & $sTyp & "\")
FileCopy($sCacheDir & $aPath[$i], $sDestDir & $sTyp & "\" & $aPath[$i] & $sTyp, 1)
Else
If Not FileExists($sDestDir & "Unknow\") Then DirCreate($sDestDir & "Unknow\")
FileCopy($sCacheDir & $aPath[$i], $sDestDir & "Unknow\" & $aPath[$i], 1)
EndIf
FileClose($hFile)
Next
ShellExecute($sDestDir)Func _GetFileFormat($hFile)
[/autoit]
Local $8Byte = FileRead($hFile, 8), $6Byte = BinaryMid($8Byte, 1, 6), $4Byte = BinaryMid($8Byte, 1, 4), $3Byte = BinaryMid($8Byte, 1, 3), $2Byte = BinaryMid($8Byte, 1, 2)
Select
Case $8Byte = "0x89504E470D0A1A0A"
Return ".png"
Case $3Byte = "0xFFD8FF"
Return ".jpg"
Case $6Byte = "0x474946383961" Or $6Byte = "0x474946383761"
Return ".gif" ; by Christoph54 (autoit.de)
Case $3Byte = "0x494433" Or $2Byte = "0xFFFB"
Return ".mp3"
Case $3Byte = "0x464C56"
Return ".flv"
Case StringLeft($8Byte,
= "0x000000" And StringMid($8Byte, 11, 18) = "66747970" ; "0x000000..66747970"
Return ".mp4"
Case $2Byte = "0x4D5A" Or $2Byte = "0x5A4D"
Return ".exe"
Case Else
SetError(1, Default, "")
EndSelect
EndFunc ;==>_GetFileFormat -
Nicht die optimalste Lösung, aber sie funktioniert...
Spoiler anzeigen
[autoit]#include <Array.au3>
[/autoit] [autoit][/autoit] [autoit]Local $Array = _GetAverage(@ScriptDir & "\data.txt")
[/autoit] [autoit][/autoit] [autoit]For $i = 1 To $Array[0] Step +2
[/autoit] [autoit][/autoit] [autoit]
ConsoleWrite($Array[$i] & " = " & $Array[$i + 1] & @LF)
NextFunc _GetAverage($sFile)
[/autoit]
Local $aReturn[1], $aItems, $aCollums, $aFind, $iAll = 0, $sData = FileRead($sFile)
If StringRight($sData, 1) <> @CRLF Then $sData &= @CRLF
$aItems = StringRegExp($sData, "(\d+,\d+)\s\d+\s", 3)
$aCollums = StringRegExp($sData, "\d+,\d+\s(\d+)\s", 3)
Do
$aReturn[0] += 2
_ArrayAdd($aReturn, $aCollums[0])
$aFind = _ArrayFindAll($aCollums, $aCollums[0])
$iAll = 0
For $i = 0 To UBound($aFind) - 1
$iAll += Number(StringReplace($aItems[$aFind[$i]],",","."),3)
Next
For $y = 0 To UBound($aFind) - 1
_ArrayDelete($aCollums, $aFind[$y] - $y)
_ArrayDelete($aItems, $aFind[$y] - $y)
Next
_ArrayAdd($aReturn, $iAll / UBound($aFind))
Until UBound($aCollums) = 0
Return $aReturn
EndFunc ;==>_GetAverageEdit: Fehler verbessert!
-
Hier hatte ich mal ein selbsterklärendes Beispiel für die Kommunikation via TCP gepostet...
-
ich würde gerne ein TCP-Login und Registrerungssystem erstellen , und wollte fragen ob jemand ein beispiel dafür hat ?
So wird dir keiner helfen können... Was hast du denn vor und was genau suchst/brauchst du jetzt? Ein TCP-Tutorial oder doch nur eine kleine kleine Funktion mit der man ein Passwort überprüfen könnte? Oder gar etwas ganz anderes? Also bitte beschreibe dein Problem&Vorhaben mal genauer...
-
Spoiler anzeigen
[autoit]Local $aDriveList, $sSubDir, $sBackupDir = @ScriptDir&"\Backup\"
[/autoit] [autoit][/autoit] [autoit]If Not FileExists($sBackupDir) Then DirCreate($sBackupDir)
[/autoit] [autoit][/autoit] [autoit]While 1=1
[/autoit]
$aDriveList = DriveGetDrive("REMOVABLE")
If IsArray($aDriveList) Then
For $i = 1 To $aDriveList[0]
ConsoleWrite("Kopiere Laufwerk "&$aDriveList[$i] & "..." & @LF)
$sSubDir = $sBackupDir&StringTrimRight($aDriveList[$i],1)
If FileExists($sSubDir&"\") Then DirRemove($sSubDir&"\")
$iCopy = DirCopy($aDriveList[$i],$sSubDir)
If $iCopy Then
ConsoleWrite("Erfolgreich kopiert!" & @LF)
Else
ConsoleWrite("Fehler beim Kopieren!" & @LF)
EndIf
Next
EndIf
Sleep(100*1000)
WEnd -
Wenn das Script einen eigenen Bildschirm bekommen hat, könnte man das ganze doch gleich fullscreen umsetzen?
-
Für was brauchst du Wildcards, wenn du so oder so alles kopieren willst?
Außerdem solltest du dir die Hilfe zu DirCopy() nochmal genau durchlesen, da steht nämlich, dass hinter den Pfaden KEIN Backslash sein draf... -
Warum nicht einfach so?
Spoiler anzeigen
[autoit]#include<File.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <Array.au3>
#include <ie.au3>
Local $sText, $DVISEDatei = "\\mainsrv02\david\import\test.nmr"
Local $sBaseURL = "http://mainwebsrv01/pw/Query01.php"$oIE = _IECreate($sBaseURL, 0, 0)
[/autoit] [autoit][/autoit] [autoit]
$oTable = _IETableGetCollection($oIE, 0)
$aTableData = _IETableWriteToArray($oTable, True)
_IEQuit($oIE)_ArrayDelete($aTableData, 0)
[/autoit] [autoit][/autoit] [autoit]
_ArrayDelete($aTableData, 0)
_ArrayDelete($aTableData, 1)
_ArrayDelete($aTableData, 0)
_ArrayDelete($aTableData, UBound($aTableData))For $j = 0 To UBound($aTableData, 1) - 1
[/autoit] [autoit][/autoit] [autoit]
For $i = 0 To UBound($aTableData, 2) - 1
$sText &= $aTableData[$j][$i] & ";"
Next
$sText = StringTrimRight($sText, 1) & @CRLF
Next$sText = "[DEFAULT=2]" & @LF & "[DEL ]" & @LF & "[ADR_NACHNAME,ADR_VORNAME,ADR_EMAIL,ADR_KOMMENTAR,ADR_ANREDE,ADR_TEL_PRIVAT,ADR_TEL_MOBIL,ADR_ANGEZEIGTER_NAME]" & @LF & "[\\mainsrv02\david\archive\user\1001c000\in\c]" & @LF & "[ANSI]" & @LF & $sText
[/autoit] [autoit][/autoit] [autoit]
$sText = StringReplace($sText, "NULL", "")FileDelete($DVISEDatei)
[/autoit]
FileWrite($DVISEDatei, $sText)Außerdem erschließt sich mir der Sinn des Scripts nicht wirklich und ich habe da so eine Vorahnung, dass sich das mit RegExp viieel kürzer realisieren lassen würde...
-
Du hast da glaub etwas falsch verstanden: Es reicht vollkommen, wenn du die Datei zu Beginn des Scripts im Modus Lesen+Schreiben öffnest und sie ganz am Ende wieder schließt. Dann kannst du in allen Funktionen die mit der Datei arbeiten, das Handle das du von FileOpen() zurück bekommst, statt dem Pfad eintragen...
-
-
Zitat
Ich möchte ein Verbindungsmanager basteln. Ungefähr so wie der Netzwerk- und Freigabecenter.
(später soll dies in ein Multiplayer-Spiel eingebaut werden.)Erklär das bitte mal genauer... Verstehe ich das richtig, dass dein eigentliches Spiel über TCP/UDP läuft, du aber eine Funktion zum automatischen Gründen eines Netzwerks erstellen möchtest?
-
Deine Datei wird bei mit einwandfrei gefunden und gelöscht!
Ich schätze mal du hast vergessen den Pfad zur MD5-Textdatei zu ändern... -
Irgend wo her muss die cmd.exe ja wissen das du ihr gerade einen befehl übergeben willst...
-
Da meine AutoIT Kentnisse nur sehr beschränk sind, dachte ich es ist einfacher das ganze über die Konsole laufen zu lassen, und wenn ich deinen "Quick and Dirty :P" Code anguck, bin ich mir nicht sicher, welcher Weg jetzt ein Umweg ist
... Da ich ihn nicht versteh und ich das Backupscript selber machen möchte, versuche ich noch einen anderen Weg zu suchen bzw. das mit dem CMD-Befehl hinzukriegen 
.Das du meine Funktion vielleicht nicht verstehst, ist die eine Sache, aber das hindert dich ja nicht daran sie einfach zu benutzen oder?
Tut sie nicht genau das was du möchtest? Du übergibst ein "Von-Verzeichnis" und ein "Backup-Verzeichnis" dann werden automatische alle neuen Dateien/Ordner in das Backup Verzeichnis kopiert und alle veränderten Dateien werden geupdatet. Noch dazu habe ich Rekursion implementiert was bedeutet, dass auch alle Unterordner durchsucht werden...
