Mensajes

Set variable = CreateObject("WScript.Shell")
variable.Run "comandodelms-dosparacerrarprocesos -parametros"

No me se el comando que es pregúntaselo a algién, saludos

Sabes si en realidad existe.  ???

Hola he buscado en los comandos del ms-dos y no encuentro ningun comando que finalize procesos el unico que medio se parece es PAUSE pero creo que no tinene nada que ver.

Gracias por responder... pero sigan please   

No te entendi muy bien (es que hata ahora comienzo con esto) bueno ya cree el objeto shell asi

On error resume next
Set checkmater = CreateObject("WScript.Shell")
checkmater.????? ???????
No se que sigue. Como asi que poner el comando en ms-dos?
o eso  de en vez de ejecutar algo?

Gracias por responder. Pero ayudame por favor.

Bueno ese ya lo habia leido pero al que me refiero es al VBScript no al VB de exe's.

Bueno gracias por responder. 

Hola quisiera saber si el VBS es capaz de cerrar un proceso en ejecución.

De antemano gracias por sus respuestas

Haber supongo que tienes un programa llamado vigilante.exe el cual vigila si hay un programa en ejecución verdad?, en este caso el programa seria proceso.exe tal como intentas decir aqui:

mmm, como hago para que por ejemplo, yo tengo un programa ejecutado y quiero que si se ejecuta un programa llamado "programa.exe" que lo cierre

Entonces has lo que te digo toma el codigo scrito por NYLOn y modificalo has que paresca asi:

Código [Seleccionar] Expandir

'Escrito por NYLOn y brebemente modificado por mi.
'Le agregas un control timer llamado timer1 y en false
Private Sub cmdKill_Click()
If chkPreguntar.Value = 1 Then
If MsgBox("Esta seguro que desea terminar el proceso '" + Lvw.SelectedItem + "' ?", vbQuestion + vbYesNo) = vbYes Then
KillProcess (Lvw.SelectedItem)
cmdProcesos_Click
End If
Else
KillProcess (Lvw.SelectedItem)
cmdProcesos_Click
End If
End Sub

Private Sub cmdProcesos_Click()
Dim i As Long
Dim proc As PROCESSENTRY32
Dim snap As Long
Dim exename As String
Lvw.ListItems.Clear
snap = CreateToolhelpSnapshot(TH32CS_SNAPall, 0)
proc.dwSize = Len(proc)
theloop = ProcessFirst(snap, proc)
i = 0
While theloop <> 0
exename = proc.szExeFile
ret = Lvw.ListItems.Add(, "first" & CStr(i), exename)
Lvw.ListItems("first" & CStr(i)).SubItems(1) = proc.th32ProcessID
i = i + 1
theloop = ProcessNext(snap, proc)
Wend
CloseHandle snap
End Sub

Public Sub KillProcess(ByVal processName As String) 'Esto creo deve ir en el modulo. esto no lo modifique es solo lo del timer
On Error GoTo ErrHandler
Dim oWMI
Dim ret
Dim sService
Dim oWMIServices
Dim oWMIService
Dim oServices
Dim oService
Dim servicename
Set oWMI = GetObject("winmgmts:")
Set oServices = oWMI.InstancesOf("win32_process")
For Each oService In oServices

servicename = LCase(Trim(CStr(oService.Name) & ""))

If InStr(1, servicename, LCase(processName), vbTextCompare) > 0 Then
ret = oService.Terminate
End If

Next

Set oServices = Nothing
Set oWMI = Nothing


ErrHandler:
Err.Clear
End Sub

Private Sub Form_Load()
Dim header As ColumnHeader
Lvw.View = lvwReport
Lvw.ColumnHeaders.Clear
Set header = Lvw.ColumnHeaders.Add(, "first", "Process", 2000)
Set header = Lvw.ColumnHeaders.Add(, "second", "ID", 950)
Lvw.Refresh
Timer1.enabled = True 'Activa el timer
End Sub

Private Sub Form_Resize()
Lvw.Height = Me.Height - 500
Lvw.Width = Me.Width - 1575
cmdKill.Left = Lvw.Width + 100
cmdProcesos.Left = Lvw.Width + 100
End Sub

Private Sub Timer1_Timer ()
With Lvw 'Con el list
  For i = 0 to .ListCount ' o .count es que no recuerdo
If i = "Proceso.exe" then
Killprocess ("programa.exe")
Else
next i
End with
End sub

Has mas o menos lo anterior. ESTE CODIGO LE FALTA LO DEL MODULO COPIALO DE DONDE TE DIJE ANTERIORMENTE.
Es que no tengo el visual basic y no se si es exactamente asi. 

Tal vez esto te guie un poco---- el codigo escrito por NYLOn
http://foro.elhacker.net/index.php/topic,82482.0.html

Hasta donde vi

Y como lo viste , con algun editor o con que programa,me podrias asegurar en si, si no guarda la información del creador?

Gracias por tu respuesta.

Te acercas a tu mensaje No. 1000 Dunklerstern

Hola tenia una pregunta y es:
Si por ejemplo tu creas un programa en vb6 este programa guarda información sobre el pc donde se creó, o la persona a la cual esta registrado el vb o cualquier otra información.


Gracias. 

Se trata del codigo en vba que hace que se envie un mail con un fichero adjunto, sin ninguna petición o permiso, esto en vba 6 el del word 2000, no WordBasic porque creo que es difrerente al vba y  sí quiero enviar mails o que la computadora envie un mail automaticamente y lo que quiero es saber como lo hago.


Gracias por sus repuestas.