亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb

首頁 > 學院 > 開發設計 > 正文

用VB5讀寫注冊表實例

2019-11-18 17:27:14
字體：大 中 小
來源：轉載
供稿：網友
首先新建一個工程，在新建的窗體上添加以下控件并設置相應屬性：
控件名屬性值
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運行程序，在兩個Text中分別寫入你的“注冊姓名”和“注冊公司”的名稱，然后單擊
“寫入注冊表”按鈕，現在打開“注冊表編輯器”，找到HKEY_LOCAL_MACHINESOFTWAREMySoftMyProgram，看看右邊是不是生成了“注冊名”和“注冊公司”兩個鍵值，是的話，恭喜你，你成功了。->

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb
亚洲电影免费观看高清完整版在线| 日韩中文字幕国产| 俺也去精品视频在线观看| 国产精品亚洲一区二区三区| 黄色一区二区在线| 日韩精品在线观看一区二区| 欧美高清自拍一区| 国产精品美女免费| 国产精品第2页| 欧美午夜久久久| 日本午夜精品理论片a级appf发布| 欧美性69xxxx肥| 97av在线视频| 一夜七次郎国产精品亚洲| 国产在线98福利播放视频| 亚洲精品在线不卡| 黑人巨大精品欧美一区二区| 国产精品va在线| 国产成人福利夜色影视| 久久久精品日本| 亚洲精品资源美女情侣酒店| 日韩一区二区三区国产| 国产成人精品一区二区| 91精品中国老女人| 少妇高潮 亚洲精品| 日韩精品视频在线| 国产成人在线播放| 日本久久久久久久| 欧美日韩激情小视频| 国产精品成人免费电影| 久久中文精品视频| 在线日韩第一页| 激情亚洲一区二区三区四区| 91精品久久久久久久久久入口| 狠狠爱在线视频一区| 2019最新中文字幕| 日韩欧美国产成人| 在线看片第一页欧美| 亚洲欧美国产一本综合首页| 亚洲国产毛片完整版| 国产精品毛片a∨一区二区三区|国| 亚洲电影免费观看高清完整版在线观看| 亚洲缚视频在线观看| 亚洲精品视频免费| 色噜噜狠狠狠综合曰曰曰| 国产精品27p| 国产精品视频一区二区高潮| 欧美日韩亚洲激情| 亚洲最大在线视频| 久久偷看各类女兵18女厕嘘嘘| 国产在线精品自拍| 亚洲va男人天堂| 97国产精品久久| 欧美日本在线视频中文字字幕| 日韩av片电影专区| 成人免费午夜电影| 91夜夜未满十八勿入爽爽影院| 成人a在线视频| 欧美日韩美女在线| 色阁综合伊人av| 日韩精品在线免费观看| 国产成人一区二区三区| 国产精品久久久av久久久| 亚洲精品视频播放| 久久久中文字幕| 在线成人激情视频| 国产精品国内视频| 不卡在线观看电视剧完整版| 亚洲大尺度美女在线| 国产美女扒开尿口久久久| 久久免费国产视频| 久久亚洲国产精品成人av秋霞| 97在线视频免费观看| 欧美一区亚洲一区| 精品一区二区三区四区在线| 日本精品一区二区三区在线播放视频| 国产在线观看精品| 欧美国产精品人人做人人爱| 亚洲日韩中文字幕在线播放| 国产精品久久久久久久电影| 久久久久久久久国产| 欧美激情一区二区三区在线视频观看| 色婷婷av一区二区三区久久| 成年无码av片在线| 欧美国产亚洲精品久久久8v| 中文字幕日韩在线视频| 国内精品久久久久久中文字幕| 欧美电影免费播放| 欧美日韩人人澡狠狠躁视频| 欧美多人爱爱视频网站| 久久五月天色综合| 日韩精品免费电影| 亚洲福利在线看| 97国产一区二区精品久久呦| 欧美日韩中文字幕在线视频| 国产91色在线免费| 91欧美日韩一区| 欧美高清视频在线播放| 日韩在线高清视频| 欧美午夜xxx| 亚洲精美色品网站| 国产一区二区三区在线视频| 日韩av黄色在线观看| 欧美视频在线看| 国产福利精品av综合导导航| 国外视频精品毛片| 91精品国产91久久久| 欧美人交a欧美精品| 在线丨暗呦小u女国产精品| 91免费精品视频| 久久亚洲国产精品成人av秋霞| 97国产真实伦对白精彩视频8| 亚洲一区二区三区777| 久久精品国产亚洲精品2020| 亚洲美女免费精品视频在线观看| 国产精品久久久久久久久久99| 97视频免费看| 久久人人爽人人| 久久99热精品| 热久久美女精品天天吊色| 日韩成人av一区| 91色琪琪电影亚洲精品久久| 亚洲欧美日韩国产成人| 777午夜精品福利在线观看| 成人免费午夜电影| 91在线看www| 国产精品一区电影| 51ⅴ精品国产91久久久久久| 国产视频精品一区二区三区| 一区二区三区 在线观看视| 精品国产依人香蕉在线精品| 亚洲黄色www| 97精品国产91久久久久久| 精品国产精品三级精品av网址| 欧美香蕉大胸在线视频观看| 精品香蕉一区二区三区| 91精品国产高清自在线看超| 亚洲精品大尺度| 欧美精品videosex性欧美| 欧美华人在线视频| 久久的精品视频| 成人h视频在线观看播放| 日韩av在线资源| 色婷婷av一区二区三区久久| 色噜噜国产精品视频一区二区| 欧美电影在线观看完整版| 欧美性开放视频| 欧美高清不卡在线| 亚洲一区精品电影| 尤物精品国产第一福利三区| 欧美日韩国产一中文字不卡| 精品久久久久久久久久| 国模吧一区二区| 日韩免费av在线| 日韩精品中文字幕在线播放| 欧美亚洲国产日本| 91综合免费在线| 韩剧1988在线观看免费完整版| 久久av资源网站| 久久九九热免费视频| 欧美国产中文字幕| 日韩av高清不卡| 欧美国产日韩一区二区在线观看| 91精品免费看|