Beiträge von Tweaky

**Tweaky**

Hi,
schön, dass du es erweitert hast.
Wäre denke ich sinnvoller das ganze ins deutsche zu übersetzen, oder?
Hat es eigentlich einen Grund warum die Farbe so: $CornflowerBlue = 0x6495ED kopiert wird und nicht so: 0x6495ED ?

**Tweaky**

Hat jemand Lust die restlichen Dateien zu übersetzen?

Sind keine Funktionen, sondern allgemeiner Text.

Wäre schön von euch

**Tweaky**

Hi,
vom Ansatz OK,
würds jedoch eher mit Stringreplace machen.

Spoiler anzeigen

[autoit]

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

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

Global $Files, $Path = @ScriptDir = "\Partylieder\Ich Schie+ƒ Mich Ab Vol. II - Extended Version (F)\"

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

$Files = _FileListToArray($Path)
If Not (IsArray($Files) = 1) Then
MsgBox(16, "Fehler", "Konnte Dateien nicht einlesen")
Exit
EndIf

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

_Arraydisplay($Files)

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

For $i = 1 To $Files[0]
$neuer_name = StringReplace($Files[$i], "+ƒ", "ß")
$neuer_name = StringReplace($neuer_name, "o¦ê", "oe")
$neuer_name = StringReplace($neuer_name, "u¦ê", "ue")
$neuer_name = StringReplace($neuer_name, "a¦ê", "ae")
FileMove($Path & $Files[$i], $Path & $neuer_name, 1)
Next

[/autoit]

**Tweaky**

Hi,
und herzlich willkommen.

Wenn du die au3-Datei auf einem anderen Rechner ausführen willst, muß dort AutoIt installiert sein und auch die misc.au3 vorhanden sein.
Um dies zu umgehen, kannst du daraus eine exe-Datei machen.

Rechte Maustaste auf dein Script und "Compile Script".
Dies läuft dann ohne AutoiT auf jedem Rechner

**Tweaky**

Hi,
dies mußt du in die Datei

"au3.user.calltips" im Ordner "C:\Programme\AutoIt3\SciTE\api" einfügen

z. B. so:

Zitat

;arraymore.au3
_Array2DPush(Array, Einzelwert/Array [, Richtung v. rechts=0/v. links=1]); #include ArrayMore.au3

**Tweaky**

Danke, habs in eine UDF getan.
Nun klappts

**Tweaky**

Hi,
damit dürfte es gehen

[autoit]

;*****************************************************
; _CheckInet()
; ermittelt, ob eine Internetverbindung besteht
; ja (True)
; nein (False)
; erforderlich
; ---
;*****************************************************

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

Func _CheckInet()
Local $aDll,$sRet
$aDll = DllCall("WinInet.dll","int","InternetGetConnectedState","int*",0,"int",0)
If @error Then Return SetError(1,0,-1)
If nOt IsArray($aDll) Then SetError(2,0,-1)
If $aDll[0] = 0 Then Return False
Return True
EndFunc

[/autoit]

**Tweaky**

Der_Doc
dann hoffen wir mal, dass so schnell keine neue Version mehr rauskommt und wir das aktuelle komplett fertig bekommen

**Tweaky**

ausloggen und wieder einloggen dürfte das ganze beheben.

Vorher am besten das übersetzte in die Zwischenablage kopieren

Sicher ist sicher

**Tweaky**

4. ClearProg - Löschen in Internetmüll, Cookies, Temp-Ordner, benutzerdefinierte Ordner, ... Website
5. ExifViewer - Infos über Digitalfotos Website
6. FreeCommander - Explorer Ersatz u. a. 2 Fensterhälfen Website
7. IE7pro - IE7 Erweiterung - Popups blocken, Passwortspeicherer, Flashblocker, ... Website

**Tweaky**

probier mal dies:
in die While Wend Schleife schreiben

Spoiler anzeigen

[autoit]

;GUI manuell verschieben
If _IsPressed("01", $dll) Then
$mousepos = MouseGetPos()
$winpos = WinGetPos($GUI_titel, "")
If $mousepos[0] >= $winpos[0] And $mousepos[0] <= ($winpos[0] +$winpos[2]) And _ ;"x"
$mousepos[1] >= $winpos[1] And $mousepos[1] <= ($winpos[1] +$winpos[3]) Then ;"y"
Do
$mousepos2 = MouseGetPos()
WinMove($GUI_titel, "", $winpos[0]-$mousepos[0]+$mousepos2[0], $winpos[1]-$mousepos[1]+$mousepos2[1])
Sleep(15)
Until Not _IsPressed("01", $dll)
EndIf
EndIf
Sleep(15)

