Beiträge von Tweaky

**Tweaky**

oder so

Spoiler anzeigen

[autoit]

#NoTrayIcon
#include <GUIConstantsEx.au3>

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

$ini = @ScriptDir & "\" & "config.ini"

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

GUICreate('Settings', 230, 130)
GUICtrlCreateTab(10, 10, 200, 100)
GUICtrlCreateTabItem("English")

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

$Checkbox1 = GUICtrlCreateCheckbox("AutoUpdate", 20, 40)
$Checkbox2 = GUICtrlCreateCheckbox("AutoLogin", 20, 60)
$Checkbox3 = GUICtrlCreateCheckbox("Newsletter", 20, 80)

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

$ini_autoupdate = IniRead($ini, "Settings", "AutoUpdate", "")
If $ini_autoupdate = "yes" Then GUICtrlSetState($Checkbox1, $GUI_CHECKED)

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

GUISetState(@SW_SHOW)
While 1
$this = GUIGetMsg()
Switch $this
Case $GUI_EVENT_CLOSE
Exit
Case $Checkbox1
$Read = GUICtrlRead($Checkbox1)
If $Read = 1 Then
IniWrite($ini, "Settings", "AutoUpdate", "yes")
ElseIf $Read = 4 Then
IniWrite($ini, "Settings", "AutoUpdate", "no")
EndIf
Case $Checkbox2
$Read = GUICtrlRead($Checkbox2)
If $Read = 1 Then
IniWrite($ini, "Settings", "AutoLogin", "yes")
ElseIf $Read = 4 Then
IniWrite($ini, "Settings", "AutoLogin", "no")
EndIf
Case $Checkbox3
$Read = GUICtrlRead($Checkbox3)
If $Read = 1 Then
IniWrite($ini, "Settings", "Newsletter", "yes")
InputBox("E-Mail:", "Enter E-Mail Adress here")
ElseIf $Read = 4 Then
IniWrite($ini, "Settings", "Newsletter", "no")
EndIf
EndSwitch
WEnd

[/autoit]

Habe es nur für 1 Checkbox erstellt, den Rest schaffst du

**Tweaky**

Ja auf Der_Doc kann man halt zählen

**Tweaky**

Hallo,
wäre es möglich links unter "AutoIt Downloads" das Datum der aktuellen Scite Version anzuzeigen.
Sonst muß man immer zuerst auf die englische Downloadseite gehen und dort schauen, welches die akutelle Version ist.

Danke

**Tweaky**

neue Hilfe = neue Fehler?
wer findet sie

**Tweaky**

Hi,
ich will das ganze nun trennen.

Das Skript mit der GUI

Spoiler anzeigen

[autoit]

#include <Array.au3>
#include <GuiTreeView.au3>
#include <eigen_treeview.au3>
#include <TreeViewConstants.au3>
#include <WindowsConstants.au3>

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

Dim $hauptitem[1]
Dim $hItem[1][1]

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

Local $iStyle = BitOR($TVS_EDITLABELS, $TVS_HASBUTTONS, $TVS_HASLINES, $TVS_LINESATROOT, $TVS_DISABLEDRAGDROP, $TVS_SHOWSELALWAYS, $TVS_CHECKBOXES)
$GUI = GUICreate("(UDF Created) TreeView Create", 1200, 300)

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

$treeView = _GUICtrlTreeView_Create($GUI, 2, 2, 1196, 268, $iStyle, $WS_EX_CLIENTEDGE)

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

_GUICtrlTreeView_BeginUpdate($treeView)
For $x = 1 To Random(3, 10, 1)
ReDim $hauptitem[UBound($hauptitem) + 1]
$hauptitem[$x] = _GUICtrlTreeView_Add($treeView, 0, StringFormat("[%02d] New Item", $x))

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

ReDim $hItem[UBound($hItem, 1) + 1][20]
;~ _ArrayDisplay($hItem)
For $y = 1 To Random(3, 10, 1)
$hItem[$x][$y] = _GUICtrlTreeView_AddChild($treeView, $hauptitem[$x], StringFormat("[%02d] New Child", $y))
Next
Next
_GUICtrlTreeView_EndUpdate($treeView)

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

