Temas

Hola, tengo la siguiente consulta SQL en la cual busco solo algunos datos de diferentes tablas:

Código (sql) [Seleccionar] Expandir



SELECT PAGO.importe,PAGO.fecha_reg, EMPLEADO.nombre, EMPLEADO.apellido, CLIENTE.nombre, CLIENTE.apellido, PRESTAMO.importe, PRESTAMO.fecha_reg FROM PRESTAMOS PRESTAMO, PAGOS PAGO, CLIENTES CLIENTE, EMPLEADOS EMPLEADO WHERE PAGO.id = 1 AND CLIENTE.id = PAGO.id_cliente AND PRESTAMO.id = PAGO.id_prestamo



En la cual obtengo lo siguiente:


https://prnt.sc/jzl6at


Hasta ahí todo bien.
Pero a la hora de identificar el nombre y apellido del cliente y del empleado no puedo ya que en las tablas se llama igual y también con el préstamo y el pago en la parte del dinero se llama importe.
Entonces quiero saber como puedo poner que sea:

Empleado.nombre, Empleado.apellido
Cliente.nombre, Cliente.apellido
Prestamo.importe
Pago.importe

Como hago esto.
Muchas gracias de ante mano.

Hola muy buenas tardes o noche segun su horario.

Bueno pues estoy en el desarollo de un juego, y ahora me gustaria crear por asi decirlo una lista con las salas creadas por los usuarios.

E creado una grafica para que tengan mas o menos la idea de que busco porque no puedo hacerlo en un listview, listbox o otro control parecido.

[img]http://prntscr.com/b438q9[img]

Y pues lo que me gustaria hacer es que en el picturebox se agregen items exactamente como los otros pero que cada uno tenga su distinta informacion es decir que cada item(Frame) tenga los datos de los 2 jugadores en esa sala y que se puedan desplazar con el scroll.

Lo que e echo hasta ahora es ponerle el indice 0 a todos los controles y luego cargarlos con un load() pero no me funciona :/


===================

Disculpen sin querer cree 2 post identicos, algun moderador que elimine este post porfavor!


Si alguien pudiece ayudarme sera de gran utilidad para mi.
Gracias por leer.

Hola.
estuve dias buscando esto pero no encuentro nada exacto!
Pido que no sea por OXC o DLLs porque algunas PC aveces no puenen registrarlo!

Hola un largo tiempo sin pasar por aquí.
Mi problema es el siguiente:
Tengo 4 archivos:
-generar.php
-descargar.php
-template.js
-mod.js

Bien lo que intento hacer es que generar.PHP abra el template.js y lo pegue en una variable la cual pueda usar para agregar unas líneas al final del templete.js y guardarlo en mod.js para posteriormente descargarlo.

Tengo esto:

Código (php) [Seleccionar] Expandir




<?php 
$mod = "";
$username='"test"';
$code = '"FA82BA8V1BI0SBA8RAVA"';

$f=fopen("template.js","r") or exit("Unable to open file!");
while (!feof($f))
{
$x=fgetc($f);
$mod = nl2br($x);
// The line above stores a character in $x.
echo $con= $mod ." ModLoader.username=".$username."; var ModLoader.code=".$code.";";
}

$a=fopen("mod.js","w");
fclose($a);

echo $con;

fclose($f);



//file_put_contents('mod.js',$con);

echo '<br>Gracias por descargar Mod.js<br>';
echo '<a href="descargar.php?file=mod.js">Descargar</a>';
?>


Hola amigos espero que me puedan ayudar con esta incognita que tengo ahora.

Quiero saber como con javascript puedo hacer un Split que me obtenga datos como los de un archivo INI que seria mas o menos haci:

Código [Seleccionar] Expandir

[Config]
Opcion1=1234
Opcion2=5678

[Paths]
Path1=/juegos/
Path2=/musica/


Algo haci entonces quiero de este string obtener los valores ejemplo:

Código [Seleccionar] Expandir


-1234
-5678

-/juegos/
-/musica/


Ya se como cargar el archivo solo quiero saber como obtener estos datos mediante splits?

Gracias y un saludo!

Hola que tal, bueno anteriormente al parecer habia puesto un post en este foro que no iba, pero es que en este es el unico que me ayudan.

Tengo esta array:

Código (javascript) [Seleccionar] Expandir


var AttackType = {
Water : {
name: "Water",
bubble: ["Burbujas",0],
waterfall: ["Fuente de Agua",1],
clamp: ["Clamp",2],
hydropump: ["Hidro Ataque",3],
crabhammer: ["Pinzas",4],
watergun: ["Pistola de Agua",5]
bubblebeam: ["Burbuja Explosiva",6]
}
}


Se que epara llamar uno solo introdusco:

AttackType.Water.name //Va a ser igual a Water.
Pero como uso un Random para obtener cualquiera de estos datos de esta forma:

Código (javascript) [Seleccionar] Expandir


    var Random = Math.floor((Math.random() * AttackType.Water.length) + 1)
Pokemon_Attacks[IDPOKEMON][ATTACKSLOT][0]=AttackType.Water[Random].name;
Pokemon_Attacks[IDPOKEMON][ATTACKSLOT][1]=AttackType.Water[Random].id;


Y quiero obtener los valores que tiene cada ataque generado aleatorio, ejemplo:

Rnd = 4
Entonces de la lista Attack.Type.Water me tiene que dar el "NOMBRE", ID
en unas variables llamadas

Código (javascript) [Seleccionar] Expandir


Pokemon_Attacks=[
[
[Ataques del Pokemon1],
[Ataques del Pokemon2],
[Ataques del Pokemon3],
[Ataques del Pokemon4],
[Ataques del Pokemon5],
[Ataques del Pokemon6]
]];


Esto lo tengo controlado pero quiero hacer que se agregue un ataque aleatorio como ya les comente!

Hola pues tengo este codigo que es de un juego en la cual quiero detectar si una entidad esta serca de otra, o en un ratio.

Tengo esto:

Código (javascript) [Seleccionar] Expandir


function checkProximity(entity1, entity2, distanceXZ, distanceY)
{
if(!(Math.abs(Entity.getX(entity1) - Entity.getX(entity2)) <= distanceXZ)){
return false;
}else if(!(Math.abs(Entity.getY(entity1) - Entity.getY(entity2)) <= distanceY)){
return false;
}else if(!(Math.abs(Entity.getZ(entity1) - Entity.getZ(entity2)) <= distanceXZ)){
return false;
}else{
return true;
}
}

Pero siempre me devuelve true, hay alguna manera de hacer esto el detectar si las 2 entidades estan serca o en un area definida?

