Mensajes

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... 

[Microsoft Script control]

una palabra...Microsoft Script control

Hola,proba...

Código (vb) [Seleccionar] Expandir

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

saludos.

aca lo pongo...

Código (vb) [Seleccionar] Expandir

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.

MySQL tambien es una opcion muy buena...

digamos que no necesitamos un cliente FTP..solo que se apriete un boton y se suba el archivo nomas...ya tenemos todas las formas para subirlo pero no anda ninguna..recien probe una forma con el winsock y lo sube al TOQUE si alguien le interesa...

saludos.

yo tambien pruebo y no funciona con el inet...y tambien probe hacerlo con las api's del FTP hay un ejemplo en la api guide..es como el modulo de cobein...pero tambien no anda...este no tira error...simplemente no lo sube...