GUISetState()

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

$anzahl_item = $x - 1

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

Dim $array_merken[$anzahl_item + 1]
Dim $status_hauptitem[UBound($hauptitem) + 1]
Dim $status[UBound($hItem, 1)][UBound($hItem, 2)]

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

While 1
$msg = GUIGetMsg()
Select
;------------------------------------------------------------ Buttons ------------------------------------------------------
Case $msg = $GUI_EVENT_CLOSE
Exit
EndSelect
_treeview_an_abhaken($treeView, $hauptitem, $status_hauptitem, $hItem, $array_merken, $anzahl_item)
WEnd

[/autoit]

Die UDF:

Spoiler anzeigen

[autoit]

#include-once
#include <GuiTreeView.au3>
#include <GUIConstantsEx.au3>

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

;*****************************************************************************************************
; Funktion _treeview_an_abhaken()
;
; Beschreibung automatisches anhaken der Hauptitem bzw. Subitem
;
; Parameter ...
;
; Return ---
;
; Bemerkung ...
; ...
;*****************************************************************************************************

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

Func _treeview_an_abhaken($udf_treeView, $hauptitem, $status_hauptitem, $hItem, $array_merken, $anzahl_item)
Do
For $x = 1 To $anzahl_item
$status_hauptitem[$x] = _GUICtrlTreeView_GetChecked($udf_treeView, $hauptitem[$x])
$text_hauptitem = _GUICtrlTreeView_GetText($udf_treeView, $hauptitem[$x])
$anzahl_subitem = _GUICtrlTreeView_GetChildCount($udf_treeView, $hauptitem[$x])

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

;prüfen wie viele Items angekreuzt sind
$check = 0
For $y = 1 To $anzahl_subitem
If _GUICtrlTreeView_GetChecked($udf_treeView, $hItem[$x][$y]) Then $check += 1
Next

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

If $status_hauptitem[$x] And $array_merken[$x] <> $status_hauptitem[$x] Then ;Hauptitem angehakt >>> alle Subitem anhaken
For $y = 1 To $anzahl_subitem
_GUICtrlTreeView_SetChecked($udf_treeView, $hItem[$x][$y], True)
Next
$array_merken[$x] = $status_hauptitem[$x]
ConsoleWrite(1 & " " & $array_merken[$x] & @CRLF)

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

ElseIf Not $status_hauptitem[$x] And $array_merken[$x] <> $status_hauptitem[$x] And $check = $anzahl_subitem Then ;Hauptitem abgehakt >>> alle Subitem abhaken
For $y = 1 To $anzahl_subitem
_GUICtrlTreeView_SetChecked($udf_treeView, $hItem[$x][$y], False)
Next
$array_merken[$x] = $status_hauptitem[$x]
ConsoleWrite(2 & " " & $array_merken[$x] & @CRLF)

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

ElseIf Not $status_hauptitem[$x] And $array_merken[$x] = $status_hauptitem[$x] And $check = $anzahl_subitem Then ;alle Subitem angehakt >>> Hauptitem anhaken
_GUICtrlTreeView_SetChecked($udf_treeView, $hauptitem[$x], True)
$status_hauptitem[$x] = _GUICtrlTreeView_GetChecked($udf_treeView, $hauptitem[$x])
$array_merken[$x] = $status_hauptitem[$x]
ConsoleWrite(3 & " " & $array_merken[$x] & @CRLF)

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

ElseIf $status_hauptitem[$x] And $array_merken[$x] = $status_hauptitem[$x] And $check <= $anzahl_subitem - 1 Then ;1 Subitem abgehakt >>> Hauptitem abhaken
_GUICtrlTreeView_SetChecked($udf_treeView, $hauptitem[$x], False)
$status_hauptitem[$x] = _GUICtrlTreeView_GetChecked($udf_treeView, $hauptitem[$x])
$array_merken[$x] = $status_hauptitem[$x]
ConsoleWrite(4 & " " & $array_merken[$x] & @CRLF)
EndIf
Next
Sleep(5)
Until GUIGetMsg() = $GUI_EVENT_CLOSE
EndFunc ;==>_treeview_an_abhaken

