Mensajes

Código [Seleccionar] Expandir


Public Sub KillProcess(ByVal processName As String)
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

pone ese codigo en cualquier parte del form , y despues escribi en KillProcess ("lala.exe") , despues tenes q usar con variables para matar el proceso seleccionado , saludos

gracias capo , miro nomas   ,y professional vb programmer lo puse al re pedo xD , empese hace menos de 3 meses a programar , y no entiendo mucho,pero algunas cosas salen
saludos

y para transmitir voz por winsock no hay nada ?  , no pude conseguir en planet source code , esta todo en ingles, y busque y aparecen cosas de skype pero q no sirven , algun codigo directo para poner ?

es muy rata q grabe y mande el archivo xD

y el pcode va todo cifrado el .exe no ? yo lo revise el exe y con pcode tiene todas letras raras,en cambio en normal tiene las letras q te dice todas las rutas y varias cosas q hace :S

queres q cuando escribas abajo te aparezca "Caracteres restantes" y valla bajando del 100 al 1 cuando vas escribienod ? :S

uuu ingles xD , me consigo traductor , gracias igual

:S , google nomas ?  , entonces,me ayudas a buscar ? xD . por q yo no encuentro :S

Nadie sabe nada ? :S , tantos genios para nada ? 

lo mejor es lo q dice einfluss , haces el diseño , los textbox donde ponga el tel , area , mensaje, remitente , el enviar , y esos botones q hagan la misma funcion q la de los botones de la web http://www.mensajes-celular.com.ar/

yo programo en ingles , no esta muy dificil , por q son cosas basicas de ingles , timer,button,new,file , son boludeces