Tutorial VB6 cara membuat services windows

Membuat service dengan vb6 memang sangat tidak dianjutkan, makanya jangan heran setelah kita mendownload beberapa source code yang mengklaim bisa membuat service di vb6 dan mencobanya yang ada hanya error pada saat dijalankan atau berhasil sampai mendaftarkan ke service tetapi gagal pada saat ingin running/start.
Tetapi jangan kuatir setelah Anda membaca artikel ini, Anda akan dengan mudah membuat service di windows.
Sebenarnya ini adalah artikel lama tapi kayaxnya masih jarang dibahas diblog-blog pemrograman lokal atau mungkin mereka sudah merasa cukup puas dengan membuat aplikasi yang bisa running pada saat windows diaktifkan.
Salah satu keuntungan aplikasi dibuat service adalah bisa running tanpa harus login ke windows dan tentunya tidak semua aplikasi harus dibuat service cukup aplikasi-aplikasi tertentu saja, contoh sample aplikasi yang ada disini.
Contoh-contoh source code yang mengklaim bisa membuat service dengan vb6 biasanya menggunakan fungsi-fungsi API yang buanyakkk dan seperti biasa kalo salah-salah bermain API bisa terbakar loh
Di artikel kali ini kita akan mencoba cara yang mudah/instan yaitu dengan menggunakan komponen NT Service Control Module.
Untuk sample program yang akan kita bahas nanti akan membutuhkan 2 parameter pada saat dijalankan yaitu :
1. /i -> untuk menginstall/mendaftarkan aplikasi sebagai service
2. /u -> untuk menguninstall/menghapus aplikasi dari service
Adapun fungsi yang digunakan untuk mendapatkan parameter yang dilewatkan ke aplikasi kita adalah :
1. Command -> Variant
2. Command$ -> String
Ke 2 fungsi diatas adalah fungsi yang sama hanya return valuenya saja yang beda, berikut contoh penggunaan fungsi tersebut :
Public Sub Main()
Dim param As String
param = Command$
Select Case param
Case "/i"
'TODO : install sevice
Case "/u"
'TODO : uninstall service
Case Else
'parameter tidak dikenal
End Select
End Sub

Komponen NT Service Control Module mempunya beberapa method, properties dan event yang memudahkan kita untuk membuat service :
Oke kita mulai saja langkah-langkah pembuatan service di vb dengan menggunakan komponen NT Service Control Module :
1. Buat project baru dan tambahkan komponen NT Service Control Module (komponen ini bisa Anda download pada bagian akhir artikel)
2. Masuk ke bagian editor code form kemudian tambahkan prosedur berikut :
Private Sub initNTService()
On Error GoTo ServiceError
stopService = False
With NTService1
.DisplayName = "Coding4ever NT Service"
.ServiceName = "coding4everNTService"
lblAnimasi.Caption = .DisplayName & " Loading"
'Install the service
If Command$ = "/i" Then
'enable interaction with desktop
.Interactive = True
.StartMode = svcStartAutomatic
'Install the program as an NT service
If .Install Then
'Save the TimerInterval Parameter in the Registry
.SaveSetting "Parameters", "TimerInterval", "45"
MsgBox .DisplayName & ": installed successfully"
Else
MsgBox .DisplayName & ": failed to install"
End If
End
'Remove the Service Registry Keys and uninstall the service
ElseIf Command$ = "/u" Then
If .Uninstall Then
MsgBox .DisplayName & ": uninstalled successfully"
Else
MsgBox .DisplayName & ": failed to uninstall"
End If
End
'Invalid parameter
ElseIf Command$ "" Then
MsgBox "Invalid Parameter"
End
End If
'Retrive the stored value for the timer interval
tmrAnimasi.Interval = CInt(.GetSetting("Parameters", "TimerInterval", "45"))
'enable Pause/Continue. Must be set before StartService
'is called or in design mode
.ControlsAccepted = svcCtrlPauseContinue
'connect service to Windows NT services controller
.StartService
End With
Exit Sub
ServiceError:
Call NTService1.LogEvent(svcMessageError, svcEventError, "[" & Err.Number & "] " & Err.Description)
End Sub

Selanjutnya kita tinggal panggil di event Form_Load :
Private Sub Form_Load()
Call initNTService
End Sub

3. Langkah selanjutnya kita tinggal membuat kode untuk menghandle event-event berikut :
* Continue
* Control
* Pause
* Start
* Stop
Private Sub NTService1_Continue(Success As Boolean)
'Handle the continue service event
On Error GoTo ServiceError
tmrAnimasi.Enabled = True
lblAnimasi.Caption = NTService1.DisplayName & " Running"
Success = True
NTService1.LogEvent svcEventInformation, svcMessageInfo, "Service continued"
Exit Sub
ServiceError:
NTService1.LogEvent svcMessageError, svcEventError, "[" & Err.Number & "] " & Err.Description
End Sub
Private Sub NTService1_Control(ByVal mEvent As Long)
'Take control of the service events
On Error GoTo ServiceError
lblAnimasi.Caption = NTService1.DisplayName & " Control signal " & CStr([mEvent])
Exit Sub
ServiceError:
NTService1.LogEvent svcMessageError, svcEventError, "[" & Err.Number & "] " & Err.Description
End Sub
Private Sub NTService1_Pause(Success As Boolean)
'Pause Event Request
On Error GoTo ServiceError
tmrAnimasi.Enabled = False
lblAnimasi.Caption = NTService1.DisplayName & " Paused"
NTService1.LogEvent svcEventError, svcMessageError, "Service paused"
Success = True
Exit Sub
ServiceError:
NTService1.LogEvent svcMessageError, svcEventError, "[" & Err.Number & "] " & Err.Description
End Sub
Private Sub NTService1_Start(Success As Boolean)
'Start Event Request
On Error GoTo ServiceError
lblAnimasi.Caption = NTService1.DisplayName & " Running"
Success = True
Exit Sub
ServiceError:
NTService1.LogEvent svcMessageError, svcEventError, "[" & Err.Number & "] " & Err.Description
End Sub
Private Sub NTService1_Stop()
'Stop and terminate the Service
On Error GoTo ServiceError
lblAnimasi.Caption = NTService1.DisplayName & " Stopped"
stopService = True
Unload Me
ServiceError:
NTService1.LogEvent svcMessageError, svcEventError, "[" & Err.Number & "] " & Err.Description
End Sub

4. Terakhir adalah kode untuk menghandle jika di program service kita ditutup (event Form_Unload)
Private Sub Form_Unload(Cancel As Integer) 'Unload the Service
If Not stopService Then
If MsgBox("Are you sure you want to unload the service?..." & vbCrLf & "the service will be stopped", vbQuestion + vbYesNo, "Stop Service") = vbYes Then
NTService1.stopService
lblAnimasi.Caption = NTService1.DisplayName & " Stopping"
Cancel = True
Else
Cancel = True
End If
End If
End Sub

Untuk menguji program yang kita buat berhasil atau tidak lakukan langkah-langkah berikut :
1. Compile project kita, misal hasil compile -> coding4everNTService.exe
2. Buat 2 buah file dengan ekstensi .bat atau .cmd, ke 2 file ini bertugas untuk menginstall/menguninstall aplikasi kita sebagai service
Isi file Install.bat
coding4everNTService /i
Isi file Uninstall.bat
coding4everNTService /u