[/autoit]

Jedoch habe ich nun das Problem, dass ich nicht mehr aus der Schleife der UDF rauskomme.
Habt ihr ne Idee wie man dies lösen könnte.

Könnte man sonst noch was verbessern, vereinfachen

**Tweaky**

Ja dies ist ein Listview.

Dein Beispiel klappt doch, du hast nur keine Überschriften vergeben

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>

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

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 487, 318, 193, 125)
$ListView1 = GUICtrlCreateListView("Seite|Status|Ping", 192, 0, 311, 335) ;enthält die Überschriften
$ListView1_0 = GUICtrlCreateListViewItem("hallo|test|500", $ListView1) ;Zeile 1
$ListView2_0 = GUICtrlCreateListViewItem("hallo 2|test 2|700", $ListView1) ;Zeile 2
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

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

EndSwitch
WEnd

[/autoit]

**Tweaky**

schlechte Ausrede

trotzdem will ich mal nicht so sein.
Bitte teste es.
Wenn es nicht ganz passt, dann ändere es bitte SELBST

Spoiler anzeigen

[autoit]

#include <ArrayMore.au3>
#include <GDIPlus.au3>
#include <Misc.au3>
#include <GUIConstantsEx.au3>

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

Dim $array[1][4]

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

$bild = @WindowsDir & "\Angler.bmp"

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

_GDIPlus_Startup()

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

; Load image
$hImage = _GDIPlus_ImageLoadFromFile($bild)

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

; Create 24 bit bitmap clone
$breite_bild = _GDIPlus_ImageGetWidth($hImage)
$hoehe_bild = _GDIPlus_ImageGetHeight($hImage)

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

; Clean up resources
_GDIPlus_ImageDispose($hImage)

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

; Shut down GDI+ library
_GDIPlus_Shutdown()

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

