Toplu Işlem

[Ragebar]

Merhaba arkadaşlar ben 1-2 gün önce 1 konu açmıştım programı kapatmak için arkadaş while winwaitactive("programtittlesi") filan yazmamı istemişti kodları uzatmıyım yaptım en başta yazanı açınca oluyor fakat o kodun altına tekrar bir while açınca ve o programı açınca ne bir error mesakı veriyor nede oyunu kapıyor aynı işlemi if komutu ilede yaptım ondada olmadı en üsteki kodu kapatıyor fakat onun altında tekrar yazdıklarımı kapamıyor. Aklıma tek 1 şey geldi oda data diye bir dosya oluşturup asıl exe onların hepsini teker teker atıcak onlardada hile engelliyen kodlar olucakki bunlada uğraşmak istemiyorum lütfen yardım edin.

Kodlar;
While WinWaitActive("Switch-Bot 1.0.0.2 © by Unpublished")
ProcessClose("asd.mac")
MsgBox(0,"MAC Shield","Lütfen hile kullanmayınız.")
While WinWaitActive("PickUp-Bot 1.0.0.2 © Unpublished")
ProcessClose("asd.mac")
MsgBox(0,"MAC Shield","Lütfen hile kullanmayınız.")
While WinWaitActive("Cixcocuk97")
ProcessClose("asd.mac")
MsgBox(0,"MAC Shield","Lütfen hile kullanmayınız.")
While WinWaitActive("Efsun Botu 1.1.2.0 © Cixcocuk97")
ProcessClose("asd.mac")
MsgBox(0,"MAC Shield","Lütfen hile kullanmayınız.")
While WinWaitActive("Multihack by .United 1.0")
ProcessClose("asd.mac")
MsgBox(0,"MAC Shield","Lütfen hile kullanmayınız.")
While WinWaitActive("SwitchBowv3 by Padmak(c)")
ProcessClose("asd.mac")
MsgBox(0,"MAC Shield","Lütfen hile kullanmayınız.")
WEnd
While WinWaitActive("Metin2 Multihack 1.8.5")
ProcessClose("asd.mac")
MsgBox(0,"MAC Shield","Lütfen hile kullanmayınız.")
WEnd
While WinWaitActive("Efsun Botu Dreamfancy 2012©")
MsgBox(0,"MAC Shield","Lütfen hile kullanmayınız.")
ProcessClose("asd.mac")
WEnd
ProcessClose("asd.mac")
MsgBox(0,"MAC Shield","Lütfen hile kullanmayınız.")
WEnd
While WinWaitActive("FishinhBot")
ProcessClose("asd.mac")
MsgBox(0,"MAC Shield","Lütfen hile kullanmayınız.")
WEnd
While WinWaitActive("Multihack 2.1")
ProcessClose("asd.mac")
MsgBox(0,"MAC Shield","Lütfen hile kullanmayınız.")
WEnd
While WinWaitActive("Cheat Engine 6.1")
ProcessClose("asd.mac")
MsgBox(0,"MAC Shield","Lütfen hile kullanmayınız.")
WEnd
While WinWaitActive("Charless 3.6.5 - Session 1 *")
ProcessClose("asd.mac")
MsgBox(0,"MAC Shield","Lütfen hile kullanmayınız.")
WEnd
While WinWaitActive("Efsun Botu 1.1.2.0 © Dreamfancy")
ProcessClose("asd.mac")
MsgBox(0,"MAC Shield","Lütfen hile kullanmayınız.")
WEnd
While WinWaitActive("Injector")
ProcessClose("asd.mac")
MsgBox(0,"MAC Shield","Lütfen hile kullanmayınız.")
WEnd Edited August 2, 2012 by Ragebar

[SimpsoN_Bart]

[font="Tahoma"]Kodları vereydin iyiydi.[/font]

[Ragebar]

[quote name='SimpsoN_Bart' date='02 August 2012 - 13:55 ' timestamp='1343908525' post='1226796']
[font="Tahoma"]Kodları vereydin iyiydi.[/font]
[/quote]
Yardım edicekmisiniz ?

[SimpsoN_Bart]

