Beiträge von BugFix

Zitat von Der_Doc

Mh
also ich finde da nix raus.

Es ist eine Anlehnung an das Brainfuck-Prinzip.
Ich bilde ein Array (zur Verwirrung als Pointerstruktur) und hinterlege dort ASCII-Werte. In einem Array speichere ich die ASCII-Werte aller Zeichen einer Befehlszeile [ MsgBox(0, "Test", "Hello World!") ] aber nicht direkt, sondern relativ zum vorigen Zeichen. Dannach wird in einer Schleife daraus die Zeichenkette zusammengesetzt und am Ende mit Execute ausgeführt.

Na dann verwende doch auch "int_ptr". Wobei es vermutlich auch ein "int" tut. Einen Rückgabewert erwartest du ja nicht von der Funktion (außer Erfolg/Fehler).
Aber warum verwendest du beim letzten Parameter "dword" statt "uint"? Es ist zwar oft egal, aber ich versuche mich an die Vorgaben zu halten, wenn AutoIt das ermöglicht.

Hi,
hier ein ganz einfaches Skript. Wie schnell bekommt ihr heraus, was es tut - ohne es auszuführen?
Wenn man große Skripte so schreiben würde und dann noch einen Obfuscator drüberjagt, besteht kaum noch die Chance sich da durchzufinden - allerdings auch für den Autor.

Local $1 = DllStructCreate('ptr[128];')
Local $2[33] = [77,38,-12,-37,45,9,-80,8,-4,-12,2,50,17,14,1,-82,10,-12,2,38,29,7,0,3,-79,55,24,3,-6,-8,-67,1,7]
Local $3 = 0, $4 = 0, $5 = ''
For $6 = 1 To 128
DllStructSetData($1, 1, $6, $6)
Next
While $3 < UBound($2)
$4 += $2[$3]
$5 &= Chr(DllStructGetData($1, 1, $4))
$3 += 1
If $3 = UBound($2) Then Execute($5)
WEnd

Bei so vielen Controls erstellst du diese doch hoffentlich in einem Array?
Dann bietet es sich natürlich auch an in einer Schleife das Array auszulesen und die Werte in eine IniSektion zu schreiben, bzw. beim Erstellen aus selbiger zu Befüllen.
Kannst natürlich auch mit einer normalen Textdatei arbeiten, jede Zeile ein Wert. Ich schätze die Performance wird hier keine großen Unterschiede aufweisen.

Hallo Stilgar, zu deinem letzten Lebensjahr mit einer führenden 3 möchte ich dir recht herzlich gratulieren.
Laß ordentlich krachen, noch bist du BiFi (bis vierzig :P).

