IPB

Hoşgeldin Misafir ( Giriş | Kayıt Ol )

Süper Moderatör MSN

 
Reply to this topic Start new topic
 VB 6.0 ( Dosya İşlemi ), Yardım Please ! :D
 
MrDeNNiS
mesaj 03.04.2009, 16:18:31
İleti #1


Üye
Grup İkon

Grup: Üye
Üye No.: 284,899
Katılım: 06.12.2008
İleti: 57




arkadaşlar uraştım uraştım bulamadım bende son çare sizden yardım istiyim dedim...

istediğim şu

1.exe kapanırsa 2.exe de kapanıcak
2.exe kapanırsa 1.exe de kapanıcak

lütfen yardım edin
Go to the top of the pagePM
 
+Quote Post
EveryThingsForTu...
mesaj 03.04.2009, 18:00:24
İleti #2


Üye
Grup İkon

Grup: Üye
Üye No.: 166,012
Katılım: 10.12.2007
İleti: 62
Ruh Halim:


Bu Anti-cheat veya güvenlik Programı mı ?


--------------------
Go to the top of the pagePM
 
+Quote Post
SeKaSoft
mesaj 03.04.2009, 20:20:34
İleti #3


Meraklı Üye
Grup İkon

Grup: Üye
Üye No.: 9,745
Katılım: 03.02.2007
İleti: 203
Nereden: Türkiye-Mersin
Ruh Halim:


Kusura bakma ama burda o kadar FindWindow ve bir çok Progress ile api kullanımı yaptık, Kosplarda örnek al Findwindow ile senin pencerenin yani "1.exe" veya "2.exe" aktifse true pasifse false olur. Sende false olduğunda senin projeleriniz sonlandırırsın.

Bak kosp tan örnek veriyorum...

CODE
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Public Function GetHandle(ByVal WindowName As String) As Boolean

GameWindowHandle = FindWindow(vbNullString, WindowName)

If GameWindowHandle <> 0 Then
GetHandle = True
Else
GetHandle = False
End If
End Function

'Bunları module yapacaksın aşağıdakileri formunda nerde kullanırsan kullan

Dim SorBakalim as Boolean
Sorbakalim = GetHandle("1.exe")
if Sorbakalim = false then
End 'burda da kendini sonlandırmış olursun
end if



Apilere Çalışın arkadaşlar öyle bu kod versin bu kod versin Vbasic 'den anlayamazsınız. Projenin içinde neler yaptığını bilmen lazım bilmeden bir şeye kalkarsan işin içinden çıkazmasın neyse kırdıysam kusura bakmayın

Kolay Gelsin
Saygılarım By SeKaSoft


--------------------
Go to the top of the pagePM
 
+Quote Post
P0rtW0lf
mesaj 08.04.2009, 20:41:15
İleti #4


Meraklı Üye
Grup İkon

Grup: Üye
Üye No.: 4,076
Katılım: 01.02.2007
İleti: 128



MrDennis.. Process öldürmeyi araştır internetten smile.gif


--------------------
YaptıkLarımız, YapacakLarımızın Güvencesidir .. !!
Go to the top of the pagePM
 
+Quote Post
goknur55
mesaj 07.06.2009, 13:58:21
İleti #5


Meraklı Üye
Grup İkon

Grup: Üye
Üye No.: 38,356
Katılım: 22.02.2007
İleti: 224



bugün ben öyle bir kod yazdım ama şimdi anlatamıcam onu yazana kadar kafam kazan oldu wacko.gif


--------------------




Go to the top of the pagePM
 
+Quote Post
MrDeNNiS
mesaj 08.06.2009, 16:13:16
İleti #6


Üye
Grup İkon

Grup: Üye
Üye No.: 284,899
Katılım: 06.12.2008
İleti: 57



QUOTE(goknur55 @ 07.06.2009, 14:58:21) *
bugün ben öyle bir kod yazdım ama şimdi anlatamıcam onu yazana kadar kafam kazan oldu wacko.gif


1. senin o kodları kendin yazacağına inancım 0
2. 1312412431q23421323 yıl uğraşsan yazamasın wink.gif
Go to the top of the pagePM
 
+Quote Post
goknur55
mesaj 08.06.2009, 22:25:19
İleti #7


Meraklı Üye
Grup İkon

Grup: Üye
Üye No.: 38,356
Katılım: 22.02.2007
İleti: 224



QUOTE(MrDeNNiS @ 08.06.2009, 17:13:16) *
1. senin o kodları kendin yazacağına inancım 0
2. 1312412431q23421323 yıl uğraşsan yazamasın wink.gif

sen öyle san cool.gif


--------------------




Go to the top of the pagePM
 
+Quote Post
Reply to this topicStart new topic
1 kullanıcı bu başlığı okuyor (1 Misafir ve 0 Gizli Kullanıcı)
0 Üye:

 



- Basit Görünüm Şuan: 04.09.2010 - 19:45:12
Skin Designed By Evanescence For IBSkin.com
.: Destekleyenler & Desteklediklerimiz :.

ExBilgi Market | TSK Mehtmetçik Vakfına Yardım | Satılık otobüs-otobüsbul | MsXLabs | .::SineMakara::. | Mynak.Com | TurkeyDDL | İzmir Bilgisayar