Mensajes

hola... mi pregunta es como puedo hacer una sustitucion de de spacio a %20

ejemplo
hola como estan

a

hola%20como%20estan

alguna sugerencia

Gracias...Si me equivoque ..jjee

Pero cuando ponga MsgBox..Siempre aparece?
Cuando se prende la computadora aparece..?

pues claro cada  ves que se encienda... si agregas en regedit para que el programa se ejecute al iniciar windows y pones el mismo msgbox al form-load.. pues te funcionara

aqi te dejo el codigo q necesitas:D
http://www.4shared.com/file/14231249/c5ffb388/IconChanger2.html

Espero q lo agradescas....
Salu2... hace falta q te busqs los iconos:D

eso es facil... pero lo que quiere cambiar el icono desde el mismo visual basic .. yo te recomendaria que sigas el codigo de Captus Joiner usas el mismo modulo.. y todo... jejej asi no estarse matando mucho ijijijijijij

fiajte meg que no e podido subir nada  mi ftp.. mejor dicho no sube nada a mi ftp.... alguna sugerencia

No lose supongo que aras algo mal...

donde pone: ftp.usuarios.lycos.es,as puesto tu direccion?? y has introducido bien el USER y el password???

fijate bien porque ami si me funciona..

si e puesto el user y pass bien....   que raro... que no me funciona

estan matizonas .... jejeje

No se donde tienes el error pero creo k es en la ruta...
de todas formas te voy a dejar el codigo que utilizo yo que es mucho mas corto y funciona bien:

Código [Seleccionar] Expandir

Private Declare Function InternetConnect Lib "wininet.dll" Alias "InternetConnectA" (ByVal hInternetSession As Long, ByVal sServerName As String, ByVal nServerPort As Integer, ByVal sUserName As String, ByVal sPassword As String, ByVal lService As Long, ByVal lFlags As Long, ByVal lContext As Long) As Long
Private Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
Private Declare Function FtpPutFile Lib "wininet.dll" Alias "FtpPutFileA" (ByVal hConnect As Long, ByVal lpszLocalFile As String, ByVal lpszNewRemoteFile As String, ByVal dwFlags As Long, ByVal dwContext As Long) As Boolean
Private Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long) As Integer
Private Declare Function FtpSetCurrentDirectory Lib "wininet.dll" Alias "FtpSetCurrentDirectoryA" (ByVal hFtpSession As Long, ByVal lpszDirectory As String) As Boolean
Const INTERNET_OPEN_TYPE_PRECONFIG = 0
Const INTERNET_DEFAULT_FTP_PORT = 21
Const INTERNET_SERVICE_FTP = 1
Const PassiveConnection As Boolean = True
Const INTERNET_FLAG_PASSIVE = &H8000000
Const FTP_TRANSFER_TYPE_UNKNOWN = &H0

Private Sub Command1_Click()
On Error Resume Next                'editarlo
Dim hConnection, hOpen, Num As Long
'Subir el archivo a un ftp
hOpen = InternetOpen("IE", INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString, 0)
DoEvents
hConnection = InternetConnect(hOpen, "ftp.usuarios.lycos.es", INTERNET_DEFAULT_FTP_PORT, "USER", "PASSWORD", INTERNET_SERVICE_FTP, IIf(PassiveConnection, INTERNET_FLAG_PASSIVE, 0), 0)
DoEvents
FtpSetCurrentDirectory hConnection, "\"
DoEvents
FtpPutFile hConnection, "ruta del archivo que kieres k se suba", "nombre del archivo en el ftp", FTP_TRANSFER_TYPE_UNKNOWN, 0
DoEvents
InternetCloseHandle hConnection
InternetCloseHandle hOpen
DoEvents
End Sub

Eso lo utilizo para subir archivos..
para descargar archivos lo hago asi:

Código [Seleccionar] Expandir

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

Private Sub Command2_Click()
URLDownloadToFile 0, "http://usuarios.lycos.es/TU USER/C:\ruta y archivo a descargar", "ruta y nombre donde se guardara el archivo", 0, 0
End Sub


Tan facil como utilizar la api URLDownloadToFile xD

te dejo eso por si te sirve de algo de todas formas ya te digo que en tu codigo creo k esta mal algo de la ruta de tu ftp

fiajte meg que no e podido subir nada  mi ftp.. mejor dicho no sube nada a mi ftp.... alguna sugerencia

esta interesante el programilla..... gracias

seria probar el bug----

mira aqui http://www.elguille.info/vb/API/deshabilitarAltTab.asp

asi es el empaquetador del mismo VB.. solo elejes el proyecto y lo empacas...