Die naheliegenste Übersetzung für Computer ist "Rechner".
Wie BugFix schon sagte ist ein Handle begrifflich ein Handle und kein Zeiger.
Ein Handle ist ein Identifizierer oder "Handhaber" und genau so wird er auch betrachtet.
Also muß es folglich heißen Handle zu/von/des/eines etc. ...
So ist es in allen anderen Foren durch die ich mich lese und im Petzold ist es auch so niedergeschrieben.
Unsere Übersetzungen sind bisher auch so.
LG
Greenhorn
@pee
Die Links in der Hilfe (zumindest bei den _WinAPI_... Funktionen verlinken zur Suche auf MSDN, das hat mir bisher aber nie weitergeholfen.
Besser wäre es, wenn der Link direkt zur Dokumentation führen würde.
Auch wenn der Code in C geschrieben ist, hat man doch wenigstens eine vollständige (englische) Beschreibung mit den Besonderheiten zu jenen.
Müssten wir mal schauen, wie man das einbauen kann.
WM_COMMAND+Notification
CreateWindowEx+Function
So vielleicht ?
Direkt geht's leider nicht zur Funktionsdokumentation, oder Du baust noch einen Hack ein, der gleich weiterverlinkt ..., oder wir pulen jeden Link heraus, diese ändern sich aber ständig ...
BugFix
Der Wert von iSubItem zeigt durch 0 an, daß nur das übergeordnete Element gemeint ist, falls jedoch iSubItem ungleich 0 ist, dann wird das Subelement - Index aus iSubItem - vom übergeordneten Element - Index aus iItem - herangezogen.
LG
Greenhorn
So, ich hab's hinbekommen ...
#include <GuiMenu.au3>
#include <WinAPI.au3>
#include <ListViewConstants.au3>
Opt ('MustDeclareVars', 1)
[/autoit] [autoit][/autoit] [autoit]Global $IDC_LIST
Global Enum $IDM_OPEN = 40000, _
$IDM_SAVE, _
$IDM_INFO
_Main ()
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]Func _Main ( )
Local $hGUI
; Create GUI
$hGUI = GUICreate ("Menu", 400, 300)
$IDC_LIST = GUICtrlCreateListView ("1|2", 30, 20, 341, 241)
GUICtrlSendMsg ($IDC_LIST, $LVM_SETCOLUMNWIDTH, 0, 50)
GUICtrlSendMsg ($IDC_LIST, $LVM_SETCOLUMNWIDTH, 1, 50)
GUICtrlCreateListViewItem ("1|1.1", $IDC_LIST)
GUICtrlCreateListViewItem ("2|2.1", $IDC_LIST)
GUISetState ()
[/autoit] [autoit][/autoit] [autoit]; Register message handlers
GUIRegisterMsg ($WM_COMMAND , "WM_COMMAND")
GUIRegisterMsg ($WM_CONTEXTMENU, "WM_CONTEXTMENU")
; Loop until user exits
Do
Until GUIGetMsg ( ) = $GUI_EVENT_CLOSE
Return 0
EndFunc ;==>_Main
; Handle WM_CONTEXTMENU messages
Func WM_CONTEXTMENU ($hWnd, $iMsg, $iwParam, $ilParam)
Local $hMenu
; ConsoleWrite ('hwnd = ' & $hWnd &@crlf) ; ... unser Fenster hGUI.
; ConsoleWrite ('hwndContrl = ' & $iwParam &@crlf) ; Fensterhandle des Steuerelements auf das geklickt wurde.
; ConsoleWrite ('xPos Mouse = ' & LOWORD($ilParam) &@crlf)
; ConsoleWrite ('yPos Mouse = ' & HIWORD($ilParam) &@crlf)
$hMenu = _GUICtrlMenu_CreatePopup ()
_GUICtrlMenu_InsertMenuItem ($hMenu, 0, "Open", $IDM_OPEN)
_GUICtrlMenu_InsertMenuItem ($hMenu, 1, "Save", $IDM_SAVE)
_GUICtrlMenu_InsertMenuItem ($hMenu, 3, "" , 0) ; Separator
_GUICtrlMenu_InsertMenuItem ($hMenu, 4, "Info", $IDM_INFO)
; Der Eigentümer des Menüs muß dein Hauptfenster sein.
; Wenn Du wParam einsetzt ist das jeweilige Steuerelement
; der Eigentümer des Menüs und somit wird die WM_COMMAND
; an das Steuerelement gesendet und nicht an unsere Fensterprozedur
_GUICtrlMenu_TrackPopupMenu ($hMenu, $hWnd) ; ... hier war der Hund begraben.
_GUICtrlMenu_DestroyMenu ($hMenu)
Return True
EndFunc ;==>WM_CONTEXTMENU
[/autoit] [autoit][/autoit] [autoit]; Handle WM_COMMAND messages
Func WM_COMMAND ($hWnd, $iMsg, $iwParam, $ilParam)
; ConsoleWrite ('hwnd = ' & $hWnd &@crlf) ; ... unser Fenster hGUI.
; ConsoleWrite ('ID = ' & LOWORD($iwParam) &@crlf) ; ID des Steuerelements/Abkürzungsbefehls
; ConsoleWrite ('0 bei Menü = ' & HIWORD($iwParam) &@crlf) ; Steuerelement-spezifischer Wert
; ConsoleWrite ('0 bei Menü = ' & $ilParam &@crlf) ; Steuerelement-spezifischer Wert
Switch LOWORD($iwParam)
Case $IDM_OPEN
_WinAPI_ShowMsg ("Open")
Case $IDM_SAVE
_WinAPI_ShowMsg ("Save")
Case $IDM_INFO
_WinAPI_ShowMsg ("Info")
EndSwitch
EndFunc ;==>WM_COMMAND
Func LOWORD ($DWORD)
Return BitAND($DWORD, 0xFFFF)
EndFunc
Func HIWORD ($DWORD)
Return BitShift($DWORD, 16)
EndFunc
Außerdem hatten deine IDs für die Subelemente des Kontextmenüs keinen Wert !
Bei InsertMenuItem () wird die ID nicht wie bei den GUICtrl... () Funktionen automatisch gesetzt und zurückgegeben, sondern Du musst den Identifizierer selbst bestimmen. 
AutoIt verwöhnt einen zu sehr ... 
LG
Greenhorn
Moin ari,
schön dich mal wieder im Netz zu sehen ...
In WM_COMMAND besteht wParam aus zwei Werten: das höherwertige (16bit)Wort enthält bei einem Menü Null, das niederwertige (16bit)Wort enthält die ID des Menü(element)s.
WM_COMMAND
So sollte es gehen.
; Handle WM_COMMAND messages
Func WM_COMMAND($hWnd, $iMsg, $iwParam, $ilParam)
Switch LOWORD($iwParam)
Case $idOpen
_WinAPI_ShowMsg ("Open")
Case $idSave
_WinAPI_ShowMsg ("Save")
Case $idInfo
_WinAPI_ShowMsg ("Info")
EndSwitch
EndFunc ;==>WM_COMMAND
Func LOWORD ($DWORD)
Return BitAND($DWORD, 0xFFFF)
EndFunc
Func HIWORD ($DWORD)
Return BitShift($DWORD, 16)
EndFunc
Die IDs der Steuerelemente würde ich als Global deklarieren.
EDIT:
Ich habe noch einmal nachgesehen ...
Du solltest es mal mit WM_MENUCOMMAND versuchen ...
LG
Greenhorn
Ein Handle ist nicht einfach nur ein beliebiger Zeiger auf ein Objekt, sondern wird vom System gepflegt und ist konstant mit dem Objekt verknüft.
Handle to -> Handle zu ...
Handle from -> Handle von ...
Das ist auch die allgemeingebräuchliche schreibweise.
LG
Greenhorn
Paul IA/Gary Frost waren da mal wieder etwas schreibfaul ...
iSubItem
The index of the subitem. To retrieve the item text, set iSubItem to zero.
http://msdn.microsoft.com/en-us/library/bb774982(VS.85).aspx
iSubItem
One-based index of the subitem to which this structure refers, or zero if this structure refers to an item rather than a subitem.
http://msdn.microsoft.com/en-us/library/bb774760(VS.85).aspx
Sollte also hinzugefügt werden, da nicht ganz unwichtig.
Oftmals vergleiche ich auch die Beschreibungen mit denen aus der MSDN und muss immer wieder feststellen, daß einige wichtige Sachen ausgelassen wurden.
Man sollte sowieso in der MSDN nachsehen, wenn man die API Funktionen aus den UDF's nutzen möchte, da die Bemerkungen meist komplett ausgelassen wurden.
(Bin ich als Übersetzer aber nicht wirklich unglücklich drüber ... )
LG
Greenhorn
Das/ein Handle zu einem Objekt, würde ich meinen.
Hängt vom jeweiligen Kontext ab ...
LG
Greenhorn
Du brauchst die main_gui() nicht erneut aufrufen und das Hauptfenster neu erstellen.
So erstellst Du jedesmal das Hauptfenster neu, ohne es vorher gelöscht zu haben, das wird dein Windows dir irgendwann übel nehmen, wenn die Ressourcen aufgebraucht sind ...
Einfach nur aus der help_gui() Funktion zurückkehren, das langt.
LG
Greenhorn
Moin,
nachdem Du den Back-Buttom gedrückt hast wird zwar die MainGUI wieder angezeigt, aber Du kehrst dann wieder in die Nachrichtenschleife der HelpGUI zurück !
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $back_button_help
GUIDelete ($help_form)
GUISetState (@SW_SHOW, $main_form) ; EDIT: ... ganz vergessen
ExitLoop ; Schleife verlassen
Case $GUI_EVENT_CLOSE
Exit
;Case $de_button_help
; _help_ger()
;Case $eng_button_help
; _help_eng()
;Case $rus_button_help
; _help_rus()
EndSwitch
WEnd
Return ; Funktion verlassen
[/autoit] [autoit][/autoit] [autoit]EndFunc
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit]
So sollte es gehen.
LG
Greenhorn
Moin,
sieh dir mal das Beispiel aus GUICtrlCreatePic () an ...
GuiCtrlCreatePic ()
Die GUI mit Merlin als Bild solltest Du dir genauer ansehen.
LG
Greenhorn
EDIT:
Moment mal, ich hatte da doch irgendwo noch dieses Skript ... *Kram* *Schnüffel* *Wurschtel*
Ah, da ist es ja. 
Voilá
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
HotKeySet("{ESC}", "QuitApp")
$BG = GUICreate("back window",400,400,0,0)
WinSetTrans("back window","",0)
$Main_Gui = GUICreate("", 400, 400,0,0, $WS_POPUP, $WS_EX_TOOLWINDOW + $WS_EX_TOPMOST)
$But1 = GUICtrlCreateButton(" Exit ", 100, 100, 80, 21)
$Info_Edit = GUICtrlCreateEdit("A few words to start off with", 80, 150, 300, 220)
GUISetControlsVisible($Main_Gui)
;$wp = WinGetPos(WinGetHandle("Untitled"))
GUISetState(@SW_SHOW,$BG)
GUISetState(@SW_SHOW,$Main_Gui)
GUIRegisterMsg($WM_ACTIVATE, "WM_ACTIVATE")
GUIRegisterMsg($WM_MOVE, "WM_MOVE")
GUISwitch($BG)
$n = 100
$way = 1
While 1
$Msg = GUIGetMsg()
if $Msg = $But1 Then Exitloop
;WinSetTrans($BG,"",$n)
;WinSetTrans($Main_Gui,"",$n);<--------choose this line instead of one above to make the components fade rather than the window
if $n > 253 or $n < 40 then $way *= -1
Sleep(20);<-------------------------adjust for speed of fade
$n += $way
WEnd
Func GUISetControlsVisible($hWnd)
Local $aClassList, $aM_Mask, $aCtrlPos, $aMask
;Set $WS_POPUP style part:
Local Const $GWL_STYLE = -16
Local Const $GWL_EXSTYLE = -20
Local Const $SWP_NOMOVE = 0x2
Local Const $SWP_NOSIZE = 0x1
Local Const $SWP_SHOWWINDOW = 0x40
Local Const $SWP_NOZORDER = 0x4
Local $iFlags = BitOR($SWP_SHOWWINDOW, $SWP_NOSIZE, $SWP_NOMOVE, $SWP_NOZORDER)
DllCall("User32.dll", "int", "SetWindowLong", "hwnd", $hWnd, "int", $GWL_STYLE, "int", $WS_POPUP)
DllCall("User32.dll", "int", "SetWindowPos", "hwnd", $hWnd, "hwnd", 0, "int", 0, "int", 0, "int", 0, "int", 0, "int", $iFlags)
;End Set $WS_POPUP style part
$aClassList = StringSplit(_WinGetClassListEx($hWnd), @LF)
$aM_Mask = DllCall("gdi32.dll", "long", "CreateRectRgn", "long", 0, "long", 0, "long", 0, "long", 0)
For $i = 1 To UBound($aClassList) - 1
$aCtrlPos = ControlGetPos($hWnd, '', $aClassList[$i])
If Not IsArray($aCtrlPos) Then ContinueLoop
$aMask = DllCall("gdi32.dll", "long", "CreateRectRgn", _
"long", $aCtrlPos[0], _
"long", $aCtrlPos[1], _
"long", $aCtrlPos[0] + $aCtrlPos[2], _
"long", $aCtrlPos[1] + $aCtrlPos[3])
DllCall("gdi32.dll", "long", "CombineRgn", "long", $aM_Mask[0], "long", $aMask[0], "long", $aM_Mask[0], "int", 2)
Next
DllCall("user32.dll", "long", "SetWindowRgn", "hwnd", $hWnd, "long", $aM_Mask[0], "int", 1)
EndFunc
Func _WinGetClassListEx($sTitle)
Local $sClassList = WinGetClassList($sTitle)
Local $aClassList = StringSplit($sClassList, @LF)
Local $sRetClassList = "", $sHold_List = "|"
Local $aiInHold, $iInHold
For $i = 1 To UBound($aClassList) - 1
If $aClassList[$i] = "" Then ContinueLoop
If StringRegExp($sHold_List, "\|" & $aClassList[$i] & "~(\d+)\|") Then
$aiInHold = StringRegExp($sHold_List, ".*\|" & $aClassList[$i] & "~(\d+)\|.*", 1)
$iInHold = Number($aiInHold[UBound($aiInHold)-1])
If $iInHold = 0 Then $iInHold += 1
$aClassList[$i] &= "~" & $iInHold + 1
$sHold_List &= $aClassList[$i] & "|"
$sRetClassList &= $aClassList[$i] & @LF
Else
$aClassList[$i] &= "~1"
$sHold_List &= $aClassList[$i] & "|"
$sRetClassList &= $aClassList[$i] & @LF
EndIf
Next
Return StringReplace(StringStripWS($sRetClassList, 3), "~", "")
EndFunc
Func QuitApp()
Exit
EndFunc
Func WM_MOVE($hWndGUI)
If $hWndGUI <> $BG Then Return $GUI_RUNDEFMSG
Local $ParentPosArr = WinGetPos($hWndGUI)
WinMove($Main_Gui, "", $ParentPosArr[0], $ParentPosArr[1])
EndFunc
Func WM_ACTIVATE($hWndGUI)
If $hWndGUI = $BG Then WinActivate($Main_Gui)
EndFunc
Naja, das englische Forum ist nicht schlecht, aber dieses Forum ist natürlich um längen besser !!!
Aber der eine oder andere Link dort ist schon manchmal hilfreich ...
http://www.autoitscript.com/forum/index.php?
LG
Greenhorn
Habe ich auch irgendwann zufällig in dem englischen Forum gefunden und später hier:
http://msdn.microsoft.com/en-us/library/ms632680(VS.85).aspx
Dieser Stil funktioniert erst ab Win XP !
(Deshalb ist er wohl auch nicht in AutoIt definiert, wegen abwärtskompatibilität ..., obwohl ..., WS_EX_LAYERED ist es ja auch 
)
Gruß
Moin,
so geht's ohne Flackern ...
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>
Global $sethfm = 0
Global $b_hoehe = 30, $b_breite = 250
Global $farbe1 = 0xff0000 ; Rot
Global $farbe2 = 0x076825 ; Grün
Global $L2
Global Const $WS_EX_COMPOSITED = 0x2000000 ; Gegen "Flackern"
HotKeySet("t", "test")
[/autoit] [autoit][/autoit] [autoit];-------------------------------------------------------------------------------------------------------------
gui()
Exit
;-------------------------------------------------------------------------------------------------------------
Func gui()
$Form1 = GUICreate("Form1", 500, 440, (@DesktopWidth - 500) / 2, (@DesktopHeight - 400) / 2, _
BitOR ($WS_DLGFRAME, $WS_POPUP, $WS_THICKFRAME), $WS_EX_COMPOSITED)
$Pic1 = GUICtrlCreatePic("pic.jpg", 0, 0, 500, 440, $WS_BORDER)
$L2 = GUICtrlCreateLabel("Label Text", 125, 200, $b_breite, $b_hoehe, $SS_CENTER)
GUICtrlSetBkColor($L2, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetFont(-1, 18, 900, 2, "Verdana")
GUICtrlSetCursor(-1, 0)
GUICtrlSetState (-1, $GUI_ONTOP) ; ... wichtig !
If $sethfm = 0 Then format($L2, $farbe1)
If $sethfm = 1 Then format($L2, $farbe2)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $L2
If $sethfm = 0 Then
$sethfm = 1
format($L2, $farbe2)
ElseIf $sethfm = 1 Then
$sethfm = 0
format($L2, $farbe1)
EndIf
EndSwitch
WEnd
EndFunc ;==>gui
Func format($control, $farbe)
GUICtrlSetColor($control, $farbe)
EndFunc ;==>format
Func test()
For $i = 1 To 3
GUICtrlSetColor($L2, $farbe2)
Sleep(1000)
GUICtrlSetColor($L2, $farbe1)
Sleep(1000)
Next
EndFunc ;==>test
LG
Greenhorn
Moin,
ohne Code-Beispiel lässt sich nur schwerlich etwas dazu sagen.
LG
Greenhorn
Bei http://www.autoit.de/dokumentation_…x/GUIStyles.htm fehlt welche Datei includet werden muss, damit man die Konstanten bekommt.
Zum Vergleich: http://www.autoitscript.com/autoit3/docs/a…x/GUIStyles.htm
Grüße
Vielen Dank für den Hinweis.
Gefixt ...
LG
Greenhorn
Moin,
[autoit]Dim $a = 0
[/autoit][autoit][/autoit][autoit]While ($a < 41)
[/autoit][autoit][/autoit][autoit]$a += 1
ConsoleWrite ($a & @crlf)
WEnd
For $b = 1 To 40
ConsoleWrite ($b & @crlf)
Next
Dim $c = 0
[/autoit][autoit][/autoit][autoit]Do
$c += 1
ConsoleWrite ($c & @crlf)
Until $c == 40
EDIT:
Func _FileReadToArray($sFilePath, ByRef $aArray)
;==============================================
; Local Constant/Variable Declaration Section
;==============================================
Local $hFile
$hFile = FileOpen($sFilePath, 0)
[/autoit] [autoit][/autoit] [autoit]If $hFile = -1 Then
SetError(1)
Return 0
EndIf
Local $sTemp = FileRead($hFile)
; remove last line separator if any at the end of the file
If StringRight($sTemp, 1) = @LF Then $sTemp = StringTrimRight($sTemp, 1)
If StringRight($sTemp, 1) = @CR Then $sTemp = StringTrimRight($sTemp, 1)
$aArray = StringSplit($sTemp, @CRLF, 1) ; Try Windows @CRLF first
If @error Then $aArray = StringSplit($sTemp, @LF) ; Unix @LF is next most common
If @error Then $aArray = StringSplit($sTemp, @CR) ; Finally try Mac @CR
FileClose($hFile)
Return 1
EndFunc ;==>_FileReadToArray
Zu finden im \include Verzeichnis, Datei File.au3
LG
Greenhorn
Da hast Du schon Recht, Lina. Noch ist es nicht überall so.
Ich denke dabei aber nicht an "private Sicherungskopien" - und ich bin der gleichen Meinung wie pee, die Backdoor hat Bill schon lange eingebaut -, sondern eher daran, daß man sich genau überlegen muss was für Seiten man im Internet besucht. Damit meine ich keine Warez-Seiten, sondern ganz normale Webseiten, die aber vielleicht zum kritischen Nachdenken anregen.
Das sieht Vater Staat und seine Lobbyisten nicht mehr gern, ist "unfunky", sozusagen.
Siehe China, dort bekommt jeder Internetsurfer seine individuelle Webpage zu sehen, entweder sind Teile herausgeschnitten oder andere Inhalte hinzugefügt, oder die Seite ist nicht aufrufbar ...
Übrigens: BND und BKA benutzen BSD als Betriebssystem und keine M$ Produkte. (so zum nachdenken ... 
)
Die Grundgesetze, die jetzt reihenweise verstümmelt oder abgeschafft werden, haben unsere Vorväter aus sehr gutem Grund geschaffen.
Aber wen interessiert es heute noch, solange sie alle ihr Tamagotchi-Klicki-Handy oder irgenwelchen andern Schnick-Schnack haben der vom wirklichen Leben ablenkt, sind alle zufrieden ...
So, nun wollen wir aber nicht zu politisch werden, sondern eine schöne Zeit haben
LG
Greenhorn
Hast Du es denn einmal ausprobiert ?
Vielleicht leert AutoIt vor einem Send() automatisch den Tastaturpuffer ...
Gruß
Ich glaube ich habe es !
[autoit]; Und die Funktion um die es geht:
[/autoit][autoit][/autoit][autoit]Func umwandeln()
$file_bbd = GUICtrlRead($file)
GUISetState( @SW_DISABLE, $hauptfenster)
Send("{SPACE}")
Send("{SPACE}") auskommentieren, dann geht's.
Send("{SPACE}") bewirkt, dass die Schaltfläche 'umwandeln' noch einmal gedrückt wird - da diese nun den Fokus hat -, trotz @SW_DISABLE !
Was soll der Aufruf an dieser Stelle denn bewirken ?
Wie gesagt, die Control...() Funktionen sind sicherer als Send(), da diese nur an das betreffende Fenster gesendet werden.
LG
Greenhorn
