Beiträge von Greenhorn

#include <GUIConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiListBox.au3>
#include <GuiMenu.au3>
#include <MsgBoxConstants.au3>
#include <WindowsConstants.au3>

Global $idMenuItem [60]
Global $idLB = 100
Global $hwndLB = 0


$hGUI = GUICreate("Test", 400, 600, 0, 0)

$hwndLB = _WinAPI_CreateWindowEx ( _
            BitOR ($WS_EX_TOPMOST, $WS_EX_TOOLWINDOW), "ComboLBox", "", _
            BitOR ($LBS_NOTIFY, $LBS_COMBOBOX, $WS_BORDER, $WS_CLIPSIBLINGS, $WS_CHILD, $WS_VSCROLL), _
            450, 0, 250, 500, _
            $hGUI, $idLB, _
            _WinAPI_GetModuleHandle (0), _
            0 _
            )

_GUICtrlListBox_BeginUpdate($hwndLB)
For $i = 1 To 60
   _GUICtrlListBox_AddString($hwndLB, StringFormat("%03d : Random string", Random(1, 100, 1)))
Next
_GUICtrlListBox_EndUpdate($hwndLB)

_WinAPI_SetParent ($hwndLB, 0)


#Region Button

$1bh = GUICtrlCreateButton("Test 1", 100, 118, 60, 40)
$1Context = GUICtrlCreateContextMenu($1bh)

For $i = 0 To UBound ($idMenuItem) - 1
    $idMenuItem[$i] = GUICtrlCreateMenuItem(StringFormat ("Line Test %d", Random (1, 5)), $1Context)
Next
GUICtrlSetFont($1bh, 8.5, 500, 0, "")
#EndRegion Button


GUISetState(@SW_SHOW)

While 1
    Sleep(10)
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $1bh
            _WinAPI_ShowWindow ($hwndLB, @SW_SHOWDEFAULT)
            ;ShowMenu($hGUI, $nMsg, $1Context)
        Case $idMenuItem[0] To $idMenuItem[ UBound ($idMenuItem) - 1]
            GUICtrlSetData($1bh, _GUICtrlMenu_GetItemText (GUICtrlGetHandle($1Context), $idMenuItem[$nMsg], 0))
    EndSwitch
WEnd

#Region Func
Func ShowMenu($hWnd, $CtrlID, $nContextID)
    Local $arPos, $x, $y
    Local $hMenu = GUICtrlGetHandle($nContextID)

    $arPos = ControlGetPos($hWnd, "", $CtrlID)

    $x = $arPos[0]
    $y = $arPos[1] + $arPos[3]

    ClientToScreen($hWnd, $x, $y)
    TrackPopupMenu($hWnd, $hMenu, $x, $y)
 EndFunc   ;==>ShowMenu
; Convert the client (GUI) coordinates to screen (desktop) coordinates
Func ClientToScreen($hWnd, ByRef $x, ByRef $y)
    Local $stPoint = DllStructCreate("int;int")

    DllStructSetData($stPoint, 1, $x)
    DllStructSetData($stPoint, 2, $y)

    DllCall("user32.dll", "int", "ClientToScreen", "hwnd", $hWnd, "ptr", DllStructGetPtr($stPoint))

    $x = DllStructGetData($stPoint, 1)
    $y = DllStructGetData($stPoint, 2)
    ; release Struct not really needed as it is a local
    $stPoint = 0
EndFunc   ;==>ClientToScreen
; Show at the given coordinates (x, y) the popup menu (hMenu) which belongs to a given GUI window (hWnd)
Func TrackPopupMenu($hWnd, $hMenu, $x, $y)
    DllCall("user32.dll", "int", "TrackPopupMenuEx", "hwnd", $hMenu, "int", 0, "int", $x, "int", $y, "hwnd", $hWnd, "ptr", 0)
EndFunc   ;==>TrackPopupMenu
#EndRegion Func

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <AutoItConstants.au3>
#include <FileConstants.au3>
#include <MsgBoxConstants.au3>

; Register OnAutoItExit to be called when the script is closed.
OnAutoItExitRegister("OnAutoItExit")

Opt("GUIOnEventMode", 1)

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Netzwerk Test Terminal", 1357, 864, 300, 120)                                ;Programmfenster
GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")


$Edit1 = GUICtrlCreateEdit("", 104, 88, 873, 529)                                                ;Ergebnistestfeld
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")                                                    ;Schriftart

$IP_Adress = GUICtrlCreateLabel("IP Adresse", 104, 50, 92, 20)                                    ;Label IP Adresse
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")                                                    ;Schriftart
$TextBox_IP_Adress = GUICtrlCreateEdit("", 200, 50, 209, 20, $ES_WANTRETURN)                    ;Eingabefeld IP Adresse
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")                                                    ;Schriftart

