Ein Bügeleisen, so dass sie deine Wäsche bügeln kann xDDD
>> Mach doch so ein Art Puzzle. Jeden Tag ein Puzzle-Teil. Am Ende kommt dann ein schönes Bild + Ein Gutschein für Irgendwas 
z.B. Romantisches Abendessen...
Als Bild z.B. Irgendwas, was deine Freundin besonders mag 
>> Aber das ist ja nur eine Idee
Zu dem Obfuscator:
[autoit]$pfad = @ProgramFilesDir & '\AutoIt3\SciTE\Obfuscator\Obfuscator.exe'
Run($pfad)
Wenn sich ein Fenster Öffnet, dann such das Script aus, was du verschlüsseln willst. 
Kompiliere dieses Script und starte dieses:
[autoit]GUICreate('Beispiel - GUI', 120, 40)
GUICtrlCreateCheckbox('Beispiel', 10, 10, 100, 20)
GUISetState()
While Sleep(10)
Switch GUIGetMsg()
Case -3
Exit
EndSwitch
WEnd
Und hier ein Beispielscript, um zu ermitteln, ob die Checkbox abgehackt ist oder nicht.
[autoit]$titel = 'Beispiel - GUI'
$id = ControlGetHandle($titel, '', 3)
$status = ControlCommand($titel, '', $id, 'IsChecked', '')
[/autoit][autoit][/autoit][autoit]MsgBox(0, '', $status)
;~ 0 = UnCheck
;~ 1 = Check
Nötige Informationen kannst du mit dem AutoIt Info Tool herausfinden.
IniWrite('Test.ini', 'Section', 'Key1', 1)
IniWrite('Test.ini', 'Section', 'Key2', 2)
IniDelete('Test.ini', 'Section', 'Key2')
Wenn man dieses kurze Script mal testet, sieht man, dass der Key2 aus der ini gelöscht wird.
Die Sektion bleibt allerdings.
Am besten postest du mal dein ganzes Script, weil du vermutlich da was Falsch hast.
Aber wie chesstiger schon sagt, du brauchst den Wert nicht vorher löschen, sondern kannst diesen direkt überschreiben.
BugFix : Ich habe leider keine Ahnung davon wovon du sprichst 
(Ich kann dir gerade nicht folgen. Sorry)
Hmn, scheint so |> Ich hab da nicht groß drauf geachtet.
Ist ja auch nicht schlimm.
Hmn, erstmal vorweg: Die Überschrift ist bestimmt nicht am besten gewählt, aber naja
Vor längeren hatte fredowsky eine Funktion gebraucht, die das Array nach der Häufigkeit seines Inhaltes sortiert.
Ich habe die Funktion immernoch auf der Festplatte hier rumliegen und würde sie euch gerne zur Verfügung stellen.
Sicher gibt es flexiblere möglichkeiten (und vor allem schnellere), aber ich hab diese nicht groß ausgebaut.
Die Funktion kann nur ein 1D-Array sortieren.
Ab 1000 Einträgen verbraucht die Funktion mind. 2-3 Sekunden an Zeit.
Wenn jemand die Funktion ausbauen will, kann er/sie das tun. Die Funktionsbeschreibung habe ich einfach auf die schnelle dahin geschrieben.
Und hier die Funktion:
; #FUNCTION# ====================================================================================================================
; Name ..........: _Sort
; Description ...: Sortiert ein Array nach der Häufigkeit seiner Einträge.
; Syntax ........: _Sort($Array[, $flag = True])
; Parameters ....: $Array - Das zu sortierende Array.
; $flag - [optional] True : Absteigend sortieren.
; False: Aufsteigend sortieren.
; Return values .: Das sortierte Array.
; Author ........:
; Modified ......:
; Remarks .......:
; Related .......:
; Link ..........:
; Example .......: No
; ===============================================================================================================================
Func _Sort($Array, $flag = True)
; ++++++ ++++++ ++++++ ++++++ ++++++ ++++++
Local $UBound = UBound($Array, 1) - 1
Local $count = 0
Local $Save[$UBound + 1][2]
Local $Sort[$UBound + 1]
; ++++++ ++++++ ++++++ ++++++ ++++++ ++++++
For $a = 0 To $UBound
For $b = 0 To $UBound
If $Save[$b][1] = '' Then
$Save[$b][0] = $Array[$a]
$Save[$b][1] = 1
$b = $UBound
ElseIf $Save[$b][0] = $Array[$a] Then
$Save[$b][1] += 1
$b = $UBound
EndIf
Next
Next
; ++++++ ++++++ ++++++ ++++++ ++++++ ++++++
For $c = 0 To $UBound
For $d = 0 To $UBound
If $Save[$d][1] = $c + 1 Then
For $e = 0 To $c
$Sort[$e + $count] = $Save[$d][0]
Next
$count += $Save[$d][1]
EndIf
Next
Next
; ++++++ ++++++ ++++++ ++++++ ++++++ ++++++
If $flag Then _Invertieren($Sort)
Return $Sort
EndFunc ;==>_Sort
; #FUNCTION# ====================================================================================================================
; Name ..........: _Invertieren
; Description ...: Dreht die Inhalte des Array's um.
; Syntax ........: _Invertieren(Byref $Array)
; Parameters ....: $Array - [in/out] Das zu umkehrende Array.
; Return values .: None
; Author ........:
; Modified ......:
; Remarks .......:
; Related .......:
; Link ..........:
; Example .......: No
; ===============================================================================================================================
Func _Invertieren(ByRef $Array)
; ++++++ ++++++ ++++++ ++++++ ++++++ ++++++
Local $UBound = UBound($Array, 1) - 1
Local $count = 0
Local $Save[$UBound + 1]
; ++++++ ++++++ ++++++ ++++++ ++++++ ++++++
For $a = 0 To $UBound
$Save[$a] = $Array[$a]
Next
; ++++++ ++++++ ++++++ ++++++ ++++++ ++++++
For $b = $UBound To 0 Step -1
$Array[$b] = $Save[$count]
$count += 1
Next
; ++++++ ++++++ ++++++ ++++++ ++++++ ++++++
EndFunc ;==>_Invertieren
Will ich mal hoffen, dass sie vllt. Dem einem oder andere hilft.
Arg, danke für die Info x)
Das habe ich total vergessen! schnell ändern :X
Ouu, und wieder was neues zu AutoIT gelernt
>> Danke
Willkommen
Wenn ich mal so fragen darf, wie bist du auf AutoIT gekommen?
Falls du noch nicht die Grundlagen beherscht:
http://web.slzm.de/blog/latex/kla…nter-cc-lizenz/
Ist zu empfehlen
Wenn das Script ebenfalls auf deinen Stick liegt, dann würde das hier schon reichen:
[autoit]$pfad = '\meineFotos\privat' ;~ Pfad zu dem Verzeichnis
DirRemove(@ScriptDir & $pfad, 1)
Hmn, du könntest den Quelltext verändern und ihn in neu anzeigen lassen.
>> nur ne Idee, aber ob das geht weiß ich nicht. Arbeite nicht mit IE und FF.
Also: Quasi den Quelltext der Seite runterladen, entsprechende stelle raussuchen (StringRegExp) und dann die Farbwerte als HTML Code einfügen und neu laden
Herzlich willkommen
Ich habe folgendes rausgelesen:
Du machst Bilder (mit deiner Kamera) und auf diesen Bildern sind die (abgeschnittenden) Kreise.
"Per _GDIPlus_BitmapGetPixel() suche ich von allen 4 Bildseiten nach innen eine Pixeländerung und erhalte als Rückgabe 4 Arrays mit X- & Y-Werten."
Ich bin davon ausgegenagen, dass dies die 4 Seiten sind, wo der Kreis aufhört?
>> Wenn das der Fall ist, wäre es denkbar einfach anhand der gewonnenen Daten den Mittelpunkt zu bestimmen
Edit: Ahh, jetzt weiß ich was du meinst... Man müsste den Kreis erst "vervollständigen" damit man weiß wo die obere Seite ist
>> Denkfehler x) |
Ich hab was
Wenn das Programm sowas machen würde, würde es doch schon reichen oder? x)
>> Eigentlich sollte das hier umsetzbar sein, um so auch den Mittelpunkt zu bestimmen:
Mal ne Frage: Ist es wirklich wichtig, dass genau von diesem Bild der Mittelpunkt gesucht wird, oder von Kreisen allgemein?
>> Der "Kreis" ist nicht wirklich zu 100% Rundlich. Zudem müsste man eine art *Filter* einbauen, der diese "abgesägte" Seite erkennt und nach möglichkeit umgeht. Ich versuche mal ein Verfahren nachzbauen der genau so vorgeht, als würde man auf ein Blatt Papier arbeiten x)
>> Wie man das ganze *errechnen* kann, wüsste ich jetzt nicht... Aber mal schaun ob da überhaupt was rauskommt x)
Ja, ich habe auch probleme mit der Syntax...
Helfen würde in diesen Fall: StringFormat 
Edit:
[autoit]
$pfad = @ScriptDir & '\Test.exe'
$var_1 = '"Parameter 1"'
$var_2 = '"Parameter 2"'
$pfad = StringFormat("%s %s %s", $pfad, $var_1, $var_2)
[/autoit][autoit][/autoit][autoit]ConsoleWrite($pfad & @CRLF)
[/autoit][autoit][/autoit][autoit];~ Run($pfad)
[/autoit]Aber im Prinzip ist es das gleiche was Chesstiger gepostet hat...
Arg, sehe jetzt erst das du ein Script mitgepostet hast x)
Sorry, nicht gesehn :o
Ich gehe mal stark davon aus, dass es als String zurück gegeben wird.
Füg einfach noch Execute ein:
For $i = 1 To Execute(GUICtrlRead($inpQuantity))
Next
