'以下宣告定義在模組中:
declare function regcreatekey lib "advapi32.dll" alias "regcreatekeya" (byval hkey as long, byval lpsubkey as string, phkresult as long) as long
declare function regclosekey lib "advapi32.dll" (byval hkey 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
public const hkey_classes_root = &h80000000
public const hkey_current_user = &h80000001
public const hkey_local_machine = &h80000002
public const hkey_users = &h80000003
public const hkey_performance_data = &h80000004
public const hkey_current_config = &h80000005
public const hkey_dyn_data = &h80000006
public const reg_sz = 1&
'以下操作定義在form中
'寫登錄檔
private sub ***mand1_click()
dim ret as long, rtn as long, hkey as long, hkey2 as long, entry as string, value as string
entry = "eventmessagefile"
value = "c:/winnt/microsoft.***/framework/v1.1.4322/eventlogmessages.dll"
'建立鍵值
ret = regcreatekey(hkey_local_machine, "system/currentcontrolset/services/eventlog/eventlog2/eventlog2", hkey)
'寫入值
if not ret then
rtn = regsetvalueex(hkey, entry, 0, reg_sz, byval value, len(value))
if not rtn then
msgbox "write successed!"
end if
'關閉rtn = regclosekey(hkey)
else
msgbox "create subkey operation fail"
end if
end sub
最後祝你好運
VB6技巧 總結
vb設定多行textbox的位置 由於自動輸入的文字比較多，最後輸入的跑到下面了，想要自動滾動到下面，本來以為 操作滾動條呢，但是沒有方法。於是我巧妙的採用了 顯示列表是設定了一個多行 的 textbox 顯示列表.selstart len 顯示列表.text 1 顯示列表.sellength 1 ...
vb6 讀寫檔案
write file dim nhandle as integer,fname as string fname d 1.txt nhandle freefile open fname for output as nhandle print nhandle,0 print nhandle,2 clos...
在VB6中校驗XML文件
xml schema語言是校驗xml文件格式的標準。可以在vb6中使用xml schema來驗證xml的合法性。這個例子演示了怎樣使用microsoft xml parser 4.0來校驗xml檔案。首先，建立一個名為wellformed.xsd的檔案並向其新增如下 然後，建立一個名為wellfor...
VB6 系統列印常識
在一次做列印的時候，對位置的調整老是不得法，後來通過cbm666老師的幫助才解決問題，分享以下他給的幫助。其中pic 為物件,如圖形框picture等 destx,desty 目標影象位置 destwidth,destheight 目標影象尺寸 scrx,scry 原影象的裁剪座標 scrwidth...
在HTM中引用VB6的OCX控制元件
vb6可以很方便的編寫ocx ocx打包成internet包 啟運打包程式 選單 外接程式 外接程式管理器 啟用 打包和展開向導 開始打包 選單 外接程式 打包和展開向導 打包成internet包 選 打包 在選擇包型別時選 internet軟體包 在htm中使用ocx包 把ocx中打包好inter...