Beiträge von Kleiner

Kleiner

Hallo Y-G !

Von Windows Abmelden?

Lg Kleiner

Kleiner

Hallo Ihr Drei!

Schaut mal hir ist zwa VBS aber ist änlich wie bei Scriptomatic!
Click Mich!

Da könnt ihr euch jede frage zu WMIC auslesen!

LG Kleiner

Kleiner

Moin!

Kleine liste!

Spoiler anzeigen

[autoit]

.AdapterType
.AdapterTypeId
.AutoSense
.Availability
.Caption
.ConfigManagerErrorCode
.ConfigManagerUserConfig
.CreationClassName
.Description
.DeviceID
.ErrorCleared
.ErrorDescription
.Index
.InstallDate
.Installed
.LastErrorCode
.MACAddress
.Manufacturer
.MaxNumberControlled
.MaxSpeed
.Name
.NetConnectionID
.NetConnectionStatus
.NetworkAddresses
.PermanentAddress
.PNPDeviceID
.PowerManagementCapabilities
.PowerManagementSupported
.ProductName
.ServiceName
.Speed
.Status
.StatusInfo
.SystemCreationClassName
.SystemName
.TimeOfLastReset

[/autoit]

Edit: Die stelle kannst du streichen!

[autoit]

$colComputers = $objWMIService.ExecQuery("Select * from Win32_ComputerSystem")

[/autoit]

Netzwerknamen Mac Ip liest du am einfachsten über cmd ( ipconfig /all ) aus!
LG Kleiner

Kleiner

Hallo Reaker!

Was soll dein code in der Hilfe abteilung????

LG Kleiner

Kleiner

Hey!

Du kannst alles in Array u. For Next Schleife laufen lassen!

Beispiel für CheckBox:

Spoiler anzeigen

[autoit]

