Mensajes

Dale, si tenes dudas. Avisa

Gracias seba123neo...

Así... 

Código (vb) [Seleccionar] Expandir

lblCantidadRegistros.Caption="Total registros encontrados: " & ListView1.ListItems.Count

Hola, podrías aprender a usar GOOGLE.

Pero bueno, acá tienes un ejemplo de recursosvb.

Colocas el nombre y te devuelve la IP, colocas la IP y te devuelve el nombre.

Saludos

http://www.gigasize.com/get.php?d=y7qrxcky7vd

Desconozco como funciona el InstallMaker, supongo que el serial de activación lo solicita al momento de ejecutar la instalación del aplicativo. Pero te recomiendo lo siguiente.

Para que tú software no pueda ser crackeado puedes usar algo como:

1.- Un archivo que detecte o identifique el serial del DD donde se ejecuta la aplicación, de no ser el correcto que no permita la ejecución.
2.- Un serial de activación cifrado que almacenes en BD y que sea verificada al iniciar la aplicación.

Entre otras. Son las que se me ocurren en este momento.

Perdona pero así no es...

Debes indicarle al ListView que tiene enlazado un ImageList. Luego en el Codigo, indicas el Index del Icono. Los iconos cargalos en tiempo de Diseño.

Este es el Codigo que debe tener al momento de cargar la info en el ListView.

Código (vb) [Seleccionar] Expandir



Form5.ListView1.ListItems.Add(, , Form5.ftp.GetFilename(contador), 6)   
'El numero "6" identifica la posicion que tiene el icono dentro del ImageList.



Selecciona el ListView con click derecho y dale a propiedades.
Te vas a la pestaña de Lista de Imagenes. Y donde dice Normal o Pequeño, seleccionas el ImageList.

Luego de

List1.Selected(List1.ListCount - 1) = True

Enfoca en otro control. Ejm: TxtCadena.SetFocus

Saludos este es el primer post en el que pido ayuda espero que alguien pueda echarme una mano,
hace poco k uso VB 6.0 y estoy retocando mi primer programa k esta ya terminado

y bueno mi problema es, tengo un boton que te manda a otro formulario en el cual te da a elegir dos botones "si" y "no" si pulsas si te crea una carpeta en C:\WINDOWS y dentro de estas se crean archivos txt en los que se escriben comandos de MS-DOS los cuales son pasados a .bat para poder ser ejecutados, todo eso con pulsar ese boton,

Lo que me gustaria hacer seria ponerle antes de todo un IF para que Si exixte tal carpeta (en la que se meten los .bat) no siga con el proceso ya que si continua te cierra el programa y tienes que volver a abrirlo el caso esque no e encontrado ese IF en internet... alguien puede echarme una mano?

usa el metodo
IF fileExist(archivo)

No buscará un archivo, preguntará si existe una carpeta. Ya se le colocó unos ejemplos, de hecho le deje un módulo, pero bueno ya verá cual usará.

Sonic time sin verte por acá. Ve si retomas VB y haces algo bueno!

Puedes hacerlo así...

Coloca este codigo en un módulo bas

Código (vb) [Seleccionar] Expandir


Option Explicit

Public Const INVALID_HANDLE_VALUE = -1
Public Const MAX_PATH = 260

Public Type FILETIME
   dwLowDateTime As Long
   dwHighDateTime As Long
End Type

Public Type WIN32_FIND_DATA
   dwFileAttributes As Long
   ftCreationTime As FILETIME
   ftLastAccessTime As FILETIME
   ftLastWriteTime As FILETIME
   nFileSizeHigh As Long
   nFileSizeLow As Long
   dwReserved0 As Long
   dwReserved1 As Long
   cFileName As String * MAX_PATH
   cAlternate As String * 14
End Type

Public Declare Function FindFirstFile Lib "kernel32" _
   Alias "FindFirstFileA" _
  (ByVal lpFileName As String, _
   lpFindFileData As WIN32_FIND_DATA) As Long

Public Declare Function FindClose Lib "kernel32" _
  (ByVal hFindFile As Long) As Long

Public Function FileExists(sSource As String) As Boolean

   Dim WFD As WIN32_FIND_DATA
   Dim hFile As Long
   
   hFile = FindFirstFile(sSource, WFD)
   FileExists = hFile <> INVALID_HANDLE_VALUE
   
   Call FindClose(hFile)

End Function


Luego para verificar el directorio.

Código (vb) [Seleccionar] Expandir


If FileExists("Ruta_Directorio") = True Then
    MsgBox "Existe"
Else
    MsgBox "No Existe"
End If


Espero te funcione.

Saludos