Beiträge von Oscar

**Oscar**

In AutoIt ist es so, dass eine Variable, die im Funktionskopf als Übernahmevariable angegeben ist, eine lokale Variable darstellt, auch wenn es eine gleichnamige globale Variable gibt.

Beispiel:

[autoit]

Global $a = 5
Test($a)
MsgBox(0,'Global', '$a = ' & $a)

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

Func Test($a)
$a += 5
MsgBox(0,'Innerhalb der Funktion', '$a = ' & $a)
EndFunc

[/autoit]

Insofern kannst Du die Übernahmevariablen auch genauso nennen wie die Übergabevariablen im Hauptprogramm.
Meistens mache ich das auch so. Kommt aber immer drauf an, ob die Funktion nur eine bestimmte Aufgabe hat oder ob sie universell ausgelegt ist.

**Oscar**

Ich würde sagen, da fehlt ein Backslash:

[autoit]

Global $media = @ScriptDir & "\Bilder.dll"

[/autoit]

**Oscar**

Wie wäre es, wenn Du eine bildschirmfüllende GUI erstellst, die mit WinSetOnTop in den Vordergrund geholt wird. Neue Fenster sollten dann dahinter bleiben (Nicht getestet).

**Oscar**

Ich benutze immer BookME

**Oscar**

Diesen Thread auch nach "Hilfe & Unterstützung" verschoben!

**Oscar**

Ich habe diesen Thread mal nach "Hilfe & Unterstützung" verschoben. In "Scripte" hat das nichts zu suchen!

Und Jam00, kannst Du mal damit aufhören mehrere Threads mit der gleichen Frage zu erstellen?!

**Oscar**

Man kann die Koordinaten auch einfach berechnen:

Spoiler anzeigen

[autoit]

#Region Header
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

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

Global $Laenge = 120, $Breite = 50, $Kastengroesse = 10
Global $Feld[$Laenge][$Breite]

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

Opt('MouseCoordMode', 0)
Opt("GUIOnEventMode", 1)
#EndRegion Header

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

#Region GUI
$Form2 = GUICreate("Form3", $Laenge * $Kastengroesse + 20, $Breite * $Kastengroesse + 20, -1, -1)
GUISetOnEvent($GUI_EVENT_CLOSE, "_exit")
Global $hGraphic = GUICtrlCreateGraphic(10, 10, $Laenge * $Kastengroesse, $Breite * $Kastengroesse)
GUICtrlSetOnEvent(-1, '_feld')

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

For $x = 0 To $Laenge - 1 Step 1
For $y = 0 To $Breite - 1 Step 1
GUICtrlSetGraphic($hGraphic, $GUI_GR_RECT, $Kastengroesse * $x, $Kastengroesse * $y, $Kastengroesse, $Kastengroesse)
Next
Next
GUISetState(@SW_SHOW)
#EndRegion GUI

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

While 1
Sleep(100)
WEnd

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

Func _feld()
Local $aInfo = GUIGetCursorInfo($Form2)
$x = Int(($aInfo[0]-10)/10)
$Y = Int(($aInfo[1]-10)/10)
ToolTip($x&@CRLF&$y)
EndFunc ;==>_feld

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

Func _Exit()
Exit
EndFunc ;==>_Exit

[/autoit]

**Oscar**

Ich musste gerade auf einen Anruf warten und hatte nichts besseres zu tun, deshalb habe ich mal alle Koordinaten und Elementnamen rausgeschrieben:

Spoiler anzeigen

[autoit]

#include<GUIConstantsEx.au3>
Opt('MouseCoordMode', 0)
Global $aCoord, $aElements, $aDescription
_InitArray() ; Koordinaten, Elementname und Beschreibung einlesen
Global $iLeft = 80, $iTop = 30, $sSelected = -1
$hGui = GUICreate('PSE', 800, 600)
GUISetBkColor(0xffffff)
$hPic = GUICtrlCreatePic('pse-gross.gif', $iLeft, $iTop, 650, 442)
GUISetState()
While True
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit
Case $hPic
If $sSelected <> -1 Then
ToolTip('')
MsgBox(64, $aElements[$sSelected], $aDescription[$sSelected], 0, $hGui)
EndIf
EndSwitch
$aInfo = GUIGetCursorInfo($hGui)
$aInfo[0] -= $iLeft
$aInfo[1] -= $iTop
For $i = 0 To UBound($aCoord) - 1
If $aInfo[0] > $aCoord[$i][0] And $aInfo[0] < $aCoord[$i][2] And $aInfo[1] > $aCoord[$i][1] And $aInfo[1] < $aCoord[$i][3] Then ExitLoop
Next
If $i <= UBound($aCoord) -1 Then
$sSelected = $i
ToolTip($aElements[$sSelected])
Else
$sSelected = -1
ToolTip('')
EndIf
WEnd

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

