DjieSoft, All About Source Code


This is about programming, information technology, computers, source code, program, application and more ...
_______________________________________________________________________________{FOR EDUCATION}
Search in djiesoft

Search with Google

1.Banyak Web/Blog Lain Yang Meng-COPY Sebagian/Seluruh Content/Isi Blog DJIESOFT. BE CAREFUL !!!
2.Beberapa LINK DJIESOFT ada yang Broken karena TUSFILES menghapus file yang sudah lama/expired (1 Year).
3.Please report broken link to be re-Uploaded !

Selasa, 02 Agustus 2011

Cara Membuat AutoRun/AutoStart Program Saat Windows Start VB6

Berikut ini adalah cara membuat aplikasi/program kita autostart saat windows pertama kali dinyalakan, menggunakan visual basic 6, untuk mempraktekannya siapkan :
1. Buat 1 Project baru dengan 1 Form, 1 Module, dan 2 Commandbutton.
2. Copy-kan coding berikut ke dalam editor form & module yang bertalian

          'Tombol pertama untuk menjalankan program saat startup, sedangkan
          'tombol kedua untuk menghapusnya dari daftar startup program.

          '--- Coding ini di Module...
          Public Type SECURITY_ATTRIBUTES
            nLength As Long
            lpSecurityDescriptor As Long

            bInheritHandle As Long
          End Type

          Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" _
            (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, _
            ByVal samDesired As Long, phkResult As Long) As Long
          Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
          Declare Function RegQueryValueEx Lib "advapi32" Alias "RegQueryValueExA" _
            (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As _

            Long, ByRef lpType As Long, ByVal lpData As String, ByRef lpcbData As Long) As Long
          Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal _
            hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal _
            dwType As Long, ByVal lpData As String, ByVal cbData As Long) As Long

          Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" _
            (ByVal hKey As Long, ByVal lpValueName As String) As Long

          Public Enum T_KeyClasses
            HKEY_CLASSES_ROOT = &H80000000

            HKEY_CURRENT_CONFIG = &H80000005
            HKEY_CURRENT_USER = &H80000001
            HKEY_LOCAL_MACHINE = &H80000002
            HKEY_USERS = &H80000003

          End Enum

          Private Const SYNCHRONIZE = &H100000
          Private Const STANDARD_RIGHTS_ALL = &H1F0000

          Private Const KEY_QUERY_VALUE = &H1
          Private Const KEY_SET_VALUE = &H2
          Private Const KEY_CREATE_LINK = &H20
          Private Const KEY_CREATE_SUB_KEY = &H4
          Private Const KEY_ENUMERATE_SUB_KEYS = &H8

          Private Const KEY_EVENT = &H1
          Private Const KEY_NOTIFY = &H10
          Private Const READ_CONTROL = &H20000
          Private Const STANDARD_RIGHTS_READ = (READ_CONTROL)

          Private Const STANDARD_RIGHTS_WRITE = (READ_CONTROL)
          Private Const KEY_ALL_ACCESS = ((STANDARD_RIGHTS_ALL Or _
            KEY_QUERY_VALUE Or KEY_SET_VALUE Or KEY_CREATE_SUB_KEY _
            Or KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY Or KEY_CREATE_LINK) _
            And (Not SYNCHRONIZE))

          Private Const KEY_READ = ((STANDARD_RIGHTS_READ Or _
            KEY_QUERY_VALUE Or KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY) _
            And (Not SYNCHRONIZE))
          Private Const KEY_EXECUTE = (KEY_READ)
          Private Const KEY_WRITE = ((STANDARD_RIGHTS_WRITE Or _
            KEY_SET_VALUE Or KEY_CREATE_SUB_KEY) And (Not SYNCHRONIZE))
          Private Const REG_BINARY = 3

          Private Const REG_CREATED_NEW_KEY = &H1
          Private Const REG_DWORD = 4
          Private Const REG_DWORD_BIG_ENDIAN = 5
          Private Const REG_DWORD_LITTLE_ENDIAN = 4

          Private Const REG_EXPAND_SZ = 2
          Private Const REG_FULL_RESOURCE_DESCRIPTOR = 9
          Private Const REG_LINK = 6
          Private Const REG_MULTI_SZ = 7

          Private Const REG_NONE = 0
          Private Const REG_SZ = 1
          Private Const REG_NOTIFY_CHANGE_ATTRIBUTES = &H2
          Private Const REG_NOTIFY_CHANGE_LAST_SET = &H4
          Private Const REG_NOTIFY_CHANGE_NAME = &H1

          Private Const REG_NOTIFY_CHANGE_SECURITY = &H8
          Private Const REG_OPTION_BACKUP_RESTORE = 4
          Private Const REG_OPTION_CREATE_LINK = 2
          Private Const REG_OPTION_NON_VOLATILE = 0

          Private Const REG_OPTION_RESERVED = 0
          Private Const REG_OPTION_VOLATILE = 1
          Private Const REG_LEGAL_CHANGE_FILTER = (REG_NOTIFY_CHANGE_NAME _
            Or REG_NOTIFY_CHANGE_ATTRIBUTES Or _

            REG_NOTIFY_CHANGE_LAST_SET Or _
            REG_NOTIFY_CHANGE_SECURITY)
          Private Const REG_LEGAL_OPTION = (REG_OPTION_RESERVED Or _
            REG_OPTION_NON_VOLATILE Or REG_OPTION_VOLATILE Or _
            REG_OPTION_CREATE_LINK Or REG_OPTION_BACKUP_RESTORE)

          Public Sub DeleteValue(rClass As T_KeyClasses, Path As String, sKey As String)
          Dim hKey As Long
          Dim res As Long

            res = RegOpenKeyEx(rClass, Path, 0, KEY_ALL_ACCESS, hKey)
            res = RegDeleteValue(hKey, sKey)
            RegCloseKey hKey
          End Sub

          Public Function SetRegValue(KeyRoot As T_KeyClasses, Path As String, sKey As _
          String, NewValue As String) As Boolean
          Dim hKey As Long
          Dim KeyValType As Long

          Dim KeyValSize As Long
          Dim KeyVal As String
          Dim tmpVal As String
          Dim res As Long

          Dim i As Integer
          Dim x As Long
            res = RegOpenKeyEx(KeyRoot, Path, 0, KEY_ALL_ACCESS, hKey)
            If res <> 0 Then GoTo Errore

            tmpVal = String(1024, 0)
            KeyValSize = 1024
            res = RegQueryValueEx(hKey, sKey, 0, KeyValType, tmpVal, KeyValSize)
            Select Case res
                   Case 2
                        KeyValType = REG_SZ
                   Case Is <> 0
                        GoTo Errore

            End Select
            Select Case KeyValType
                   Case REG_SZ
                        tmpVal = NewValue
                   Case REG_DWORD

                        x = Val(NewValue)
                        tmpVal = ""
                        For i = 0 To 3
                            tmpVal = tmpVal & Chr(x Mod 256)

                            x = x \ 256
                        Next
            End Select
            KeyValSize = Len(tmpVal)

            res = RegSetValueEx(hKey, sKey, 0, KeyValType, tmpVal, KeyValSize)
            If res <> 0 Then GoTo Errore
            SetRegValue = True
            RegCloseKey hKey
            Exit Function

          Errore:
            SetRegValue = False
            RegCloseKey hKey
          End Function
          '--- Akhir coding di Module...

          '--- Coding ini di Form...
          Private Sub Command1_Click()

            'Ganti kedua kata 'NotePad' di bawah dengan nama aplikasi Anda, dan
            'c:\windows\notepad.exe' di bawah dengan file aplikasi Anda...
            SetRegValue HKEY_LOCAL_MACHINE, _
                  "Software\Microsoft\Windows\CurrentVersion\Run", "NotePad", "c:\windows\notepad.exe"
          End Sub

          Private Sub Command2_Click()
            DeleteValue HKEY_LOCAL_MACHINE, _
                 "Software\Microsoft\Windows\CurrentVersion\Run", "NotePad"

          End Sub
          '--- Akhir coding di Form...