Local $acheckBox[3][2]=[["Checkbox",1],["Checkbox1",1],["Checkbox2",1]];ArrayIndex mit zwei Spalten $acheckBox[0][0]=[["Checkbox" = Ertste Spalte
;$acheckBox[0][1]=[["Checkbox",1] = zweite spalte usw. usw.
Local $checkErstellen[3];ArrayIndex zum erstellen des Array
Local $x = 48 ;Start wert
For $i = 0 To 2;$i = zähler Variable
;0 Start ArrayIndex
;begint ab 0 = 1 ErsterEintrag zählt bis 2 [0-1-2 = 3]
$checkErstellen[$i] = GUICtrlCreateCheckbox($acheckBox[$i][0],352,$x,97, 17) ; Erstellung des CheckboxArray
$x += 24;Start wert + 24
Next

[/autoit]

Beispiel SpeicherCheck:

Spoiler anzeigen

[autoit]

If FileExists(@ScriptDir & '\Test.ini') Then
Local $IniAus = IniReadSection(@ScriptDir & '\Test.ini', "Test")
For $i = 1 To UBound($IniAus) -1
If $IniAus[$i][1] = $acheckBox[$i-1][1] Then GUICtrlSetState($checkErstellen[$i-1], $GUI_CHECKED)
Next
EndIf

[/autoit]

LG Kleiner

Kleiner

Nakla!

Bitte, kannst ein wenig speilen mit dem code dann bekommst du das schon hin! [Beispiel]

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 553, 165, 236, 264)
$Checkbox1 = GUICtrlCreateCheckbox("Checkbox1", 352, 48, 97, 17)
$Checkbox2 = GUICtrlCreateCheckbox("Checkbox2", 352, 72, 97, 17)
$Checkbox3 = GUICtrlCreateCheckbox("Checkbox3", 352, 96, 97, 17)
$Button1 = GUICtrlCreateButton("Button1", 352, 120, 75, 25, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Button2", 432, 120, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

If FileExists(@ScriptDir & '\Test.ini') Then
Local $IniAus = IniReadSection(@ScriptDir & '\Test.ini', "Test")
If $IniAus[1][1] = 1 Then GUICtrlSetState($Checkbox1, $GUI_CHECKED)
EndIf

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

While 1
$msg = GUIGetMsg()
Switch $msg
Case $GUI_EVENT_CLOSE
_Ini()
Exit
Case $Button1
If GUICtrlRead($Checkbox1) = $GUI_CHECKED And GUICtrlRead($Checkbox2) = $GUI_CHECKED Then MsgBox(0, "lol", "$Checkbox1 + $Checkbox2")
EndSwitch
WEnd

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

Func _Ini()
If BitAND(GUICtrlRead($Checkbox1), $GUI_CHECKED) = $GUI_CHECKED Then
$Check = 1
Else
$Check = 0
EndIf
IniWrite(@ScriptDir & '\Test.ini', "Test", 'An-Aus', $Check)
EndFunc ;==>_Ini

[/autoit]

LG Kleiner

Kleiner

Ja!

In eine z.B *.ini datei speichern beim start auslesen!

LG Kleiner

Kleiner

Hey!

Möglichkeit (1)!

[autoit]

if GUICtrlRead($Checkbox1) = $GUI_CHECKED And GUICtrlRead($Checkbox2) = $GUI_CHECKED Then msgbox(0,"lol","$Checkbox1 + $Checkbox2")

[/autoit]

Vieleicht reicht es!

LG Kleiner

Kleiner

ICh versteh nicht ganz du wohltest oder willst die Checkboxen eine aufgabe zuteilen und in deim (Jetzt) beispiel hast du ein Button eine aufgabe gegeben!
Was wilst du denn ereichen, oder sage mir was du vorhast mit dem code?

Edit: wenn du nur prüfen willst ob die check aktiv sind!

[autoit]

Case $Button1
if GUICtrlRead($Checkbox1) = $GUI_CHECKED Then msgbox(0,"lol","$Checkbox1")
if GUICtrlRead($Checkbox2) = $GUI_CHECKED Then msgbox(0,"lol","$Checkbox2")
if GUICtrlRead($Checkbox3) = $GUI_CHECKED Then msgbox(0,"lol","$Checkbox3")
Endswitch
WEnd

[/autoit]

LG Kleiner

Kleiner

Es hätte ja auf was anders hinaus laufen könne ich habe noch ein paar gedanken weiter gesponnen zwecks zusammenfügen!
Ansonsten hat peethebee dir schon die richtige antwort gegeben!

LG Kleiner

Kleiner

Hallo sp3333dy!

Also du weist die Checkboxen aufgaben zu indem du in deiner Wihle 1 neue Case Definierst!

z.B

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 553, 165, 236, 264)
$Checkbox1 = GUICtrlCreateCheckbox("Checkbox1", 352, 48, 97, 17)
$Checkbox2 = GUICtrlCreateCheckbox("Checkbox2", 352, 72, 97, 17)
$Checkbox3 = GUICtrlCreateCheckbox("Checkbox3", 352, 96, 97, 17)
$Button1 = GUICtrlCreateButton("Button1", 352, 120, 75, 25, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Button2", 432, 120, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Checkbox1
MsgBox(0, 'Test', 'Hallo du hast mich aufgeruffen!')
EndSwitch
WEnd

[/autoit]

LG Kleiner

Kleiner

Hallo Get_it!

Was meinst du denn genau mit deiner frage, es ist nicht so richtig ersichtlich was du möchtest!

LG Kleiner

Kleiner

peethebee und funkey

Wie schon in der S-Box wünsch ich euch ihr noch mal alles gute und habt ein super Tag!

LG Kleiner

Kleiner

SEuBo

Nichts gegen deine aufschlussreiche Erklärung !
Wenn ich seine frage richtig verstanden geht es doch darum das wenn irgendwo ein Verzeichnis den Namen 2009 trägt und er dort ein Verzeichnis 2010 erstellen will!
Also warum so Kompliziert?

Spoiler anzeigen

[autoit]

#include <_GetFilesFolder_Rekursiv.au3>
#include <File.au3>
#include <String.au3>

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

Local $x = 1, $y = 1, $len, $result, $Verz = '2010'

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

$array = _GetFilesFolder_Rekursiv('D:\', $x, $y)

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

For $i = 1 To $array[0]
$string = StringSplit($array[$i], '\', 1)
For $n = 1 To UBound($string) - 1
If $string[$n] = 2009 Then $len = StringLen($array[$i])
If Not $len = '' Then DirCreate(StringLeft($array[$i], $len - 5) & $Verz)
Next
Next

[/autoit]

Edit: Noch kürzer u. alles in Variablen wenn-falls gebraucht,( unabhängig)!

Spoiler anzeigen

[autoit]

#include <_GetFilesFolder_Rekursiv.au3>
#include <File.au3>
#include <String.au3>

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

Local $Partition = 'D:\', $x = 1, $y = 1, $GesuchtesVerzeichnis = '2009', $VerzeichnisErstellen = '2010', $WieLangDesGesuchtenVerzeichnis = StringLen($GesuchtesVerzeichnis)

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

$aRueckgabeArray = _GetFilesFolder_Rekursiv($Partition, $x, $y)

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

For $i = 1 To $aRueckgabeArray[0]
$String = StringSplit($aRueckgabeArray[$i], "\")
If $String[$String[0] - 1] = $GesuchtesVerzeichnis Then DirCreate(StringLeft($aRueckgabeArray[$i], StringLen($aRueckgabeArray[$i]) - $WieLangDesGesuchtenVerzeichnis - 1) & $VerzeichnisErstellen)
Next

[/autoit]

LG Kleiner

Kleiner

Hallo CrazyER!

Habe dir auf die schnelle was gezaubert nur noch kleine Verfeinerungen und dann sollte es klappen!

SEuBo
Also bei mir tut sich garnichts mit denen code! Ausser das es mir in der konsole 2009\2010 anzeigt!

Spoiler anzeigen

[autoit]

#include <_GetFilesFolder_Rekursiv.au3>
#include <File.au3>
#include <String.au3>
Dim $y = 0, $len, $result

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

$array = _GetFilesFolder_Rekursiv('D:\', 1, 1)

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

For $i = 1 To UBound($array) - 1

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

$string = StringSplit($array[$i], '\', 1)

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

For $n = 1 To UBound($string) - 1

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

If $string[$n] = 2009 Then $len = StringLen($array[$i])
$result = StringLeft($array[$i], $len - 1)

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

MsgBox(0, 'Test', $result)

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

Next
Next

[/autoit]

LG Kleiner

Kleiner

Guten Morgen!

Von mir auch alles alles gute euch beiden habt ein schönen tag! Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

Lg Kleiner

Kleiner

Hey Raup!

Ich wünsche dir auch nachträglich alles Gute zum Geburtstag!

LG Kleiner

Kleiner

Update:25.11.2009 4 Bugs behoben und Optimiert!
Neu: Ansicht leeren , jedes Jahr wird einzelnt gespeichert sowie die dazugehörigen Monate und auch wieder einlesbar!

Post#1

Kleiner

Ich war neugierig habe mir Mahr den Code geladen und getestet an sich ist die Idee super aber was auf jeden Fall geändert werden sollte ist das für die kleine Aufgabe mein Rechner mit 50 – 60% CPU Leistung ganz schön Arbeit hat!

LG Kleiner

Kleiner

Hey!

Keiner antwortet seit Tagen m..... warum wohl
Könnte sein das Man das einfacher mit MsgBox() erledigen kann oder

Lg Kleiner

Beiträge von Kleiner

Wie kann ich mich mit einem AutoIt Script abmelden, sodass das Script weiter läuft???

Fehler im Code ???

Fehler im Code ???

FullScreen Browser

Checkboxen

Checkboxen

Checkboxen

Checkboxen

Checkboxen

Alles in einem?

Checkboxen

Alles in einem?

Geburtstag von peethebee und funkey

Probleme mit array ?

Probleme mit array ?

Doppelgeburtstag

Geburtstag von Raupi

>>> Dienstplanprogramm fertig für jeder man nutzbar <<<

Lock

Changed UDF