Es wäre schon möglich mehrere Sachen "gleichzeitig" zu machen, da musst du aber mit TimerFunktionen und so weiter rumspielen.
Edit: Dein Holz und Eisen updaten sich doch, woran hängts jetzt genau?
Du könntest dir mal -> Klick <- anschauen.
Es wäre schon möglich mehrere Sachen "gleichzeitig" zu machen, da musst du aber mit TimerFunktionen und so weiter rumspielen.
Edit: Dein Holz und Eisen updaten sich doch, woran hängts jetzt genau?
Du könntest dir mal -> Klick <- anschauen.
Hallo,
ich bin ein wenig kritisch
Nach dem ersten mal rumspielen:
C:\Dokumente und Einstellungen\******\Desktop\Scripte\Blog\Datenbank.au3 (408) : ==> Subscript used with non-Array variable.:
GUICtrlSetData($InputFilePath, $aTempIniRead[1][1])
Naja, Datenbank. Und wo ist die jetzt? Ich halte persönlich von einer Ini nichts, mit SQLite oder so, die erstellste genauso schnell und hast deutlich mehr Übersicht. Wäre hier wohl die bessere Wahl.
Trotzdem sieht es aber ganz nett aus, schön gestaltet! Schön gemacht.
Edit: So, nach dem zweiten Start läuft es nun. Beim ersten mal den Ordner ausgewählt -> Nen File angeklickt und Details gedrückt -> Kam keine Filesize und so weiter und ist dann abgeschmiert.
Vllt. 2x im Jahr, aber das wäre dann schon relativ oft...
Finde es zuhause auch gemütlicher!
Hi,
es ist halt auch nur ein Workaround und keine Musterlösung, aber die gibt es wohl nicht :(. Naja, trotzdem danke dir.
$string = StringRegExp($string, '(anfang##\d*##ende)', 3)
[/autoit]Meinst du so?
Ich hoffe das passt so...
;~ #include <Values.au3>
;In der VALUE sind a-z 0-9 usw
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form2 = GUICreate("Text Obfuscator", 230, 197, -1, -1)
$Text = GUICtrlCreateInput("a b", 8, 72, 217, 21)
$Label1 = GUICtrlCreateLabel("Text Verschleiern", 8, 8, 170, 28)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
$Button1 = GUICtrlCreateButton("Verschleier Text", 8, 104, 219, 25, $WS_GROUP)
$Ausgabe = GUICtrlCreateInput("Ausgabe", 8, 136, 217, 21)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Local $A = "LOL", $B = "ROFL"
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
If GUICtrlRead($Text) = "" Then ContinueLoop MsgBox(262144, "Error", "Text leer.")
Local $sText = GUICtrlRead($Text), $sNewText = ''
For $i = 1 To StringLen($sText)
$sString = StringReplace(StringMid($sText, $i, 1), StringMid($sText, $i, 1), Eval(StringMid($sText, $i, 1)))
If $sString = '' Then $sString = StringMid($sText, $i, 1)
$sNewText &= $sString
Next
GUICtrlSetData($Ausgabe, $sNewText)
EndSwitch
WEnd
Was wiederum sehr gut möglich ist, da wir ja alle deine Values.au3 haben. Oh man eh, nimm Execute.
Klar,
#include <WindowsConstants.au3>
#include <GUIListView.au3>
$GUI = GUICreate("GUI", 600, 300)
$ListView = GUICtrlCreateListView("Test", 10, 10, 580, 280, $WS_BORDER, $LVS_EX_FULLROWSELECT + $LVS_EX_CHECKBOXES)
_GUICtrlListView_SetColumnWidth($ListView, 0, $LVSCW_AUTOSIZE_USEHEADER)
Local $aTest[5] = ["test1","test2","test3","test4", "test5"]
For $i = 0 to 4
GUICtrlCreateListViewItem($aTest[$i], $ListView)
GUICtrlSetState(-1, $GUI_DISABLE) ; <-- zeigt keine Wirkung, Checkboxen noch anklickbar.
Next
GUISetState(@SW_SHOW)
While True
$msg = GUIGetMsg()
switch $msg
Case -3
Exit
EndSwitch
WEnd
Case $Button1
If GUICtrlRead($Text) = "" Then ContinueLoop MsgBox(262144, "Error", "Text leer.")
$sText = GUICtrlRead($Text)
For $i = 65 To 90
$sText = StringReplace($sText, Chr($i), "$" & Chr($i) & "&")
Next
$sText = StringTrimRight($sText, 1)
GUICtrlSetData($Ausgabe, $sText)
Hallo,
habe eine Listview mit Checkboxen, möchte aber ein paar Items nicht auswählbar machen. Mit GuiCtrlSetState funktioniert es scheinbar nicht, mit _GUICtrlListView_SetItemState habe ich keine Ideen für die Parameter.
Wäre euch dankbar.
Jap, normal.
https://autoit.de/www.lmgtfy.com, das reicht doch i.d.R. auch
Diese Venigère-Chiffre hat auch noch einen Autokey-Verschlüsselungs-Modus. Habe den nun auch noch eingebaut.
$Text = _Vigenere_Chiffre("geheimnis", "AKEY", False)
MsgBox(0, "", $Text)
$Text = _Vigenere_Chiffre("geheimnis", "AKEY", True)
MsgBox(0, "", $Text)
Func _Vigenere_Chiffre($sText, $sKey, $sAutoKey = False)
Local $sAlphabet = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ', $sCryptText = ''
For $i = 1 To StringLen($sText)
If $sAutoKey = False Then
$iKeyPos = Mod($i, StringLen($sKey))
If $iKeyPos = 0 Then $iKeyPos = StringLen($sKey)
$sCurrKey = StringMid($sKey, $iKeyPos, 1)
ElseIf $sAutoKey = True Then
$sCurrKey = StringMid($sKey, $i, 1)
If $i > StringLen($sKey) Then $sCurrKey = StringMid($sText, $i - StringLen($sKey), 1)
EndIf
$sCryptText &= StringMid($sAlphabet, Mod(StringInStr($sAlphabet, StringMid($sText, $i, 1)) + StringInStr($sAlphabet, $sCurrKey) - 1, 26), 1)
Next
Return $sCryptText
EndFunc ;==>_Vigenere_Chiffre
Hab mal die Vigenère-Chiffre geschrieben, entschlüsseln kann mans aber noch nicht
$Text = _Vigenere_Chiffre("geheimnis", "AKEY")
MsgBox(0, "", $Text)
Func _Vigenere_Chiffre($sText, $sKey)
Local $sAlphabet = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ', $sCryptText = ''
For $i = 1 To StringLen($sText)
$iKeyPos = Mod($i, StringLen($sKey))
If $iKeyPos = 0 Then $iKeyPos = StringLen($sKey)
$sCryptText &= StringMid($sAlphabet, Mod(StringInStr($sAlphabet, StringMid($sText, $i, 1)) + StringInStr($sAlphabet, StringMid($sKey, $iKeyPos, 1)) - 1, 26), 1)
Next
Return $sCryptText
EndFunc ;==>_Vigenere_Chiffre
Nein, sowas gibts nicht. Du kannst mit der Windows-Suche speziell nach großen Dateien suchen, das würde ich mal ausprobieren. Vllt. hast du ja was drauf, was enorm viel Speicherplatz verbraucht.
Willkommen!
Wünsche dir viel Spaß und Erfolg mit AutoIt und keine Angst, bei uns bist du gut aufgehoben
Hallo,
ja das sieht man häufiger, auch meist bei SQL Tabellen.
Habe jetzt mal 02:00:00 verwendet, das liegt glaube ich an den Zeitzonen, kA. Musste schauen wie das Ganze passt.
#include <date.au3>
[/autoit] [autoit][/autoit] [autoit]$Time = _TimeGetByUnixFormat(1269779842)
MsgBox(0, "", $Time)
Func _TimeGetByUnixFormat($sTime)
$sTime = _DateAdd("s", $sTime, "1970/01/01 02:00:00")
Return $sTime
EndFunc ;==>_TimeGetByUnixFormat
Hallo, dafür reicht auch StringReplace.
Die Frage ist, hast du dir auch nur ansatzweise den StringInStr Befehl angeschaut? Dann würdest du auch wissen wie das funktioniert. Schade