True AutoIt multi-threading!

[NHD]

This is my experiment to achieve multi-threading in AutoIt 😅

Source code, usage and examples in this github repo: https://github.com/nomi-san/true-autoit-multi-threading

[Loc]

Up

[GreeNerO]

Like it.I will use it for my projects👍

[milos83]

Nice!

[Biatu]

What if you have a rather large compiled exe? it looks like you would be dealing with AutoIt Exe*N threads. What if you were to modify N_GetBinaryModule so that it detects the script resource and omits it?

[philpw99]

This is AMAZING ! Simple yet powerful ! I wish I had seen this before.

[jaberwacky]

This is great! I love it!

I hope that I'm not asking a newb question ... is there a way to exit a thread?

For instance:

1st thread: I start a thread with a GUI. Then I spawn a 2nd thread from here ...

2nd thread: This thread has a TCPRecv in a loop which is always listening to a networked device. The messages received from this device then go into a shared global queue. The GUI then updates itself based on the messages found in the queue.

3rd thread: Then I want to start a thread from the 2nd thread that will process the messages received from the network (shortens them and converts them from binary). I want to be able to exit that third thread. 

Or does it happen that way and I'm just looking at this all wrong?

The following code does not demonstrate my intentions. Just sharing it for completeness. (Also, it  doesn't actually implement a real queue data structure at the moment.)

expandcollapse popup

#AutoIt3Wrapper_Version=B
#Autoit3Wrapper_Testing=y
#autoit3Wrapper_jump_to_first_error=y
#AutoIt3Wrapper_Run_AU3Check=n
#AutoIt3Wrapper_AU3Check_Parameters=-w 1 -w 2 -w 4 -w 5 -w 6 -w 7 -d

#NoTrayIcon

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

#include "N.au3"

OnAutoItExitRegister(OnAutoItExit)

Global $queue = NGlobal()

NMain("Main")

Func Main()
    GUICreate("EISCP", 520, 350)

    Local Const $edit = GUICtrlCreateEdit('', 10, 10, 500, 330, $ES_AUTOVSCROLL + $WS_VSCROLL)

    GUISetState(@SW_SHOWNORMAL)

    NRun("Recv")

    Do
        Switch GUIGetMsg()
            Case $GUI_EVENT_CLOSE
                Exit
        EndSwitch

        GUICtrlSetData($edit, $queue.Command, 1)

        Sleep(100)
    Until False
EndFunc

Func Recv()
    TCPStartup()

    Local Const $sIPAddress = "192.168.0.209"

    Local Const $iPort = 60128

    Local Const $ConnectedSocket = TCPConnect($sIPAddress, $iPort)

    Local $command

    Do
        $command = TCPRecv($ConnectedSocket, 2048)

        If $command Then
            $queue.Command = ExtractCommand($command)
        EndIf

        Sleep(50)
    Until False
EndFunc

Func ExtractCommand($command)
    $command = BinaryMid($command, 5) ; lop off "ISCP"

    $command = BinaryMid($command, 15)

    $command = BinaryMid($command, 1, BinaryLen($command) - 3)

    Return String(BinaryToString($command))
EndFunc

Func OnAutoItExit()
    TCPShutdown()
EndFunc

 

[SmOke_N]

https://learn.microsoft.com/en-us/windows/win32/api/processthreadsapi/nf-processthreadsapi-terminatethread

TerminateThread, but I read somewhere that GetCurrentThreadId from Kernel32 dll was deprecated, so I can't see "TerminateThread" from the processthreadsapi api being to safe tbh.