Código fuente multiproceso

¡Los comandos multiproceso son muy confusos! !

El siguiente es mi código fuente multiproceso para su referencia.

DimEnv QA

Llamar a DesertRegister()

Hacer cuando 7 = 7

KEYP = GetLastKey()

Si keyP = 118, entonces

QA = dm. GetMousePointWindow()

Llama al complemento. Mensaje de mensaje (garantía de calidad)

Iniciar hilo = BeginThread (iniciar trabajo)

Terminará si...

Timbre

Submarine comienza a trabajar

hwnd = QA

Callplugin.regdll.reg(".\plugin\desert dream\dm.dll")//Crea un objeto desértico.

set DM = createobject(" DM . dmsoft ")//Especifique la ruta global.

Retraso 200

Enlace de llamada

Retraso 10

Hacer

tecla = GetLastKey()

p>

Llame al complemento. Mensaje de mensaje (tecla)

Retraso 500

Llame al complemento. Mensaje emergente ("")

Si la clave lt gt118 y la CLAVE lt gt entonces 123

dm. Tecla clave

Terminará si...

Bucle

Conector final

Subenlace

dm_ret = dm . BindWindow(hwnd, "normal", "normal", "dx", 0)

Retraso 200

Si dm_ret=0, entonces

MessageBox "Bind "Fallo definitivo"

ExitScript

Terminará si...

Finalizar conector

AsiaDesertRegistration()

PutAttachment".\plugin"," *.dll "

PutAttachment".\plugin\Desert Dream", "*.bmp "

PutAttachment".\plugin\Desert Dream"," *.txt "

PutAttachment"\Plug-in\Desert Dream"," dm.dll "

//Escribir // ↑PutAttachmentPublish Adjunto

//95d 4 ca 3b 477 fc 3 f 5140 b 48 b5 d 4 3170 bCódigo clave de registro de atención al cliente

//a79d 9 f 5 DFFD 168854 ea 7 be 3f 2 ea 35e 1Código de registro privado .

Callplugin.regdll.reg(".\plugin\desert dream\dm.dll")//Crea un objeto desértico.

set DM = createobject(" DM . dmsoft ")//Especifique la ruta global.

//=Registro del desierto

Retraso 40

Conector final

//Suelta ventana de enlace

Sub OnScriptExit()

dm_ret = dm. Desvincular ventana()

Conector final