Hola, es una pregunta muy global como para contestar en un post y si te pudiera responder no lo hago porque me tomaria un dia nombrarte las diferencias y capas no entenderias..te recomiendo buscar en un buscador conocido llamado GOOGLE cuales son las diferencias...aparte esto ya se pregunto en el foro general muchas veces..busca tambien en la pagina de microsoft ahi nombra las diferencias...y manuales busca en internet ahi estan todos...

saludos.

cuantos vi de estos...cansado estoy...

Hola,busca en recursosvisualbasic ahi hay un modulo clase para asociar una extensión a un archivo y con el icono que quieras...y lo del .exe se puede hacer...pero desde otro .exe escribiendo como si fuera un texto...desconozco si se puede del mismo .exe...en PSC hay varios ejemplos de como cambiar las descripciones de los .exe y demas..

saludos.

Hola,¿ese es todo el codigo? porque para mi no...y una pregunta ¿no tenes el codigo para probarlo desde visual basic? ¿porque lo porbas desde el .exe?  aparte creo que el error no esta en ese formulario...sino en el form1...que es el que se carga..

saludos.

lee un manual y listo... 

una palabra...Microsoft Script control

es una locura que les agarro a algunos del foro..no es importante 

Hola, ¿pero donde tenes esos archivos?...¿los genera un programa o que? proba abrirlos en modo texto haber si se puede leer lo que tiene...

lo mas facil es adivinar la contraseña...o preguntarsela al dueño..

la mejor forma es dejarla prendida a la pc siempre... y te olvidas de cuanto tarda..aparte ¿ desde donde empiezan a contar los segundos...? ¿ desde que aprteas el boton de encendido de la maquina? ..porque tampoco tarda mucho en encender una maquina..

saludos.

es una boludez terrible..aparte solo algunas provincias aceptaron...o sea si uno se va para el oeste y viaja una hora ....llega a la misma hora que se fue.. ...aparte si todos los paises hicieran eso ...tendriamos 3 millones de usos horarios..

el tuyo tambien..


¿ y vos enserio crees que cuando la biblia habla de infierno es un lago de fuego de azufre donde se van a quemar todos por todo la eternidad??...por favor..la biblia es puro simbolismo...a poner un poquito de mas de inmaginacion que no es dificil saber a que se refiere..se refiere a un castigo por las acciones, un alejamiento de Dios por lo que hicimos en vida, un castigo, "un infierno"...pero algnos diran que Dios entonces es malo por castigarnos..pero entonces si no nos castiga viva la pepa para todos entonces...como dice el dicho "Dios aprieta, pero no ahorca", "Dios no va a cargar con nuestros pecados como bien dice Josue: "Dios es santo, el pecado debe ser condenado" , "Él es un Dios Santo No sufrirá nuestras transgresiones ni pecados."
Mateo: "El Infierno no fue hecho para el hombre." ". . .fue preparado para el Diablo y sus ángeles:", "Dios no manda al Infierno.uno escoge ir al Infierno cuando rechaza a Cristo"


bue...me refiero a la "traduccion"..la que tenemos todos en casa...


con eso queres decir que los testigos de jehova estan en lo correcto..pero lamentablemente ellos no creen que el Espiitu Santo sea una persona..por lo tanto esa frase no les corresponde..

Hola,proba...

Private Sub Command1_Click()
Static i As Integer
i = i + 1
Me.Caption = Format(i, "0000")
End Sub

saludos.

aca lo pongo...

Option Explicit
 
Private Type Datos
    Respuesta As String
    Comando As String
End Type
 
Dim Comandos(5) As Datos
Dim Estado As Integer
Dim Sitio As String, Usuario As String, Password As String, ArchivoRemoto As String, ArchivoLocal As String
Dim TamañoBuffer As Long
Dim EstaCerrado As Boolean
 
Private Sub Command1_Click()
 
Sitio = "ftp.tuservidor.com.ar"
Usuario = "tuusuario"
Password = "tucontraseña"
ArchivoLocal = "c:\a.txt"
ArchivoRemoto = "/carpetadetuservidor/a.txt"
Comandos(0).Respuesta = "220"
Comandos(0).Comando = "USER " + Usuario
Comandos(1).Respuesta = "331"
Comandos(1).Comando = "PASS " + Password
Comandos(2).Respuesta = "230"
Comandos(2).Comando = "TYPE I"
Comandos(3).Respuesta = "200"
Comandos(3).Comando = "PORT"
Comandos(4).Respuesta = "200"
Comandos(4).Comando = "STOR " + ArchivoRemoto
Comandos(5).Respuesta = ""
Comandos(5).Comando = ""
TamañoBuffer = 2920
 
Dim Nr1 As Integer
Dim Nr2 As Integer
Dim IPLocal As String
 
IPLocal = Winsock1.LocalIP
 
Do Until InStr(IPLocal, ".") = 0
    IPLocal = Left(IPLocal, InStr(IPLocal, ".") - 1) + "," + Right(IPLocal, Len(IPLocal) - InStr(IPLocal, "."))