$Port = GUICtrlCreateLabel("Port", 427, 50, 40, 20)                                                ;Label Port
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")                                                    ;Schriftart
$TextBox_Port = GUICtrlCreateEdit("", 475, 50, 113, 20, $ES_WANTRETURN)                            ;Eingabefeld Port
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")                                                    ;Schriftart

$Button_Start_Client = GUICtrlCreateButton("Client Start", 616, 40, 121, 33)                    ;Button Start Client
GUICtrlSetOnEvent(-1, "ClientStart")
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")                                                    ;Schriftart

$Button_Stop_Client = GUICtrlCreateButton("Client Stopp", 752, 38, 121, 33)                        ;Button Stopp Client
GUICtrlSetOnEvent(-1, "ClientStop")
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")                                                    ;Schriftart

GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

;----------------------------------------------------Globale Variablen --------------------------------------------------------------------------

Global $bClientStop = 0

;--------------------------------------------------- Programmschleife ---------------------------------------------------------------------------
While 1
    Sleep (100)
WEnd

;---------------------------------------------------   Example     ----------------------------------------------------------------------------

Func Example()

    TCPStartup() ; Start the TCP service.

    ;Adresseingabe des Servers
    Local $sIPAddress = GUICtrlRead($TextBox_IP_Adress)                            ;Server IP-Adresseingabe von Textfeld
    Local $iPort = GUICtrlRead($TextBox_Port)                                     ;Porteingabe von Textfeld

    ; Assign a Local variable the socket and connect to a listening socket with the IP Address and Port specified.
    Local $iSocket = TCPConnect($sIPAddress, $iPort)
    Local $iError = 0

    ; If an error occurred display the error code and return False.
    If @error Then
        ; The server is probably offline/port is not opened on the server.
        $iError = @error
        MsgBox(BitOR($MB_SYSTEMMODAL, $MB_ICONHAND), "", "Client:" & @CRLF & "Could not connect, Error code: " & $iError)
        Return False
    EndIf

    ; Assign Locales Constant variables the number representing 4 KiB; the binary code for the end of the file and the length of the binary code.
    Local Const $i4KiB = 4096
    Local Const $bEOF = Binary(@CRLF & "{EOF}")
    Local Const $iEOFLen = BinaryLen($bEOF)

    ; Assign a Local variable the empty binary data which will contain the binary data of the file.
    Local $bData = Binary("")

    ; Assign a Local variable to store the length of the data received.
    Local $iDataLen = 0

    Do
        $bData = TCPRecv($iSocket, $i4KiB, $TCP_DATA_BINARY)

        ; If an error occurred display the error code and return False.
        If @error Then
            $iError = @error
            MsgBox(BitOR($MB_SYSTEMMODAL, $MB_ICONHAND), "", "Client:" & @CRLF & "Connection lost, Error code: " & $iError)
            Return False
        EndIf

        $iDataLen = BinaryLen($bData)

         ; If nothing is received, retry for the incoming data.
        If $iDataLen = 0 Then ContinueLoop

        TextboxWrite(BinaryToString($bData), $Edit1)

    Until $bClientStop
    $bClientStop = 0

    ; Close the socket.
    TCPCloseSocket($iSocket)
EndFunc   ;==>Example

Func OnAutoItExit()
    TCPShutdown() ; Close the TCP service.
EndFunc   ;==>OnAutoItExit


;---------------------------------- Schreibfunktion in Textfeld ---------------------------------------------------------------------

; Write a line to the memo control
Func TextboxWrite($sMessage, $idTextfeld)
      GUICtrlSetData($idTextfeld, $sMessage & @CRLF, 1)                    ;Funktion zum Anzeigen der in $sMessage übergebenen Nachricht an in $idTextfeld angegebenes Textfeld
EndFunc

Func ClientStart()
    TextboxWrite(GUICtrlRead($TextBox_IP_Adress),$Edit1)
    TextboxWrite(GUICtrlRead($TextBox_Port),$Edit1)
    Example()
EndFunc

Func ClientStop()
    $bClientStop = 1
EndFunc

Func _Exit()
    ClientStop()
    Exit
EndFunc

#AutoIt3Wrapper_Res_Icon_Add="ICON8034_1.ico", 201    ; Use values above 200
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>


Example()

Func Example()
    GUICreate("My GUI") ; will create a dialog box that when displayed is centered

    GUICtrlCreateButton("my picture button", 10, 20, 40, 40, $BS_ICON)
    GUICtrlSetImage(-1, @ScriptFullPath, 201)

    GUISetState(@SW_SHOW)

    ; Loop until the user exits.
    While 1
        Switch GUIGetMsg()
            Case $GUI_EVENT_CLOSE
                ExitLoop

        EndSwitch
    WEnd
EndFunc   ;==>Example