Asistente de botones, ¡ayúdame a resolver problemas de subprocesos múltiples!
¡Los comandos multiproceso son muy problemáticos!
El siguiente es mi código fuente multiproceso para su referencia
DimEnv QA
Llamar a DesertRegister()
Hacer mientras 7 = 7
KEYP = GetLastKey()
Si keyP = 118 entonces
QA = dm.GetMousePointWindow()
Llamar a Plugin.Msg .Tips(QA)
StartThread = BeginThread(iniciar trabajo)
End If
bucle
Sub inicio de trabajo
hwnd = QA
Llamar a Plugin.RegDll.Reg(".RegDll.Reg(".plugin\dm.dll")//crear objeto dm
set dm = createobject("dm.dmsoft")//especifique la ruta global.KeyPress key
End If
Bucle
End Sub
Subenlace
dm_ret = dm.BindWindow(hwn)