Tags:
contoh program vb6, contoh fungsi di vb6, cara penggunaan fungsi vb, tutorial vb6, download tutorial vb6, vb6 tutorial download, dasar dasar vb6, belajar vb6, cara mudah belajar vb6, vb6 artikel download, vb6 blog, contoh program vb6, artikel vb6, semua tentang vb6, vb6 api, cara menggunakan module, cara menggunakan class module

Related Post:

11 komentar:

  1. om , gmana caranya agar program kita itu jalan sendiri trus minimize ke tray sendiri juga . . ?

    mohon pencerahannya ?

    BalasHapus
    Balasan
    1. maaf nih, vb6/vbnet?
      klo minimize ke tryicon bisa pake timer,, misalnya 3 detik lalu panggil fungsi minimize

      Hapus
  2. kalo mau run autostart nya pake checkbox gmn ? di vb 6

    BalasHapus
    Balasan
    1. taro aja sitaknya di event checklistbox1_click
      jika properties value = vbchecked maka panggi sintak seting autostart jika vbunchecked maka panggil sintak un-setting autostart

      Hapus
  3. Gan kok gak ada penjelasannya ._.

    BalasHapus
  4. Ini gunanya Buat Apa Ya.... Hmm Bingung Saya
    dan.
    Tolong Dong Shere Cara Buat Virus jail Dengan VB Ya Mas Theaks.

    BalasHapus
  5. gan... bagaimana aplikasi yang kita bikin dengan vb otomatis startup tanpa harus klik command. ya kayak program2 anti virus kan kalo pc start langsung berjalan, tanpa harus mengklik command/program terpisah...

    BalasHapus
    Balasan
    1. klik command = klik tombol/button ??
      itu kan bisa secara coding :
      call command1_click()

      Hapus