[font="Tahoma"]Güzel arkadaşım kodlarını görmeden sana nasıl yardım edebiliriz bir düşün bakalım ? Yani biraz empati kur veya anlayış göster. Yalvarmayalım sana kodlarını ver de yardımcı olalım diye.[/font]

[Ragebar]

[quote name='SimpsoN_Bart' date='02 August 2012 - 16:58 ' timestamp='1343919493' post='1226817']
[font="Tahoma"]Güzel arkadaşım kodlarını görmeden sana nasıl yardım edebiliriz bir düşün bakalım ? Yani biraz empati kur veya anlayış göster. Yalvarmayalım sana kodlarını ver de yardımcı olalım diye.[/font]
[/quote]
Kodları ekledim.

[SimpsoN_Bart]

[font="Tahoma"]İsteğin gibi düzenlersin ben sadece birkaç pencere için yaptım devamını da sen getir.[/font]

[codebox]

While 1
Sleep(100)
WinWaitActive("Switch-Bot 1.0.0.2 © by Unpublished")
_Process_Close("asd.mac") ;Uygulamayı kapatmak için
MsgBox(0, "MAC Shield", "Lütfen hile kullanmayınız.")
WinWaitActive("PickUp-Bot 1.0.0.2 © Unpublished")
;...
;...
WEnd

Func _Process_Close($Process = "")
If $Process = "" Or ProcessExists($Process) = 0 Then Return SetError(1, 0, 0)

While ProcessExists($Process) <> 0
ProcessClose($Process)
Sleep(50)
WEnd
Return 1
EndFunc ;==>_Process_Close
[/codebox]

[Ragebar]

[quote name='SimpsoN_Bart' date='02 August 2012 - 17:44 ' timestamp='1343922242' post='1226829']
[font="Tahoma"]İsteğin gibi düzenlersin ben sadece birkaç pencere için yaptım devamını da sen getir.[/font]

[codebox]

While 1
Sleep(100)
WinWaitActive("Switch-Bot 1.0.0.2 © by Unpublished")
_Process_Close("asd.mac") ;Uygulamayı kapatmak için
MsgBox(0, "MAC Shield", "Lütfen hile kullanmayınız.")
WinWaitActive("PickUp-Bot 1.0.0.2 © Unpublished")
;...
;...
WEnd

Func _Process_Close($Process = "")
If $Process = "" Or ProcessExists($Process) = 0 Then Return SetError(1, 0, 0)

While ProcessExists($Process) <> 0
ProcessClose($Process)
Sleep(50)
WEnd
Return 1
EndFunc ;==>_Process_Close
[/codebox]
[/quote]
Kardeşim çok teşekkür ederim. peki bu
Func _Process_Close($Process = "") buradaki tırnak işaretlerini doldurucakmıyız ?

Edited August 2, 2012 by Ragebar

[SimpsoN_Bart]

[font="Tahoma"]Hayır fonksiyona dokunma zaten örnek verdim nasıl yapman gerektiğini örnekte görebilirsin.Biraz daha kurcala, dikkat et.[/font]

[DivaneTR]

[color="#8B0000"]Ordaki tırnaklar hata kontrolü içindir. Fonksiyonu parametresiz çalıştırdığında işlem yapmaması için.[/color]

[Ragebar]

[quote name='SimpsoN_Bart' date='02 August 2012 - 17:44 ' timestamp='1343922242' post='1226829']
[font="Tahoma"]İsteğin gibi düzenlersin ben sadece birkaç pencere için yaptım devamını da sen getir.[/font]

[codebox]

While 1
Sleep(100)
WinWaitActive("Switch-Bot 1.0.0.2 © by Unpublished")
_Process_Close("asd.mac") ;Uygulamayı kapatmak için
MsgBox(0, "MAC Shield", "Lütfen hile kullanmayınız.")
WinWaitActive("PickUp-Bot 1.0.0.2 © Unpublished")
;...
;...
WEnd

Func _Process_Close($Process = "")
If $Process = "" Or ProcessExists($Process) = 0 Then Return SetError(1, 0, 0)

While ProcessExists($Process) <> 0
ProcessClose($Process)
Sleep(50)
WEnd
Return 1
EndFunc ;==>_Process_Close
[/codebox]
[/quote]
Kardeşim denedim fakat hine baştakini açınca sadece hata veriyor.