Beiträge von Ineluki

Ineluki

Geht bestimmt besser, aber naja:

Spoiler anzeigen

[autoit]

#include <File.au3>
#include <GUIListView.au3>
Dim $datas
$file="data.dat"
_FileReadToArray($file, $datas)
$hFile=FileOpen($file)
$oGUI = GUICreate("Passwort Manager", 374, 418, 192, 124)
$hList = GUICtrlCreateListView("Benutzername|Passwort", 9, 32, 245, 370)
$LVContext=GUICtrlCreateContextMenu($hList)
$deletespecific=GUICtrlCreateMenuItem("Löschen", $LVContext)
$deleteall=GUICtrlCreateMenuItem("Alle Löschen", $LVContext)
_GUICtrlListView_SetColumnWidth($hList, 0, 120)
_GUICtrlListView_SetColumnWidth($hList, 1, 120)
GUICtrlCreateLabel("Passwort Manager", 16, 8, 99, 17)
$adddata = GUICtrlCreateButton("Hinzufügen", 272, 32, 75, 25)
$editdata = GUICtrlCreateButton("Bearbeiten", 272, 72, 75, 25)
$deletedata = GUICtrlCreateButton("Löschen", 272, 112, 75, 25)
GUISetState(@SW_SHOW)
For $i=1 to _FileCountLines($file) Step 2
GUICtrlCreateListViewItem(FileReadLine($hFile, $i)&"|"&FileReadLine($hFile, $i+1), $hList)
Next
While True
Switch GUIGetMsg()
Case -3
Exit
Case $adddata
adddataGUI()
$temp=FileOpen($file)
For $i=1 to _FileCountLines($file)
If FileReadLine($TEMP, $i)="" Then _FileWriteToLine($file, $i, "", 1)
Next
FileClose($temp)
If IsArray($datas) Then
For $i=0 to $datas[0]
_ArrayDelete($datas, $i)
Next
EndIf
_FileReadToArray($file, $datas)
FileClose($hFile)
$hFile=FileOpen($file)
_GUICtrlListView_DeleteAllItems($hList)
For $i=1 to _FileCountLines($file) Step 2
GUICtrlCreateListViewItem(FileReadLine($hFile, $i)&"|"&FileReadLine($hFile, $i+1), $hList)
Next
Case $deletedata
$data=_GUICtrlListView_GetSelectedIndices($hList)*2+1
_FileWriteToLine($file, $data, "", 1)
_FileWriteToLine($file, $data, "", 1)
$temp=FileOpen($file)
For $i=1 to _FileCountLines($file)
If FileReadLine($TEMP, $i)="" Then _FileWriteToLine($file, $i, "", 1)
Next
FileClose($temp)
If IsArray($datas) Then
For $i=0 to $datas[0]
_ArrayDelete($datas, $i)
Next
EndIf
_FileReadToArray($file, $datas)
FileClose($hFile)
$hFile=FileOpen($file)
_GUICtrlListView_DeleteAllItems($hList)
For $i=1 to _FileCountLines($file) Step 2
GUICtrlCreateListViewItem(FileReadLine($hFile, $i)&"|"&FileReadLine($hFile, $i+1), $hList)
Next
Case $editdata
$data=_GUICtrlListView_GetSelectedIndices($hList)*2+1
$edGUI = GUICreate("Daten ändern", 322, 150, 192, 124)
GUICtrlCreateLabel("Username", 16, 16, 44, 17)
$username = GUICtrlCreateInput(FileReadLine($hFile, $data), 72, 14, 185, 21)
GUICtrlCreateLabel("Passwort", 16, 56, 44, 17)
$passwort = GUICtrlCreateInput(FileReadLine($hFile, $data+1), 72, 54, 185, 21)
$savechanges = GUICtrlCreateButton("Änderungen speichern", 72, 88, 139, 25)
GUISetState()
While True
Switch GUIGetMsg()
Case -3
GUIDelete($edGUI)
ExitLoop
Case $savechanges
_FileWriteToLine($file, $data, GUICtrlRead($username), 1)
_FileWriteToLine($file, $data+1, GUICtrlRead($passwort), 1)
GUIDelete($edGUI)
ExitLoop
EndSwitch
WEnd
$temp=FileOpen($file)
For $i=1 to _FileCountLines($file)
If FileReadLine($TEMP, $i)="" Then _FileWriteToLine($file, $i, "", 1)
Next
FileClose($temp)
If IsArray($datas) Then
For $i=0 to $datas[0]
_ArrayDelete($datas, $i)
Next
EndIf
_FileReadToArray($file, $datas)
FileClose($hFile)
$hFile=FileOpen($file)
_GUICtrlListView_DeleteAllItems($hList)
For $i=1 to _FileCountLines($file) Step 2
GUICtrlCreateListViewItem(FileReadLine($hFile, $i)&"|"&FileReadLine($hFile, $i+1), $hList)
Next
Case $deletespecific
ControlClick("Optionen", "", $deletedata)
Case $deleteall
FileClose($hFile)
FileDelete($file)
$hFile=FileOpen($file)
_GUICtrlListView_DeleteAllItems($hList)
EndSwitch
WEnd
Func adddataGUI()
$adGUI = GUICreate("Daten hinzufügen", 388, 138, 192, 124)
GUICtrlCreateLabel("Username", 16, 16, 44, 17)
$username = GUICtrlCreateInput("", 80, 14, 257, 21)
GUICtrlCreateLabel("Passwort", 16, 48, 44, 17)
$passwort = GUICtrlCreateInput("", 80, 46, 257, 21)
$save = GUICtrlCreateButton("Speichern", 136, 80, 75, 25)
GUISetState(@SW_SHOW)
While True
Switch GUIGetMsg()
Case -3
GUIDelete($adGUI)
Return
Case $save
FileWrite($file, @CRLF&GUICtrlRead($username)&@CRLF)
FileWrite($file, GUICtrlRead($passwort))
GUIDelete($adGUI)
Return
EndSwitch
WEnd
EndFunc