Saludos

Estoy en la creacion de un juego Pokemon con javascript,

Quiero hacer el sistema de captura de Pokemon, quisiera hacer probabilidades al capturar algun pokemon.

Tengo algo como esto:

Código (javascript) [Seleccionar] Expandir

var PokeBall = 15;
var MasterBall = 25;
var UltraBall = 50;
var PokemonLvl1 = 5;
var PokemonLvl2 = 10;
var PokemonLvl3 = 20;

Como hago para hacer que dependiendo el nivel y el valor de la pokebolas se genere una probabilidad de captura exitosa?

Bueno mi duda es la siguiente en javascript estoy creando un mod para Minecraft Pocket Edition el caso es que usa lenguaje javascript con la Api de la app que corre los mod.

Quiero reemplazar en una cadena de texto algunas letras y caracteres ejemplo:

[BRIAN|NVL:100]
HP: ---------------
EXP: __________

Uso una funcion que hace lo siguiente:

Código (javascript) [Seleccionar] Expandir


function getName(string){
var Listadecaracteres = ["NVL","_","-","1","2","3","0","HP",":","EXP"," "];
for(i=0; i>Listadecaracteres.length; i++){
string = string.replace(Listadecaracteres[i],"");
}
return string;
}


Hasta hay todo bien me reemplaza los caracterez pero solo me reemplaza una - (rayo / barra) o como le llamen solo me elimina 1 y quiero que se eliminen todas.
Ya intete hacerlo con un while y hacerlo por separado es decir que se reemplazen solo las - pero sigue igual.

Alguien que me pueda ayudar Porfa!.

Saludos!

Hola a todos.
Mi duda es como puedo hacer este estilo de ListView para mi web mobil.

El caso es que muestro productos en una bd y uso el While de Php para que por cada producto en la tabla se cree un list view con los productos. Eso lo tengo listo pero como hago que los productos se muestren en este estilo?:



Saludo y Gracias de antemano!

Hola la cuestion es esta, estoy creando una pagina web desde 0 donde se mostraran productos que estan en una base de datos Mysql de un hosting.
El punto es que quiero crear un fichero como este por cada articulo que haya en la base de datos:



ya tengo el estilo y todo eso solo me hace falta hacer lo que ya les mencione.

Este es el codigo que uso para la caja:

Código (html4strict) [Seleccionar] Expandir


<?php
mysql_connect('localhost','root','admin');
    mysql_select_db('root');
     
    $result = mysql_query('SELECT * FROM mods')
      or die(mysql_error());

     while ($info= mysql_fetch_row($result)){
?>

<!DOCTYPE html>
<html>
<head>
  <meta charset="utf-8">
  <title>MundoMCPE</title>
  <meta name="viewport"
content="width=device-width, initial-scale=1.0">
  <meta name="description" content="">
  <meta name="author" content="">
  <link rel="stylesheet" href="style.css"
type="text/css">
  <link href="http://fonts.googleapis.com/css?family=ABeeZee"
rel="stylesheet" type="text/css">
  <link href="bootstrap.css" rel="stylesheet"
type="text/css">
  <link href="bootstrap-responsive.css" rel="stylesheet"
type="text/css">
</head>
<body>
<div class="container-fluid">
<div class="row-fluid"></div>
<div class="row-fluid">
<div class="span3 tiny">
<div class="pricing-table-header-tiny">
<h2><?php echo $info['name']; ?></h2>
<IMG SRC=<?php echo $info['thumbnail']; ?> ALT="some text" WIDTH=500 HEIGHT=300>
</div>
<div class="pricing-table-features">
<p><strong><?php echo $info['description']; ?> </strong></p>
<p><strong><strong> Autor: </strong> </strong><?php echo $info['autor']; ?></p>
<p><strong><strong> Descargas: </strong> </strong><?php echo $info['downloads']; ?></p>
<div class="pricing-table-signup-tiny">
                  <p><a href="view.php?id=<?php echo $info['id']; ?>"> Descargar </a></p>
                </div>
        </div>
               
            </div>
</div>
</div>
</body>
</html>

  <?php
}
  ?>


Espero que si me puedan ayudar, saludos

Hola estoy aqui porque necesito saber si alguien con el mismo sistema operativo y el mismo ram tiene algun emulador que funcione a la perfeccion?...
E intentado con el BlueStacks, Andy, YouWave, GenyMotion, ETC... pero ninguno me corre bien...
Si alguien podria ayudarme cone esto se los agradeceria mucho!

[Bueno aqui les dejo una imagen de un juego que esta echo en VB y me gustaria saber como se hace para hacer que el ChatBox sea transparente y que se puedan poner varios colores dependiendo el user o si es un mensaje del servidor!.Saludos y Gracias!...]

Bueno aqui les dejo una imagen de un juego que esta echo en VB y me gustaria saber como se hace para hacer que el ChatBox sea transparente y que se puedan poner varios colores dependiendo el  user o si es un mensaje del servidor!.

Saludos y Gracias!...

hola a todos amigos de foro el hacker.

Bueno vengo muy triste ya que trate de instalar un Skin Pack a mi pc de windows 8, pero este lo que iso fue causar muchos errores a mi windows como el que les mencione en el titulo.

Cuando intento iniciar sesion me aparece una pantalla negra y me devuelve al inicio de sesion.
Logre entrar en modo seguro y des-instalar el Skin Pack pero este no funciono y siguen en lo mismo, alguien que pueda ayudarme!

PD: Como entro a modo seguro sin tener que forzar mi pc a apagarse para que me muestre el menu de como quiero iniciar windows?

[Hola amigos como estan. Un gran saludo!El motivo de este mensaje es el siguiente.Estoy en la creacion de un juego Multijugador tipo estrategia, creado en Visual Basic. Mi objetivo con este proyecto es hacer un juego adictivo donde los jugadores puedan demostrar sus conocimientos en amplios temas, ya sean Historia, Cine, Literatura, Etc, en fin seria algo como "Preguntados", pero seria para PC, aunque tendria muchas mas caracteristicas que el ya mencionado.Para mas Informacion, en este post deje mas informacion y capturas del juego:]

Hola amigos como estan. Un gran saludo!

El motivo de este mensaje es el siguiente.
Estoy en la creacion de un juego Multijugador tipo estrategia, creado en Visual Basic. Mi objetivo con este proyecto es hacer un juego adictivo donde los jugadores puedan demostrar sus conocimientos en amplios temas, ya sean Historia, Cine, Literatura, Etc, en fin seria algo como "Preguntados", pero seria para PC, aunque tendria muchas mas caracteristicas que el ya mencionado.
Para mas Informacion, en este post deje mas informacion y capturas del juego:

