VB對注冊表操作程序開機時運行
2024-07-21 02:20:34
供稿：網(wǎng)友
我們可以看到一些程序在開機時就會自動運行，象winpopup就是這樣的，這是怎么實現(xiàn)的呢？可以把需要運行的程序添加到“開始”-“程序”-“啟動”中，還有一種方法就是寫入注冊表了，這里我們討論通過寫注冊表來實現(xiàn)的方法，從中可以看到三個對注冊表操作的api函數(shù)的使用技巧。
首先要聲明這三個api函數(shù)，它們分別是：regsetvalue、regcreatekey、regclosekey，其作用是設(shè)置某一個主鍵的鍵值、創(chuàng)建一個主鍵、關(guān)閉對注冊表主鍵的操作。
private declare function regsetvalue lib "advapi32.dll" alias "regsetvaluea" (byval hkey as long, byval lpsubkey as string, byval dwtype as long, byval lpdata as string, byval cbdata as long) as long
private declare function regcreatekey lib "advapi32.dll" alias "regcreatekeya" (byval hkey as long, byval lpsubkey as string, phkresult as long) as long
private declare function regclosekey lib "advapi32.dll" (byval hkey as long) as long
然后聲明以下兩個常數(shù)，要進(jìn)行注冊表寫入的位置是在hkey_local_machine下，我們可以在vb自帶的api文本查看器中找到這些常數(shù)的定義方法。
private const hkey_local_machine = &h80000002
private const reg_sz = 1
然后使用如下語句就行了，你可以把這段代碼放在程序的某個位置：
'寫注冊表
dim ret2 as long
'打開 hkey_local_machine 下的 software/microsoft/windows/currentversion/runservices 主鍵
regcreatekey hkey_local_machine, "software/microsoft/windows/currentversion/runservices", ret2
'將此主鍵下的“默認(rèn)”項的值改為"c:/windows/system/myprogram.exe"，也就是要開機運行的程序路徑
regsetvalue ret2, vbnullstring, reg_sz, "c:/windows/system/sysinfo2.exe", 4
'關(guān)閉對主鍵的操作
regclosekey ret2