[/autoit]

**Tweaky**

Hi,
habe früher die Scrollfunktionen vom engl. Board verwendet.
Da mußte ich am Anfang des Skripts nur

[autoit]

GUIRegisterMsg($WM_VSCROLL, "MY_WM_VSCROLL")
GUIRegisterMsg($WM_HSCROLL, "MY_WM_HSCROLL")
GUIRegisterMsg($WM_SIZE, "MY_WM_SIZE")

[/autoit]

einfügen.

Nun sind diese Funktion ja in der AutoIt Version enthalten.
Nun muß ich aber immer die komplette Funktion ins Skript schreiben.
Wie kann ich dies umgehen?

Spoiler anzeigen

[autoit]

GUIRegisterMsg($WM_VSCROLL, "WM_VSCROLL")
GUIRegisterMsg($WM_HSCROLL, "WM_HSCROLL")
GUIRegisterMsg($WM_SIZE, "WM_SIZE")

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

;****************************************
; für Scrollfunktion *
;****************************************

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

Func WM_SIZE($hWnd, $Msg, $wParam, $lParam)
#forceref $Msg, $wParam
Local $index = -1, $yChar, $xChar, $xClientMax, $xClient, $yClient, $ivMax
For $x = 0 To UBound($aSB_WindowInfo) - 1
If $aSB_WindowInfo[$x][0] = $hWnd Then
$index = $x
$xClientMax = $aSB_WindowInfo[$index][1]
$xChar = $aSB_WindowInfo[$index][2]
$yChar = $aSB_WindowInfo[$index][3]
$ivMax = $aSB_WindowInfo[$index][7]
ExitLoop
EndIf
Next
If $index = -1 Then Return 0

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

Local $tSCROLLINFO = DllStructCreate($tagSCROLLINFO)

; Retrieve the dimensions of the client area.
$xClient = BitAND($lParam, 0x0000FFFF)
$yClient = BitShift($lParam, 16)
$aSB_WindowInfo[$index][4] = $xClient
$aSB_WindowInfo[$index][5] = $yClient

; Set the vertical scrolling range and page size
DllStructSetData($tSCROLLINFO, "fMask", BitOR($SIF_RANGE, $SIF_PAGE))
DllStructSetData($tSCROLLINFO, "nMin", 0)
DllStructSetData($tSCROLLINFO, "nMax", $ivMax)
DllStructSetData($tSCROLLINFO, "nPage", $yClient / $yChar)
_GUIScrollBars_SetScrollInfo($hWnd, $SB_VERT, $tSCROLLINFO)

; Set the horizontal scrolling range and page size
DllStructSetData($tSCROLLINFO, "fMask", BitOR($SIF_RANGE, $SIF_PAGE))
DllStructSetData($tSCROLLINFO, "nMin", 0)
DllStructSetData($tSCROLLINFO, "nMax", 2 + $xClientMax / $xChar)
DllStructSetData($tSCROLLINFO, "nPage", $xClient / $xChar)
_GUIScrollBars_SetScrollInfo($hWnd, $SB_HORZ, $tSCROLLINFO)

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

Return $GUI_RUNDEFMSG
EndFunc ;==>WM_SIZE

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

Func WM_HSCROLL($hWnd, $Msg, $wParam, $lParam)
#forceref $Msg, $lParam
Local $nScrollCode = BitAND($wParam, 0x0000FFFF)

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

Local $index = -1, $xChar, $xPos
Local $Min, $Max, $Page, $Pos, $TrackPos

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

For $x = 0 To UBound($aSB_WindowInfo) - 1
If $aSB_WindowInfo[$x][0] = $hWnd Then
$index = $x
$xChar = $aSB_WindowInfo[$index][2]
ExitLoop
EndIf
Next
If $index = -1 Then Return 0