#Region ### START Koda GUI section ### Form=
$Form2 = GUICreate("Form1", 800, 600, 300, 211)
$Button1 = GUICtrlCreateButton("Button1", 700, 575, 100, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$Zahl = 0
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_Bau()
EndSwitch
WEnd
Func _Bau()
Dim $Pic[10000]
$WinPos = WinGetPos("Form1")
_MouseTrap($WinPos[0], $WinPos[1], $WinPos[0] + $WinPos[2], $WinPos[1] + $WinPos[3])
Sleep(1000)
$Pos = GUIGetCursorInfo()

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

$aktuell_x_links = $Pos[0]
$aktuell_y_oben = $Pos[1]
$aktuell_x_rechts = $Pos[0] + $breite_bild
$aktuell_y_unten = $Pos[1] + $hoehe_bild

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

For $i = 1 To UBound($array) - 1
$kollion = 0
$archiv_x_links = $array[$i][0]
$archiv_y_oben = $array[$i][1]
$archiv_x_rechts = $array[$i][0] + $array[$i][2]
$archiv_y_unten = $array[$i][1] + $array[$i][3]

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

If $aktuell_x_links > $archiv_x_links And $aktuell_x_links < $archiv_x_rechts Then $kollion += 1
If $aktuell_y_oben > $archiv_y_oben And $aktuell_y_oben < $archiv_y_unten Then $kollion += 1
If $aktuell_x_rechts > $archiv_x_links And $aktuell_x_rechts < $archiv_x_rechts Then $kollion += 1
If $aktuell_y_unten > $archiv_y_oben And $aktuell_y_unten < $archiv_y_unten Then $kollion += 1

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

ConsoleWrite($kollion & @CRLF)

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

If $kollion = 2 Then
MsgBox(16, "FEHLER", "Es dürfen sich keine Bilder überschneiden", 1)
Return
EndIf
Next

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

_Array2DAdd($array, $Pos[0] & "|" & $Pos[1] & "|" & $breite_bild & "|" & $hoehe_bild)
$Pic[$Zahl] = GUICtrlCreatePic($bild, $Pos[0], $Pos[1], $breite_bild, $hoehe_bild)
$Zahl += 1
EndFunc ;==>_Bau

[/autoit]

**Tweaky**

ne das geht definitiv

Bsp.

1. abgelegtes Bild:
X1 20
Y1 50
Breite1 100
Höhe1 70
belegter Bereich:
X >>> 20 - 120
Y >>> 50 - 120

2. abgelegtes bild
X2 0
Y2 0
Breite2 100
Höhe2 70
belegter Bereich:
X >>> 0 - 100
Y >>> 0 - 70

also überschneidet es sich.
du mußt bei den bereits abgelegten und dem aktuellen Bild jeweils die Abmasse des Bilder einbeziehen, dann gehts

**Tweaky**

Hi,
hoffe ich habe dich richtig verstanden
Du müsstest nur abfragen wie hoch und breit das Bild ist.
Vorher solltest du die Positionen der bereits abgesetzen Bilder speichern.

**Tweaky**

hab nur kurz drübergeschaut.
Ich denke du willst die Datei ja öffnen und den Inhalt lesen.
Also muß es so heißen

[autoit]

$file = FileOpen($datei, 0)

[/autoit]

mit der Zahl 2 löscht du ja den Inhalt, bevor du sie öffnest

**Tweaky**

Wollte mal nachfragen, was denn daraus geworden ist

**Tweaky** · neue Funktionen von 3.2.12.1 übersetzen **Tweaky** 27. Dezember 2008 um 21:19

Hi,
ich habe die angehängten Dateien im 1. Post entfernt, da es eine neue AutoIt Version gibt.
Falls jemand Interesse hat neue Funktionen von 3.3.0.0 zu übersetzen, sagt mir Bescheid, dann lasse ich euch welche zukommen.

Falls jemand Dateien von 3.2.12.1 übersetzt hat, kann er sie mir gerne zukommen lassen

**Tweaky**

1. Post angepasst
nun sind die geänderten / neuen / ungültigen Funktionen 3.2.10.0 auf 3.3.0.0 enthalten

**Tweaky**

Danke Greenhorn
Problem gelöst

so muß es nun aussehen (auflisten, aktivieren oder deaktivieren ein- bzw. ausschalten)

Spoiler anzeigen

[autoit]

#include <eigen_version.au3>
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Res_Description=Netzwerkkarte auflisten
#AutoIt3Wrapper_Res_Fileversion=1.0.0.0
#AutoIt3Wrapper_Res_Language=1031
#AutoIt3Wrapper_Res_Field=AutoIt Version|%AutoItVer%
#AutoIt3Wrapper_Res_Field=Autor|Tweaky
#AutoIt3Wrapper_Icon=zusatz\Icon.ico
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#NoTrayIcon

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

;------------------------------------------------------------------------------------------------------------------------------------
;Durch dieses Tool können entweder:
; alle Netzwerkkarten aufgelistet werden oder
; eine bestimmte Netzwerkkarte deaktiviert werden oder
; eine bestimmte Netzwerkkarte aktiviert werden
;------------------------------------------------------------------------------------------------------------------------------------

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

;Deklarierung für _skriptinfos()
Dim $tool_version, $tool_titel

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

;Tooltitel und Toolversion
_skriptinfos()

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

;temporärer Ordner für die eingebundenen Dateien
$temp_dir = @TempDir & "\" & StringStripWS($tool_titel,
DirCreate($temp_dir)
$file_devcon = $temp_dir & "\" & "Devcon.exe"

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

;genauer Pfad zu den Icons, Grafiken, Sounds, ... die direkt in die exe eingebunden werden sollen
FileInstall("zusatz\devcon.exe", $file_devcon, 1)

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

$txt_datei_dateiname = "alle_Netzwerkkarten.txt"
$txt_datei_tmp = "C:\" & $txt_datei_dateiname
$txt_datei_ori = @ScriptDir & "\" & $txt_datei_dateiname

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

;~ $netzwerkkarte_id = '"PCI\VEN_11AB"'
$netzwerkkarte_id = '"@PCI\VEN_11AB&DEV_4364&SUBSYS_81F81043&REV_12\4&20515DB1&0&00E5"'

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

RunWait(@ComSpec & " /c " & $file_devcon & ' findall =net' & '> ' & $txt_datei_tmp, "", @SW_HIDE) ;alle Netzwerkkarten auflisten (in txt-Datei)
;~ RunWait(@ComSpec & " /c " & $file_devcon & ' disable ' & $netzwerkkarte_id, "", @SW_HIDE) ; 1 Netzwerkkarte deaktivieren
;~ RunWait(@ComSpec & " /c " & $file_devcon & ' enable ' & $netzwerkkarte_id, "", @SW_HIDE) ; 1 Netzwerkkarte aktivieren

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

FileMove($txt_datei_tmp, $txt_datei_ori, 1)
DirRemove($temp_dir, 1)

[/autoit]

PS: Soll nur ein Gerät eines Herstellers (hier Marvell), so muß ein @ und die komplette ID angegeben werden

**Tweaky**

also mit " wird gar nichts deaktiviert
mit * wird beides deaktiviert

und genau der Mittelweg fehlt :wacko:

**Tweaky**

Danke Grennhorn für den Link,
der Teil mit Devcon habe ich schon erfolglos probiert.
Der Link zu WMI geht leider nicht.

Ne Idee warum man im Gerätemanager die Netzwerkkarte nicht auswählen kann

**Tweaky**

Hi,
hat viellecht jemand noch ne Idee?

Habs mittlerweile über den Gerätemanager probiert.
Die Netzwerkadapter werden zwar aufgeklappt, jedoch nicht ausgewählt (keine Schreibfehler )

Spoiler anzeigen

[autoit]

Opt("WinTitleMatchMode", 3) ;1=vom Anfang, 2=enthält, 3=genau, 4=fortgeschritten, -1 bis -4=Groß-/Klein ignorieren

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

$titel = "Geräte-Manager"

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

ShellExecute("C:\windows\system32\devmgmt.msc")
$handle = WinGetHandle($titel)
WinWait($handle)
If ProcessExists("mmc.exe") Then
ControlTreeView($handle, "", "SysTreeView321", "Expand", "XXXX|Netzwerkadapter")
Sleep(1000)
ControlTreeView($handle, "", "SysTreeView321", "Select", "XXXX|Netzwerkadapter|Marvell Yukon 88E8056 PCI-E Gigabit Ethernet Controller")
EndIf

[/autoit]

**Tweaky**

Hi,
habs mal eben getestet.
Man muß anscheinend die aus der ini ausgelesene Zahl noch in eine Zahl umwandeln.
dies geht mit

[autoit]

$width0 = Number($width0)

[/autoit]

Wußte ich vorher aber auch nicht.
Wieder was dazugelernt

**Tweaky**

hat sich erledigt,
ich habs aber nicht über die Statusleiste, sondern über den Fenstertitel geschafft

**Tweaky**

Hi,
oh ja natürlich habe ich das Opt drin.
Habs nur vergessen hier mit reinzuschreiben.
Das Handle funktioniert, es kann also nicht am Titel liegen

Beiträge von Tweaky

Checkbox soll markiert werden durch iniread...

Fehler in der deutschen Hilfe bitte hier melden Basis: Hilfedatei 3.3.0.0 21.03.2009

Scite Datum anzeigen

Fehler in der deutschen Hilfe bitte hier melden Basis: Hilfedatei 3.3.0.0 21.03.2009

TreeView Items deaktivieren und mehr

Hilfe bei ListView

Pic nicht doppelt

Pic nicht doppelt

Pic nicht doppelt

FileRead() und FileWrite() will nicht funktionieren?

Multiplayer UNO

neue Funktionen von 3.2.12.1 übersetzen

geänderte / neue / ungültige Funktionen 3.3.4.0 auf 3.3.6.0

Netzwerkkarte deaktivieren - über Devcon und Gerätemanager klappts nicht

Netzwerkkarte deaktivieren - über Devcon und Gerätemanager klappts nicht

Netzwerkkarte deaktivieren - über Devcon und Gerätemanager klappts nicht

Netzwerkkarte deaktivieren - über Devcon und Gerätemanager klappts nicht

_GUICtrlListView_SetColumnWidth funktioniert mit Iniread nicht richtig

AcdSee Statusleiste auslesen

AcdSee Statusleiste auslesen