Beiträge von misterspeed

Zitat von Darkhunter566

Es funktioniert alles bis auf, dass der Button

[autoit]

$cmdClickMe

[/autoit]

am Ende nicht freigeschaltet wird :o
Weiß jemand eine Lösung oder das Problem weshalb der nicht freigeschaltet wird ?

siehe Kommentare im Quellcode...

;----
If FileExists('reg.ini') Then
$registerName = IniRead('reg.ini','Auth','Name','')
$registerKey = IniRead('reg.ini','Auth','Key','')
$register = _generateKey($registerName,$registerKey) ; <--- hier soll die Variable $register einen wert erhalten, die Funktion _generateKey hat aber garkeinen Return Wert und setzt auch keinen wert für die variable!
EndIf
;....
_registerDemo()
;----
Func _registerDemo()
If $register then Return
GUICtrlSetState($cmdClickMe, $GUI_DISABLE) ; <------------------- hier wird der Button deaktiviert, wenn $register = False (wenn die Variable keinen Wert hat wird dies als 0, also ebenfalls False interpretiert)
EndFunc
;----
Func _generateKey($str = 0, $masterKey = 0) ; <---------------- ich sehe in dieser Funktion kein return Statement und auch keine Variable namens $register
If $str = 0 Then $str = GUICtrlRead($txtName)
If $masterKey = 0 Then $masterKey = GUICtrlRead($txtMasterKey)
$key = ''
For $i = 1 To StringLen($str)
$tmp = Asc(StringMid($str,$i,1))
$tmp = Number($tmp) * $masterKey
$key &= String($tmp)
Next
GUICtrlSetData($txtSchluessel, MD5Hash($key,2,True) )
EndFunc

Ergänzend sei noch erwähnt, dass man deinen code mangels der von dir genutzten "nicht standard" Includes in dieser Form leider nicht testen kann, aber auch mir fehlt die Zeit und Lust das genauer anzuschaun. Da es sich scheinbar um kommerzielle Software handelt kommt für "euch" vielleicht auch dieses Unterforum in Betracht: https://autoit.de/index.php?page=Board&amp;boardID=35

Alternativ solltest du vielleicht ein Testscript erstellen, das nur die wesentlichen mit dem Fehler in Verbindung stehenden Bestandteile enthält und "testbar" ist. Dabei findest du dann evtl. den Fehler sogar selbst.

Zitat von YaeroxXO

Nebenbei: Du könntest statt $filejava = -1 auch einfach If @error Then nehmen sofern du als 4ten Parameter default lässt. Ob du den default Wert auch ändern kannst, und trotzdem @error nutzen kannst müsstest mal kurz ausprobieren. Jedenfalls wird diese Bedingung ebenfalls nie erfüllt werden...

Nö. Zumindestens sofern die Hilfe von iniread vollständig ist wird kein @error im Fehlerfall gesetzt. Es gibt außerdem keinen "default" Wert für den 4. Parameter, dieser ist kein optionaler, sondern ein Pflichtparameter. Man entscheidet also selbst was die Funktion im Fehlerfall zurückgibt, hier wie schon erwähnt der String "conf-error".

Zitat

.... was soll ich mir da ansehen?

Die Erklärung des 4. Funktionsparameters und die Erklärung zu den möglichen Return Werten der Funktion wäre schonmal ein Anfang. Diese Prüfung hier wird jedenfalls immer False ergeben, da iniread im Fehlerfall bei dir niemals -1, sondern "conf-error" zurückgeben wird:

Local $filejava = IniRead($appver, "Java", "Version","conf-error")
If $filejava = -1 Then
GUICtrlSetBkColor($sobjava,0xFFD700)

Das ist aber nicht dein Hauptproblem, das startet prinzipiell hier:

Else
Local $linejava = FileReadLine($filejava)
If @error = -1 Then ExitLoop

Dies ist unnötig, bzw. falsch. Du hast die Versionsnummer aus der ini doch schon in $filejava stehen (durch iniread ermittelt...). Filereadline würde außerdem keine Versionsnummer als Parameter erwarten, sondern den Dateinamen der (ini) Datei. Ein exitloop ist hier auch völlig fehl am Platz, ich sehe weit und breit keine Schleife, die du damit verlassen könntest.

Dein anschließender Vergleich nach Entfernung der oben genannten Zeilen müsste also so lauten:

If $filejava = $versionjava Then

Zu letzt machst du noch das hier:

FileClose($filejava)

Unnötig, denn ich sehe kein fileopen(), außerdem ist $filejava kein Dateihandle (und auch kein Dateipfad, siehe oben), sondern die aus der ini ausgelesene Versionsnummer, also ein simpler String. Das kann man nicht schließen, hier gibts nix zu schließen.

Da ich mal davon ausgehe, dass du nicht nur prüfen willst ob die Versionsnummer der ini ungleich der installierten Version ist, sondern vermutlich auch wissen willst ob die installierte neuer oder älter ist nutzt dir der ganze Vergleich vermutlich so wie er jetzt ist nicht viel. Daher solltest du dir in der Hilfe noch diese Funktion ansehen:

_versioncompare()

Machts jetzt auch nicht komplizierter (siehe unten). Die Datei schreiben und neu einlesen für einen zweiten Schritt ist unnötig, wie in der Schleife angedeutet kannst du deine regexpreplaces auch direkt pro zeile durchführen und anschließend erst die bereinigte Zeile in $aNew[$j] speichern. Nach der Schleife biste dann fertig und kannst die Datei schreiben.

#include <array.au3>
#include <file.au3>

Global $timer = TimerInit()
Global $aSource
_filereadtoarray(@ScriptDir & "\filter.ini",$aSource)
Global $aNew[ubound($aSource)]

$j = 0
for $i=1 to ubound($aSource)-1
if stringinstr($aSource[$i],"; Complex Wildcards (Opera Specific)") then exitloop ; vorrausgesetzt dies ist immer der letzte Block der Datei und somit alles nachfolgende uninterressant...
if stringleft($aSource[$i],1) <> ";" then
$aNew[$j]=$aSource[$i] ; hier ggf. noch weitere stringreplace oder stringregexpreplace Methoden auf die "erlaubten" Strings anwenden...
$j+=1
endif
next
redim $aNew[$j]
;_ArrayDisplay($aNew)
_FileWriteFromArray(@ScriptDir & "\filterneu.ini",$aNew)
ConsoleWrite(TimerDiff($timer) & @CRLF)

Vielleicht magst du ja nochmal detailierter erklären was aus der Datei entfernt bzw. in welcher Form ersetzt werden soll. Anhand der Beispieldatei und deiner Beschreibung willst du lediglich die paar Kommentarzeilen am anfang der ini Datei entfernen. da würde ich nicht lang mit irgendwelchen Index Suchereien rum machen. Angenommen du hast den Kram schon zeilenweise in einem array:

$aSource = _filereadtoarray(...)
dim $aNew[ubound($aSource)]
$j = 0
for $i=1 to ubound($aSource)-1
if stringleft($aSource[$i],1) <> ";" then
$aNew[$j]=$aSource[$i] ; hier ggf. noch weitere stringreplace oder stringregexpreplace Methoden auf die "erlaubten" Strings anwenden...
$j+=1
endif
next
redim $aNew[$j]

Ergebnis ist dann eine bereinigte Kopie des ursprünglichen Arrays. Sollte letztlich mindestens genauso, oder gar schneller gehen, da du das Array so oder so mindestens einmal komplett durchgehen musst um deine Ersetzungen durchzuführen.

Wenn schon "alcohol", dann richtig

Func alcohol($bottle) ; the solution
$aGlass = StringSplit($bottle, @crlf, 3) ; in Gläser schütten
For $i = 0 To UBound($aGlass)-1
$aGlass[$i] = StringReplace($aGlass[$i], " ", @crlf & @crlf) ; Das Glas richtig voll machen
Next
Return $aGlass ; getting drunk
EndFunc

Danke, das wars. Bin eigentlich davon ausgegangen, dass das automatisch gesetzt wird (zumal das Fenster ja zu sehen ist), aber so kann man sich täuschen.

Hier noch der MSDN Link, falls es jemand nutzen will: http://msdn.microsoft.com/en-us/library/…v=vs.85%29.aspx

Bei aktiviertem Aero Design macht das ganze aber nur Sinn, wenn man den Popup Fensterstil nutzt, da der Fensterrahmen bei aktiviertem Aero scheinbar nicht mit animiert wird.