Click Aqui --> BrainMind ¿Que Tanto Sabes?

El juego aun esta en desarrollo, y me gustaria contactarme con usted.

Mi Skype: elboy1511
Mi Correo: censurado
Yo junto con mi grupo de desarollo y empresa queremos que nos ayudes con este proyecto.
Esperamos que nos responda positivamente, aunque entenderemos si no esta disponible.

~Saludos!

Mod: Prohibido poner datos personales (email) en los posts.

Hola a todos.

Un saludo, bien, como dice el titulo estoy creando un proyecto y me gustaria agregarle plugins personalizados, es decir con mi propia API y toda la cosa, por el momento me gustaria abrir el archivo y leer linea por linea y llamar las funciones que este solicite. Por ejemplo:

Plugin:

Código (vb) [Seleccionar] Expandir

Dim A as String
a = Call GetAppVersion()
MsgBox a


Programa:

Lee el metodo Call GetAppVersion y devuelve el valor almacenado en

Código (vb) [Seleccionar] Expandir

Public Function GetAppVersion() As String

GetAppVersion = "2.0.2"

End Function

Alguien que me pueda ayudar porfavor.
Un saludillo!

[Hola a todos mi duda es esta quisiera saber si para conectar 2 pc por winsock este necesita de hamachi, y si es haci quisiera saber como no hacerlo ya que necesito conectar mas del limite de PCs que permite hamachi.Saludos!]

Hola a todos mi duda es esta quisiera saber si para conectar 2 pc por winsock este necesita de hamachi, y si es haci quisiera saber como no hacerlo ya que necesito conectar mas del limite de PCs que permite hamachi.

Saludos!

Hola que tal.

Quisas el titulo les confunda un poco, pero les explicare que es lo que necesito.

Bueno estoy en la creacion de un juego multijugador, donde los datos se guardan en una BD, entonces quisiera saber como podria hacer para guardar los items comprados por el usuario es decir con el monto de objetos tambien.

Ejemplo grafico:

Código [Seleccionar] Expandir


[center]
============================
======= TIENDA VIRTUAL =========
============================
Objeto #1  Objeto #2
┌────┐    ┌────┐
│┌──┐│    │┌──┐│
││    ││    ││    ││
│└──┘│    │└──┘│
└────┘    └────┘               
[/center]
Si compra el Objeto 1 como hago para guardar la cantidad de objetos que tiene y la id del objeto, es decir me gustaria hacer una lista en la bd pero no se si es buena idea ya que se mu poco de BD.

Mi otra idea seria crear los objetos por archivos es decir en una carpeta crear todos los objetos disponibles y que estos tenga la info del objeto y la cantidad que el jugador tenga, pero esta idea es muy mala ya que el juego estaria muy vulnerable a hacks! :/

Espero me hayan entendido y me puedan ayudar a resolver este dilema que me come el cerebro! xD

~Saludos!

