Menggunakan Command Line Argument dalam Visual Basic 6

Ternyata cukup mudah untuk mendapatkan paramater / Command Line Argument pada saat menjalankan program yang dibuat dengan menggunakn visual basic 6, karena paramater yang kita berikan pada saat kita menjalankan program tersebut tersimpan dalam variable Command$. Jadi contoh cara penggunaannya seperti berikut :

Sub Main()
   Dim a_strArgs() As String
   Dim blnDebug As Boolean
   Dim strFilename As String
   
   Dim i As Integer
   
   a_strArgs = Split(Command$, " ")
   For i = LBound(a_strArgs) To UBound(a_strArgs)
      Select Case LCase(a_strArgs(i))
      Case "-d", "/d"
      ' debug mode
         blnDebug = True
      Case "-f", "/f"
      ' filename specified
         If i = UBound(a_strArgs) Then
            MsgBox "Filename not specified."
         Else
            i = i + 1
         End If
         If Left(a_strArgs(i), 1) = "-" Or Left(a_strArgs(i), 1) = "/" Then
            MsgBox "Invalid filename."
         Else
            strFilename = a_strArgs(i)
         End If
      Case Else
         MsgBox "Invalid argument: " & a_strArgs(i)
      End Select
      
   Next i
   MsgBox "Debug mode: " & blnDebug
   MsgBox "Filename: " & strFilename
End Sub

Semoga cukup membantu,
Sumber : http://davidnakoko.com/url/p33v

Visual Basic 6 Check Windows Service Running Or Not

kadangkala dalam program dengan visual basic 6 kita perlu untuk mengecek beberapa service windows, apakah sudah jalan apa tidak. Nah bagi yang membutuhkan kode untuk mengeceknya inilah function nya


Function IsServiceRunning(sServiceName As String) As Boolean
    Dim objInst As Object, objSet As Object
    IsServiceRunning = False
    Set objSet = GetObject("winmgmts:").ExecQuery("SELECT * FROM Win32_Service")
    For Each objInst In objSet
        If (UCase(sServiceName) = UCase(objInst.Name)) And (UCase(objInst.State) = UCase("Running")) Then
            IsServiceRunning = True
        End If
    Next
End Function

contoh project visual basic 6 bisa didownload di http://davidnakoko.com/url/ryv9