[Blockierte Grafik: http://www.baeckereikleinstein.ch/fotos/kuchen/geb39.jpg]

Kann mich dem nur anschließen.
Ich sags mal provozierend: Ich betrachte Flash als eine Form von Virus. (Deshalb ist es bei mir auch standardmäßig deaktiviert)

Verwende doch die deutschen Sprachpakete für SAPI: Deutsche Sprachpakete für SAPI

Ich hab mal schnell die nötige Funktion dafür geschrieben:

Edit: Noch etwas gekürzt
Edit2: Noch zu lang

;===================================================================================================
; Tabellenblatt kopieren
; $oExcel Excel-Objekt
; $vCopySheet Integer oder Name des zu kopierenden Tabellenblatts (Standard = 1)
; $sNameNewSheet Name des neuen Tabellenblattes (Standard = "" - 'alter_Name (2)')
; $fBefore Kopie vor oder nach Original (True/False, Standard = False)
; Autor BugFix
;===================================================================================================
Func _ExcelSheetCopy($oExcel, $vCopySheet=1, $sNameNewSheet='', $fBefore=False)
With $oExcel
.Sheets($vCopySheet).Select()
If $fBefore Then
.Sheets($vCopySheet).Copy(.Sheets($vCopySheet))
Else
.Sheets($vCopySheet).Copy(Default, .Sheets($vCopySheet))
EndIf
If $sNameNewSheet Then .ActiveSheet.Name = $sNameNewSheet
EndWith
EndFunc ;==>_ExcelSheetCopy

Kann da meinen Vorrednern nur beipflichten und ehrfurchtsvoll mein Haupt senken.
Ich habe so einige Projekte, die optimierungswürdig sind und werde mal probieren ob ich damit was reißen kann. Danke.

Und falls du doch mehr als die Bemessungsgrenze verdienst, dann solltest du dir gründlich überlegen, ob es Sinn macht eine private KV zu wählen. Auch wenn es etwas teurer ist, ist hier die freiwillige Versicherung in einer gesetzlichen Kasse zu empfehlen. Warum?
Auch private Kassen können nur über das Solidarprinzip existieren. Nur ist es hier auf den Kopf gestellt. Der junge Mensch zahlt wenig, da er mit dem Geld seinen Wohlstand aufbauen soll. Mit steigendem Alter steigen die Beiträge um eben die niedrigen Beiträge der Jungen zu finanzieren. Wer es also nicht schafft soviel zu verdienen, dass er die hohen Beiträge im Alter deckeln kann, ist u.U. dann ein Opfer der Altersarmut.
Ich kenne solche Fälle aus dem Bekanntenkreis. Im Arbeitsleben immer auf großem Fuß gelebt und jetzt im Rentenalter muß jeder Cent 3-mal umgedreht werden. Nur um mal eine Hausnummer zu nennen: Mit 40 Jahren einen Beitrag von ca. 250 EUR und mit 65 Jahren sind es dann >650 EUR !! Das ganze variiert noch stark nach dem gewählten Paket - also den Leistungen die du wählst (Du mußt abschätzen, ob du bestimmte Heil- u. Hilfsmittel benötigst. Hast du es abgewählt und brauchst es später zahlst du 100% selbst)
Ich betreue viele Patienten und die am meisten klagen sind privat versichert.
Ich war auch mal selbständig. Ein Bekannter der für eine private Versicherung als Vertreter unterwegs war wollte mich werben. Ich sagte: Ich möchte nur alle Leistungen, die die gesetzliche Kasse bietet - aber es darf nicht mehr als dort kosten, da knickte er ein und sagte, dass er das nicht bieten könne.
Das mag sich inzwischen etwas verändert haben aber sicher nicht wesentlich.
Mein Veto: Privat? - Nein Danke!

Das Bsp. hier (http://www.autoitscript.com/forum/index.php?showtopic=95616&view=findpost&p=687555) gibt die Icon genau so aus, wie von dir erwartet.
Sieht für mich auf den ersten Blick so aus, wie der auf progandy verweisende Link. ==> War nur der erste Blick - ist doch anders.

Wenn du die Dll im ResHacker betrachtest siehst du, dass die Nummerierung nach der Kategorie "ICON GROUP" und nicht "ICON" erfolgt. Dann stimmen auch die gezeigten Nummern.

Aber bitte niemals als Berechnungsgrundlage verwenden (wann bin ich wieder fahrtüchtig)!
Allen Berechnungsverfahren ist eines gemeinsam: Es sind gemittelte Werte die die Individualität des Einzelnen außen vorlassen.
Leicht geänderte Körpertemperatur, bestimmte aufgenommene Nahrung, Stoffwechselbesonderheiten etc. pp. können das Ergebnis extrem beeinflussen.

Zitat von volle

Das wollte ich auch grad schreiben , weil wenn chip eine Antwort kriegt ohne Nachfrage für was er es braucht möchte ich auch eine Antwort auf meine Frage in meinem Thread -.-''

Gleichberechtigung für alle !

Du willst dir unbedingt unseren Zorn zuziehen - oder?
Deine Aktivitäten waren sehr Botverdächtig, da waltet halt Vorsicht.
Das Registrieren eines Mausklick oder -Release ist ein stinknormaler Programmiervorgang, der stets und ständig verwendet wird.

Du kannst auch über "OWC.Spreadsheet" ein Excel-Objekt erstellen.
Allerdings weiß ich nicht, ob es ohne die Versionszahl funktioniert, probier einfach mal:

$oExcel = ObjCreate("OWC.Spreadsheet")

Zitat von progandy

Was ist mit schiefen Linien? Die senkrechten und waagrechten sind ja einfach

Alter Spielverderber :D, aber ich hab immer irgendwie an Gerade gedacht.
Gibt aber 'ne Variante: In einer Schleife jeden Punkt der Linie mit _WinAPI_PtInRect abprüfen.

Da die Linie Höhe 1 hat ergibt das also ein RECT mit Höhe 1. Somit kann die Schnittfunktion genutzt werden.

Für die Gerade:

Versuche es mit der folgenden Funktion. Verwende RECT-Strukturen für das Quadrat und die Gerade (Höhe 1).

;===============================================================================
; Function Name: _WinAPI_IntersectRect(ByRef $Src1Rect, ByRef $Src2Rect)
; Description: Ermittelt Schnittmengen zweier RECT-Strukturen
; Parameter(s): $Src1Rect, $Src2Rect RECT-Strukturen aus denen Schnittmengen festgestellt werden sollen
; Return Value(s): Erfolg RECT-Struktur der Schnittmenge
; Fehler 0 set @error 1-keine Struktur(en) übergeben
; 2-Dll-Fehler (s. @extended)
; 3-keine Schnittmenge
; Author(s): BugFix ([email='bugfix@autoit.de'][/email])
;===============================================================================
Func _WinAPI_IntersectRect(ByRef $Src1Rect, ByRef $Src2Rect)
If (Not IsDllStruct($Src1Rect)) Or (Not IsDllStruct($Src2Rect)) Then Return SetError(1,0,0)
Local $DestRect = DllStructCreate("int Left;int Top;int Right;int Bottom")
Local $ret = DllCall("user32", "int", "IntersectRect", "ptr", DllStructGetPtr($DestRect), "ptr", DllStructGetPtr($Src1Rect), "ptr", DllStructGetPtr($Src2Rect))
If @error > 0 Then Return SetError(2,@error,0)
If $ret[0] > 0 Then
Return $DestRect
Else
Return SetError(3,0,0)
EndIf
EndFunc ;==>_WinAPI_IntersectRect

Du erhältst doch ein Array mit den leeren Verzeichnissen - einfach jedes Element mit DirRemove löschen.

Zitat von nuts

Hehe die kenn ich schon (s. Skript).

Anscheinend nicht
Wenn du ClientSize speicherst und mit diesen Werten GUICreate benutzt ist die GUI logischerweise kleiner, da die GUI die Werte aus GUISize benötigt.