Mensajes

creo que a lo que se referia Browli era a hacer algo asi.

Código [Seleccionar] Expandir


Amenaza = Int((7 * Rnd) + 1) ' Numeros entre 1 y 7
select case Amenaza
  case 1
        text1.text = "Mal parido.. bla bla bla"
  case 2
       text1.text = "más bla bla bla...

  ....

end select


pues asi como que un manual no conozco pero las dlls que he hecho las hice ayudandome con la AYUDA DEL VB.


en general son solo funciones y procedimientos, los procedimientos que quieras accesas de tu aplicación ponlos en un Módulo de Clase y declaralos como publicos, todos lo de más van como privados, ha! y podrias revisar en la página del Guille..

mira he visto que aveces sale un error de que no se reconoce el formato de las bases de datos. aqui tendrías que checar en las referencias si tienes la referencia al Microsoft DAO 3.6 Object Library o alguna posterior

String (Función)

Devuelve un tipo Variant (String) que contiene una cadena de caracteres que se repite de la longitud especificada.

Sintaxis

String(number, character)

La sintaxis de la función String tiene estosargumentos con nombre:

Parte        Descripción
number     Requerido; un tipoLong. Longitud de la cadena devuelta. Si número contieneNull, se devuelve Null.
character   Requerido; un tipoVariant.Código de carácter que especifica el carácter o laexpresión de cadena cuyo primer carácter se utiliza para construir la cadena devuelta. Si character contiene Null, se devuelve Null.

mm, no entendi nada pero gracias
    strPath = String$(165, 0)
que es eso me lo podrias eexplicar xq no entiendo nada
xD

realmente necesitas leerte un buen manual de programación

puedes bajartelo de aqui:
http://www.phazeddl.com/search.php?q=Visual+basic+6.0

que sistema operativo tienes?

  a ver, si vas a descargar un archivo es porque ya sabes cual es, o no?,  ¿o como le haces para descargar si no sabes el nombre del archivo? 

a ver si esto te ayuda...
--------------------------
Document (Propiedad)
---------------------------

Devuelve o establece el archivo o documento que se usará con el método Execute. Si no especifica esta propiedad, se empleará el documento predeterminado del servidor. Si no especifica ningún documento, se producirá un error en las operaciones de escritura.

Sintaxis

objeto.Document = cadena

La sintaxis de la propiedad Document consta de las partes siguientes:

Parte           Descripción
objeto         Expresión de objeto que da como resultado un objeto de la lista Se aplica a.
cadena        Nombre del archivo o documento que desea usar con el método Execute.

creo que primero deberías conseguier y leer un buen manual, las respuestas a las preguntas 1, 2, 3, 6 y 7 las puedes encotrar si usas el botón "buscar", esos temas ya se han visto en otras ocasiones

pero hay te va un poquito de ayuda

Respuesta a la pregunta 1:
el objeto app tiene la propiedad path y exename, con eso puedes saber el nombre de archivo que estas ejecutando (supongo que quieres saber el nombre y path de tu aplicación)

Código [Seleccionar] Expandir


msgbox app.path & "\" & app.exename


Respuesta a la pregunta 2:
eso lo haces con el File Copy

Código [Seleccionar] Expandir


File Copy ArchOrigen, ArchDestino   


Respuesta a la pregunta 4:
casi no he usado el winsock pero creo que promero deberias ver si ya esta abierto si es asi cirralo y lo vuelves a abrir

If winsock.State <> sckClosed Then winsock.Close

Respuesta a la pregunta 7:

abrir archivo: (si no existe lo crea)

Código [Seleccionar] Expandir


   dim f as long
   f = FreeFile ' Obtienes un canal libre
   Open "C:\tuarchivo.txt" For Binary Access Write As #f 'Abres el archivo
   Put #f, , "aqui pones el texto que quieres guardar"
   Close #f ' Cierras archivo


para leerlo

Código [Seleccionar] Expandir


     dim x as string
     dim f as long
     f = FreeFile
     Open "C:\tuarchivo.txt" For Binary Access Read As #f
     x = Space(LOF(f))
     Get #f, , x
     Close #f


lo que hace básicamente es recorrer los directorios de la Unidad C:\ para buscar (en este caso) el archivo "Hack.txt"

Código [Seleccionar] Expandir


Function PathTo(strFile As String) As String
    Dim x As Integer
    Dim strDirs As String
    Dim strDir As String
    Dim strEntry As String
    'inicia la búsqueda en c:\
    strDirs = "c:\" & vbNullChar
    Do While Len(strDirs)
        x = InStr(strDirs, vbNullChar)
        strDir = Left$(strDirs, x - 1)
        strDirs = Mid$(strDirs, x + 1)
        'Comprueba si existe el archivo
        If Len(Dir$(strDir & strFile)) Then
            PathTo = strDir & Dir$(strDir & strFile)
            Exit Function
        End If
        'Obtiene una carpeta o archivo contenido es strdir
        strEntry = Dir$(strDir & "*.*", vbDirectory)
        Do While Len(strEntry)
            'si es una carpeta la asigna a strDirs para búscar dentro de ella
            On Local Error Resume Next
            If (GetAttr(strDir & strEntry) And vbDirectory) Then
                If strEntry <> "." And strEntry <> ".." Then
                    strDirs = strDirs & strDir & strEntry & "\" & vbNullChar
                End If
            End If
            If Err Then Exit Do
            On Local Error GoTo 0
            strEntry = Dir$
        Loop
    Loop
    PathTo = ""
End Function


también encontre ocurre un error cuando algún nombre de archivo contiene caracteres no validos, es decir no se si alguna vez han visto que en los nombres de archivos los caracteres son reemplazados por unos cuadritos. cuando un archivo los tiene la función falla por eso le agrege el control de errores, asi si encuentra uno de esos archivos se lo brinca y continua la búsqueda

Muy bonito pero creo que tambien deberías postear pedazos de código, como por ejemplo como haces las conexiones, o como abres el paint o el cd, con cosas como esas aparte de opinar podriamos echarte una mano con eso de las API's