Func _InitArray()
Global $aCoord[112][4] = [ _
[016,019,050,064], _
[016,065,050,108], _
[016,109,050,152], _
[016,153,050,196], _
[016,197,050,240], _
[016,241,050,284], _
[016,285,050,328], _
[051,065,085,108], _
[051,109,085,152], _
[051,153,085,196], _
[051,197,085,240], _
[051,241,085,284], _
[051,285,085,328], _
[086,153,120,196], _
[086,197,120,240], _
[086,241,120,284], _
[086,285,120,328], _
[121,153,155,196], _
[121,197,155,240], _
[121,241,155,284], _
[121,285,155,328], _
[156,153,190,196], _
[156,197,190,240], _
[156,241,190,284], _
[156,285,190,328], _
[191,153,225,196], _
[191,197,225,240], _
[191,241,225,284], _
[191,285,225,328], _
[226,153,261,196], _
[226,197,261,240], _
[226,241,261,284], _
[226,285,261,328], _
[262,153,296,196], _
[262,197,296,240], _
[262,241,296,284], _
[262,285,296,328], _
[297,153,333,196], _
[297,197,333,240], _
[297,241,333,284], _
[297,285,333,328], _
[334,153,368,196], _
[334,197,368,240], _
[334,241,368,284], _
[334,285,368,328], _
[369,153,402,196], _
[369,197,402,240], _
[369,241,402,284], _
[403,153,437,196], _
[403,197,437,240], _
[403,241,437,284], _
[438,065,473,108], _
[438,109,473,152], _
[438,153,473,196], _
[438,197,473,240], _
[438,241,473,284], _
[474,065,508,108], _
[474,109,508,152], _
[474,153,508,196], _
[474,197,508,240], _
[474,241,508,284], _
[509,065,543,108], _
[509,109,543,152], _
[509,153,543,196], _
[509,197,543,240], _
[509,241,543,284], _
[544,065,578,108], _
[544,109,578,152], _
[544,153,578,196], _
[544,197,578,240], _
[544,241,578,284], _
[579,065,613,108], _
[579,109,613,152], _
[579,153,613,196], _
[579,197,613,240], _
[579,241,613,284], _
[614,019,648,064], _
[614,065,648,108], _
[614,109,648,152], _
[614,153,648,196], _
[614,197,648,240], _
[614,241,648,284], _
[086,353,120,395], _
[121,353,155,395], _
[156,353,190,395], _
[192,353,226,395], _
[227,353,261,395], _
[262,353,296,395], _
[297,353,332,395], _
[333,353,367,395], _
[368,353,402,395], _
[403,353,437,395], _
[438,353,473,395], _
[474,353,508,395], _
[509,353,543,395], _
[544,353,578,395], _
[579,353,613,395], _
[086,397,120,441], _
[121,397,155,441], _
[156,397,190,441], _
[192,397,226,441], _
[227,397,261,441], _
[262,397,296,441], _
[297,397,332,441], _
[333,397,367,441], _
[368,397,402,441], _
[403,397,437,441], _
[438,397,473,441], _
[474,397,508,441], _
[509,397,543,441], _
[544,397,578,441], _
[579,397,613,441] _
]
Global $aElements[112] = [ _
'Wasserstoff', _
'Lithium', _
'Natrium', _
'Kalium', _
'Rubidium', _
'Caesium', _
'Francium', _
'Beryllium', _
'Magnesium', _
'Calcium', _
'Strontium', _
'Barium', _
'Radium', _
'Scandium', _
'Yttrium', _
'Lanthanoide', _
'Actinoide', _
'Titan', _
'Zirconium', _
'Hafnium', _
'Rutherfordium', _
'Vanadium', _
'Niob', _
'Tantal', _
'Dubnium', _
'Chrom', _
'Molybdän', _
'Wolfram', _
'Seaborgium', _
'Mangan', _
'Technetium', _
'Rhenium', _
'Bohrium', _
'Eisen', _
'Ruthenium', _
'Osmium', _
'Hassium', _
'Cobalt', _
'Rhodium', _
'Iridium', _
'Meitnerium', _
'Nickel', _
'Palladium', _
'Platin', _
'Darmstadtium', _
'Kupfer', _
'Silber', _
'Gold', _
'Zink', _
'Cadmium', _
'Quecksilber', _
'Bor', _
'Aluminium', _
'Gallium', _
'Indium', _
'Thallium', _
'Kohlenstoff', _
'Silicium', _
'Germanium', _
'Zinn', _
'Blei', _
'Stickstoff', _
'Phosphor', _
'Arsen', _
'Antimon', _
'Bismut', _
'Sauerstoff', _
'Schwefel', _
'Selen', _
'Tellur', _
'Polonium', _
'Fluor', _
'Chlor', _
'Brom', _
'Iod', _
'Astat', _
'Helium', _
'Neon', _
'Argon', _
'Krypton', _
'Xenon', _
'Radon', _
'Lanthan', _
'Cer', _
'Praseodym', _
'Neodym', _
'Promethium', _
'Samarium', _
'Europium', _
'Gadolinium', _
'Terbium', _
'Dysprosium', _
'Holmium', _
'Erbium', _
'Thulium', _
'Ytterbium', _
'Lutetium', _
'Actinium', _
'Thorium', _
'Protactinium', _
'Uran', _
'Neptunium', _
'Plutonium', _
'Americium', _
'Curium', _
'Berkelium', _
'Californium', _
'Einsteinium', _
'Fermium', _
'Mendelevium', _
'Nobelium', _
'Lawrencium' _
]
Global $aDescription[112] = [ _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung' _
]
EndFunc

