Mensajes

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¡.

[NO LO PUEDO COMPROBAR]

Lo siento amigo pero VB6 + Multi Thread = INESTABILIDAD.

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.

Código (vb,16,17) [Seleccionar] Expandir


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...

Pero pues ahi luego seguire lo deje igual como tu dices aunque yo os puse en formato xml :B

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.

Código (ini) [Seleccionar] Expandir



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!¡.

VBS es un script es decir esto va e el subforo de script... pero bueno con esto QUIZAS funcione...

Código (vbs) [Seleccionar] Expandir



ruta = "c:\archivo.txt"
lastattr = GetAttr(ruta)
   SetAttr ruta, lastattr And (Not vbHidden) ' Removemos el atributo oculto si es que lo tiene.
   ' operaciones pertinentes
   SetAttr ruta, lastattr ' Establecemos los atributos originales.



http://psacake.com/web/func/

Dulces Lunas!¡.

Ahora si (vaya después de que le pones colores revienta ojos)...

Otra opción ademas de la que te menciono LeandroA es armarte un protocolo para crear cuentas por winsock (puede ser mas seguro esto que php) y una BDD como MySQL o la que gustes eso seria lo de menos en este momento.

por ejemplo:

*****Creación de cuentas*****
cliente:
  createacc usuario pass (el cliente mandaría esta instrucción, el servidor hace un split separando cada palabra, la primera seria el tag de comando y después sus parámetros en este caso solo dos)

servidor:
  createacc ok (cuenta creada)
  createacc fail "razon"(cuenta no creada, ademas retorna una razón del por que no se creo)


*****Logeo*****

Cliente:
  loginacc usuario contraseña (se manda una cadena similar a esta y el servidor solo hace un split para identificar la 1ra palabra clave y saber que hacer).

Servidor:
   loginacc ok (le indica al cliente que todo esta correcto)
   loginacc fail "razon" (le indica al cliente que no se a podido iniciar session, indica una razon)


Proceso para identificar las palabras clave:

Código (vb) [Seleccionar] Expandir



dim buff as string
const COMMAND  = 0
const PARAMETER_1  = 1
const PARAMETER_2 = 2
const PARAMETER_3 = 3
const PARAMETER_4 = 4
... Recibimos los datos en la variable buff...

divs = split(buff, " ")

select case divs(COMMAND)
case "createacc"
   select case createacc(divs(PARAMETER_1), divs(PARAMETER_2)) ' llamamos al proceso que crea las cuentas.
   case 0
       ' enviamos la cadena loginacc ok
   case 1
       ' enviamos la cedana loginacc fail "exists"
   case 2
       ' enviamos la cedana loginacc fail "createoff"
   end select
case "loginacc"
   select case loginacc(divs(PARAMETER_1), divs(PARAMETER_2)) ' llamamos al proceso que inicia session en las cuentas.
   case 0
       ' enviamos la cadena loginacc ok
       ' asociamos este socket con la cuenta.
   case 1
       ' enviamos la cedana loginacc fail "noexits"
   case 2
       ' enviamos la cedana loginacc fail "userdatafail"
   end select
end select



CyberLink PowerDVD si no mal recuerdo trae dicha opción.

Dulces Lunas!¡.