;~ ; Get all the horizontal scroll bar information
Local $tSCROLLINFO = _GUIScrollBars_GetScrollInfoEx($hWnd, $SB_HORZ)
$Min = DllStructGetData($tSCROLLINFO, "nMin")
$Max = DllStructGetData($tSCROLLINFO, "nMax")
$Page = DllStructGetData($tSCROLLINFO, "nPage")
; Save the position for comparison later on
$xPos = DllStructGetData($tSCROLLINFO, "nPos")
$Pos = $xPos
$TrackPos = DllStructGetData($tSCROLLINFO, "nTrackPos")
#forceref $Min, $Max
Switch $nScrollCode

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

Case $SB_LINELEFT ; user clicked left arrow
DllStructSetData($tSCROLLINFO, "nPos", $Pos - 1)

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

Case $SB_LINERIGHT ; user clicked right arrow
DllStructSetData($tSCROLLINFO, "nPos", $Pos + 1)

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

Case $SB_PAGELEFT ; user clicked the scroll bar shaft left of the scroll box
DllStructSetData($tSCROLLINFO, "nPos", $Pos - $Page)

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

Case $SB_PAGERIGHT ; user clicked the scroll bar shaft right of the scroll box
DllStructSetData($tSCROLLINFO, "nPos", $Pos + $Page)

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

Case $SB_THUMBTRACK ; user dragged the scroll box
DllStructSetData($tSCROLLINFO, "nPos", $TrackPos)
EndSwitch

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

;~ // Set the position and then retrieve it. Due to adjustments
;~ // by Windows it may not be the same as the value set.

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

DllStructSetData($tSCROLLINFO, "fMask", $SIF_POS)
_GUIScrollBars_SetScrollInfo($hWnd, $SB_HORZ, $tSCROLLINFO)
_GUIScrollBars_GetScrollInfo($hWnd, $SB_HORZ, $tSCROLLINFO)
;// If the position has changed, scroll the window and update it
$Pos = DllStructGetData($tSCROLLINFO, "nPos")
If ($Pos <> $xPos) Then _GUIScrollBars_ScrollWindow($hWnd, $xChar * ($xPos - $Pos), 0)
Return $GUI_RUNDEFMSG
EndFunc ;==>WM_HSCROLL

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

Func WM_VSCROLL($hWnd, $Msg, $wParam, $lParam)
#forceref $Msg, $wParam, $lParam
Local $nScrollCode = BitAND($wParam, 0x0000FFFF)
Local $index = -1, $yChar, $yPos
Local $Min, $Max, $Page, $Pos, $TrackPos

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

For $x = 0 To UBound($aSB_WindowInfo) - 1
If $aSB_WindowInfo[$x][0] = $hWnd Then
$index = $x
$yChar = $aSB_WindowInfo[$index][3]
ExitLoop
EndIf
Next
If $index = -1 Then Return 0

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

; Get all the vertial scroll bar information
Local $tSCROLLINFO = _GUIScrollBars_GetScrollInfoEx($hWnd, $SB_VERT)
$Min = DllStructGetData($tSCROLLINFO, "nMin")
$Max = DllStructGetData($tSCROLLINFO, "nMax")
$Page = DllStructGetData($tSCROLLINFO, "nPage")
; Save the position for comparison later on
$yPos = DllStructGetData($tSCROLLINFO, "nPos")
$Pos = $yPos
$TrackPos = DllStructGetData($tSCROLLINFO, "nTrackPos")

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

Switch $nScrollCode
Case $SB_TOP ; user clicked the HOME keyboard key
DllStructSetData($tSCROLLINFO, "nPos", $Min)

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

Case $SB_BOTTOM ; user clicked the END keyboard key
DllStructSetData($tSCROLLINFO, "nPos", $Max)

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

Case $SB_LINEUP ; user clicked the top arrow
DllStructSetData($tSCROLLINFO, "nPos", $Pos - 1)

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

Case $SB_LINEDOWN ; user clicked the bottom arrow
DllStructSetData($tSCROLLINFO, "nPos", $Pos + 1)

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

Case $SB_PAGEUP ; user clicked the scroll bar shaft above the scroll box
DllStructSetData($tSCROLLINFO, "nPos", $Pos - $Page)

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

Case $SB_PAGEDOWN ; user clicked the scroll bar shaft below the scroll box
DllStructSetData($tSCROLLINFO, "nPos", $Pos + $Page)

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

