Beiträge von BugFix

  • Gibt es eine unveränderbare Textbox?

    Du mußt den Style anpassen:

    Spoiler anzeigen
    [autoit]

    #include <EditConstants.au3>
    #include <WindowsConstants.au3>
    GUICreate('test')
    $hEdit = GUICtrlCreateEdit('', 10,10,300,300, BitOR($WS_VSCROLL,$ES_READONLY)) ; nur Vertikal-Scroll, horizontal Umbruch
    ;~ $hEdit = GUICtrlCreateEdit('', 10,10,300,300, BitOR($WS_HSCROLL,$WS_VSCROLL,$ES_READONLY)) ; Scroll horizontal und vertikal
    GUISetState()

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

    Local $text = _
    'Opt("CaretCoordMode", 1) ;1=absolute, 0=relative, 2=client' & @CRLF & _
    'Opt("ExpandEnvStrings", 0) ;0=dont expand, 1=do expand' & @CRLF & _
    'Opt("ExpandVarStrings", 0) ;0=dont expand, 1=do expand' & @CRLF & _
    'Opt("FtpBinaryMode", 1) ;1=binary, 0=ASCII' & @CRLF & _
    'Opt("GUICloseOnESC", 1) ;1=ESC closes, 0=ESC wont close' & @CRLF & _
    'Opt("GUICoordMode", 1) ;1=absolute, 0=relative, 2=cell' & @CRLF & _
    'Opt("GUIDataSeparatorChar","|") ;"|" is the default' & @CRLF & _
    'Opt("GUIOnEventMode", 0) ;0=disabled, 1=OnEvent mode enabled' & @CRLF & _
    'Opt("GUIResizeMode", 0) ;0=no resizing, <1024 special resizing' & @CRLF & _
    'Opt("GUIEventOptions",0) ;0=default, 1=just notification, 2=GuiCtrlRead tab index' & @CRLF & _
    'Opt("MouseClickDelay", 10) ;10 milliseconds' & @CRLF & _
    'Opt("MouseClickDownDelay", 10) ;10 milliseconds' & @CRLF & _
    'Opt("MouseClickDragDelay", 250) ;250 milliseconds' & @CRLF & _
    'Opt("MouseCoordMode", 1) ;1=absolute, 0=relative, 2=client' & @CRLF & _
    'Opt("MustDeclareVars", 0) ;0=no, 1=require pre-declare' & @CRLF & _
    'Opt("OnExitFunc","OnAutoItExit");"OnAutoItExit" called' & @CRLF & _
    'Opt("PixelCoordMode", 1) ;1=absolute, 0=relative, 2=client' & @CRLF & _
    'Opt("SendAttachMode", 0) ;0=dont attach, 1=do attach' & @CRLF & _
    'Opt("SendCapslockMode", 1) ;1=store and restore, 0=dont' & @CRLF & _
    'Opt("SendKeyDelay", 5) ;5 milliseconds' & @CRLF & _
    'Opt("SendKeyDownDelay", 1) ;1 millisecond' & @CRLF & _
    'Opt("TCPTimeout",100) ;100 milliseconds' & @CRLF & _
    'Opt("TrayAutoPause",1) ;0=no pause, 1=Pause' & @CRLF & _
    'Opt("TrayIconDebug", 0) ;0=no info, 1=debug line info' & @CRLF & _
    'Opt("TrayIconHide", 0) ;0=show, 1=hide tray icon' & @CRLF & _
    'Opt("TrayMenuMode",0) ;0=append, 1=no default menu, 2=no automatic check, 4=menuitemID not return' & @CRLF & _
    'Opt("TrayOnEventMode",0) ;0=disable, 1=enable' & @CRLF & _
    'Opt("WinDetectHiddenText", 0) ;0=dont detect, 1=do detect' & @CRLF & _
    'Opt("WinSearchChildren", 1) ;0=no, 1=search children also' & @CRLF & _
    'Opt("WinTextMatchMode", 1) ;1=complete, 2=quick' & @CRLF & _
    'Opt("WinTitleMatchMode", 1) ;1=start, 2=subStr, 3=exact, 4=advanced, -1 to -4=Nocase' & @CRLF & _
    'Opt("WinWaitDelay", 250) ;250 milliseconds'
    GUICtrlSetData($hEdit, $text)

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

    Do
    Until GUIGetMsg() = -3

    [/autoit]

  • zu OPC Server verbinden

    Also ich muß sagen, außer bei AutoIt :D habe ich bisher keine solch hervorragende Dokumentation gesehen. Auf 100 Seiten alle Methoden fein säuberlich mit Syntaxbeispielen dargestellt. Respekt :thumbup:
    Wirf mal einen Blick in unsere Datenbank-Hilfe, die Vorgehensweise ist analog.

  • zu OPC Server verbinden

    Also ich hab mir mal die Dokumentation (http://gray-box.net/download_daawrapper.php?lang=en) angeschaut, sollte kein Problem darstellen:

    [autoit]

    ; - copy gbda_aut.dll to Windows\System32 folder;
    ; - register this module - enter regsvr32 gbda_aut.dll in the command line.
    $oOPCServer = ObjCreate("Graybox.OPC.DAWrapper")
    $ARealOPCServer = "VendorX.DataAccessCustomServer"
    $ARealOPCNodeName = "SomeComputerNodeName"
    $oOPCServer.Connect ($ARealOPCServer, $ARealOPCNodeName)

    [/autoit]

  • NetworkConnection

    Also du hast ja hier eine Fleißarbeit abgeliefert :rolleyes: aber ich verstehe nicht so recht den Sinn, mit einem AutoIt-Kommandozeilen-Tool das Windows-Kommandozeilen-Tool netsh zu bedienen. Was spricht dann dagegen gleich netsh zu nutzen?

  • Idee fürs forum

    Also grundsätzliche halte ich auch nichts davon, wenn durch solch einen Button "Qualifizierungen" gepusht werden.
    Ich denke, wenn man in dem Forum eine Weile unterwegs ist, weiß man von wem fundierte Antworten kommen oder bei wem die vielen Posts doch mehr durch Fragen entstanden sind.
    Mal als Bsp.: AspirinJunkie hat man gerade etwas über 300 Posts. Aber das ist absolut nicht aussagefähig in Bezug auf sein Können - denn das ist super.
    Also sollten wir uns statt auf numerische Größen in diesem Fall lieber auf den gesunden Menschenverstand verlassen. ;)
    Und wem das Schreiben eines Danke zu viel ist, der kann doch auch mit einem Klick dieses als Dank verwenden: :thumbup:

  • GDI+ Graphic abspeichern

    Kann dir leider nur bestätigen, dass auch bei mir nur pures Schwarz gespeichert wird.
    Ich sehe adhoc aber keinen Unterschied zum Hilfe-Bsp. - Handle existiert und wird korrekt an _GDIPlus_ImageSaveToFile übergeben.
    :(

    Hier mal eine Alternativlösung, macht zwar nicht glücklich - aber funktioniert.

    Spoiler anzeigen
    [autoit]

    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #include <GDIPlus.au3>
    #include <GUIConstantsEx.au3>
    #Include <ScreenCapture.au3>

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

    $hGui1 = GUICreate('test', 540, 540, -1, -1)
    _GDIPlus_Startup ()
    $hGraphic1 = _GDIPlus_GraphicsCreateFromHWND(WinGetHandle($hGui1))
    _GDIPlus_GraphicsSetSmoothingMode($hGraphic1, 2)
    $hPen = _GDIPlus_PenCreate(0xcc000000, 2)
    Global $ahBrush[4]
    $ahBrush[0] = _GDIPlus_BrushCreateSolid(0xffffffff)
    $ahBrush[1] = _GDIPlus_BrushCreateSolid(0xff42b8c8)
    $ahBrush[2] = _GDIPlus_BrushCreateSolid(0xffff1a10)
    $ahBrush[3] = _GDIPlus_BrushCreateSolid(0xfffef433)

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

    GUIRegisterMsg($WM_PAINT, 'MY_WM_PAINT')
    GUISetState()

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

    If FileExists(@ScriptDir & '\pic.jpg') Then FileDelete(@ScriptDir & '\pic.jpg')

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

    $iHeightTitle = Floor(_WinAPI_GetSystemMetrics(4)/2)
    $hBitmap0 = _ScreenCapture_Capture ("", (@DesktopWidth/2)-270, (@DesktopHeight/2)-270 +$iHeightTitle, _
    (@DesktopWidth/2)+270, (@DesktopHeight/2)+270 -$iHeightTitle, False)
    $hImage1 = _GDIPlus_BitmapCreateFromHBITMAP ($hBitmap0)

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

    ; wie kann man die erzeugte Graphic in eine Datei speichern?
    ;~ $hImage1 = _GDIPlus_BitmapCreateFromGraphics(540, 540, $hGraphic1) ; das hier
    _GDIPlus_ImageSaveToFile($hImage1, @ScriptDir & '\pic.jpg') ; klappt nicht.

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

    Do
    Until GUIGetMsg() = -3

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

    _GDIPlus_PenDispose($hPen)
    For $i = 0 To UBound($ahBrush) -1
    _GDIPlus_BrushDispose($ahBrush[$i])
    Next
    _GDIPlus_ImageDispose($hImage1)
    _GDIPlus_GraphicsDispose($hGraphic1)
    _GDIPlus_Shutdown()

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

    Func MY_WM_PAINT($hWnd, $Msg, $wParam, $lParam)
    _GDIPlus_GraphicsFillRect($hGraphic1, 0, 0, 540, 540, $ahBrush[0])
    _GDIPlus_GraphicsDrawEllipse($hGraphic1, 30, 30, 480, 480, $hPen)
    _GDIPlus_GraphicsFillEllipse($hGraphic1, 31, 31, 478, 478, $ahBrush[0])
    _GDIPlus_GraphicsDrawEllipse($hGraphic1, 54, 54, 432, 432, $hPen)
    _GDIPlus_GraphicsFillEllipse($hGraphic1, 55, 55, 430, 430, $ahBrush[0])
    _GDIPlus_GraphicsFillEllipse($hGraphic1, 78, 78, 384, 384)
    _GDIPlus_PenSetColor($hPen, 0xddffffff)
    _GDIPlus_GraphicsDrawEllipse($hGraphic1, 102, 102, 336, 336, $hPen)
    _GDIPlus_GraphicsFillEllipse($hGraphic1, 103, 103, 334, 334)
    _GDIPlus_PenSetColor($hPen, 0xcc000000)
    _GDIPlus_GraphicsDrawEllipse($hGraphic1, 126, 126, 288, 288, $hPen)
    _GDIPlus_GraphicsFillEllipse($hGraphic1, 127, 127, 286, 286, $ahBrush[1])
    _GDIPlus_GraphicsDrawEllipse($hGraphic1, 150, 150, 240, 240, $hPen)
    _GDIPlus_GraphicsFillEllipse($hGraphic1, 151, 151, 238, 238, $ahBrush[1])
    _GDIPlus_GraphicsDrawEllipse($hGraphic1, 174, 174, 192, 192, $hPen)
    _GDIPlus_GraphicsFillEllipse($hGraphic1, 175, 175, 190, 190, $ahBrush[2])
    _GDIPlus_GraphicsDrawEllipse($hGraphic1, 198, 198, 144, 144, $hPen)
    _GDIPlus_GraphicsFillEllipse($hGraphic1, 199, 199, 142, 142, $ahBrush[2])
    _GDIPlus_GraphicsDrawEllipse($hGraphic1, 222, 222, 96, 96, $hPen)
    _GDIPlus_GraphicsFillEllipse($hGraphic1, 223, 223, 94, 94, $ahBrush[3])
    _GDIPlus_GraphicsDrawEllipse($hGraphic1, 246, 246, 48, 48, $hPen)
    _GDIPlus_GraphicsFillEllipse($hGraphic1, 247, 247, 46, 46, $ahBrush[3])
    _GDIPlus_PenSetColor($hPen, 0xcc000000)
    _GDIPlus_GraphicsDrawEllipse($hGraphic1, 258, 258, 24, 24, $hPen)
    _GDIPlus_GraphicsFillEllipse($hGraphic1, 259, 259, 22, 22, $ahBrush[3])
    _GDIPlus_GraphicsDrawLine($hGraphic1, 266, 270, 274, 270, $hPen)
    _GDIPlus_GraphicsDrawLine($hGraphic1, 270, 266, 270, 274, $hPen)
    Return $GUI_RUNDEFMSG
    EndFunc

    [/autoit]

  • Oracle ListBox Installation

    Der Rückgabewert bringt:
    "Returns occurrence ref of the exact string in a ListBox or ComboBox"
    Bedeutet in deinem Fall, Vorkommen = 0, also genauer String nicht in List- od. ComboBox gefunden.
    Laß dir mal zusätzlich "@error" ausgeben. Wenn der Wert 1 ist, wurde das Control nicht gefunden.