国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 學(xué)院 > 開發(fā)設(shè)計(jì) > 正文

用VB5讀寫注冊表實(shí)例

2019-11-18 17:27:14
字體：大 中 小
供稿：網(wǎng)友
首先新建一個(gè)工程，在新建的窗體上添加以下控件并設(shè)置相應(yīng)屬性：
控件名屬性值
Label1Caption注冊表鍵值：
Label2Caption注冊姓名：
Label3Caption空
Label4Caption注冊公司：
Label5Caption空
Label6Caption空
Text1Text空
Text2Text空
Command1Caption寫入注冊表
Command2Caption退出
然后，在程序的聲明部分添加如下代碼：
keyvalue=Text2.Text
retvalue=RegSetValueEx(keyid,"注冊公司",0&,REG_SZ,ByValkeyvalue,Len(keyvalue) 1)
IfText1.Text<>""AndText2.Text<>""Then
Label3.Caption=Text1.Text
Label5.Caption=Text2.Text
EndIf
EndSub

PrivateSubCommand2_Click()
UnloadMe
End
EndSub

PrivateSubForm_Load()
DimretvalueAsLong
DimresultAsLong
DimkeyidAsLong
DimkeyvalueAsString
DimsubkeyAsString
DimbufsizeAsLong
Label6.Caption=regkey
retvalue=RegCreateKey(hkey_local_machine,regkey,keyid)
Ifretvalue=0Then
subkey="注冊名"
retvalue=RegQueryValueEx(keyid,subkey,0&,REG_SZ,0&,bufsize)
Ifbufsize<2Then
keyvalue=""
retvalue=RegSetValueEx(keyid,subkey,0&,REG_SZ,ByValkeyvalue,Len(keyvalue) 1)
Else
keyvalue=String(bufsize 1,"")
retvalue=RegQueryValueEx(keyid,subkey,0&,REG_SZ,ByValkeyvalue,bufsize)
keyvalue=Left$(keyvalue,bufsize-1)
Text1.Text=keyvalue
EndIf
Label3.Caption=keyvalue

subkey="注冊公司"
retvalue=RegQueryValueEx(keyid,subkey,0&,REG_SZ,0&,bufsize)
Ifbufsize<2Then
keyvalue=""
retvalue=RegSetValueEx(keyid,subkey,0&,REG_SZ,ByValkeyvalue,Len(keyvalue) 1)
Else
keyvalue=String(bufsize 1,"")
retvalue=RegQueryValueEx(keyid,subkey,0&,REG_SZ,ByValkeyvalue,bufsize)
keyvalue=Left$(keyvalue,bufsize-1)
Text2.Text=keyvalue
EndIf
Label5.Caption=keyvalue
EndIf
EndSub
好了，存盤，按F5運(yùn)行程序，在兩個(gè)Text中分別寫入你的“注冊姓名”和“注冊公司”的名稱，然后單擊
“寫入注冊表”按鈕，現(xiàn)在打開“注冊表編輯器”，找到HKEY_LOCAL_MACHINESOFTWAREMySoftMyProgram，看看右邊是不是生成了“注冊名”和“注冊公司”兩個(gè)鍵值，是的話，恭喜你，你成功了。->

發(fā)表評論 共有條評論
用戶名: 密碼:
驗(yàn)證碼: 匿名發(fā)表
主站蜘蛛池模板： 无锡市| 峨眉山市| 兴隆县| 衡东县| 历史| 德钦县| 西华县| 抚松县| 宜君县| 东光县| 靖江市| 白朗县| 曲周县| 淮南市| 中牟县| 拜城县| 平湖市| 顺平县| 灵山县| 布拖县| 奈曼旗| 尤溪县| 建德市| 山阳县| 十堰市| 榆社县| 罗定市| 林口县| 通化市| 江油市| 扎鲁特旗| 景泰县| 霍山县| 都匀市| 玉屏| 沁水县| 静安区| 襄垣县| 威信县| 于都县| 顺义区|