Anasayfa > Kodlar > Visual Basic 6 ile programların çalışmasını engellemek

Visual Basic 6 ile programların çalışmasını engellemek


Çalışmasını istemediğiniz yada çalışmasını engellemek isediğiniz programlar için kullanabilirsiniz.

Formunuza

1 adet modül

2 adet listbox
2 adet label
2 adet buton
1 adet textbox
3 adet timer   ekleyin

timer1 in interval özelliğini    1000
timer2 nin interval özelliğini  2000
timer3 ün interval özelliğini   3000

yapın

===================================

modülün içine şu kodları yapıştırın

‘API TANIMLAMALARI
Public Declare Function RegisterServiceProcess Lib “kernel32” (ByVal ProcessID As Long, ByVal ServiceFlags As Long) As Long
Declare Function GetCurrentProcessId Lib “kernel32” () As Long
Declare Function TerminateProcess Lib “kernel32” (ByVal ApphProcess As Long, ByVal uExitCode As Long) As Long
Declare Function OpenProcess Lib “kernel32” (ByVal dwDesiredAccess As Long, ByVal blnheritHandle As Long, ByVal dwAppProcessId As Long) As Long
Declare Function ProcessFirst Lib “kernel32” Alias “Process32First” (ByVal hSnapshot As Long, uProcess As PROCESSENTRY32) As Long
Declare Function ProcessNext Lib “kernel32” Alias “Process32Next” (ByVal hSnapshot As Long, uProcess As PROCESSENTRY32) As Long
Declare Function CreateToolhelpSnapshot Lib “kernel32” Alias “CreateToolhelp32Snapshot” (ByVal lFlags As Long, lProcessID As Long) As Long
Declare Function CloseHandle Lib “kernel32” (ByVal hObject As Long) As Long

Const MAX_PATH& = 260

‘PROCESS TIPI
Type PROCESSENTRY32
dwSize As Long
cntUsage As Long
th32ProcessID As Long
th32DefaultHeapID As Long
th32ModuleID As Long
cntThreads As Long
th32ParentProcessID As Long
pcPriClassBase As Long
dwFlags As Long
szexeFile As String * MAX_PATH
End Type

==================================

Formun load  olayına şu kodları yapıştırın

Yenile
App.TaskVisible = False ‘Uygulamayı Gizle
Form1.Hide ‘Formu Gizlemek için yani görünmez çalışır

====================================

List1 in click olayına şu kodu yapıştırın

List2.ListIndex = List1.ListIndex

===================================

list2 nin click olayına şu kodu yapıştırın

List1.ListIndex = List2.ListIndex

==================================

buton 1 e ( buton adı :  Programı kapat ) resime bakınız

Dim cvb
cvb = MsgBox(List1.List(List1.ListIndex) & vbCrLf & “Programı Kapatmak İstediğinizden Emin Misiniz?? “, vbQuestion + vbYesNo, “Confirm”)
If cvb = vbYes Then
KillProcessById List2.List(List2.ListIndex)
End If
Yenile

==================================

buton 2 ye (buton adı :  Yenile) resime bakınız

Yenile

==================================

Timer 1 in içine şu kodları yapıştırın

Dim i
For i = 0 To List1.ListCount – 1
If UCase(List1.List(i)) = UCase(Text1) Then
‘Bulundu İse Seç
List1.ListIndex = i
Exit Sub
End If
Next

Yenile

====================================

Timer 2 nin içine şu kodları yapıştırın

If List1.ListIndex > 1 Then KillProcessById List2.List(List2.ListIndex) Else Yenile

====================================

Timer 3 ün içine şu kodları yapıştırın

Yenile

===================================

Gelelim text1 e   text1 de  kapatmak istediğiniz program isim bulunmalı

örneğin

winamp ı kapatmak için    ” winamp.exe” yazmalı

bu exe isimlerini görev yöneticisinden alabilirsiniz

CTRL + ALT + DELETE ye basın ve kapatmak istediğiniz programa sağ tuşlatıklayıp işleme git deyin

karşınıza çıkan isim text 1 e yazmanız gereken isimdir


TD Software


  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: