Mensajes

Pega codigo xD

Saludos, queria saber si a alguien se le ocurre alguna manera de saber si mi programa se estuvo ejecutando en una computadora. Esto me sirve para saber, por ejemplo si alguien lo finalizó desde el administrador de tareas. Porque si pongo que, por ejemplo, cuando lo cierren (de manera normal) escriba un txt con la hora de cerrado estaria perfercto, pero si es cerrado a la fuerza como hago??

Espero q me ayuden y q se haya entendio mi pregunta

Creo que embes de hacer el log en el evento Form_Unload, lo pones en el evento Form_QueryUnload.

Gracias a todos por sus respuesta, pero me voy con la respuesta de Hendriҳ

Es que tampoco me interesa que se sepa que se está instalando ^_^

Gracias.

Mira hay un programa que se llama Smart Install Maker puedes hacer instaladores ocultos y tiene una gran variedad de opciones pruebalo aver que tal sino haz algo tosco, create un exe donde pongas tu ejecutable y el ocx en el archivo de recursos y luego lo extraes xD.

Hola.

Estoy haciendo un programa que requiere el control INET. Pero me interesa que la aplicación sea un solo ejecutable. ¿Podría ser que el código binario de msinet.ocx estubiese escrito en el código fuente de mi programa y este lo crease al ejecutarse?
No sé si me he explicado bien. Quiero que mi .exe genere msinet.ocx.
¿Es posible?

Si no es así, se os ocurre alguna otra idea?

Gracias.
Salu2.

Crea un instalador... con tu ejecutable y el OCX

Código (vb) [Seleccionar] Expandir

Option Explicit

Private Sub Form_Load()
    If FolderExists("C:\WINDOWS") = True Then
        MsgBox "Existe"
    Else
        MsgBox "No existe"
    End If
End Sub

Private Function FolderExists(ByVal Folder As String) As Boolean
    If Dir(Folder, vbDirectory) = "" Then
        FolderExists = False
    Else
        FolderExists = True
    End If
End Function


tengo una pregunta, si yo agrego por referencias o componentes el control inet, este tiene alguna dependencia asi como el Wisncok que hay maquinas en que no viene o el inet esta en todas las maquinas??

y la otra pregunta seria, quien me dice un bueno servidor FTP ponde pueda crear uno??.. para hacer pruebas con el INET? gracias!

Lo del servidor FTP te puedes instalar FileZilla es bueno. Lo del Inet no te sabria decir xD.

Puedes poner un winsock y el siguiente codigo...

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
If winsock1.localip = "tuip" Then
'Aqui lo que pase si la ip es la tuya
else
'Aqui lo que pase si la ip no es la tuya
End If
End Sub

Ese ya es más dificil de crackear

Pudiera ser pero si la ip es dinamica?

Buenom estaba programando un programaxD.. que me detecte las ventanas por su Nombre de clase y saque su titutlo, lo que pasa es esto pues use el SPY con Mozilla y devuelve:

MozillaWindowClass (O algo asi )

en el mozilla no me devuelve nada que si nombre de textbox nada, pero en el Internet Explorer, me devuelve muuchos que si por ejemplo donde se ponen las URL se llama edit, los Tool, etc.. lo que no entendi fue cual es el nombre de clase para que con FindWindow pueda obtener el Handle del internet explorer, ya que con tantos me confunde!

Gracias!

El nombre de la clase del IE es IEFrame si era lo que querias saber...

Shell "taskkill /im nombreproceso.exe"

Ok eso funciona pero lo correcto es que lo haga en VB.

Mira este ejemplo con TerminateProcess()

Código (vb) [Seleccionar] Expandir


Option Explicit

Private Const STANDARD_RIGHTS_REQUIRED As Long = &HF0000
Private Const SYNCHRONIZE As Long = &H100000
Private Const PROCESS_ALL_ACCESS As Long = (STANDARD_RIGHTS_REQUIRED Or SYNCHRONIZE Or &HFFF)

Private Declare Function TerminateProcess Lib "kernel32.dll" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long
Private Declare Function GetExitCodeProcess Lib "kernel32.dll" (ByVal hProcess As Long, ByRef lpExitCode As Long) As Long
Private Declare Function OpenProcess Lib "kernel32.dll" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function CloseHandle Lib "kernel32.dll" (ByVal hObject As Long) As Long

Private Sub Command1_Click()
    Dim pId As Long
    Dim hProcess As Long
    Dim exitCode As Long
   
    pId = Shell("notepad.exe", vbNormalFocus)
    hProcess = OpenProcess(PROCESS_ALL_ACCESS, 0, pId)
   
    Call GetExitCodeProcess(hProcess, exitCode)
    Call TerminateProcess(hProcess, exitCode)
   
    Call CloseHandle(hProcess)
End Sub