[Hola amigos de ElHacker.Bueno estoy creando un juego masivo multijugador en vb6 llamado BrainMind, un juego para demostrar que tanto sabes y echarselo en cara a otros jugadores del mundo, en si el juego es bastanstante entretenido y adictivo, aun no esta publicado por que aun esta en desarollo.Mi petición en esta categoria, es la siguiente; Busco personas que les gustaria apoyarme con el proyecto, es decir en la parte grafica ya que el juego aun no tiene una buen interfaz grafica.Aqui podras tener mas informacion del proyectohttp://foro.elhacker.net/juegos_y_consolas/desarollando_brainmind_iquestque_tanto_sabes-t430091.0.htmlSi te interesa enviame un mensaje privado por aqui o por mi correocensuradoAdemas de eso me gustaria que solo me enviaces tu mensaje si tienes una buena experiencia con diseno grafico.Gracias por su antención y espero verlos pronto en BrainMind]

Hola amigos de ElHacker.


Bueno estoy creando un juego masivo multijugador en vb6 llamado BrainMind, un juego para demostrar que tanto sabes y echarselo en cara a otros jugadores del mundo, en si el juego es bastanstante entretenido y adictivo, aun no esta publicado por que aun esta en desarollo.

Mi petición en esta categoria, es la siguiente; Busco personas que les gustaria apoyarme con el proyecto, es decir en la parte grafica ya que el juego aun no tiene una buen interfaz grafica.

Aqui podras tener mas informacion del proyecto

http://foro.elhacker.net/juegos_y_consolas/desarollando_brainmind_iquestque_tanto_sabes-t430091.0.html

Si te interesa enviame un mensaje privado por aqui o por mi correo
censurado

Ademas de eso me gustaria que solo me enviaces tu mensaje si tienes una buena experiencia con diseno grafico.

Gracias por su antención y espero verlos pronto en BrainMind


Mod: Prohibido poner correos en posts.

[Post Oficial de BrainMind]

Post Oficial de BrainMind

BrainMind es un juego de estrategias multijugador, en este modo de juego deberas ir contestando preguntas de diferentes temas demostrando tu capacidad y tu sabiduria de las cosas.
Actualmente el juego consta con las siguientes caracteristicas destacables:

-Niveles: Que aumentan por tus partidas ganadas.
-Sistema de puntos: Acumula puntos en el juego para comprar cosas en la tienda.
-Tienda: Donde encontraras diversas cosas para el juego, tanto ventajas, como avatares para personalizar tu perfil.
-Sistema de Usuarios: Cada jugador tiene su propio perfil, y puede ver los perfiles de otros usuarios conectados.
-Agrega amigos para mejorar tu experiencia como conocedor de temas en general.
-Crea clanes para batallar en competencia de clanes.
-Chatea en tiempo real con amigos y en el chat global.

Este juego te permite combatir con amigos y usuarios demostrando tus habilidades de conocimientos en bastos temas que el juego predefina!.

Estas son algunas de las muchas caracteristicas que BrainMind ofrece. Este es un juego gratuito y facil de manejar a la hora de ejecutarse.

ScreenShots

Formulario de Inicio:

Descarga

Proximamente...

Creadores Por El Momento:

• brian1511[Zodius] (PROGRAMACIÓN)
  

Notas:

Espero que les motive a apoyarme a terminar este proyecto que estoy realizando en Visual Basic 6. Me gustaria mucho que me apoyacen con ayuda en la parte grafica del juego [strike](ya que soy bueno haciendo el juego pero no haciendolo bonito)[/strike], estoy abierto a sugerencias y solicitudes de ayuda.

[Hola a todos bueno mi duda es muy simple, lo que quiero hacer es que se cambie el color del usuario que envio el mensaje al servidor, el servidor busca que rango es este, cada rango tiene un color, pero no se como hacer que solo se cambie el user y no todo el texto y que de paso me lo envie por winsock ya que recibo el codigo RTF del RichTextBox]

Hola a todos bueno mi duda es muy simple, lo que quiero hacer es que se cambie el color del usuario que envio el mensaje al servidor, el servidor busca que rango es este, cada rango tiene un color, pero no se como hacer que solo se cambie el user y no todo el texto y que de paso me lo envie por winsock ya que recibo el codigo RTF  del RichTextBox

Hola a todos.

Estoy en la creacion de un juego con Winsock, ise el sistema de inicio de sesion con una bd de accses y estoy trabajando ahora en el sistema de registro pero no se como registrar un dato?

En sí el sistema consta en que el cliente envia los datos [User y Pass], y el servidor hace una busqueda en la bd y si el user existe entonces busca la variable de pass y si es la misma entoces el servidor envia el resto de los datos al cliente.

Hola me gustaria saber como podria enviar los usaurios que esten conectados al servidor?
Por Winsock?

Hola a todos amigos, bueno necesito que me den algunos consejos, ya que estoy en la creacion de un juego Multijugador Servidor - Cliente con el Winsock, y ya tengo:

-Inicio de Sesion!
-Registrar Usuarios!
-Perfil de Usuarios!
-Chat Global!
-Chat Privado!
-Tienda Virtual! [Solo se compra con Puntos del Juego(Monedas Virtuales)]
-Agregar amigos y guardarlos!

El usuario consta con los siguientes datos:

Usuario
Password
Avatar
Nivel
XP
Rango[ ADMIN,MODERADOR,VIP, Etc... ]
Puntos[ Virtuales ]
Estado[ Agregar un estado o Tag en su perfil ]
Avatar[ Imagen ]
Premios[ Ganados en el juego ]
Partidas Ganadas y Perdidas!

Y bueno el juego consta en Trivias que se hacen, es decir preguntas de un tema cualquiera y alquel que logre contestarla pues gana puntos y sube de nivel!

Aun me falta crear el sistema de preguntas y tal, y en eso es que necesito consejos?

Gracias por su atencion

Es que no puedo impotar los Ocx porque me salta error en la pc, y me gustaria saber si hay algun User Control o alguna manera de importar la Api de Active Skin desde el mismo vb para no tener que estar importando el componente?

Bueno como dice en el titulo, quiero enviar mediante winsock un texto que contenga imagenes, es decir que si del Servidor envio un mensaje con una imagen quiero que este en el cliente se muestre en un richtextbox?

Saludos~

Hola!,

Bueno ise este codigo:

Código (vb) [Seleccionar] Expandir


Dim List() As String
Dim i As Integer
Dim a As Integer

a = Len(txtAwards.Text)

lstAwards.Clear

txtAwards.Text = RS(7)
List = Split(RS(7), "||")
For i = 0 To Len(a)
lstAwards.AddItem List(i)
Next


Y o que intento hacer con esto es que me agreguen en un ListBox los Split de la variable List(), pero este solo me carga 3 datos y me gustaria que cargase todos los datos.

Para se mas espesifico es algo como esto:

Dim Texto as String
Dim Particion() as String


Texto = "0||0||0||0||0"       ''Son 5 Ceros separados por ||
Particion = Split(Texto, "||")
______
Lista    |
______|
#1| 0  |
#2| 0  |
#3| 0  |
#4| 0  |
#5| 0  |
=====

Podria alguien ayudarme con esto?

Hola amigos de ElHaker un saludo de mi parte!

Bueno como dice el titulo quiero saber como hacer para comprimir un directorio completo, es decir con todos los archivos y subcarptas que tenga este!

Ya busque en el Foro del Guille
http://www.elguille.info/colabora/vb/zip32dll.htm

Pero este me dice que ponga la variable OpcionesZip.fRecurse = 2 o 1

Pero aun haci no funciona.

Muchas gracias por leer!, Saludos!~

Bueno como dice el titulo solo quiero saber si es posible capturar lo que este dentro de un picturebox, al decir capturar es tirar un screenshot dentro de los objetos que esten en el picturebox es decir un ejemplo mas grafico:




Quisiera hacer una captura a todo lo que este en su interior, pero en forma de imagen

Gracias de antemano!
Un saludo!

Hola a todos amigos de El Hacker.

Bueno mi duda es la siguiente, Estoy creando un juego en VB6 , multijugador y eso.
Y quisiera que los usuarios puedan crear mods, al decir mods quiero decir modificaciones que cumplan las espesificaciones del juego.

Entonces quiero saber si puedo crear un archivo Ejemplo.txt, que el programa lo abra, y ejecute sus comandos es decir digamos que en el TXT este este codigo.

Código (vb) [Seleccionar] Expandir

Sub Form Load()
If Usuario = "Admin" Then
MsgBox "Bienvenido Administrador"
End If
End Sub


Entonces que el juego en el LoadForm se ejecute este comando?
Estoy abierto a mas preguntas por si quieren mas detalles de lo que necesito
Muchas gracias por su tiempo!

Saludos!

Bueno lo que quiero saber es como puedo hacer modificaciones a mi proyecto, desde un archivo.

Ejemplo:

Creo un programa que edita textos.
Y hay un Plugin, Mod o AddOn que le permite al usuario cambairle el color de fondo y el texto.
Otro Plugin, Mod o AddOn que haga que mi proyecto pueda haceptar imagenes.
ETC.. cosas como esas.

Quiero saber si es posible hacerlo y si tienen una ayuda pues me vendria bien ya que es para un proyecto de el instituto!

hola a todos el titulo es mas que explicativo para lo que necesito:

bueno estoy haciendo un programa servidor / cliente mediante el control winsock

bien lo que quiero hacer es que cuando el usuario se conecte el servidor pues este agregue en un listview que ya esta configurado con las columnas y un image list para agregar los subitems y el icono de rango!

pues tambien quiero que cuando este se desconecte se elimine el dato del usuario desconectado...

el servidor es multiconecciones asi que no se bien como hacer para que cuando se valla uno en espesifico este se elimine de la lista al igual que cuando entre, que cada uno tengan valores que los caracterizen para a la hora de salir este se elimine del list

Saludos y espero haber sido claro.

hola a todos quisiera que me ayudacen con este pequeñito problema.

el caso es que es un juego winsock que estoy creando, apenas voy por el inicio de sesion y la peticion de los datos al servidor, el inicio esta bien lo unico que agoe s que cuando se conecta, se conecta a otro winsock que esta abierto y pues esta a la escucha con otro puerto.

Amm lo que hace este winsock es revisar un archivo .ini que contiene los datos del usuario y lo manda por una cadena de texto con unas split "|" este es el codigo para separar los datos recividos.

Código (vb) [Seleccionar] Expandir

Function Carga()

lblUser.Caption = s_usr
lblNivel.Caption = s_nvl
data_XP = Split(s_xp, "|")
lblXP.Caption = data_XP(0)
lblXPMax.Caption = data_XP(1)

''Llama los objetos que tiene el usuario
data_Objetos = Split(s_objetos, "|")


Call Load_Objetos(data_Objetos(0), data_Objetos(1), data_Objetos(2), data_Objetos(2), _
data_Objetos(4), data_Objetos(5), data_Objetos(6), data_Objetos(7), data_Objetos(8), _
data_Objetos(9), data_Objetos(10), data_Objetos(11), data_Objetos(12), data_Objetos(13), _
data_Objetos(14), data_Objetos(15), data_Objetos(16), data_Objetos(17), data_Objetos(18), _
data_Objetos(19), data_Objetos(20), data_Objetos(21), data_Objetos(22), data_Objetos(23), _
data_Objetos(24), data_Objetos(25))

''Llama las medallas que tiene el usuario
data_Medallas = Split(s_medallas, "|")
Call Medallas(data_Medallas(0), data_Medallas(1), data_Medallas(2), data_Medallas(3), _
data_Medallas(4), data_Medallas(5), data_Medallas(6))

''Carga el avatar del usaurio
imgAvatar.LoadImageFromFile (App.Path & "\images\Avatares\" & s_avatar & ".jpg")
lblMonedas.Caption = s_monedas

''Carga el rango y sus opciones
Call Rank(s_rank)
lblWins.Caption = s_Wins
lblLoses.Caption = s_Loses

''Llama los datos de tu digimon 1
data_Digimon1 = Split(s_digimon1, "|")

Call Digimon1(data_Digimon1(0), data_Digimon1(1), data_Digimon1(3), data_Digimon1(4))

''Llama los datos de tu digimon 2
data_Digimon2 = Split(s_digimon2, "|")

Call Digimon2(data_Digimon2(0), data_Digimon2(1), data_Digimon2(3), data_Digimon2(4))


''Llama los datos de tu digimon 3
data_Digimon3 = Split(s_digimon3, "|")

Call Digimon3(data_Digimon3(0), data_Digimon3(1), data_Digimon3(3), data_Digimon3(4))

''Llama los datos de tu digimon 3
data_Digimon4 = Split(s_digimon4, "|")

Call Digimon4(data_Digimon4(0), data_Digimon4(1), data_Digimon4(3), data_Digimon4(4))

frmMain.Enabled = True
pnlInicio.Visible = False

End Function

bueno esto es algo basico pues lo que ago es llamar a funciones para que me arreglen los datos como por ejeplo los objetos, las medallas y los digimons!

aqui esta el problema que no acepta este codigo que esta en el modulo:

Código (vb) [Seleccionar] Expandir

Public Function Load_Objetos(O1 As String, O2 As String, O3 As String, _
O4 As String, O5 As String, O6 As String, O7 As String, _
O8 As String, O9 As String, O10 As String, O11 As String, _
O12 As String, O13 As String, O14 As String, O15 As String, _
O16 As String, O17 As String, O18 As String, O19 As String, _
O20 As String, O21 As String, O22 As String, O23 As String, _
O24 As String, O25 As String, O26 As String) As String




For cont_obj = 0 To 25

imgObjects(cont_obj).LoadImageFromFile (App.Path & "\Images\Objetos\" & Load_Objetos(cont_obj) & ".png")
imgObjects(cont_obj).Tag = cont_obj

Next cont_obj


End Function

Public Function Medallas(M1, M2, M3, M4, M5, M6, M7)

Dim cont_medallas As Integer

For cont_medallas = 0 To 25

imgMedallas(cont_medallas).LoadImageFromFile (App.Path & "\Images\Medallas\" & Medallas(cont_obj) & ".png")
imgMedallas(cont_medallas).Tag = Medallas(cont_medallas)

Next cont_medallas

End Function



lo que quiero es cargar las imagenes de los objetos a las imagenes que estan ya un una carpeta llamada "Objetos".

el servidor manda la id del objeto , ejemplo 1 o 2 o 3 , los objetos estan guardados con el nombre de su id ejemplo 1.png , 2.png para poder llamarlos en el modulo facilmente.

Igual pasa con las medallas no me funcionan...

espero que me puedan ayudar!

El error que me sale este:

Código [Seleccionar] Expandir



Error de compilacion:

El tipo de argumento ByRef no coincide



Porfa alguien que me ayude con esto no se por que me sale este mensaje de error !!.

Soy muy noob en esto y necesito a alguien que me oriente con este problemilla 

Código (php) [Seleccionar] Expandir

<?php
$puntos=$_GET["puntos"];
$pnt= $_COOKIE['puntos'];
$user=$_COOKIE['user'];
$val=$_GET["val"];
 $puntos_user="";
$res="";
    $con = mysql_connect('localhost','root','pass');
    $db = 'BD';
    $sql = 'select * from usuarios where user=' .$_COOKIE['user']; "'";
    $res = mysql_db_query($db,$sql,$con);
     
    if ($puntos_user = mysql_fetch_array($res)){
       $puntos_user = $pnt;
    } 
    $puntos_user = $puntos_user $val $puntos;
    $sql = "update puntos set puntos='" . $puntos_user . "' where user='" . $user . "'";
    mysql_db_query($db,$sql,$con);
    echo "Se ha modificado correctamente!.";
     echo "";
    echo "Los puntos de". $user  "puntos quedan ahora asi: " . $puntos_user;
    }
    ?>


Este es el mensaje de error:

Código (php) [Seleccionar] Expandir

Parse error: syntax error, unexpected T_VARIABLE in /home/u527083781/public_html/games/puntos.php on line 16 
Gracias de antemano!

hola a todos queria saber como ago que un textbox me acepte un texto si contiene cierto tipo de texto..
Ejemplo:

Tengo una palabra definida que es :

Hola como estas

y si en el textbox este pone:

+------------+
| Palabra :   | Hola
+------------+

Si este texto del resto que falta esta hay pues me salta un mensaje de correcto!

Espero haber sido claro y preciso en lo que quiero.

Gracias de antemano y espero que me ayuden.

Hola a todos , sere breve como dice en el titulo solo quiero saber como hacer una consulta a la base de datos del rango como por ejemplo esto es lo que quiero:

-El usuario inicia sesion por medio del php $SESSION_GET y pues cuando esto verifica que el usuario esta registrado quiero que haga otra consulta la cual me diga si el usuario es administrador si o no y si se da el caso de que lo sea que lo mande a un link
de administradores pero si no lo es que lo mande a un link de usuarios comunes!

Gracias , espero ser claro y preciso con lo que quiero.
Un saludo!

Hola a todos , tenia un tiempo sin conectarme pero , estoy de regreso y pues aqui con un problemon grandisimo!

El problema es este , tengo un sistema de puntos que anterior mente postee aqui por algunos probles que tenia pero ahora de repente me aparece este mensaje a la hora de transferir puntos entre los usuarios!

Esta es una imagen del formulario de envio



y este es el error que me tira!



Este es el code que uso:

Código (php) [Seleccionar] Expandir



<?php
    $con = mysql_connect('host','usuario','contraseña');
    $db = 'nombre_de_la_tabla';
    $sql = 'select * from nomtabla where user_id=' . $_POST["tu_id"] . "'";
    $res = mysql_db_query($db,$sql,$con);
     
    if ($user_1 = mysql_fetch_array($res)){
     
       $puntos_user_1 = $user_1[puntos];
     
    }
     
    $sql = "select * from nomtabla where user_id='" . $_POST["otro_id"] . "'";
     
    $res = mysql_db_query($db,$sql,$con);
     
    if ($user_2 = mysql_fetch_array($res))
     
    {
     
       $puntos_user_2 = $user_2[puntos];
     
    }
     
    if ($puntos_user_1<$_POST["puntos_a_dar"])
    {
     
       echo "Puntos insuficientes";
     
    }else{
     
    $puntos_user_2 = $puntos_user_2 + $_POST["puntos_a_dar"];
     
    $puntos_user_1 = $puntos_user_1 - $_POST["puntos_a_dar"];
     
    $sql = "update puntos set puntos='" . $puntos_user_2 . "' where user_id='" . $_POST["otro_id"] . "'";
     
    mysql_db_query($db,$sql,$con);
     
    $sql = "update puntos set puntos='" . $puntos_user_1 . "' where user_id='" . $_POST["tu_id"] . "'";
     
    mysql_db_query($db,$sql,$con);
     
    echo "Se suman " . $_POST["puntos_a_dar"] . " al usuario con id " . $_POST["otro_id"];
     
    echo "";
     
    echo "Tus puntos quedan ahora asi: " . $puntos_user_1;
     
    }
     
    ?>




Si alguien pudiera decirme si tengo algo mal se lo agradeceria mucho!
Un saludo y gracias de antemano!

Hola a todos bueno estoy desarollando una app de android la cual quiero consultar una bd de un host alojado en 000webhost.com y bueno quiero que sea mediante un link generado con los valores que escriban , pero el problema es que quiero solo que me imprima si existe o no.

Bueno esto es toda mi duda espero que me puedan ayudar muchisimas gracias por leer!

hola a todos pues ya bastante explicativo esta el titulo y bueno para los que les encanta que les explique que es lo que se necesita pues es lo siguiente; que programa puedo utilizar para crear un juego al estilo yu gi oh para pc , seria algo basico y sencillo.

Acepto video tutoriales o info de como crearlo!

gracias de ante mano espero que puedan ayudarme en este gran acertijo!

hola a tOdos un buen saludo.

estoy en la Creacion de Un juego de Cartas macas estilo Ani Dimencion pero mas compacto y beta, ahora bien he progresado bastante en la creacion de este!.

me Vino a la mete Crear un sistema de inicio de sesion mediante winsocK la cual sea multipuerto, hasta ahora se como Hacerlo pero no tengo ni idea de como mandar los datos al servidor --> que este lo verifique en una bd De acces o mysql , me da Igual, y pues que me mande un valor 1 si es correcto o 0 si es incorrecto --> el cliente podra iniciar o no la sesion.

si alguien sabe como hacer algo parecido. o que por lo Menos use winsock se lo agradeceria mucho!.

saludos y gracias por leer.

Hola a todos , pues lo que necesito es saber como puedo enviar X's datos al servidor y que este verfique algunas cosas y pues envie datos para atras.

Digamos que es un inicio de sesion con el control winsock , pues el cliente envia los datos al servidor -> el servidor busca en una carpeta los datos que este ah ingresado, si los datos existen y son correctos -> el servidor envia todos los datos.

pero que pasa , cada dato es para un cosas diferentes como por ejemplo ,


Nombre.text = Dato1
ID.text = Dato2
Numero.text = Dato3



Por ahora lo que tengo es esto que me lo recomendaron hace tiempo pero no logro que me funcione:

Código (vb) [Seleccionar] Expandir


ENVIAR:

Dim Mensaje as String
Mensaje = Dato1.Text & "||" &  Dato2.Text & "||" &  Dato3.Text & "||" &  Dato4.Text
Winsock1.SendData Mensaje




Código (vb) [Seleccionar] Expandir


RECIBIR:

    Dim Compuesto As String
    Dim Separado() as string
     
    Winsock1.GetData Compuesto
    Separado()=Split(Compuesto,"||")
    Colortxt.Text = Separado(3)
    Activacion.Caption = Separado(4)
    De.Caption = Separado(1)
    MsgRecibido.Text = Separado(0)



Y quiero implementarlo a un winsock multipuertos que segun recuerdo se hace

WINSOCK1(0)

Ayuda como ago para que el socket que envie los datos al cliente que lo solicito.

Grcaias y un Saludo

Hola a todos  aqui les vengo con una duda y es como envio imagenes a un winsock
de Cliente a Cliente.

Que haga la siiguiente funcion Cliente <-> Servido <-> Cliente

Tengo este codigo que encontre de una web pero solo envia una imagen pero quiero que envie porlomenos 5 o 6 imagenes de cliente a cliente.

Código [Seleccionar] Expandir



     'Función Api Sleep Para generar una espera o retardo de tiempo 
    Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 
    'Array de bytes para el gráfico 
    Dim imagen() As Byte 
    'Estas dos variables son 2 flags 
    Dim flag As Boolean 
    Dim progreso As Boolean 
     
    'Este Command es para conectarse al servidor 
    '********************************************************************* 
    Private Sub Command1_Click() 
    'Conectamos a la Ip y puerto 
    Winsock1.Connect Text1, CInt(Text2) 
    'Mostramos la Ip de conexión en el caption del Formulario 
    Me.Caption = "Estado de la conexion: Conectado a la IP: " + Text1 
    'Esto deshabilita y habilita controles 
    Command3.Enabled = True: Command1.Enabled = False: Command2.Enabled = True 
    End Sub 
     
    'Este Command es para desconectarse del servidor 
    '********************************************************************* 
    Private Sub Command2_Click() 
    'habilitamos y deshabilitamos los command 
    Command2.Enabled = False: Command1.Enabled = True 
     'cerramos la conexión 
    Winsock1.Close 
    End Sub 
     
    'Este Command es el que abre el cuadro de diálogo para seleccionar la imágen 
    '********************************************************************* 
     
    Private Sub Command3_Click() 
    On Error GoTo mensaje 
    With CommonDialog1 
    .DialogTitle = "Seleccionà el archivo de imagen" 
    .ShowOpen 
    If .FileName = "" Or .CancelError = True Then Exit Sub 'salimos si cancelamos 
    If MsgBox("¿Seleccionaste el archivo correcto??", vbInformation + vbYesNo, _ 
    "Enviar archivo de imagen") = vbNo Then Exit Sub 
     
    Winsock1.SendData .FileName 'enviamos la ruta 
    Picture1 = LoadPicture(.FileName) 'Cargamos la imagen en el Picture1 
    End With 
     
    Command4.Enabled = True 
    Command3.Enabled = False 
    Exit Sub 
    mensaje: 
    If Err.Number = 40006 Then MsgBox Err.Description, vbInformation, _ 
    "Error en la conexion": Command2_Click: Me.Cls 
    End Sub 
     
     
    'Este Command es el que envía la imágen al servidor 
    '********************************************************************* 
     
    Private Sub Command4_Click() 
    Dim tamaño As Long 
    progreso = True 
    'abrimos el archivo en modo binario de lectura 
    Open CommonDialog1.FileName For Binary Access Read As #1 
    tamaño = LOF(1) 'Tamaño en bytes de la imagen 
    'Redimensionamos el Array 
    ReDim imagen(tamaño - 1) 
    'Leemos todo el archivo y lo almacenamos en el array imagen 
    Get #1, , imagen 
    Close 
     
    flag = True 
    'Enviamos el array al servidor 
    Winsock1.SendData imagen 
    'Para el progreso del envio 
    ProgressBar1.Max = tamaño + 1 
    End Sub 
     
    Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, _ 
    ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal _ 
    HelpContext As Long, CancelDisplay As Boolean) 
     
    MsgBox "Error: " + Description 
     
    End Sub 
     
     
    'Este evento se dispara cuando se terminó de enviar completamente _ 
    todos los datos 
    '***************************************************************** 
    Private Sub Winsock1_SendComplete() 
    'Hacemos una pausa 
    Sleep 1500 
     
    If flag Then Command4.Enabled = True 
    If flag Then Winsock1.SendData 1: flag = False 
    Command4.Enabled = False 
    Command3.Enabled = True 
    If progreso Then 
    ProgressBar1.Value = 0 
    progreso = False 
    End If 
     
    End Sub 
     
    'Muestra mediante el evento SendProgress en la barra de progreso 
    '***************************************************************** 
    Private Sub Winsock1_SendProgress(ByVal bytesSent As Long, ByVal _ 
    bytesRemaining As Long) 
     
    If progreso Then 
    ProgressBar1 = ProgressBar1 + bytesSent ' bytesSent son los bytes enviados 
    End If 
    End Sub 
     
     
     
    Private Sub Form_Load() 
    Dim ancho As Integer 
    Me.ScaleMode = vbPixels: Me.ForeColor = vbBlue 
    Text1 = "127.0.0.1": Text2 = 1000 
    Command1.Caption = "conectar": Command2.Caption = "desconectar": _ 
    Command3.Caption = "-->> Buscar archivo de imagen para enviar al servidor": _ 
    Command4.Caption = "Enviar" 
     
    ancho = TextWidth(Command3.Caption) 
    Command3.Width = ancho + ancho / 10 
    Command2.Enabled = False: Command4.Enabled = False: Command3.Enabled = False 
    Label1.Caption = "Direccion ip" 
    Label2.Caption = "Puerto" 
    Label1.AutoSize = True: Label2.AutoSize = True 
    Me.Caption = "No conectado" 
    End Sub 
     
    Private Sub Form_Resize() 
    On Error Resume Next 
    Label1.Left = 10: Text1.Left = Label1.Width + 20: Label2.Left = Text1.Left + _ 
    Text1.Width + 20: Text2.Left = Label2.Left + Label2.Width + 10 
     
    Label1.Top = 20: Label2.Top = 20: Text1.Top = 20: Text2.Top = 20 
    Command3.Left = 20: Command3.Top = Text1.Top + Text1.Height + 20 
    Command1.Left = Me.ScaleWidth - Command1.Width - 20 
    Command2.Left = Me.ScaleWidth - Command2.Width - 20 
    Command4.Left = Me.ScaleWidth - Command4.Width - 20 
    Command1.Top = 20: Command2.Top = 20 + Command1.Height: Command4.Top = 50 + _ 
    Command2.Top 
    ProgressBar1.Left = 20: ProgressBar1.Width = Me.ScaleWidth - 40 
    ProgressBar1.Top = Me.ScaleHeight - ProgressBar1.Height - 10 
    Picture1.Left = 20: Picture1.Top = Command3.Top + 30: Picture1.Height = _ 
    Me.ScaleHeight - ProgressBar1.Height - Command3.Height - Text1.Height - 60 
    Picture1.Width = Me.ScaleWidth - Command2.Width - 50 
    End Sub 




Código [Seleccionar] Expandir



    Dim flag As Boolean, nombre As String 
     
    Private Sub Command1_Click() 
        'Ponemos a la escucha el Winsock 
        Winsock1.Listen 
        Command1.Enabled = False 
        Command2.Enabled = True 
    End Sub 
     
    Private Sub Command2_Click() 
        'Desconectamos el Winsock 
        Winsock1.Close 
        Command1.Enabled = True 
        Command2.Enabled = False 
    End Sub 
     
    Private Sub Command3_Click() 
        End 
    End Sub 
     
    'Esto le asigna los caption y demás a los controles 
    Private Sub Form_Load() 
        Me.ScaleMode = vbPixels 
        Winsock1.LocalPort = 1000 'Le establecemos el puerto 
        Command1.Caption = "poner a la escucha" 
        Command2.Caption = "Desconectar" 
        Command3.Caption = "salir" 
        Check1.Caption = "Eliminar las imagenes temporales del directorio" 
        Me.Caption = "puerto determinado de comunicacon: 1000" 
    End Sub 
     
    'Redimensionar controles 
    Private Sub Form_Resize() 
        On Error Resume Next 
        Command1.Top = Me.ScaleHeight - Command1.Height 
        Command2.Top = Me.ScaleHeight - Command2.Height 
        Command3.Top = Me.ScaleHeight - Command3.Height 
        Command1.Left = 10: Command2.Left = Command1.Width + 10: _ 
        Command3.Left = Me.ScaleWidth - Command3.Width - 10 
        Picture1.Width = Me.ScaleWidth - 20 
        Picture1.Left = 10 
        Me.Height = Screen.Height / 2 
        Check1.Left = 10 
        Check1.Top = Me.ScaleHeight - Command1.Height - Check1.Height 
    End Sub 
     
    Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long) 
        Winsock1.Close 
        Winsock1.Accept requestID 
    End Sub 
     
    'Procedimiento que recibe los datos del cliente 
    Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) 
     
    'Array dinámico para almacenar el archivo 
    Dim imagen() As Byte 
     
        Select Case flag 
            Case False 
                'Esto se encarga de obtener el nombre del fichero 
                Winsock1.GetData nombre 
                nombre = Right(nombre, Len(nombre) - InStrRev(nombre, "\")) 
                Open App.Path + "\" & nombre For Binary As #1 
                flag = True 
            Case True 
                'Esto escribe en el disco el archivo de imagen 
                Winsock1.GetData imagen 
                If UBound(imagen) = 1 Then 
                    Close 
                    Picture1 = LoadPicture(App.Path + "\" + nombre) 
                    'Si está chequeado el chek eliminamos el archivo cuando finaliza 
                    If Check1 Then Kill App.Path + "\" + nombre 
                        flag = False 
                    Exit Sub 
                End If 
                'Escribimos en disco la imagen con Put pasandole el Array 
                Put #1, , imagen 
     
        End Select 
    End Sub 




Si alguien puede ayudarme!

Hola a todos amigos pues aqui me vengo a explicar.

Tengo tiempo con una idea en la mente realmente simple, es crear un juego winsock especialmente de batallas con cartas , algo simple lo que me inspiro fue Ani dimension lo mejor que visto en mi vida de verdad que si!.

Bien volviendo al tema, quiero saber como crear un servidor que escuche en el mismo puerto pero que se use de Sala .

Me explico:

Quiero que el servidor actue como una room donde estan todos los usuarios y de hay los usuarios elijen con quienes quieren batallar .

Esto es todo espero que me puedan ayudar hasta la proxima.
Haa y acepto comententarios y/o ayudas con el tema del juego.

Hola a todos ,

aqui con otra duda para el mejor foro de la internet....

mi duda es simple solo quiero saber como creo una extensión propia para un programa la cual cuando el archivo se crea , se guarda con el icono del programa con un nombre y con un nombre espefifico?

Obtube este codigo en la internet pero aun no se como se llama , porque intente como decia en un ejemplo pero no me funciono, aver si ustedes pueden ayudarme con esto:

Código ( vb) [Seleccionar] Expandir




'LLamada a las Api de Windows (advapi32)
Public Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Public Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Public Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long
'Constantes
Const HKEY_CLASSES_ROOT = &H80000000
Const REG_SZ = 1 'Valor de cadena
Public Res As Long

'IconFile -Dirección del icono que va a tener la extensión.
'ExeFile -Dirección del programa con que se va abrir la extensión.
'ProgramName -Nombre con que se idectifica el programa.
'Extension - Extension que se va a registrar Ejemp Jpg (sin el pto)
'ExtensionDescripcion -La descripción del extension que se mostrara
'en el explorador Ejem "Winrar Archive" (Este es el caso de *.rar extesion del Winrar)
Public Sub registrarExtension(ByVal IconFile As String, ByVal ExeFile As String, ByVal ProgramName As String, ByVal Extension As String, ByVal ExtensionDescripcion As String)
On Error GoTo Fin
Dim SubKey As String, I As String, E As String
SubKey = Extension
'Crea la primera clave en el registro,por ejemplo .jpg con valor jpgPaint
I = IconFile
RegCreateKey HKEY_CLASSES_ROOT, "." & SubKey, Res
RegOpenKey HKEY_CLASSES_ROOT, "." & SubKey, Res
RegSetValueEx Res, "", 0, REG_SZ, ByVal SubKey & ProgramName, Len(SubKey & ProgramName)

'Crea la segunda clave en el registro,por ejemplo jpgPaint con valor jpgPaint
RegCreateKey HKEY_CLASSES_ROOT, SubKey & ProgramName, Res
RegOpenKey HKEY_CLASSES_ROOT, SubKey & ProgramName, Res
RegSetValueEx Res, "", 0, REG_SZ, ByVal ExtensionDescripcion, Len(ExtensionDescripcion)

'Crea la primera subclave en el registro llamada DefaultIcon,con la ruta del icono seleccionado D:\RegExt\Cube 2.ico O C:\AS.EXE,1
RegCreateKey HKEY_CLASSES_ROOT, SubKey & ProgramName & "\DefaultIcon", Res
RegOpenKey HKEY_CLASSES_ROOT, SubKey & ProgramName & "\DefaultIcon", Res
RegSetValueEx Res, "", 0, REG_SZ, ByVal I, Len(I)

'Crea la segunda y tercera subclaves en el registro llamadas open\command,con la ruta del programa seleccionado. Ejem: C:\AS.EXE,1
E = ExeFile & " %1"
RegCreateKey HKEY_CLASSES_ROOT, SubKey & ProgramName & "\shell\open\command", Res
RegOpenKey HKEY_CLASSES_ROOT, SubKey & ProgramName & "\shell\open\command", Res
RegSetValueEx Res, "", 0, REG_SZ, ByVal E, Len(E)
Fin:
End Sub







[/sup]

[Hola a todos , tengo un juego en VB6 y pues lo quiero mantener actualizado , como ago para que cuando se suba una nueva version del juego este descargue los archivos y los reemplase por los otros?O si no que solo me descargue la nueva version????]

Hola a todos , tengo un juego en VB6 y pues lo quiero mantener actualizado , como ago para que cuando se suba una nueva version del juego este descargue los archivos y los reemplase por los otros?

O si no que solo me descargue la nueva version????

Espero su ayuda , gracias y un buen saludo!