Mensajes

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!

Me gusto tu blog, aunque me parece que al tener tantas cosas utiles y tutoriales bueno deberias cambiar el estilo del blog, que sea un poco mas accesible para el usuario. Talves ponerlo con categorias y dividirlo en los temas en los que te centras.

Despues de eso encontre cosas utiles, una lastima no poder revisarlo todo, Pero desde ya te felecito por ese buen trabajo .


Saludos!

Gracias amigo por contestar en sí, eso es lo que busco.
Aunque ese ejemplo tenia muchos errores y no me dejo probarlo bien del todo, de casualidad no tendras otro ejemplo como ese?

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



[bueno lo que pasa es que es para un login de vb6 lo que ago es que reemplaso lo que es los valores de txt Usurios y txt Contraseña en el link y pues eso me devuelve el valor de TRUE o FALSE si da true pues se puede iniciar la sesion.]

bueno lo que pasa es que es para un login de vb6 lo que ago es que reemplaso lo que es los valores de txt Usurios y txt Contraseña en el link y pues eso me devuelve el valor de TRUE o FALSE si da true pues se puede iniciar la sesion.

Hola lo que pasa con lo del GET es que el usuario y la pass irian en el link haci

http://miweb.com/login?user=admin&pass=1234;

Pero gracias de todos modos ya lo he resuelto!

Muy bien gracias me funciono de maravilla!

Código (php) [Seleccionar] Expandir

    $puntos_user = $puntos_user." ".$val." ".$puntos;

Gracias amigo me sirvio de maravilla!