Favorilerine Ekle | Giriş Sayfan Yap | Tavsiye Et

 

Kurs Tanıtım Sayfası | Süper Üye Kimdir? | Menü Tasarımı Konulu Örnek Ders
Kod İndir| Hazır Kodlar | Makaleler| İpuçları | VB .NET Kursu | Dersler | Forum | Alt Bölümler | Servisler
    Merhaba Misafir
    anasayfa » visual basic hazır kodlar » VB de Windows servislerini kapatma
Üye Girişi
Kullanıcı Adı:  
Şifre : 
Kaydet ?
Siteden tam olarak faydalanabilmek için üye olmalısınız.
Unuttuğunuz şifrenizi öğrenebilmek için kayıt sırasında verdiğiniz Hatırlatma Cevabı'nı bilmeniz gereklidir.
Şifre hatırlatma işlevini sadece 3 defa kullanma hakkınız vardır.
Kullanıcı adını ve şifresini unutan üyelere email ile yardım verilmez.

Aktivasyon Gelmedi mi?Aktivasyon mesajınız email adresinize gelmedi mi?
Buraya tıklayarak bir kez daha aktivasyon mesajı gönderilmesini sağlayabilirsiniz.
Lütfen email hesabınızın BULK ve SPAM klasörlerini de kontrol ediniz.
Rastgele Makale

ŞİMDİ( ) Fonksiyonu

Yazar: Webmaster

Webmasterlar
Sitenize Ekleyin!
Sitenizde "Son Eklenen 10 Visual Basic Yazısı"'nı göstermek ve içeriğini zenginleştirmek için buraya tıklayınız.

Vbasicmaster.com'a link verin!
Aşağıdaki minik banneri sitenize eklemek için tıklayın!

Üye Sayısı:
Ziyaretçiler nerede?
Yayın № : 2315
Yayın Tar:12.03.2005
Yazar : deniz_alex
Hit :3314

Bu Yazarın Yazıları Sadece bu yazarın  göster
Bu Yazıyı Tavsiye Et

Bu aşağıdaki kodları yeni bir Class module ekleyiip onun içine yerleştirelim.

Class module ün ismide mdlservis olsun

Sonrada formumuza 2 tane buton koyalım

1.si servis kapatsın

2.si ise servis açsın

Mesela ben örnek olarak Norton Antivirus ü iptal etmeyi size göstereceğim



Private Sub command1_click?Bu servisi kapatsın

Dim Servis As New mdlservis

Servis.Servis_Komutlari "navapsvc",Servis_Kontrol_Bitir

End Sub

Private Sub command1_click?Buda servisi açsın

Dim Servis As New mdlservis

Servis.Servis_Komutlari "navapsvc",Servis_Kontrol_Baslat

End Sub





Public Declare Function StartService Lib "advapi32.dll" Alias "StartServiceA" (ByVal hService As Long, ByVal dwNumServiceArgs As Long, ByVal lpServiceArgVectors As Long) As Long

Public Declare Function OpenSCManager Lib "advapi32.dll" Alias "OpenSCManagerA" (ByVal lpMachineName As String, ByVal lpDatabaseName As String, ByVal dwDesiredAccess As Long) As Long

Public Declare Function CloseServiceHandle Lib "advapi32.dll" (ByVal hSCObject As Long) As Long

Public Declare Function ControlService Lib "advapi32.dll" (ByVal hService As Long, ByVal dwControl As Long, lpServiceStatus As SERVICE_STATUS) As Long

Public Declare Function OpenService Lib "advapi32.dll" Alias "OpenServiceA" (ByVal hSCManager As Long, ByVal lpServiceName As String, ByVal dwDesiredAccess As Long) As Long

Public Type SERVICE_STATUS
dwServiceType As Long
dwCurrentState As Long
dwControlsAccepted As Long
dwWin32ExitCode As Long
dwServiceSpecificExitCode As Long
dwCheckPoint As Long
dwWaitHint As Long
End Type

Const GENERIC_EXECUTE = &H20000000

Public Enum Komutlar
Servis_Kontrol_Baslat = 0
Servis_Kontrol_Bitir = 1
Servis_Kontrol_DurDur = 2
Servis_Kontrol_Devamet = 3
End Enum

Function Servis_KomutlaRi(ByVal Servis_Adi As String, ByVal Komut As Komutlar) As Boolean
Dim hSCM As Long
Dim hService As Long
Dim res As Long
Dim lpServiceStatus As SERVICE_STATUS

?eğer servis 0 dan küçül ve 3 ten büyükse hatayı bildir
If Komut < 0 Or Komut > 3 Then Err.Raise 5

? Service Control Manager bağlantısını aç hata varsa çık
hSCM = OpenSCManager(vbNullString, vbNullString, GENERIC_EXECUTE)

If hSCM = 0 Then Exit Function

? Open the given service, Exit If Error
hService = OpenService(hSCM, Servis_Adi, GENERIC_EXECUTE)
If hService = 0 Then GoTo CleanUp

? start the service
Select Case Komut
Case 0
res = StartService(hService, 0, 0)
Case Servis_Kontrol_Bitir, Servis_Kontrol_DurDur, _
Servis_Kontrol_Devamet
? bu komutlar Control Service Api yi kullanıyor
res = ControlService(hService, Komut, lpServiceStatus)
End Select

If res = 0 Then GoTo CleanUp

?geridönen değer başarılı
Servis_KomutlaRi = True

CleanUp:
If hService Then CloseServiceHandle hService
?service control manager ı kapat
CloseServiceHandle hSCM

End Function





Yorumlar, eklemeler ve düşünceler
        bu kodu çalıştırabilen var mı?kodların class modül içine konması gerektiğini yazıyor ama ne class modülde ne de normal modülde çalışmıyor hata veriyor.norton antivirüsu kapatma gösterilmiş örnek olarak bizim istediğimiz servisi kapatmamız için sadece button lardaki navapsvc kodunu kaldırmamız yeterli mi.biri açıklarsa sevinirim.saygılar...

   feyzi, 26.06.2008 00:50
© Hakan Ersöz 2000-2013| Üyelik Sözleşmesi | | Ödeme Bildirimi
Sitemizden yenilikleri hemen öğrenin, pop upları engelleyin, chat yapın... ToolBarımızı indirin:
Vasicmaster Toolbar'ı indirin