[/autoit]

Ich würde die Datei aber verschlüsseln...

Ineluki

[autoit]

StringReplace($result[0], ".pdf", ".html")

[/autoit]

Ineluki

[autoit]

GUICtrlRead
ControlSetText

[/autoit]

Ineluki

[autoit]

$path="PFAD"
$filename=StringSplit($path, "\")
MsgBox(0, "", $filename[$filename[0]])

[/autoit]

oder mit RegExp:

[autoit]

$path="PFAD"
$result=StringRegExp($path, "(\w*\.\w*)", 3)
MsgBox(0, "", $result[0])

[/autoit]

Falls du eine Erklärung haben möchtest:
\w* ist der Dateiname. Alle Alphanumerischen Buchstaben in beliebiger Länge werden so gesucht
\. Das ist der Punkt der Dateiname von der Endung trennt
\w* Das ist die Endung

Ineluki

Herzlichen Glückwunsch! PARTY!

Ineluki

Hab mein Skript nochmal verbessert und ein Lied hinzugefügt:

Spoiler anzeigen

[autoit]

#cs Frequenzen
C' 261,626 1
D' 293,665 2
E' 329,628 3
F' 349,228 4
G' 391,995 5
A' 440,000 6
H' 493,883 7
C'' 523,251 8
D'' 587,330 9
E'' 659,255 10
F'' 698,456 11
G'' 783,991 12
#ce
Dim $tasten[50]=[49, 261.626, 293.665, 329.628, 349.228, 391.995, 440, 493.883, 523.251, 587.330, 659.255, 698.456, 783.991]
Dim $keys[50]=[49, "C", "D", "E", "F", "G", "A", "H", "C'", "D'", "E'", "F'", "G'", "A'", "H'", "C''"]
Dim $notenlaenge1[4]=[150, 300, 450, 600], $notenlaenge2[4]=[200, 400, 600, 800]
play_song(1)
Func play_song($song)
Switch $song
Case 1
__1()
Case 2
__2()
EndSwitch
EndFunc
Func __1()
For $i=1 to 4
Beep($tasten[$i], $notenlaenge1[1])
Next
For $i=1 to 4
_beep("G", $notenlaenge1[1])
Next
For $i=1 to 4
Beep($tasten[$i], $notenlaenge1[1])
Next
_Beep("G", $notenlaenge1[3])
_Beep("G", $notenlaenge1[3])
For $i=1 to 4
Beep($tasten[$i], $notenlaenge1[1])
Next
For $i=1 to 4
_beep("G", $notenlaenge1[1])
Next
For $i=5 to 2 Step -1
Beep($tasten[$i], $notenlaenge1[1])
Next
_Beep("C", $notenlaenge1[3])
_Beep("C", $notenlaenge1[3])
EndFunc
Func __2()
_Beep("G", $notenlaenge2[1])
_Beep("C'", $notenlaenge2[1])
_Beep("C'", $notenlaenge2[0])
_Beep("D'", $notenlaenge2[0])
_Beep("E'", $notenlaenge2[1])
_Beep("C'", $notenlaenge2[1])
_Beep("G'", $notenlaenge2[3])
_Beep("E'", $notenlaenge2[2])
_Beep("E'", $notenlaenge2[0])
_Beep("F'", $notenlaenge2[1])
_Beep("G'", $notenlaenge2[0])
_Beep("F'", $notenlaenge2[0])
_Beep("E'", $notenlaenge2[0])
_Beep("F'", $notenlaenge2[0])
_Beep("G'", $notenlaenge2[1])
_Beep("D'", $notenlaenge2[0])
_Beep("C'", $notenlaenge2[0])
_Beep("D'", $notenlaenge2[0])
_Beep("E'", $notenlaenge2[0])
_Beep("D'", $notenlaenge2[0])
_Beep("G", $notenlaenge2[1])
_Beep("C'", $notenlaenge2[1])
_Beep("C'", $notenlaenge2[0])
_Beep("D'", $notenlaenge2[0])
_Beep("E'", $notenlaenge2[1])
_Beep("C'", $notenlaenge2[1])
_Beep("G'", $notenlaenge2[3])
_Beep("E'", $notenlaenge2[2])
_Beep("E'", $notenlaenge2[0])
_Beep("F'", $notenlaenge2[0])
_Beep("G'", $notenlaenge2[0])
_Beep("E'", $notenlaenge2[0])
_Beep("F'", $notenlaenge2[0])
_Beep("D'", $notenlaenge2[2])
_Beep("C'", $notenlaenge2[0])
_Beep("C'", $notenlaenge2[3])
_Beep("G", $notenlaenge2[1])
_Beep("C'", $notenlaenge2[1])
_Beep("C'", $notenlaenge2[0])
_Beep("D'", $notenlaenge2[0])
_Beep("E'", $notenlaenge2[1])
_Beep("C'", $notenlaenge2[1])
_Beep("G'", $notenlaenge2[3])
_Beep("E'", $notenlaenge2[2])
_Beep("E'", $notenlaenge2[0])
_Beep("F'", $notenlaenge2[1])
_Beep("G'", $notenlaenge2[0])
_Beep("F'", $notenlaenge2[0])
_Beep("E'", $notenlaenge2[0])
_Beep("F'", $notenlaenge2[0])
_Beep("G'", $notenlaenge2[1])
_Beep("D'", $notenlaenge2[0])
_Beep("C'", $notenlaenge2[0])
_Beep("D'", $notenlaenge2[0])
_Beep("E'", $notenlaenge2[0])
_Beep("D'", $notenlaenge2[0])
_Beep("G", $notenlaenge2[1])
_Beep("C'", $notenlaenge2[1])
_Beep("C'", $notenlaenge2[0])
_Beep("D'", $notenlaenge2[0])
_Beep("E'", $notenlaenge2[1])
_Beep("C'", $notenlaenge2[1])
_Beep("G'", $notenlaenge2[3])
_Beep("E'", $notenlaenge2[2])
_Beep("E'", $notenlaenge2[0])
_Beep("F'", $notenlaenge2[0])
_Beep("G'", $notenlaenge2[0])
_Beep("E'", $notenlaenge2[0])
_Beep("F'", $notenlaenge2[0])
_Beep("D'", $notenlaenge2[2])
_Beep("C'", $notenlaenge2[0])
_Beep("C'", $notenlaenge2[3])
_Beep("G", $notenlaenge2[1])
_Beep("C'", $notenlaenge2[1])
_Beep("C'", $notenlaenge2[0])
_Beep("D'", $notenlaenge2[0])
_Beep("E'", $notenlaenge2[1])
_Beep("C'", $notenlaenge2[1])
_Beep("G'", $notenlaenge2[3])
_Beep("E'", $notenlaenge2[2])
_Beep("E'", $notenlaenge2[0])
_Beep("F'", $notenlaenge2[1])
_Beep("G'", $notenlaenge2[0])
_Beep("F'", $notenlaenge2[0])
_Beep("E'", $notenlaenge2[0])
_Beep("F'", $notenlaenge2[0])
_Beep("G'", $notenlaenge2[1])
_Beep("D'", $notenlaenge2[0])
_Beep("C'", $notenlaenge2[0])
_Beep("D'", $notenlaenge2[0])
_Beep("E'", $notenlaenge2[0])
_Beep("D'", $notenlaenge2[0])
_Beep("G", $notenlaenge2[1])
_Beep("C'", $notenlaenge2[1])
_Beep("C'", $notenlaenge2[0])
_Beep("D'", $notenlaenge2[0])
_Beep("E'", $notenlaenge2[1])
_Beep("C'", $notenlaenge2[1])
_Beep("G'", $notenlaenge2[3])
_Beep("E'", $notenlaenge2[2])
_Beep("E'", $notenlaenge2[0])
_Beep("F'", $notenlaenge2[0])
_Beep("G'", $notenlaenge2[0])
_Beep("E'", $notenlaenge2[0])
_Beep("F'", $notenlaenge2[0])
_Beep("D'", $notenlaenge2[2])
_Beep("C'", $notenlaenge2[0])
_Beep("C'", $notenlaenge2[3])
EndFunc
Func _beep($key, $duration)
For $i=1 to $keys[0]
If $key=$keys[$i] Then Beep($tasten[$i], $duration)
Next
EndFunc

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

Ineluki

Ich hab das Tetris jetz schon seit 3 Stunden laufen... Ich finds einfach nur geil, das macht süchtig *.*
Hab mal auf die schnelle was gemacht, werd es morgen etwas erweitern (und verbessern):

Spoiler anzeigen

[autoit]

#cs Frequenzen
C' 261,626 1
D' 293,665 2
E' 329,628 3
F' 349,228 4
G' 391,995 5
A' 440,000 6
H' 493,883 7
C'' 523,251 8
#ce
Dim $tasten[50]=[49, 261.626, 293.665, 329.628, 349.228, 391.995, 440, 493.883, 523.251]
Dim $notenlaenge[3]=[150, 300, 600]
play_song(1)
Func play_song($song)
Switch $song
Case 1
__1()

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

EndSwitch
EndFunc
Func __1()
For $i=1 to 4
Beep($tasten[$i], $notenlaenge[1])
Next
For $i=1 to 4
Beep($tasten[5], $notenlaenge[1])
Next
For $i=1 to 4
Beep($tasten[$i], $notenlaenge[1])
Next
_Beep("G", $notenlaenge[2])
_Beep("G", $notenlaenge[2])
For $i=1 to 4
Beep($tasten[$i], $notenlaenge[1])
Next
For $i=1 to 4
Beep($tasten[5], $notenlaenge[1])
Next
For $i=5 to 2 Step -1
Beep($tasten[$i], $notenlaenge[1])
Next
_Beep("C", $notenlaenge[2])
_Beep("C", $notenlaenge[2])
EndFunc
Func _beep($key, $duration)
Switch $key
Case "C"
Beep($tasten[1], $duration)
Case "D"
Beep($tasten[2], $duration)
Case "E"
Beep($tasten[3], $duration)
Case "F"
Beep($tasten[4], $duration)
Case "G"
Beep($tasten[5], $duration)
Case "A"
Beep($tasten[6], $duration)
Case "H"
Beep($tasten[7], $duration)
EndSwitch
EndFunc

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

Ineluki

Geht viel kürzer:

PHP

<?php
echo $_SERVER['REMOTE_ADDR'];
?>

Ineluki

Ich weiß zwar nicht, wie eine CFG Datei aufgaebaut ist, oder was das ist, aber wenn der Aufbau wie bei einer Ini ist, warum sollte dann IniRead, IniWrite, Ini... nicht gehen?

Ineluki

Guck dir folgende Befehle an:

[autoit]

Run
;oder
ShellExecute

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

ControlClick

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

;vllt auch hilfreich:
WinSetState

[/autoit]

Ineluki

Guckt mal bitte auf das Datum... Ich bezweifle, dass dieses "Projekt" noch aktiv ist.

Ineluki

Alt+Shift in SciTE drücken

Ineluki

Guck dir die Befehle

[autoit]

ShellExecute
;und
Run

[/autoit]

an

Ineluki

Geht jetzt, dank deiner SB Hilfe. Danke

Ineluki

Musst das auch in eine For Schleife packen

Ineluki

Hat keiner eine Idee? ._.

Ineluki

Der String, der zurückgegeben wird, ist der, in dem die Zeichen ersetzt wurden

[autoit]

for $i = 0 to UBound($result) - 1
$result[$i]=StringReplace($result[$i],"'","'")
next

[/autoit]

Ineluki

Wenn ich das richtig verstanden hab:
Lösche alle Items und restelle sie neu, nachdem irgendwas umgeschrieben wurde.

Ineluki

Ich habe folgendes Problem:
Wenn ich eine GUI mit einem QD Surface und einen Kreis mit QuickDraw erstelle und die Position mit MouseGetPos ermittel, dann ist der Kreis an einer ganz anderen Stelle.
Wenn ich mit QD ein Fenster erstelle und dann den kreis zeichnen lasse, klappt es.
Skripte:

Surface

[autoit]

#AutoIt3Wrapper_usex64=n
#include <QuickDraw.au3>
#include <Misc.au3>
Opt("MouseCoordMode", 2)
$hGUI=GUICreate("")
_QuickDraw_CreateSurface($hGUI, 0, 0, 0, 0)
GUIDelete($hGUI)
$hGUI=GUICreate("test")
_QuickDraw_CreateSurface($hGUI, 0, 0, 500, 500)
GUISetCursor(3, 1, $hGUI)
While _QuickDraw_Running()
Switch GUIGetMsg()
Case -3
ExitLoop
EndSwitch
_QuickDraw_ClearBuffer(0xFFFFFFFF)
If _IsPressed(01) Then test()
_QuickDraw_SwapBuffers()
WEnd
_QuickDraw_Disable()
Func test()
_QuickDraw_Circle(MouseGetPos(0), MouseGetPos(1), 5, $Draw_Fill, 0xF025Ff6)
EndFunc

[/autoit]

QuickDraw_Enable

[autoit]

#AutoIt3Wrapper_usex64=n
#include <QuickDraw.au3>
#include <Misc.au3>
Opt("MouseCoordMode", 2)
_QuickDraw_Enable("test", 500, 500, 500, 500, 0)
While _QuickDraw_Running()
Switch GUIGetMsg()
Case -3
ExitLoop
EndSwitch
_QuickDraw_ClearBuffer(0xFFFFFFFF)
If _IsPressed(01) Then test()
_QuickDraw_SwapBuffers()
WEnd
_QuickDraw_Disable()
Func test()
_QuickDraw_Circle(MouseGetPos(0), MouseGetPos(1), 5, $Draw_Fill, 0xF025Ff6)
EndFunc

[/autoit]

Ineluki

Ruf die Funktion doch erst auf, wenn sich der Eintrag in der Combobox geändert hat.

Beiträge von Ineluki

Iniread iniwirite

Mit fileopendialog nur den Namen auswählen und speichern?

Input übernehmen

Mit fileopendialog nur den Namen auswählen und speichern?

peethebee ist B.Sc.

Beep Songs :D

Beep Songs :D

_GetIP()

Cfg Lesen schreiben

Exe unsichtbar öffnen

UDF Installer

SciTE Tastatursprache umstellen ?!?

Eine .exe starten

Problem mit QuickDraw und MouseGetPos()

StringReplace in einem Array

Problem mit QuickDraw und MouseGetPos()

StringReplace in einem Array

Delete Funktion wie ?

Problem mit QuickDraw und MouseGetPos()

Bild in GUI ändern ohne flackern