Multi-process DNS resolving

[Ebola57]

Hi community

I intend to do mass DNS resolving. It has to be very fast because of its quantity (about 2000)
Currently I am openning parallelized "ping" and listen to them. Got a result of 1700 answers for 40 seconds
Above 50 ping processes performances started to decrease

I was minding using TCPNameToIP function wit forcing it to output result in STDOUT

Slave process

#AutoIt3Wrapper_Change2CUI=y
#include <Array.au3>

While 1
    TCPStartup ( )
    Local $sRes = TCPNameToIP ( $CmdLine [1] )
    If Not @error Then
        ConsoleWrite ( $sRes & @CRLF )
    Else
        ConsoleWrite ( "-1" & @CRLF )
    EndIf
    TCPShutdown ( )
WEnd

Main

Local $sHost_To_Check = "www.google.com"
While 1
    Local $tPing = Run ( @ScriptDir & "\TCPNameToIP.exe " & $sHost_To_Check, @SystemDir, @SW_HIDE, $STDERR_MERGED )
    $sStdout = StdoutRead ( $tPing )
    ConsoleWrite ( $sStdout & @CRLF )
WEnd

It looks to be hard to listen to result as process close immediately after sending result

Would you please help me with this purpose ?
May be telling me what is the best way to achieve my goal

Regards

Edited December 16, 2022 by Ebola57

[Nine]

First you need to add a ProcessWaitClose in your main script.  Second why is there a while loop in your slave ?

[Ebola57]

Thanks for suggestion, sound as an evidence now

The while loop in slave was a try to keep process alive, but in a bad way,