[/autoit]

Jetzt erwarte ich von Dir aber, dass Du die jeweiligen Beschreibungen einträgst (habe das Array schon erstellt).

**Oscar**

Frage 1:

[autoit]

If StringLeft($Files[$i], 7) = "Logotec" And StringRight($Files[$i], 1) <> '_' Then DirMove($Dir & "\" & $Files[$i], $Dir & "\" & $Files[$i] & "_")

[/autoit]

Frage 2:

[autoit]

If StringRight($FileList[$i], 1) = '_' Then $ret = DirMove($Path & $FileList[$i], $Path & StringTrimRight($FileList[$i], 1))

[/autoit]

**Oscar**

Sorry, ich wollte Dein Beispiel nicht schlecht machen.
Ich sitze hier nur gerade an einem anderen Projekt und brauchte mal eine kurze Auszeit, da kam mir Dein kleines Beispiel gerade recht.

**Oscar**

Wie soll das Script denn ohne Zugangsdaten auf Deinen FTP-Server zugreifen können?

Also entweder die Daten im Script ablegen oder auf EMail ausweichen. Stichwort: _INetMail (siehe Hilfe)

**Oscar**

Was hälst Du denn von dieser Version:

Spoiler anzeigen

[autoit]

#include<GUIConstantsEx.au3>
Opt('GUIOnEventMode', 1)

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

Global Const $WS_EX_COMPOSITED = 0x2000000
Global $hGui = GUICreate('Ein - und Ausfahr Demo', 242, 199, 193, 125, Default, $WS_EX_COMPOSITED)
GUISetOnEvent($GUI_EVENT_CLOSE, '_End')
Global $Edit[3]
For $i = 0 To 2
$Edit[$i] = GUICtrlCreateEdit('1', $i*80, 0, 69, 169)
Next
Global $Button[3][2]
For $i = 0 To 2
$Button[$i][0] = GUICtrlCreateButton('Hide', 2+$i*80, 174, 57, 19, 0)
GUICtrlSetOnEvent(-1, '_ShowHide')
$Button[$i][1] = False
Next
GUISetState(@SW_SHOW)

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

While 1
Sleep(20)
WEnd

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

Func _End()
Exit
EndFunc

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

Func _ShowHide()
Local $ID = @GUI_CtrlId
Local $SelID = @GUI_CtrlId-$Button[0][0]
Local $aPos = ControlGetPos($hGui, '', $Edit[$SelID])
If $Button[$SelID][1] Then
$Button[$SelID][1] = False
GUICtrlSetData($ID, 'Hide')
For $i = 0 To $aPos[3]
GUICtrlSetPos($Edit[$SelID], $aPos[0], $aPos[1] + $i, $aPos[2], $aPos[3])
Next
Else
$Button[$SelID][1] = True
GUICtrlSetData($ID, 'Show')
For $i = 0 To $aPos[3]
GUICtrlSetPos($Edit[$SelID], $aPos[0], $aPos[1] - $i, $aPos[2], $aPos[3])
Next
EndIf
EndFunc

[/autoit]

Mit Arrays und im OnEventMode finde ich das praktischer.

**Oscar**

Das Beispiel 1 aus der Hilfe ist doch schon relativ kurz, aber gut hier eine noch kürzere Version:

[autoit]

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

[/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
GUICtrlCreatePic(@SystemDir & "\oobe\images\mslogo.jpg", 50, 50, 200, 50)
GUISetState()
Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE

[/autoit]

**Oscar**

Eine ganze Reihe von Fehlern (und das in 3 Zeilen

- fehlende Klammer in der ersten Zeile
- WinGetPosX und WinGetPosY gibt es gar nicht (der alternative Befehl WinGetPos liefert ein Array zurück)
- bei MouseMove eine Klammer zuviel

Tip: Nimm Dir die Hilfe zur Hand und studiere erstmal die Syntax eines Befehls, bevor Du ihn verwendest.

**Oscar**

Naja, die UDF hat schon ein paar mehr Zeilen...
Aber entscheidend wäre, was hast Du, mongobongo, ausgeführt und wie lautet die genaue Fehlermeldung (nicht nur in welcher Zeile). Außerdem welches OS?
Also ein paar mehr Informationen wären schon hilfreich...

**Oscar**

Ich habe mal Dein Script etwas angepasst:

Spoiler anzeigen

[autoit]

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

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

Global $Feld[20][20], $Progress1

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

Opt("GUIOnEventMode", 1)
$Form1 = GUICreate("Form3", 242, 19, 217, 131)
$Progress1 = GUICtrlCreateProgress(0, 0, 241, 17)
GUISetState(@SW_SHOW)

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

$Form2 = GUICreate("Form3", 420, 420, -1, -1)
GUISetOnEvent($GUI_EVENT_CLOSE, "_exit")
Global $count = 0
Global $hGraphic = GUICtrlCreateGraphic(10, 10, 400, 400)

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

For $x = 0 To 19 Step 1
For $y = 0 To 19 Step 1
$count += 0.25
GUICtrlSetData($Progress1, $count)
$Feld[$x][$y] = GUICtrlSetGraphic($hGraphic, $GUI_GR_RECT, 20 * $x, 20 * $y, 20, 20)
Next
Next
GUISetState(@SW_SHOW)

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

While 1
Sleep(100)
WEnd

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

Func _Exit()
Exit
EndFunc ;==>_Exit

[/autoit]

**Oscar**

Ja, geht auch mit CurrentControlSet! Ist also die bessere Lösung.

**Oscar**

Bitte die Forenregeln durchlesen!

**Oscar**

Ich habe Dir jetzt mal ein kleines Script zum testen geschrieben:

[autoit]

Global $RegPath = 'HKEY_LOCAL_MACHINE\SYSTEM\ControlSet003\Services\usbaudio\Enum'; HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\usbaudio\enum
Global $sHardwareID = 'USB\VID_046D&PID_0A0B&MI_00\6&9687e74&0&0000'

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

If _CheckReg($RegPath, $sHardwareID) Then
MsgBox(0, 'Test', 'Hardware ist angeschlossen!')
Else
MsgBox(0, 'Test', 'Hardware ist nicht angeschlossen!')
EndIf

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

Func _CheckReg($Reg, $ID)
For $i = 0 To RegRead($Reg, 'count') - 1
If RegRead($Reg, $i) == $ID Then Return True
Next
Return False
EndFunc

[/autoit]

Damit solltest Du Deine Ursprungsfrage lösen können.

**Oscar**

ItemGroup -Ergebnis.txt

Mein Lieblingsforum feiert 3. Geburtstag. Dazu möchte ich herzlich gratulieren und hoffe, dass es noch viele weitere Geburtstage geben wird.

testdatei - Copy.TXT

Beiträge von Oscar

saubere Programmierung:Parameterübergabe an Funktionen

Dll-Inhalt

Hidden/Silent/versteckte Installation mit Progress

Hilfe-Dateien Compiler

Titelleiste änder (Anderes Aussehen)

Fragen

Spielfeld, 2D-Array

PSI

Unterstrich den Ordnername hinzufügen / entfernen?

Beispiel für Ein- und Ausfahreffekt

"Mail" zu meinem FTP-Server

Beispiel für Ein- und Ausfahreffekt

bild anzeigen?

maus in ein bestimmtes Fenser bewegen?

Random-Number-Generator

Spielfeld, 2D-Array

Bin neu hier und habe direkt eine Frage

maus in ein bestimmtes Fenser bewegen?

Bin neu hier und habe direkt eine Frage

Happy Birthday, AutoIt.de