Vbs Komutu ile Exe açma ve exe Kapama

[HaYTo]

Merhaba arkadaşlar bu forumdaki ilk mesajım Sitede forum olduğunu görmemiştim gördüğümde çok sevindim siteyi yakından takip eden biri olarak (rss'den) forumu nasıl kaçırmışım yazık bana
vbs de çok amatörüm ama bazı kodlar lazım oldu benim amacım
kodum şu şekilde olmasını istiyorum
"D:\Program Arsivi\naber sen.exe" yolundaki exe yi çalıştıracak ve görev yöneticisindeki "hosgeldin.exe" yi kapatacak açıkcası ben dosya yolunda boşluk olduğu için bu olayı yapamadım

[velociraptor]

Aramıza hoşgeldiniz , Şunu bir deneyin :

Kod: Tümünü seç

"""D:\Program Arsivi\naber sen.exe"""

[HaYTo]

Bu şekilde denedim oldu sağol

Kod: Tümünü seç

strProgramPath =  """D:\Program Arsivi\joytester.exe"""
set objShell = createobject("Wscript.Shell")
objShell.Run strProgramPath

peki çalışan exe yi nasıl kapartız bilginiz varmı

[velociraptor]

Kod: Tümünü seç

Option Explicit
Dim objWMIService, objProcess, colProcess
Dim strComputer, strProcessKill
strComputer = "."
strProcessKill = "'calc.exe'"

Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")

Set colProcess = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = " & strProcessKill )
For Each objProcess in colProcess
objProcess.Terminate()
Next
WSCript.Echo "Just killed process " & strProcessKill _
& " on " & strComputer
WScript.Quit
' End of WMI Example of a Kill Process 

5. satırdaki strProcessKill = "'calc.exe'" kırmızı ile yazılı yere sonlandıracağınız program ismini giriniz

[HaYTo]

verdiğiniz kod çalışıyor sağolun

[TRWE_2012]

Vallahi siz kendiniz aşmışsınız bizde hala VISUAL BASIC 6.00 ve C++ sürünüp durmaktayız......!