Vbs Komutu ile Exe açma ve exe Kapama

Programlama dilleri konusunda bilgi paylaşım alanıdır.
Cevapla
Kullanıcı avatarı
HaYTo
Byte3
Byte3
Mesajlar: 125
Kayıt: 19 Nis 2013, 19:00
cinsiyet: Erkek

Vbs Komutu ile Exe açma ve exe Kapama

Mesaj gönderen HaYTo » 13 Eki 2013, 01:02

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
Steam : http://steamcommunity.com/id/HaYTo
Youtube : https://www.youtube.com/haytokoraz



Kullanıcı avatarı
velociraptor
Yottabyte3
Yottabyte3
Mesajlar: 28780
Kayıt: 14 Mar 2006, 02:33
cinsiyet: Erkek

Re: Vbs Komutu ile Exe açma ve exe Kapama

Mesaj gönderen velociraptor » 13 Eki 2013, 01:40

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

Kod: Tümünü seç

"""D:\Program Arsivi\naber sen.exe"""
Knowledge determines destiny, And ye shall know the Truth and the Truth shall make you free

Kullanıcı avatarı
HaYTo
Byte3
Byte3
Mesajlar: 125
Kayıt: 19 Nis 2013, 19:00
cinsiyet: Erkek

Re: Vbs Komutu ile Exe açma ve exe Kapama

Mesaj gönderen HaYTo » 13 Eki 2013, 02:12

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ı
Steam : http://steamcommunity.com/id/HaYTo
Youtube : https://www.youtube.com/haytokoraz

Kullanıcı avatarı
velociraptor
Yottabyte3
Yottabyte3
Mesajlar: 28780
Kayıt: 14 Mar 2006, 02:33
cinsiyet: Erkek

Re: Vbs Komutu ile Exe açma ve exe Kapama

Mesaj gönderen velociraptor » 13 Eki 2013, 02:29

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
Knowledge determines destiny, And ye shall know the Truth and the Truth shall make you free

Kullanıcı avatarı
HaYTo
Byte3
Byte3
Mesajlar: 125
Kayıt: 19 Nis 2013, 19:00
cinsiyet: Erkek

Re: Vbs Komutu ile Exe açma ve exe Kapama

Mesaj gönderen HaYTo » 14 Eki 2013, 05:00

verdiğiniz kod çalışıyor sağolun
Steam : http://steamcommunity.com/id/HaYTo
Youtube : https://www.youtube.com/haytokoraz

Kullanıcı avatarı
trwe
Petabyte1
Petabyte1
Mesajlar: 5715
Kayıt: 25 Eyl 2013, 13:38
cinsiyet: Erkek
Konum: Düzce/Akçakoca

Re: Vbs Komutu ile Exe açma ve exe Kapama

Mesaj gönderen trwe » 18 Eki 2013, 21:18

Vallahi siz kendiniz aşmışsınız bizde hala VISUAL BASIC 6.00 ve C++ sürünüp durmaktayız......!
TRWE_2016
FEDAKARLIK OLMADAN ZAFER OLMAZ....!
-----------------------------
LINUXMASTER 2018
ZAFER'E GİDEN YOL,FEDAKARLIKTAN GEÇER...!
-----------------------------

Cevapla