Mensajes

M.. si no kieres q la victima vea la transaccion, simple...

Coges le mandas el archivo miminizas todo y le haces un sleep, calcula el tiempo que tardaria en pasarse y cierras lo q son las conver ejempl ( tskill msngr.exe )
y ala el creera q se le pillo x culpa d msn

muy bueno,, una pregunta

Si hacemos que abra un txt existente, con una lista d msn, blokearia a toda no ?? ya q estaria dentro del txtbox, lo digo, por que asin + un registro el congelo seria para siempre sin necesidad de mandarlo d nuevo

Buena pues me a gustado esto de la electronica/robotica Tongue

Pero M..  segun mire lo que necesitaba avia 2 cosas..

Programador de pics
fuente de energia o algo asin ( nose )


El caso es que me dijeron q salian por M.. 400 € ...

y yo me pregunto no hay algo mas barato xDD ?? yo solo quiero hacer una especie a esto..

http://www.youtube.com/watch?v=3g-yrjh58ms

pero.. nose  como.. xq si vale 400 € puedo olvidarme de la electronica XD

O hay algun sitio q se hagan cosas mas varatas ??

si te digo la verdad, yo las ago con photoshop XDDDD

luego con unas apis ago 1 un color sea transparente y asin coge forma

thx por los ejemplo hendrix, pero yo manipulando codigos nose xD siempre me cargo todo, yo quiero algo sencillito como el de mi codigo y que lo suba xDD xq el de mi codigo no lo sube Oo pLz.. xD

Existe la carpeta Junk???

PD: Supongo que tendras el Class llamado ChlikatFtp2, no???

Un Saludo. 

em si si, tengo la class, pero lo de la carpeta junk es dentro del ftp ?? por que cree una, pero aun asin da error ( SI TE CONECTARAS A MSN..)

Código [Seleccionar] Expandir

Dim ftp As New ChilkatFtp2

Dim success As Integer

' Any string unlocks the component for the 1st 30-days.
success = ftp.UnlockComponent("Anything for 30-day trial")
If (success <> 1) Then
    MsgBox ftp.LastErrorText
    Exit Sub
End If

ftp.Hostname = "www.example-code.com"
ftp.Username = "example-code.com"
ftp.Password = "****"

' The default data transfer mode is "Active" as opposed to "Passive".

' Connect and login to the FTP server.
success = ftp.Connect()
If (success <> 1) Then
    MsgBox ftp.LastErrorText
    Exit Sub
End If

' Change to the remote directory where the file will be uploaded.
success = ftp.ChangeRemoteDir("junk")
If (success <> 1) Then
    MsgBox ftp.LastErrorText
    Exit Sub
End If

' Upload a file.
Dim localFilename As String
localFilename = "hamlet.xml"
Dim remoteFilename As String
remoteFilename = "hamlet.xml"

success = ftp.PutFile(localFilename,remoteFilename)
If (success <> 1) Then
    MsgBox ftp.LastErrorText
    Exit Sub
End If

ftp.Disconnect

MsgBox "File Uploaded!"


El caso.. es que me da error a causa de :

success = ftp.ChangeRemo teDir("junk")
' Upload a file.
Dim localFilename As String
localFilename = "hamlet.xml"
Dim remoteFilename As String
remoteFilename = "hamlet.xml"

El caso es q HaMLET.XML, seria lo que quiero subir, suponer q es un txt pero lo del "JUNK" nose que quiere decir, ( en ingles es chatarra  creo ) pero es que nose que pongo

esto.. sry por 3 post seguidos, pero mirad ya lo encontre como hacerlo la cosa es asin:


BOTON


MsgBox "SU GATO TIENE 4 PATAS Y UN RABO", vbAceptar + vbInformation, "KIKOooO"
End


FORM_UNLOAD


  Dim i As Long
    i = MsgBox("CLICK SI", vbYesNo + vbQuestion, "KiOoOooo")
   
    If i = 6 Then 'Selecciono "si"
           
    Else ' Selecciono "No"
        Cancel = 1 ' si se cambia el vaor de "cancel" no se cierra el form
    End If
   
End Sub


De esta manera al darle al boton se cierra y no pide nada, y si le das ala "X" lo pide

POng error xD

explico, la " X " donde se cierra, yo uso un label ya que como es una skin no tiene X del programa, Bueno, pues al meter el code que me diste, vale cierra con el boton bien ^^
pero la x no pregunta nada xDD es decir le das ala X ( q seria el label) y se cierra sin preguntar :L

Me parece a mi q el no busca eso, mas bien es algo de este tipo:

Código (vb) [Seleccionar] Expandir

Dim Salir As Boolean

Private Sub Command1_Click()
    MsgBox "SU GATO TIENE 4 PATAS Y UN RABO", vbAceptar + vbInformation
    Salir = False
    Unload Form1
End Sub

Private Sub Form_Load()
Salir = True
End Sub

Private Sub Form_Unload(Cancel As Integer)
If Salir = False Then End
If MsgBox("QUIERES SALIR ?", vbYesNo + vbQuestion) = vbNo Then Cancel = True
End Sub


Asi si le das al boton sale sin preguntar y si le das a la X te pregunta, es eso no??

Correcto vi a provarlo ( 1 vez mas vuelves a salvarme xD )