Case $SB_THUMBTRACK ; user dragged the scroll box
DllStructSetData($tSCROLLINFO, "nPos", $TrackPos)
EndSwitch

;~ // Set the position and then retrieve it. Due to adjustments
;~ // by Windows it may not be the same as the value set.

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

DllStructSetData($tSCROLLINFO, "fMask", $SIF_POS)
_GUIScrollBars_SetScrollInfo($hWnd, $SB_VERT, $tSCROLLINFO)
_GUIScrollBars_GetScrollInfo($hWnd, $SB_VERT, $tSCROLLINFO)
;// If the position has changed, scroll the window and update it
$Pos = DllStructGetData($tSCROLLINFO, "nPos")

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

If ($Pos <> $yPos) Then
_GUIScrollBars_ScrollWindow($hWnd, 0, $yChar * ($yPos - $Pos))
$yPos = $Pos
EndIf

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

Return $GUI_RUNDEFMSG
EndFunc ;==>WM_VSCROLL

[/autoit]

**Tweaky**

integrierst du diese Funktion auch noch in die arraymore.au3?

**Tweaky**

So nurnoch 800 Dateien zu übersetzen

Aber es kommt mir vor, dass es einfach nicht weniger wird

**Tweaky**

kannst probieren den Sleep Wert zu erhöhen

**Tweaky**

Zeig mal dein komplettes Script.

Bei mir klappt es so

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

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

$zahl = 0

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

GUICreate("My GUI picture", 350, 300, -1, -1, $WS_SIZEBOX + $WS_SYSMENU) ; will create a dialog box that when displayed is centered

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

GUISetBkColor(0xE0FFFF)
$load = GUICtrlCreatePic(@ScriptDir & "\load7.jpg", 40, 260, $zahl, 15)

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

GUISetState()

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

$s = 60
For $i = 2 to 98 Step 2
$zahl += 2
GUICtrlSetPos($load, 40, 260, $zahl, 15)
Sleep($s)
Next

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

While 1
$msg = GUIGetMsg()
If $msg = $GUI_EVENT_CLOSE Then ExitLoop
WEnd

[/autoit]

**Tweaky**

Oh sorry
hätt ich wohl besser durchlesen sollen.

aber das verändern der Größe oder Position geht mir GUICtrlSetPos

**Tweaky**

Hi,
um das Bild nachträglich zu ändern ist GUICtrlSetImage zu verwenden (steht aber auch in der Hilfe )

**Tweaky**

Da muß ich dir recht geben GtaSpider,
Tweaky sich selbst fragt "warum übersetzt ich denn den Scheiß überhaupt "

warum
klar kann man das meiste erraten oder zusammenreimen.
Aber ich ärgere mich immer wenn ich die Funktion nicht richtig verstehe und dann übersetzt ich es im Kopf und dann das gleiche nächstesmal wieder.
Also wäre es am besten wenn man es einmal richtig übersetzt und jeder daran teilhaben kann.

Also nach jetzigem Stand dürften wir so ca. 60% der Funktionen in Deutsch haben.
Wobei wir daran schon ein halbes Jahr Arbeiten

Ausgang offen :wacko:

Und gerade weil AutoIt immer umfangreicher wird, sehe ich ein Problem wenn alles in Englisch ist.
Leichter wird es dadurch auch nicht.
Ich selbst kann z. B. mit den Func
_EventLog...
_Security...
nicht wirklich was anfangen.
Da ich sie allerdings reviewt habe (vorwiegend auf Rechtschreibfehler), sind sie wenigstens etwas klarer geworden

**Tweaky**

Wo bleiben die angeforderten Reviewer

Beiträge von Tweaky

HEX-Code Farbtabelle

Allgemeine Dateien

Dateien umbenennen

#include ????

Befehle für UDFs in SCiTE einfügen

Scrollfunktionen in UDF oder so?

Internet Verbindung prüfen

Motivation geht so langsam flöten ...

Problem beim Absenden meiner Übersetzung

Freeware Sammlung

Fenster mit $WS_POPUP veschieben

Scrollfunktionen in UDF oder so?

ArrayMore.au3

Motivation geht so langsam flöten ...

Probleme mit guictrlcreatepic

Probleme mit guictrlcreatepic

Probleme mit guictrlcreatepic

Probleme mit guictrlcreatepic

Motivation geht so langsam flöten ...

Motivation geht so langsam flöten ...