In 3.3.6.1 gibts die jedenfalls nicht, auch nicht in der genannten UDF.

Irgendwelche Includes vergessen, oder gibts diese Konstante nur in aktuellen Autoit Versionen?

`C:\Users\*******\Desktop\AutoIt v3 Script (neu) (2).au3(35,56) : WARNING: $tagTEXTMETRIC: possibly used before declaration.
    Local $tTEXTMETRIC = DllStructCreate($tagTEXTMETRIC)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Users\********\Desktop\AutoIt v3 Script (neu) (2).au3(35,56) : ERROR: $tagTEXTMETRIC: undeclared global variable.
    Local $tTEXTMETRIC = DllStructCreate($tagTEXTMETRIC)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^

Wie dem auch sei, wäre nett, wenn du diese noch nachliefern könntest.

Zum einen das, zum anderen wird die Warnmeldung alleine trotzdem nicht dein Problem lösen, denn wenn der Anwender "ja" sagt, dann musst du nachher trotzdem noch verhindern, dass der Text an die existierende Datei angehängt wird, sofern das von deiner Seite unerwünscht ist. Die Warnmeldung selbst hat also keinerlei Auswirkungen auf die mögliche fatale Entscheidung des Anwenders. Sie warnt den Anwender nur, verhindern kann sie nichts. Die Lösung deines eigentlichen Problems, siehe unten...

Func SaveSettings()
$exist = GUICtrlRead($Input5) ; <-- nur zum testen????????????
$isrvname = GUICtrlRead($Input1)
$ctext = GUICtrlRead($Edit1)
$save = FileSaveDialog("Save File", @DesktopDir, "Config(*.cfg)", 16, $isrvname)
If @error Then Return 0
If StringRight($save, 4) <> ".cfg" Then $save &= ".cfg"
$hSave = fileopen($save,2+8) ; öffnet Datei im (Über-)Schreibmodus, wenn sie nicht existiert wird sie mit Verzeichnisstruktur angelegt, andernfalls mit neuem Inhalt überschrieben
FileWrite($hsave, $ctext)
fileclose($hsave)
GUICtrlSetData($Input5, $save)
EndFunc ;==>SaveSettings

Kann dein Problem nicht wirklich nachvollziehen. Bei mir kommt die Abfrage immer dann wenn im Zielverzeichnis die Datei vorhanden ist und das 16er Flag verwendet wird. Wie schaut denn deine Variable $isrvname aus?

Grundsätzlich zeigt der Dialog das Verzeichnis an, welches als "init dir" gewählt wurde (bei dir der Desktop). Sofern man einen "defaultname" angibt, welcher lediglich den Dateinamen beinhaltet ist dies ebenfalls so. Enthält der defaultname hingegen einen kompletten Dateipfad wird dieses Verzeichnis im Dialog angezeigt. Vielleicht liegt ja hier dein Problem? Ich könnte mir vorstellen, dass du UNC Pfade verwendest, also sowas hier "\\servername\pfad". Da ich das hier nicht testen kann, kann ich aber nix dazu sagen ob es dann zu Problemen kommt.

Wie gesagt, sobald die Datei im Verzeichnis das auch angezeigt wird existiert kommt auch die Meldung bei gesetztem Flag 16.

Jemand eine Idee, warum nach erfolgreicher Ausführung der Fensteranimation (Button1) keine weiteren Animationen mehr möglich sind? Scheinbar können danach keinerlei Buttons mehr genutzt werden, das eingebaute Timerlabel zeigt aber, dass das Programm ansich noch innerhalb der GUI Schleife ist und somit auch GUI messages auswerten sollte. Lässt man sich alle GUI messages (ungleich 0) in die console ausgeben sieht man auch die messages für Mausklicks, allerdings keine Messages bei Klicks auf Controls. Ich bin ein wenig verwirrt.

Hier mal eine WMI Abfrage, die dir absolut alle Informationen über die aktuell in Verwendung befindlichen Netzwerkadapter liefern dürfte. Prinzipiell gibt es keinen Unterschied zwischen WLAN Adaptern und "normalen" LAN Adaptern, wie name22 schon sagte. Aber anhand des Gerätenamens dürfte man das durchaus unterscheiden können. Da bei dir vermutlich wie bei mir etliche Felder des Arrays leer sein und dich ohnehin nicht interessieren dürften solltest du das Array bzw. die enthaltenen Abfragen auf das wesentliche Reduzieren.

Siehe auch: http://msdn.microsoft.com/en-us/library/…v=vs.85%29.aspx

Kannst das aber btw auch gleich ins Query packen:

$colItems = $objWMIService.ExecQuery("Select * From Win32_Service where name='eventlog' AND state='Stopped'")

Du musst nur den Status des Objekts abfragen, siehe lokales Beispiel unten. Je nach Status dann eben entscheiden ob der Service gestartet/gestoppt werden soll oder nicht.

$objWMIService = ObjGet('winmgmts:\\.\root\cimv2')
$colItems = $objWMIService.ExecQuery("Select * From Win32_Service")
If IsObj($colItems) Then
For $objItem In $colItems
ConsoleWrite($objItem.Name & " --> " & $objItem.State & @CRLF)
;$objItem.StopService()
Next
EndIf

Weiter Infos zu den "Service Objekten", siehe auch hier:
http://msdn.microsoft.com/en-us/library/…v=vs.85%29.aspx

Das Problem ist hier nicht der Startindex, bzw die Arraygröße, das ist anfangs korrekt soweit ich das sehe, denn hier kommt das Array von _filereadtoarray und ist 1-based. Die Variable $zeilen entspricht ubound(), hier wird korrekterweise noch 1 subtrahiert im Schleifenkopf, also auch richtig. Das Problem liegt hier aber darin, dass innerhalb der Schleife Elemente des Arrays gelöscht werden. Konkret sieht die Schleife verkürzt so aus:

_FileReadToArray($file, $avArray)
$zeilen = UBound($avArray)
For $i = 1 To $zeilen - 1
$avArray[$i] = StringReplace($avArray[$i], "127.0.0.1 ", "")
;....
$string3 = _StringBetween($avArray[$i], $stringleft3, ""); $stringright)
If Not @error Then
_ArrayDelete($avArray, $i)
$i = $i - 1
EndIf
Next

Zahlenbeispiel:
Dein Array enthält anfangs 10 Einträge, also 9 Textzeilen (ubound-1).
Die Schleife beginnt bei i=1, also die erste der 9 Zeilen.
Nun gehen wir davon aus, dass dieser Index gelöscht wird, weil die letzte if Bedingung erfüllt ist.
i wird demzufolge um 1 reduziert, also auf 0 gesetzt.
Die Schleife startet den nächsten Durchgang, dabei wird i wieder auf 1 gesetzt. Dein Problem ab hier.... das Array ist nun um eine Zeile kleiner (9-1, also 8 Textzeilen), aber deine Variable $zeilen ist immernoch 10-1, sprich 9 Textzeilen.
Spätestens dann, wenn die Schleife an einem nicht mehr existierendem Index des Arrays ankommt stürzt dein Script ab.
Du müsstest also auch die Variable für die Abbruchbedingung um 1 reduzieren, wenn du während der Schleife das Array verkleinerst. Alternativ solltest du vielleicht gleich ubound im Schleifenkopf verwenden, da dann die Arraygröße dynamisch ermittelt werden dürfte.

Ahja hier gibt es btw eine GUI Lösung in Autoit für zwei gängige (nehm ich jedenfalls an...) cmdline Miner. Hab den Quellcode nur kurz überflogen, wer das ernsthaft nutzen will sollte sich aber selbst intensiv in den Quellcode einarbeiten, um mögliche versteckte "Schweinereien" auszuschließen. Die vorkompilierte Variante würde ich jedenfalls nicht einfach so nutzen: https://bitcointalk.org/?topic=10264.0

Und wo sind nun die Zahlen in deiner Textdatei?

Hier nochmal ein anschaulicheres Beispiel, geht also tatsächlich so wie vermutet:

#include <array.au3>
dim $aTest[3][2] = [["eins",""],["zwei",""],["drei",""]]
dim $azwei[4] = [1,2,3,4]
dim $adrei[4] = [5,6,7,8]

$aTest[1][1] = $azwei
$aTest[2][1] = $adrei

_ArrayDisplay($aTest) ; das gesamte ober array, den inhalt der zweiten spalte sieht man nicht, aber es sind arrays enthalten, beweis siehe unten
_ArrayDisplay($aTest[1][1])
_ArrayDisplay($aTest[2][1])