Beiträge von Schnuffel

**Schnuffel**

Also wenn ich mehr als 10 Dateien z.B *.txt anlege und mit Deinem Tool umbenennen lasse
und ich lasse das Tool 2-3 mal drüber laufen fehlen auf einmal einige Dateien!!!

**Schnuffel**

das halte ich für ein Gerücht

**Schnuffel**

ich wusste gar nicht, dass kopieren so schwierig sein kann.
In Paule's Script sind die Punke eingefasst...

**Schnuffel**

den Punkt musst Du mit "" einfassen:

Spoiler anzeigen

[autoit]

$aTmp = StringSplit($sFile, ".")
$sFileName = StringTrimRight($sFile, StringLen($aTmp[$aTmp[0]])+1)
$sFileExt = "." & $aTmp[$aTmp[0]]

[/autoit]

ob Dein Script dann funktioniert habe ich nicht getestet...

**Schnuffel**

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>

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

Global $text = ""

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

GUICreate("My GUI Checkbox") ; will create a dialog box that when displayed is centered

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

$Parameter1 = GUICtrlCreateCheckbox("-nohide", 10, 10, 120, 20)
$Parameter2 = GUICtrlCreateCheckbox("-w", 10, 30, 120, 20)
$Parameter3 = GUICtrlCreateCheckbox("-ns", 10, 50, 120, 20)
$button = GUICtrlCreateButton("in ini schreiben", 10, 80,100,20)
GUISetState() ; will display an dialog box with 1 checkbox

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

; Run the GUI until the dialog is closed
While 1
$msg = GUIGetMsg()

If $msg = $GUI_EVENT_CLOSE Then ExitLoop
If $msg = $button Then
If GUICtrlRead($Parameter1) = 1 Then $text &= "-nohide"
If GUICtrlRead($Parameter2) = 1 Then $text &= " -w"
If GUICtrlRead($Parameter3) = 1 Then $text &= " -s"
MsgBox(0,"",$text) ; hier kannst Du jetzt stattdessen iniwrite (.....) einfügen
$text = ""

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

EndIf

WEnd

[/autoit]

**Schnuffel**

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

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

#Region ### START Koda GUI section ### Form=C:\Users\alex\Desktop\Login.kxf
$Login = GUICreate("Login", 203, 124, 201, 125)
GUISetBkColor(0x000000)
$Input_1 = GUICtrlCreateInput("", 56, 56, 121, 21)
$Input_2 = GUICtrlCreateInput("", 56, 24, 121, 21)
$PW = GUICtrlCreateLabel("PW", 16, 56, 27, 22)
GUICtrlSetFont(-1, 11, 400, 0, "DejaVu Serif Condensed")
GUICtrlSetColor(-1, 0x3399FF)
$ID = GUICtrlCreateLabel("ID", 16, 24, 20, 22)
GUICtrlSetFont(-1, 11, 400, 0, "DejaVu Serif Condensed")
GUICtrlSetColor(-1, 0x3399FF)
$Save = GUICtrlCreateButton("Save", 56, 88, 83, 25, 0)

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

If FileExists(@ScriptDir&"\config.ini") Then
If IniRead(@ScriptDir&"\config.ini", "Config", "ID", "NotFound") <> "NotFound" Then
$readID = IniRead(@ScriptDir&"\config.ini", "Config", "ID", "NotFound")
$readPW = IniRead(@ScriptDir&"\config.ini", "Config", "PW", "NotFound")
MsgBox(0,"","ID und Passwort sind bereits vorhanden!")
Exit
EndIf
EndIf

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

GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$msg = GUIGetMsg()
If $msg == $GUI_EVENT_CLOSE Then
GUIDelete()
ExitLoop
EndIf
; Führe Aktionen aus beim Drücken auf "Save"
If $msg == $Save Then
;Breche ab wenn das ID-Feld leer ist
If GUICtrlRead($Input_2) == "" Then
MsgBox( 64, "Achtung!", "Die ID wurde nicht eingetragen!")
ContinueLoop
EndIf
;Breche ab wenn das PW-Feld leer ist
If GUICtrlRead($Input_1) == "" Then
MsgBox( 64, "Achtung!", "Das PW wurde nicht eingetragen!")
ContinueLoop
EndIf
;Schreibe ID und PW in eine Ini-Datei
iniWrite (@ScriptDir & "\" & "config.ini", "Config", "ID", GUICtrlRead($Input_2))
iniWrite (@ScriptDir & "\" & "config.ini", "Config", "PW", GUICtrlRead($Input_1))
GUIDelete()
EndIf
WEnd

[/autoit]

**Schnuffel**

If ProcessExists("") Then ProcessClose("")
siehe Hilfe...

**Schnuffel**

okay, ich denke Du müsstest Dir Fast2's DllCall umschreiben auf folgende Funktion:
WTSQuerySessionInformation Function
Info's siehe hier

Vielleicht kann Fast2 ja unterstützen...

**Schnuffel**

schau mal hier...
http://www.autoit.de/index.php?page=Thread&postID=60390#post60390

**Schnuffel**

Oh je,
BugFix ich danke Dir...

Hatte voll das Brett vor dem Kopf.

**Schnuffel**

Hallo zusammen,

ich möchte beim Beenden des Script's eine SQLite-Datenbank löschen.
Anscheinend wird diese trotz _SQLite_Shutdown nicht "freigegeben".
Kann ich das irgendwie forcieren

Spoiler anzeigen

[autoit]

#include <SQLite.au3>
#include <SQLite.dll.au3>
$db = "master.db"

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

_SQLite_Startup()
_SQLite_Open($db)

_SQLite_Exec(-1, "CREATE TABLE [user] ([id] INTEGER NOT NULL PRIMARY KEY,[username] text NULL,[vorname] text NULL,[nachname] text NULL,[install_date] text NULL,[db_name] text NULL);")
_SQLite_Exec(-1, "CREATE TABLE [allgemein] ([leer] text NULL,[install_date] text NULL,[pass] text NULL,[encrypt] text NULL) ;")
_SQLite_Exec(-1, "INSERT INTO allgemein VALUES('1','1','1','1');")

_SQLite_Close($db)
_SQLite_Shutdown()
FileDelete($db)
MsgBox(0,"",@error)

[/autoit]

Edit: hab noch #include <SQLite.dll.au3> eingefügt...

**Schnuffel**

verwende für die Labels folgendes:

Spoiler anzeigen

[autoit]

GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)

[/autoit]

**Schnuffel**

vielleicht hilft Dir das weiter zum Verständnis ...

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>
#include <WindowsConstants.au3>
#Include <Array.au3>

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

GUICreate("",150,80)
$button1 = GUICtrlCreateButton("Statusanzeige",10,10,130,20)
GUICtrlSetBkColor(-1,0x000000)
GUICtrlSetColor(-1,0xFFFFFF)
GUICtrlSetFont(-1, 7)
$button2 = GUICtrlCreateButton("klick mich ...",10,40,130,20)
GUICtrlSetBkColor(-1,0x000000)
GUICtrlSetColor(-1,0xFFFFFF)
GUICtrlSetFont(-1, 7)
GUISetState()
Global $states[6]
$states[0] = $GUI_DISABLE
$states[1] = $GUI_ENABLE
$states[2] = $GUI_SHOW
$states[3] = $GUI_HIDE
$states[4] = $GUI_FOCUS
$states[5] = $GUI_NOFOCUS
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
Exit
Case $msg = $button1

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

Case $msg = $button2
$color = "0x" & Hex(Random(0,16777215),6)
$ran = Random(0,5)
GUICtrlSetBkColor($button1,$color)
GUICtrlSetState($button1,$states[$ran])
GUICtrlSetData($button1,$states[$ran])
EndSelect
WEnd

[/autoit]

**Schnuffel**

Du kannst sehr wohl If Anweisungen in 2 Zeilen schreiben, Du hast nur die "And" Anweisung vergessen

Spoiler anzeigen

[autoit]

$var1 = True
$var2 = False

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

If $var1 = true And _
$var2 = false Then
MsgBox(0,"",@OSBuild&" "&@OSLang&" "&@OSServicePack&" "&@OSType&" "&@OSVersion)
EndIf

[/autoit]

**Schnuffel**

Hallo BeritoX,

ich hab da mal Dein Script erweitert.
Ich denke damit kannst Du erstmal basteln...

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#Region ### START Koda GUI section ### Form=
$Form2 = GUICreate("Dialog", 316, 238, 353, 211)
GUISetIcon("D:\003.ico")
$GroupBox1 = GUICtrlCreateGroup("", 8, 1, 297, 177)
$Label1 = GUICtrlCreateLabel("Test ?", 18, 16, 73, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Radio1 = GUICtrlCreateRadio("Ja", 41, 192, 63, 41)
$Radio2 = GUICtrlCreateRadio("Nein", 208, 192, 65, 41)
$Button1 = GUICtrlCreateButton("Ok", 120, 192, 65, 33, 0)
Global $aa = 0, $bb = 0, $cc = 0, $dd = 0
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
If GUICtrlRead($Radio1) = 1 Then
$aa += 1
$cc += 1
MsgBox(0,"",$aa&" "&$cc)
EndIf
If GUICtrlRead($Radio2) = 1 Then
$aa -= 1
$bb += 2
MsgBox(0,"",$aa&" "&$bb)
EndIf
EndSwitch
WEnd

[/autoit]

**Schnuffel**

Hallo Raupi, ich gebe Dir Recht.
Aber dann bitte auch selber dran halten
siehe Funktion main()
so macht das ja lkeinen Sinn, das war ja der Grund meiner Veränderung.

Spoiler anzeigen

[autoit]

$text1 = GuiCtrlRead($Edit1)
$text1 = GuiCtrlRead($Edit1)
Send($text1&" "&$text2)

[/autoit]

**Schnuffel**

ich hab den Code nur von einem oberen Post kopiert und die Funktion main() angepasst und es testweise bei mir laufen lassen.
Der Rest stand schon in dem Code.
Ich hatte nur gesehn, das die Variable $text1 zweimal nacheinander deklariert wurde.

**Schnuffel**

also wenn, dann schon so:

Spoiler anzeigen

[autoit]

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiEdit.au3>
GUICreate("Mein erster Gui", 250, 120)
$Edit1 = GUICtrlCreateInput("", 10, 10)
$Edit2 = GUICtrlCreateInput("", 10, 50)
$button=GUICtrlCreateButton("OK",10,80,100,30)
GUICtrlSetOnEvent("", "Main")
GUISetOnEvent($GUI_EVENT_CLOSE,"clo")

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

GUISetState(@SW_SHOW)

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
clo()
Case $button
Main()
EndSwitch
WEnd

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

Func Main()
$text1 = GuiCtrlRead($Edit1)
$text2 = GuiCtrlRead($Edit2)
MsgBox("","",$text1&" "&$text2)
EndFunc

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

Func clo()
Exit
EndFunc

[/autoit]

PS: kreativer Funktionsname für close

**Schnuffel**

Run(@ScriptDir & "\Tools\mrt\mrt.exe /F:Y",@ScriptDir&"\Tools\mrt",@SW_HIDE)

**Schnuffel**

sieh Dir mal mit mrt.exe /? die Startparameter der Software an

Beiträge von Schnuffel

Variable $n ist immer eine andere Zahl

Problem mit IniWrite

Wie Funktioniert __CopyEnum

Wie Funktioniert __CopyEnum

Problem mit IniWrite

Allgemeine Probleme

.exe ausführen verhindern

Angemeldeten User anzeigen?

Angemeldeten User anzeigen?

Kann SQLite-DB nach _SQLite_Shutdown() nicht löschen

Kann SQLite-DB nach _SQLite_Shutdown() nicht löschen

Gui mit GFX problem

Buttonschönheitsfehler bei schwarzer BK-Color

Pipe Zurückgabewert

GUICtrlCreateRadio Problem...

mein erster GUI mit 2 LineEdits

mein erster GUI mit 2 LineEdits

mein erster GUI mit 2 LineEdits

Fernsteuerung mit @SW_HIDE funzt nicht?

Fernsteuerung mit @SW_HIDE funzt nicht?