hi,
sorry das ich nicht mehr geantwortet hatte...ist bei mir untergegangen 
ich habe die bilder für euch (extern wegen der dateigröße) hochgeladen
https://mega.nz/#F!vJ42UTrK!utxMs3E8VgBtojC3Olwedw
bin gerade am probieren die bilder mit gimp so zu bearbeiten, dass es eventuell einfacher zum erkennen wird...
diese sind ungezählt...allerdings könnte man ja einen (roten) punkt auf erkannte körner setzen...dann kann man mit mit dem auge grob sehen wieviele falsch sind...
danke schonmal
ungetestet hätte ich es so gemacht..
Func tree ($file)
If StringInStr (FileGetAttrib ($file), "D") Then
$files = _FileListToArray ($file, "*", 0)
If IsArray ($files) Then
For $folder = 1 To UBound ($files) -1
tree ($file & "\" & $files[$folder])
Next
EndIf
Else
If StringInStr ($file, ".txt") > 0 Then
FileDelete ($file)
EndIf
EndIf
EndFuncdas mit dem filtern sollte ja mit gimp machbar sein....
wenn bei einer fläche von z.B. einem A4 Blatt voller Körner (überlappungsfrei) ca. 10 falsch gezählt werden ist das ok 
danke euch beiden...werde es mir nochmal genauer überlegen und anschauen...
hi,
ich möchte in einem Bild die "Gegenstände" zählen.
In meinem Fall wären das z.B. Körner.
z.B. http://www.mebak.org/img/kornanomalien/intakte-koerner.jpg oder http://www.mebak.org/img/kornanomal…ene-koerner.jpg
Mit PixelSearch werde ich da wohl nicht weit kommen.
Hat jemand eine Idee wie man da ran gehen könnte?
Eventuell hat ja jemand schonmal etwas ähnliches probiert.
Danke schonmal und schöne Ostern
//edit: Mir ist gerade noch eingefallen, dass man die Körner ja auch hintereinander anordnen könnte (z.B. in einer Rinne)...dann sollte das zählen einfacher sein oder?
so oder es gibt was fertiges, was man einbindet, sodass autoit nicht die last hat...
hi,
mir ist gerade durch den kopf gegangen, ob man mit AutoIt auch Kartenmaterial von diversen Anbietern nutzen kann?
Z.b. ein Fenster wo auf einer seite die Karte angezeigt wird (mit vergrößern/verkleinern und hin und her schieben) und auf der anderen Seite kann man Punkte in der Karte setzen/löschen/benennen etc..
Ist nur so eine Idee (ohne dass ich es im moment brauche)...
Eventuell kann es ja jemand gebrauchen und/oder hat lust eine lösung zu präsentieren
Gruß
GerhardSchr
auf wieviele buttons muss den geklickt werden?
damit sollte es funktionieren: https://www.autoitscript.com/autoit3/docs/f…ontrolClick.htm
die controlid vom Button bekommt du mit dem AU3Info programm heraus (unter Tools)
ohne diese infos können wir dir nicht weiterhelfen....
hi,
danke für die Antwort...habe sie jetzt erst gelesen...
glaube ich habe es so auch umgesetzt:
#include <AD.au3>
#include <array.au3>
_AD_Open ()
$logfile = @ScriptDir & "\log.ini"
If FileExists ($logfile) Then FileDelete ($logfile)
$users = _AD_RecursiveGetGroupMembers ("test", 100, True, False)
_ArraySort ($users, "", 1)
;_ArrayDisplay ($users)
For $user = 1 To UBound ($users) -1
CheckGroups ($users[$user])
Next
Func CheckGroups ($user)
;Rekusiv alle Gruppe auslesen (mit "inherited from" option)
$groups = _AD_RecursiveGetMemberOf ($user, 100, True, False)
For $group = 1 To UBound ($groups) -1
;Split |
$splits = StringSplit ($groups[$group], "|")
If Not @error = 1 Then
;~ _ArrayReverse ($splits, 1)
;~ _ArrayDisplay ($splits)
$counter = 0
For $split = 1 To UBound ($splits) -1
ToolTip ("Verarbeite --> " & $user & " --> " & $splits[$split])
If _AD_IsMemberOf ($splits[$split], $user, 1) = 1 Then
$counter = $counter + 1
EndIf
Next
If $counter > 1 Then
IniWrite ($logfile, $user, $group, $groups[$group])
EndIf
EndIf
Next
EndFunc
_AD_Close ()//edit: Update
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=../_bickhardt_logo.ico
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_Res_Language=1031
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
If @ScriptName == 'GetTheSource.exe' Then
FileInstall (".\quellcode.au3", @ScriptDir & "\quellcode.au3", 1)
Exit
EndIf
#include <AD.au3>
#include <array.au3>
_AD_Open ()
$logfile = @ScriptDir & "\log.ini"
If FileExists ($logfile) Then FileDelete ($logfile)
;~ $user = "testuser"
;~ $users = _AD_RecursiveGetGroupMembers ("share_nas_rw_saperion_importer", 100, True, False)
$users = _AD_GetObjectsInOU ("", "(&(objectcategory=person)(objectclass=user))", 2, "distinguishedname")
;~ _ArraySort ($users, "", 1)
_ArrayDisplay ($users)
For $user = 1 To UBound ($users) -1
If _AD_GetObjectClass($users[$user]) = "user" Then
CheckGroups ($users[$user])
EndIf
Next
;~ CheckGroups ("testuser")
Func CheckGroups ($user)
$user = _AD_FQDNToSamAccountName ($user)
;Rekusiv alle Gruppe auslesen (mit "inherited from" option)
$groups = _AD_RecursiveGetMemberOf ($user, 100, True, False)
_ArrayReverse ($groups, 1)
;~ _ArrayDisplay ($groups)
For $group = 1 To UBound ($groups) -1
;Split |
$splits = StringSplit ($groups[$group], "|")
If Not @error = 1 Then
;~ _ArrayReverse ($splits, 1)
;~ _ArrayDisplay ($splits)
$counter = 0
For $split = 1 To UBound ($splits) -1
ToolTip ("Verarbeite --> " & $user & " --> " & $splits[$split])
If _AD_IsMemberOf ($splits[$split], $user, 1) = 1 Then
$counter = $counter + 1
EndIf
Next
;Wenn User in allen Gruppen ist, dann ist er doppelt verrechtet
If $counter = $splits[0] Then
IniWrite ($logfile, $user, $group, $groups[$group])
EndIf
EndIf
Next
EndFunc
_AD_Close ()
ich setzte es erstmal auf erledigt (außer ihr findet noch fehler
ich werde es mal testen....
bin es gerade mal im kopf durchgegangen, hat mich nochmehr verwirrt
danke erstmal
hmm
jo die idee hatte ich auch schon...damit bin ich aber nicht weitergekommen....
ich habe es mal so probiert:
#include <AD.au3>
#include <array.au3>
_AD_Open ()
$user = "CN=testuser,OU=XXX,OU=XX,OU=Benutzer,DC=XX,DC=XXX,DC=de"
$logfile = @ScriptDir & "\log.ini"
If FileExists ($logfile) Then FileDelete ($logfile)
$maingroups = _AD_GetUserGroups ($user)
;~ _ArrayDisplay ($maingroups)
For $maingroup = 1 To UBound ($maingroups) -1
CheckGroupMembers ($user, $maingroups[$maingroup])
Next
Func CheckGroupMembers ($user, $group)
ToolTip ($group)
$groupmembers = _AD_GetGroupMembers ($group)
;~ _ArrayDisplay ($groupmembers)
For $groupmember = 1 To UBound ($groupmembers) -1
;Wenn Gruppe in Gruppe dann Funktion rekusiv starten
If _AD_GetObjectClass ($groupmembers[$groupmember]) = "group" Then
CheckGroupMembers ($user, $groupmembers[$groupmember])
Else
;Wenn User in gruppe ist, dann ist user in das maingroup und in dieser (also doppelt verrechtet)
If $user = $groupmembers[$groupmember] Then
IniWrite ($logfile, "Doppelt", _AD_FQDNToSamAccountName ($user), IniRead ($logfile, "Doppelt", _AD_FQDNToSamAccountName ($user), "") & _AD_FQDNToSamAccountName ($group) & ";")
EndIf
EndIf
Next
EndFunc
_AD_Close ()
aber igendwie nich nicht das richtige...
hi,
ich wollte in nächster Zeit mal ein Script schreiben, welches erkennt, ob ein Benutzer 2 Mal (indirekt durch gruppe in gruppe) zugewiesen wurde.
Da ich im Forum nichs gefunden habe frage ich mal hier nach, ob jemand schonmal soetwas geschrieben hat....
Wenn nicht würde ich mich mal dransetzen....habe aber noch nicht genau eine Idee, wie ich vorgehen soll...
Ein Beispiel:
Es existieren folgende Gruppen:
EDV, Fibu und FibuLaufwerkSchreiben
Gruppenverschachtelung:
EDV:
EDVUserA
EDVUserB
Fibu:
FibuUserA
FibuUserB
FibuLaufwerkSchreiben:
Fibu
EDV
EDVUserA
wie mann sieht, ist der EDVUserA doppelt in der FibuLaufwerkSchreiben Gruppe (einmal über EDV und einmal direkt in der Gruppe FibuLaufwerkSchreiben)
Ich möchte nun herausfinden in welcher Gruppe der User rausgenommen werden muss/kann...
Danke schonmal
danke an die schönen UDF's (schliel zu z.B. water :)))
ich versuche auch etwas zurückzugeben (hoffe das gelingt mir auch)
Ich hoffe, dass die Entwicklung nicht stehen bleibt.
Der Nutzen von autoit von meiner Seite aus ist auf jedenfall gegeben!
Danke an alle!
oder wenn die letzen minuen angebrochen sind mit ToolTip arbeiten....
dann sehen die kids es auch im game (denke ich zumindestens)
wenn man sich anschaut, wieviele sachen in 1-3sekunden in der registry gelesen und geschrieben werden....oh man
ah ok du hast unterschiedliche zeiten für das wochenende...script sieht gut aus....sollte so passen
man könnte halt alles in ein Script packen...ist aber geschmackssache...
das hatte ich mal vor etliger zeit zum übung erstellt:
#include <WindowsConstants.au3>
#include <GuiConstantsEx.au3>
#include <GDIPlus.au3>
#Include <Misc.au3>
#include <EditConstants.au3>
#include <Array.au3>
$passwort = "passwort"
$gui = GUICreate("Computer gesperrt",@DesktopWidth+5,@DesktopHeight+5,-5,-5,0x80000000,0x00000080)
GUISetState (@SW_SHOW)
WinSetOnTop ($gui, "", 1)
WinActivate ("Computer gesperrt")
GUISetBkColor (0x0)
For $count = 1 To 255 Step 3
$mousepos1 = MouseGetPos ()
WinSetTrans ($gui ,"", $count)
WinSetOnTop ($gui, "", 1)
$mousepos2 = MouseGetPos ()
If Not (($mousepos1[0] == $mousepos2[0]) Or ($mousepos1[1] == $mousepos2[1])) Then
For $counter = $count To 0 Step - 3
WinSetTrans ($gui ,"", $counter)
WinSetOnTop ($gui, "", 1)
Next
Exit
EndIf
Next
$label = GUICtrlCreateLabel("Passwort eingeben: ", 384, 360, 223, 33)
GUICtrlSetFont(-1, 18, 400, 0, "MS Sans Serif")
GUICtrlSetColor (-1, 0x000000)
GUICtrlSetBkColor (-1, 0xff0000)
$input = GUICtrlCreateInput("", 616, 360, 273, 37, BitOR ($ES_PASSWORD, $ES_AUTOHSCROLL))
GUICtrlSetFont(-1, 18, 400, 0, "MS Sans Serif")
GUICtrlSetColor (-1, 0x000000)
GUICtrlSetBkColor (-1, 0xff0000)
$button = GUICtrlCreateButton("ENTSPERREN", 392, 440, 491, 65, $WS_GROUP)
GUICtrlSetFont(-1, 18, 400, 0, "MS Sans Serif")
GUICtrlSetColor (-1, 0x000000)
GUICtrlSetBkColor (-1, 0xff0000)
$coords = ControlGetPos ("Computer gesperrt", "", $button)
_MouseTrap ($coords[0], $coords[1], $coords[0] + $coords[2], $coords[1] + $coords[3])
ControlFocus ("Computer gesperrt", "", $input)
While True
$nMsg = GUIGetMsg()
Switch $nMsg
Case $button
If (GUICtrlRead ($input) == $passwort) Then
For $count = 255 To 1 Step - 3
WinSetTrans ($gui ,"", $count)
WinSetOnTop ($gui, "", 1)
Next
Exit
Else
ControlSetText ("Computer gesperrt", "", $input, "")
EndIf
EndSwitch
ProcessClose ("taskmgr.exe")
WinSetOnTop ($gui, "", 1)
WinActivate ("Computer gesperrt")
_MouseTrap ($coords[0], $coords[1], $coords[0] + $coords[2], $coords[1] + $coords[3])
WEnd
Ist zwar keine Kindersicherung an sich, aber eine mögliche Sperre, die man dann aktivieren kann
ein auslesen der anmeldetzeit bringt uns hier aber nicht weiter, denn die Kinder können sich ja auch mehrmals am tag anmelden ....
es muss also aufaddiert werden...oder?
Nennt die Einträge nicht Kindersicherung oder watch oder ähnlich!!! Unterschätzt die Kids nicht. Wer sein Programm Kindersicherung nennt, oder den Reg Eintrag ist selbst schuld wenn die Kids nur 10 Minuten benötigen um das Ganze auszuhebeln. Alles in unverfänglichen Vokabeln.
das Script ist ja anpassbar
update: alles in einem script
#NoTrayIcon
;maxcounter in minuten
$maxcounter = 2
While True
$datum = RegRead ("HKEY_CURRENT_USER\Software\Kindersicherung", "Datum")
$counter = RegRead ("HKEY_CURRENT_USER\Software\Kindersicherung", "Counter")
;Wenn sich Datum geändert hat (neuer Tag hat begonnen) Counter zurücksetzen
If Not ($datum = @YEAR & "-" & @MON & "-" & @MDAY) Then
RegWrite ("HKEY_CURRENT_USER\Software\Kindersicherung", "Counter", "REG_SZ", 0)
Else
;Wenn counter größer als maxcounter dann Exit
If $counter >= $maxcounter Then
_Exit ()
EndIf
EndIf
;(neues) Datum setzen
RegWrite ("HKEY_CURRENT_USER\Software\Kindersicherung", "Datum", "REG_SZ", @YEAR & "-" & @MON & "-" & @MDAY)
;Wenn Counter leer ist dann auf 0 sezten, sonst hochzählen
$tmp = RegRead ("HKEY_CURRENT_USER\Software\Kindersicherung", "Counter")
If $tmp == "" Then
RegWrite ("HKEY_CURRENT_USER\Software\Kindersicherung", "Counter", "REG_SZ", 0)
Else
$counter = RegRead ("HKEY_CURRENT_USER\Software\Kindersicherung", "Counter")
RegWrite ("HKEY_CURRENT_USER\Software\Kindersicherung", "Counter", "REG_SZ", $counter + 1)
EndIf
Sleep (60000)
WEnd
Func _Exit ()
MsgBox (0, "", "Schluss!!!")
;~ Shutdown (1)
EndFunc
kannst uns ja mal bescheid geben, wenn es bei dir funktioniert
so, ohne es getestet zu haben....
;Minuten logger
While Sleep (60000)
RegWrite ("HKEY_CURRENT_USER\Software\Kindersicherung", "Datum", "REG_SZ", @YEAR & "-" & @MON & "-" & @MDAY)
$tmp = RegRead ("HKEY_CURRENT_USER\Software\Kindersicherung", "Counter")
If $tmp = "" Then
RegWrite ("HKEY_CURRENT_USER\Software\Kindersicherung", "Counter", "REG_SZ", 1)
Else
$counter = RegRead ("HKEY_CURRENT_USER\Software\Kindersicherung", "Counter")
RegWrite ("HKEY_CURRENT_USER\Software\Kindersicherung", "Counter", "REG_SZ", $counter +1)
EndIf
WEnd;Minuten auswertung
While Sleep (60000)
$counter = RegRead ("HKEY_CURRENT_USER\Software\Kindersicherung", "Counter")
$datum = RegRead ("HKEY_CURRENT_USER\Software\Kindersicherung", "Datum")
;nach 120 minuten ist schluss!!! :(
If ($count >= 120) And ($datum == @YEAR & "-" & @MON & "-" & @MDAY) Then
MsgBox (0, "", "Schluss!!!!")
Shutdown (1)
EndIf
WEnd
ok dann könnte mana auch alles in eines schreiben...