Beiträge von Tweaky

**Tweaky**

Also bei mir geht die .au3.
Auch wenn ich sie in x64 kompiliere geht sie.
Nur wenn ich sie in x86 kompiliere gehts nicht

**Tweaky**

Hi,
hast du es auch in 32bit kompiliert?

**Tweaky**

so gehts auch nicht

Spoiler anzeigen

[autoit]

#include <Array.au3>
#include <RegFunc.au3>
;~ $reg_schluessel100 = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Component Based Servicing\Packages"
$reg_schluessel100 = "HKLM64\SOFTWARE\Microsoft\Windows\CurrentVersion\Component Based Servicing\Packages"

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

$subkeys = _GetRegSubKeys2($reg_schluessel100)

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

;~ sleep(3000)
_ArrayDisplay($subkeys)

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

Func _GetRegSubKeys2($HKEY)
If StringInStr($HKEY, '\') Then
If StringRight($HKEY, 1) = '\' Then
$HKEY = StringTrimRight($HKEY, 1)
Local $strKeyPath = ''
Else
Local $strKeyPath = StringRight($HKEY, StringLen($HKEY)-StringInStr($HKEY, '\') )
$HKEY = StringLeft($HKEY, StringInStr($HKEY, '\')-1)
EndIf
Else
Local $strKeyPath = ''
EndIf

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

Select
Case $HKEY = "HKEY_LOCAL_MACHINE" Or $HKEY = "HKLM64"
$HKEY = 0x80000002
Case $HKEY = "HKEY_USERS" Or $HKEY = "HKU"
$HKEY = 0x80000003
Case $HKEY = "HKEY_CURRENT_USER" Or $HKEY = "HKCU"
$HKEY = 0x80000001
Case $HKEY = "HKEY_CLASSES_ROOT" Or $HKEY = "HKCR"
$HKEY = 0x80000000
Case $HKEY = "HKEY_CURRENT_CONFIG" Or $HKEY = "HKCC"
$HKEY = 0x80000005
EndSelect

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

Local $arrSubKeys = '', $subkey
Local $oReg = ObjGet("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")

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

$oReg.EnumKey ($HKEY, $strKeyPath, $arrSubKeys)
Return $arrSubKeys
;~ _ArrayDisplay($arrSubKeys)
;~ MsgBox(0,0,$arrSubKeys)
EndFunc ;==>_GetRegSubKeys

[/autoit]

**Tweaky**

Hi,
Ich habe Win 7 64bit.
ich will einen bestimmten Regeintrag auslesen.
Dazu verwende ich BugFixs Funktion

Spoiler anzeigen

[autoit]

#include <Array.au3>
#include <RegFunc.au3>
$reg_schluessel100 = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Component Based Servicing\Packages"

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

$subkeys = _GetRegSubKeys2($reg_schluessel100)

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

;~ sleep(3000)
_ArrayDisplay($subkeys)

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

Func _GetRegSubKeys2($HKEY)
If StringInStr($HKEY, '\') Then
If StringRight($HKEY, 1) = '\' Then
$HKEY = StringTrimRight($HKEY, 1)
Local $strKeyPath = ''
Else
Local $strKeyPath = StringRight($HKEY, StringLen($HKEY)-StringInStr($HKEY, '\') )
$HKEY = StringLeft($HKEY, StringInStr($HKEY, '\')-1)
EndIf
Else
Local $strKeyPath = ''
EndIf

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

Select
Case $HKEY = "HKEY_LOCAL_MACHINE" Or $HKEY = "HKLM"
$HKEY = 0x80000002
Case $HKEY = "HKEY_USERS" Or $HKEY = "HKU"
$HKEY = 0x80000003
Case $HKEY = "HKEY_CURRENT_USER" Or $HKEY = "HKCU"
$HKEY = 0x80000001
Case $HKEY = "HKEY_CLASSES_ROOT" Or $HKEY = "HKCR"
$HKEY = 0x80000000
Case $HKEY = "HKEY_CURRENT_CONFIG" Or $HKEY = "HKCC"
$HKEY = 0x80000005
EndSelect

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

Local $arrSubKeys = '', $subkey
Local $oReg = ObjGet("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")

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

$oReg.EnumKey ($HKEY, $strKeyPath, $arrSubKeys)
Return $arrSubKeys
;~ _ArrayDisplay($arrSubKeys)
;~ MsgBox(0,0,$arrSubKeys)
EndFunc ;==>_GetRegSubKeys

[/autoit]

Kompiliere ich das Skript unter 64bit bekomme ich ein Array zurück.
Kompiliere ich es unter 32bit bekomme ich keines zurück.

Kann dies bitte mal noch einer testen.
Was müsste man ändern, dass es auch 32bit kompiliert und 64bit läuft?

**Tweaky**

Dieses Problem wird wahrscheinlich mit diesem Skript gelöst.
Es wird vor dem kompilieren ausgeführt

Spoiler anzeigen

[autoit]

#include <Array.au3>
#include <File.au3>

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

Dim $array, $array_dateien

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

$pfad_englisch = "..\english\"
$pfad_englisch_txt2htm = $pfad_englisch & "txt2htm\"
$pfad_1 = $pfad_englisch_txt2htm & "txtFunctions\"
$pfad_2 = $pfad_englisch_txt2htm & "txtKeywords\"
$pfad_3 = $pfad_englisch_txt2htm & "txtlibfunctions\"

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

_aendern($pfad_1)
_aendern($pfad_2)
_aendern($pfad_3)

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

Func _aendern($pfad)
$array_dateien = _FileListToArray($pfad, "*.txt", 1)

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

For $r = 1 To UBound($array_dateien) - 1
$dateiname = $array_dateien[$r]
_FileReadToArray($pfad & $dateiname, $array)

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

For $i = 1 To UBound($array) - 1
$array_tmp = StringRegExp($array[$i], "<{1}[\w]{2,}>{1}", 3) ; < dann mindestens 2 Buchstaben dann >

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

If IsArray($array_tmp) Then
For $z = 0 To UBound($array_tmp) - 1
$array_tmp_neu = StringReplace($array_tmp[$z], "<", "<")
$array_tmp_neu = StringReplace($array_tmp_neu, ">", ">")
$array[$i] = StringReplace($array[$i], $array_tmp[$z], $array_tmp_neu)
Next
EndIf
Next

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

_FileWriteFromArray($pfad & $dateiname, $array, 1, 0)
Next
EndFunc ;==>_aendern

[/autoit]

**Tweaky**

Habs korrigiert.

PS: Da du ja auf der Übersetzseite registriert bist, darfst du den Fehler nächstesmal auch selbst beheben

**Tweaky**

Danke behoben:
Der gleiche Fehler war noch bei
GUICtrlCreateSlider
GUICtrlCreateTreeView

**Tweaky**

Danke behoben.
Das gleiche war auch bei Crypt_DecryptData der Fall

**Tweaky**

Es ist ein Bot ...

**Tweaky**

Bots werden hier nicht unterstützt.
Forenregeln lesen

**Tweaky**

Danke, habs korrigiert

**Tweaky**

Dies dürfte am Format des Datums liegen.

So klappt es

Spoiler anzeigen

[autoit]

#cs
Es soll die Differenz der beiden Datumswerte in Tagen berechnet werden

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

#CE
#include <GuiEdit.au3>
#include <Date.au3>
#include <ButtonConstants.au3>
#include <GUIConstants.au3>
#include <GuiDateTimePicker.au3>
Opt("GUIOnEventMode", 1)
Opt("GUICloseOnESC", 0)

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

$Form1 = GUICreate(@ScriptName, 500, 500, 150, 150)
;~ $ETag = GUICtrlCreateMonthCal(@YEAR & @MON & @MDAY, 300, 20, 175, 175,0); damit geht es
$ETag = GUICtrlCreateDate("2010/02/13", 156, 56, 127, 24, $DTS_SHORTDATEFORMAT)
GUICtrlCreateLabel("Start", 100, 58, 40, 17)
$LTag = GUICtrlCreateDate("2010/02/28", 156, 100, 127, 24, $DTS_SHORTDATEFORMAT)
;~ $LTag= GUICtrlCreateMonthCal(@YEAR & @MON & @MDAY, 300, 230, 175, 175,0); damit geht es
GUICtrlCreateLabel("Ende", 100, 100, 40, 17)
$diff = GUICtrlCreateInput("", 156, 150, 40, 24)
GUICtrlCreateLabel("Differenz", 90, 150, 50, 17)
GUICtrlSetTip(-1, "Differenz in Tagen")
;## Button
Global $btn1 = GUICtrlCreateButton('Differenz berechnen', 10, 20)
GUICtrlSetOnEvent($btn1, "_Start")
Global $btn1 = GUICtrlCreateButton('Abbrechen', 10, 60)
GUICtrlSetOnEvent($btn1, "_Abbrechen")
GUISetState()
GUISetOnEvent($GUI_EVENT_CLOSE, "_GUIEvents")
GUISetOnEvent($GUI_EVENT_MINIMIZE, "_GUIEvents")
GUISetOnEvent($GUI_EVENT_RESTORE, "_GUIEvents")
GUISetState(@SW_SHOW)

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

Func _GUIEvents();==> Knöpfe Maximieren Minimieren Ende
Select
Case @GUI_CtrlId = $GUI_EVENT_CLOSE
Exit
Case @GUI_CtrlId = $GUI_EVENT_MINIMIZE
Case @GUI_CtrlId = $GUI_EVENT_RESTORE
EndSelect
EndFunc ;==>_GUIEvents

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

Func _Abbrechen();==> Abbruch Programm verlassen.
Exit
EndFunc ;==>_Abbrechen

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

Func _Start() ;==> Brechnung "Die nicht Funktioniert" >>> jetzt funktionierts aber
$ETag_neu = GUICtrlRead($ETag)
$LTag_neu = GUICtrlRead($LTag)
$ETag_neu = StringMid($ETag_neu, 7, 4) & "/" & StringMid($ETag_neu, 4, 2) & "/" & StringMid($ETag_neu, 1, 2)
$LTag_neu = StringMid($LTag_neu, 7, 4) & "/" & StringMid($LTag_neu, 4, 2) & "/" & StringMid($LTag_neu, 1, 2)

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

_GUICtrlEdit_SetText($diff, _DateDiff("D", $ETag_neu, $LTag_neu))

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

ConsoleWrite($ETag_neu & @CRLF)
ConsoleWrite($LTag_neu & @CRLF)
ConsoleWrite(_DateDiff("D", $ETag_neu, $LTag_neu) & @CRLF & @CRLF)

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

EndFunc ;==>_Start

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

While 1
Sleep(50)
WEnd

[/autoit]

Das Datum muß im Format YYYY/MM/DD und nicht DD/MM/YYYY ausgelesen werden.
Außerdem habe ich _GUICtrlEdit_InsertText durch _GUICtrlEdit_SetText ersetzt, da sonst die alte Differenz nicht gelöscht wird

**Tweaky**

habs hoffentlich behoben.
Leider ist dies ein generelles Problem.

siehe < als < und > als > darstellen

**Tweaky**

Hi,
bei "Do...Until" z. B.
ist der Syntax in der deutschen Hilfe falsch.
Dies dürfte daran liegen, dass < sofort in < und > in > umgewandelt wird.

Wenn jedoch auf der Übersetzseite < und > eingeben wird, wird es in der Hilfe nicht angezeigt.

Ist es möglich statt< < und statt >> anzeigen zu lassen (im englischen und deutschen)???

Bisher bekannte betroffene Dateien:
GUIRef.htm
GUIRef_MessageLoopMode.htm
GUIRef_OnEventMode.htm
Do...Until.txt
While...WEnd.txt

**Tweaky**

Hi,
das passt ja, genau das gleiche brauche ich auch.
Wie bekomme ich raus welches SP für das Office installiert ist

**Tweaky**

Ja dies geht mit StringTrimLeft

**Tweaky**

OK ok,
nun sind 4 möglich

**Tweaky**

abstimmen

**Tweaky**

Ah, ok dies ist auch in meiner engeren Auswahl.
Was mir an der nicht so gefällt:
- herausklappender Blitz im Bereich des "Haltens" mit der Hand
- in Videos nicht optisch zoomen

Ihr könnt auch Negativerfahrungen mit Kameras posten

**Tweaky**

Hi,
ich benötige eine neue Digitalkamera, da meine alte den Geist aufgeben hat.

- ca. 300€ (ohne Ersatzakku und Speicherkarte)
- Kompaktkamera
- Video mit 1.280 x 720 Pixeln
- opt. Zoom min 5x
- Fotos hauptsächlich im Automatikmodus

Ich habe 4 Stück in der engeren Auswahl.
Eine davon ist eigentlich mein Favorit, jedoch habe ich davon negative Meinungen gehört.

Bevor ich diese nenne, schreibt bitte mal eure Erfahrungen mit aktuellen Modellen

Beiträge von Tweaky

Reg auslesen - 64bit geht nicht (Funktion von BugFix)

Reg auslesen - 64bit geht nicht (Funktion von BugFix)

Reg auslesen - 64bit geht nicht (Funktion von BugFix)

Reg auslesen - 64bit geht nicht (Funktion von BugFix)

< als < und > als > darstellen

_SoundStatus() Zeichen vergessen

GUICtrlCreateEdit falscher Link

_Crypt_DecryptFile verwechslung

Stepmania Bot

Stepmania Bot

ShellExecuteWait Fehler im Beispiel

Benötige hilfe bei dem "Date Time Picker"

GUI-Referenz - OnEvent Modus #include vergessen?

< als < und > als > darstellen

Office auslesen

3 Zeichen entfernen ?

Welchen Internet Browser nutzt ihr - Umfrage ?

Welchen Internet Browser nutzt ihr - Umfrage ?

Digitalkameraprofis unter uns?

Digitalkameraprofis unter uns?