ammm si el caso era no encapsular la variable por así decirlo también podías usar VirtualAlloc, VirtualFree, ... y para leer y escribir ReadProcessMemory  y WriteProcessMemory o mas simple con GetMem4 y PutMem4 y posiblemente ZeroMemory aun que no es realmente necesaria.

 
puerto = VirtualAlloc(ByVal 0&, &H4&, MEM_COMMIT or MEM_RESERVE, PAGE_READWRITE)
debug.assert puntero = ERROR_INVALID_ADDRESS // linea de depuración: error al asignar la memoria.
 
PutMem4 puntero, 0  // es equivalente a       ZeroMemory puntero, &H4&
GetMem4 puntero, byval varptr (valor)
 // es obligatorio despues de usar virtualAlloc despues de que no se ocupe la memoria pedida...
virtualFree puntero, &h4&, MEM_DECOMMIT
VirtualFree puntero, 0, MEM_RELEASE
 
 

aquí te dejo algo similar a lo que pides solo que yo lo use con LISTAS enlazadas... http://foro.elhacker.net/programacion_visual_basic/src_clistlink_lista_enlazada_mejor_dicho_bloques_enlazados-t339535.0.html

Cuando tenga mi nuevo monitor te hago unas funciones de estilo map.

P.D.: No sirven algunas teclas de mi teclado... por ello te lo pongo de esta manera.

Dulces Lunas¡.

una opción si quieras usar APIS es usar las APIS semáforos... no me se las respectivas APIS pero tienen una similitud con lo que tu deseas, aun que están destinadas a administración de hilos...

igual te dejo este pdf no tiene que ver nada con APIS pero te dará una idea de lo que te menciono.
http://clip.dia.fi.upm.es/~mcarro/Slides/Concurrent_Programming/04-Semaforos/semaforos_handout_4.pdf

Dulces Lunas¡.

No seria mejor crear una clase CONTADORA que se pase por un ¿parámetro/propiedad a una clase que tu quieras? de esta manera en la función finalize llamas a la variable de la clase CONTADORA disminuyendo en 1... por obvias razones al asociar la clase CONTADORA a la clase X aumentaría en 1... otra forma seria crear una CLASE FACTORY y que a este misma se le pueda pasar una CLASE CONTADORA, el trabajo de FACTORY seria crear y asociar TODAS las clases X con una CLASE CONTADORA.

En otras palabras:

 * Clase X <--- Se debe establecer una propiedad o función por la cual se pueda establecer una clase CONTADORA, en su evento finalize debe llamar alguna función o hacer una edición a la variable miembro de la clase CONTADORA para disminuir.
 * Clase FATORY  <--- SOLO se limita a crear y asociar una Clase X con la Clase CONTADORA; se deben crear tantas clases FACTORY como clases X que se deseen administrar... se debe especificar una clase CONTADORA que llevara la función de contar.
 * Clase CONTADORA <-- Solo cuenta Sin importar el tipo de clase que sea, tambien puede estar dirigida a generar eventos...

NOTA: FACTORY y CONTADORA pueden fusionarse para facilidad de analogía...

LO MALO DE VB6 es que las declaraciones friend no funcionan como deberían...

Dulces Lunas¡

OJO si quieres usar multihilos en vb6 es mejor usar las dll creadas en C recomendablemente y que estas creen un hilo... un desmadre y rompe cocos inútil por las limitaciones.

Dulces Lunas¡.

eso solo es cuando uno los crea en código... pero de hecho vb6 al-parecer se puede configurar para que manipule/cree/destruya los hilos automáticamente... NO LO PUEDO COMPROBAR por que me quede sin monitor, la furia lo rompió .

ABRE EL ARCHIVO .vbp busca la linea MaxNumberOfThreads=1 Si no encuentras la linea agregala, dicho archivo tiene un contenido SIMILAR a este:

Me parece que tambien esto afecta en la linea: ThreadPerObject=0.

Type=Exe
... Aquí hay mas lineas...
CompilationType=0
OptimizationType=0
FavorPentiumPro(tm)=0
CodeViewDebugInfo=0
NoAliasing=0
BoundsCheck=0
OverflowCheck=0
FlPointCheck=0
FDIVCheck=0
UnroundedFP=0
StartMode=0
Unattended=0
Retained=0
ThreadPerObject=0
MaxNumberOfThreads=1
 

