|
113
|
Programación / Programación Visual Basic / Re: Wisock - Hacer que no se quede con un solo cliente
|
en: 12 Agosto 2013, 20:17 pm
|
gracias a todos por contestar de verdad que me gustan sus respuestas explican muchas cosas.
Probe el link que me dio noalg y me gusto el ejemplo pero realmente quiero saber como puedo hacelo de otra manera este tiene como 5 errores...
Pero bueno espero que me puedan contestar con algo mas explicativo..
Un saludo y muchas gracias!
|
|
|
114
|
Programación / Programación Visual Basic / Wisock - Hacer que no se quede con un solo cliente
|
en: 12 Agosto 2013, 07:33 am
|
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.
|
|
|
115
|
Programación / Programación Visual Basic / Re: Como crear un formato o extensión propia.
|
en: 11 Agosto 2013, 20:52 pm
|
Gracias por comentar , ese que puse me funcionaba pero no hacia todo, no me ponia el icono. Ya lo he resuelto!! Esto es lo que use , lo pongo por si alguien tiene la misma duda o el mismo problema: Este codigo va en el Form Load tambien se puede poner en un Command o donde sea... 'Variables para los datos que asociará una extención con un programa Dim Descripcion As String Dim Ruta_Programa As String Dim Ruta_Icono As String Dim Extension As String 'Descripción del Programa Descripcion = "Aqui pones la descripcion de tu archivo creado." 'Path de la aplicación Ruta_Programa = App.Path & "\" & App.EXEName ' La extensión a asociar Extension = ".tu extensión" 'Ruta del Archivo de ícono ( opcional ) Ruta_Icono = App.Path & "\Icono.ico" 'Llama a la función Asociar_Extension_Programa Call Asociar_Extension_Programa(Descripcion, _ Ruta_Programa, _ Extension, _ Ruta_Icono)
Y este es el modulo: No cambies nada de aqui solo del primer codigo! Option Explicit 'Declaraciones del Api y constantes '##################################### Private Declare Function RegCreateKey& Lib "advapi32.DLL" Alias "RegCreateKeyA" _ (ByVal hKey&, ByVal lpszSubKey$, hKey&) Private Declare Function RegSetValue& Lib "advapi32.DLL" Alias "RegSetValueA" _ (ByVal hKey&, ByVal lpszSubKey$, ByVal fdwType&, ByVal _ lpszValue$, ByVal dwLength&) Private Const HKEY_CLASSES_ROOT = &H80000000 Private Const MAX_PATH = 256& Private Const REG_SZ = 1 'Subrutina que asocia la extensión del programa '############################################### Public Sub Asociar_Extension_Programa(Descripcion As String, _ Programa As String, _ Extension As String, _ Optional Icono As String) Dim Clave As String Dim Valor_Clave As String Dim rc As Long Dim Handle_Clave As Long Dim ret As Long If Descripcion = "" Then MsgBox " No se especificó la descripción del programa", vbCritical Exit Sub End If If Programa = "" Then MsgBox " No se ha especificado la ruta del programa", vbCritical Exit Sub End If If Extension = "" Then MsgBox " No se ha especificado la extension del programa", vbCritical Exit Sub End If Clave = "clase" Valor_Clave = Descripcion ret = RegCreateKey&(HKEY_CLASSES_ROOT, Clave, Handle_Clave&) ret = RegSetValue&(Handle_Clave&, "", REG_SZ, Valor_Clave, 0&) ' Graba la extension Valor_Clave = "clase" ret = RegCreateKey&(HKEY_CLASSES_ROOT, Extension, Handle_Clave&) ret = RegSetValue&(Handle_Clave&, "", REG_SZ, Valor_Clave, 0&) 'Graba la ruta del ejecutable y el comando Shell\open\command Valor_Clave = Programa & " %1" ret = RegCreateKey&(&H80000000, Clave, Handle_Clave&) ret = RegSetValue&(Handle_Clave&, "shell\open\command", 1, Valor_Clave, 256&) ' Graba la ruta del ícono que se asociará al ejecutable ret = RegSetValue&(Handle_Clave&, "DefaultIcon", 1, Icono, Len(Icono)) End Sub
|
|
|
116
|
Programación / Programación Visual Basic / Como crear un formato o extensión propia.
|
en: 11 Agosto 2013, 17:54 pm
|
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: '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]
|
|
|
118
|
Programación / Programación Visual Basic / Re: ¿Como acer un Updater?
|
en: 9 Agosto 2013, 07:29 am
|
Hola amigo gracias por tu apote , pero realmente no es lo que busco , si no un exe que me descargue el zip o el archivo comprido , me borre los archivos actuales y los reemplase por ese!
Pero que pasa primero deve comprobar que la version es la mima que la que esta en el servidor!
|
|
|
119
|
Programación / Programación Visual Basic / ¿Como acer un Updater?
|
en: 9 Agosto 2013, 04:19 am
|
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!
|
|
|
120
|
Programación / Programación Visual Basic / Como crear un Updater para un proyecto de VB6
|
en: 8 Agosto 2013, 18:14 pm
|
Hola a todos yo aqui con una nueva pregunta , y bueno creo que en el titulo lo dice todo , pero lo que quiero hacer con mas precion es acer un update que me descague los archivos nuevos y me los guarde en la carpeta del proyecto , si se puede que sea por FTP o como sea pero que haga lo que ya les mencione..
Porfavor espero que me puedan ayudar , un millon de gracias!
|
|
|
|
|
|
|