Beiträge von whoami

  • Button

    Hallo,

    ich habe eine Frage bezüglich Buttons.
    Ist es möglich mit einem Button einen Button zu
    erstellen und diesen dann zu benutzen?
    Ich habe mal angefangen mit ein bisschen Code, mein
    Problem ist nur, ich kann einen Button erstellen ihn aber nicht
    ansprechen da er ja immer mit der gleichen Variable erstellt wird.

    Spoiler anzeigen
    [autoit]

    GUICreate("GSD",310,300) ; Erstellt die Gui
    GUISetState(@SW_SHOW) ; Macht die Gui sichtbar

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

    $x = 10
    $y = 30

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

    ; Die Schleife wiederholt sich, bis der Benutzer die Beenden-Aktion der GUI auslöst

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

    $Button_1 = GUICtrlCreateButton("New File", $x, $y, 100)
    $btn_Exit = GUICtrlCreateButton("Exit", 200, $y, 100)

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

    Func NewButton_N()
    $y = $y + 30
    $Button2 = GUICtrlCreateButton("...", $x, $y, 100)
    EndFunc

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

    While 1
    $msg = GUIGetMsg()
    Select
    Case $msg = $Button_1
    NewButton_N()
    Case $msg = $btn_Exit
    Exit
    EndSelect
    WEnd

    [/autoit]

    Danke schonmal für eure Hilfe :)

  • TCP Verbindung VMWare

    Hallo Autoit Forum,

    ich habe eine Frage bezüglich der Verwendung einer VM als Server.

    MEIN PC --> Windows 7 --> Client
    MEIN PC --> Windows 7 --> VM --> Windows 7 --> Server

    Ich habe das problem das wenn ich mein client Skript ausführe
    die Anfrage nicht am server ankommt. Kann mir da vll. jemand
    helfen.

    Client:

    $ip = 'IP Adresse vom in VM laufendem Windows 7'
    TCPStartUp()

    Do
    $TCPConnect = TCPConnect($ip,45670)
    If @error Then
    MsgBox(64,"Error!","konnte nicht verbinden :")
    EndIf
    Until $TCPConnect <> -1

    $TCPSend = TCPSend($TCPConnect,"First text on moon")

    TCPShutdown()

    Server:

    $ip = 'IP Adresse vom in VM laufendem Windows 7'
    TCPStartUp()

    $MainSocket = TCPListen($ip, 45670, 100 )

    while 1
    $TCPAccept = TCPAccept($MainSocket)
    If @error then
    MsgBox(64,"Error","error")
    EndIf
    WEnd

    $TCPRecv = TCPRecv($TCPAccept,2048)

    If $TCPRecv <> "" Then
    MsgBox(0,"Info","Text erhalten :" & $TCPRecv)
    EndIf


    TCPShutdown()

    Schonmal Danke ;)