Loop
 
Randomize Timer
 
Nr1 = Int(Rnd * 12) + 5
Nr2 = Int(Rnd * 254) + 1
Comandos(3).Comando = "PORT " + IPLocal + "," + Trim(Str(Nr1)) + "," + Trim(Str(Nr2))
Winsock2.Close
 
Do Until Winsock2.State = 0
    DoEvents
Loop
 
Winsock2.LocalPort = (Nr1 * 256) + Nr2
Winsock2.Listen
Winsock1.Close
 
Do Until Winsock1.State = 0
    DoEvents
Loop
 
Winsock1.RemoteHost = Sitio
Winsock1.RemotePort = 21
Winsock1.Connect
Estado = 0
 
Do Until Winsock1.State = 7 Or Winsock1.State = 9
    DoEvents
Loop
 
Select Case Winsock1.State
    Case 9
    MsgBox "No se pudo Conectar al Servidor " + Sitio + ".", vbOKOnly + vbInformation
    Case 7
    Open ArchivoLocal For Binary As #1
End Select
 
End Sub
 
 
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
 
Dim tmpS As String
Winsock1.GetData tmpS, , bytesTotal
Debug.Print tmpS;
 
Select Case Left(tmpS, 3)
    Case Comandos(Estado).Respuesta
        Winsock1.SendData Comandos(Estado).Comando + Chr(13) + Chr(10)
        Debug.Print Comandos(Estado).Comando
        Estado = Estado + 1
    Case "150"
        Do Until Winsock2.State = 7
            DoEvents
        Loop
        Call EnviarDatos
    Case "226"
        Winsock1.Close
        Do Until Winsock1.State = 0
            DoEvents
        Loop
        MsgBox "Subida de Archivo Completa....", vbOKOnly + vbInformation
    Case Else
        MsgBox "No Hay Respuesta del Servidor: " + Left(tmpS, Len(tmpS) - 2), vbOKOnly + vbInformation
End Select
 
End Sub
 
Private Sub Winsock2_ConnectionRequest(ByVal requestID As Long)
Winsock2.Close
Do Until Winsock2.State = 0
    DoEvents
Loop
Winsock2.Accept requestID
Do Until Winsock2.State = 7
    DoEvents
Loop
End Sub
 
Sub EnviarDatos()
Dim Take As Long
Dim Buffer As String
If LOF(1) - Seek(1) < TamañoBuffer Then Take = LOF(1) - Seek(1) + 1 Else Take = TamañoBuffer
Buffer = Input(Take, 1)
Winsock2.SendData Buffer
 
If Take < TamañoBuffer Then
    Close #1
    EstaCerrado = True
End If
End Sub
 
 
Private Sub Winsock2_SendComplete()
If EstaCerrado = True Then
    Winsock2.Close
Do Until Winsock2.State = 0
    DoEvents
Loop
    EstaCerrado = False
Else
    EnviarDatos
End If
End Sub
 

necesitas 2 winsock y un boton...

saludos.

no hace falta citar frases de la biblia para responder que lo que creen los testigos de jehova es algo falso...¿porque no son catolicos y listo..? ¿porque se tienen que meter en esa secta si lo que creen es igual a los otros ?  crearon esa secta porque lo que creen no es lo mismo que los que creen los otros...por algo la crearon sino no lo hubieran echo..

te puedo hablar bien de esto ya que mi ciudad esto es muy comun...pasan cada tantos dias por mi casa estos "falsos profetas" como lo anuncio Cristo y golpean la puerta de mi casa para meterme tratar de convencerme de su ideologia, tratan de hablarme de lo que creen ellos, tratan de "engañarte" como decia Cristo que iban a hacer...asi se van tambien caudno mi viejo los atiende y los putea de arriba a bajo o directamente les dice que no tiene tiempo...pasan asi por todas las casas de la ciudad toda la familia vestida con saquito negro y con maletin donde llevan su "verdad"...

digo yo para que copian la biblia original en otra?? porque no usan la que usa todo el mundo...sera porque "algo le cambian" ...o digo yo ¿ porque crean sus propios escritos si segun ustedes es lo mismo que la original ?.. ¿ porque no predican con la original directamente..??

cambiaron pasajes de la biblia y publicaron su propia "version" ...cuando al final de la misma dice que "Si alguno añadiere a estas cosas, Dios traerá sobre él las plagas que están escritas en este libro.  Y si alguno quitare de las palabras del libro de esta profecía, Dios quitará su parte del libro de la vida, y de la santa ciudad y de las cosas que están escritas en este libro."

de que solo iran al cielo 144000 espiritus y los demas se quedan en la tierra, y los condenados Dios los va a aniquilar...¿Dios no es Amor acaso? que aberracion eso por favor...

no reconocen la Divinidad de Jesucristo, ni del Espiritu Santo...o sea es lo mas grande que tiene los cristianos y ustedes no lo creen..niegan que Jesus murio en la cruz y que no resusito su cuerpo...un desastre paro aca mejor...

y me despido con:


Saludos.