Cambia el 1,0 por el numero de hilos que desees... NO TENGO IDEA si esto funcione si alguien lo prueba por favor comente.

Dulces Lunas¡.

Una vez cargados solo hay que aplicar una lógica a llamadas de funciones como ya te mencione... siempre tendremos que meterle mano a los archivos de configuración nos guste o no...


No importa el formato yo preferí el .ini, bueno ni es de formato ini de hecho solo son lineas que lo puedo programar de una manera tan simple como un .ini... leer linea a linea...

Dulces Lunas¡¡.

@Brian1511 si te das cuenta este método es muy simple y a si parecer es una buena opción para los ejecutables tipo ACTIVEX cuando no sean de este tipo, es mejor usar PIPES winsock seria para otras cosillas aun que también es valido.

 * TODO LO QUE SE TE CRUCE POR LA MENTE ES VALIDO siempre y cuando la latencia sea mínima.

Dulces Lunas¡.

Si no mal recuerdo el chavo programo cada carta... no tengo idea si actualmente es así...

Aun así yo en lo personal PARSE TODOS los datos de una web wiki en un .ini... (lo automatice no estoy loco para hacerlo manualmente)

por ejemplo:

imagen: Black Brutdrago.jpg
Configuración; Black Brutdrago.jpg.ini

Contenido del .ini.

 
cardname	 =  	Black Brutdrago
Card Category	 =  	Monster Cards
ATK	 =  	3000
DEF	 =  	2600
Level	 =  	8
Card Type	 =  	Synchro Monsters
Card Number	 =  	96029574
Spanish Name	 =  	
Atributos	 =  	FIRE
Actions	 =  	Discards for cost
Anti-Support	 =  	No Entry
Archetype Related	 =  	No Entry
Archetypes Support	 =  	No Entry
Attack	 =  	No Entry
Counters	 =  	No Entry
Effect type	 =  	Ignition Monster Effects
Effect type	 =  	Trigger Monster Effects
Types	 =  	Dragon
Types	 =  	Synchro
Types	 =  	Effect
Type	 =  	Dragon
Synchro Material	 =  	No Entry
Stats	 =  	No Entry
Archetype Related	 =  	No Entry
Archetypes	 =  	No Entry
Archetypes Support	 = 	No Entry
Life Points	 =  	No Entry
MonsterSpellTrap	 =  	Destroys Spell Cards
MonsterSpellTrap	 =  	Destroys Trap Cards
RFP	 =  	No Entry
Summoning	 =  	Special Summons from your Graveyard
Fusion Material	 =  	No Entry
Descripcion: 	 =  	1 Tuner + 1 or more non-Tuner [[Gemini  … 1 Tuner + 1 or more non-Tuner Gemini monstersOnce per turn, you can send 1 Gemini monster from your hand to the Graveyard to select and destroy 1 Spell or Trap Card your opponent controls. When this card is destroyed and sent to the Graveyard, you can select 1 Gemini monster in your Graveyard and Special Summon it. The Special Summoned Gemini monster is treated as an Effect Monster, and gains its effect.  Effect Monster, and gains its effect.
 
 

Ahora con solo esos datos solo tendría que programar cada efecto según parámetros...

En esta carta hay dos efectos:

Effect type    =     Ignition Monster Effects
Effect type    =     Trigger Monster Effects

Afectando según a esto:

MonsterSpellTrap    =     Destroys Spell Cards
MonsterSpellTrap    =     Destroys Trap Cards

y aun dice que su acción tiene un costo:

Actions    =     Discards for cost

* PERO CLARO aun así se necesitan mas detalles... puesto que el efecto implica a ciertas cartas que no están especificas...

Dulces Lunas!¡.

Lo que te deje esta en los huesos... necesita órganos (lógica de las funciones createacc(), loginacc(), ogica de la BDD, desarrollar mas la lógica cliente-servidor, etc...)!¡.

Dulces Lunas!¡.

Cierto, si no mal recuerdo, aprender sobre este tema cliente-servidor se toma su tiempo...

Dulces Lunas!¡.