VB.NET activex 控件注冊問題

在VBA中，在調(diào)用控件前寫入shell?+注冊控件語句。

網(wǎng)站建設(shè)哪家好，找創(chuàng)新互聯(lián)建站！專注于網(wǎng)頁設(shè)計、網(wǎng)站建設(shè)、微信開發(fā)、成都小程序開發(fā)、集團(tuán)企業(yè)網(wǎng)站建設(shè)等服務(wù)項目。為回饋新老客戶創(chuàng)新互聯(lián)還提供了晉源免費(fèi)建站歡迎大家使用！

如果我理解正確的話，有下列方法

方法一：在VBA模塊中加入Shell("regsvr32.exe /s " strSystemFolder "Winsock.ocx")?? 自己改一下變量。本人較早前用過的方法。

方法二：將所有注冊組件寫進(jìn).bat批處理文件中，并加入開機(jī)自動運(yùn)行，或用shell去運(yùn)行.bat

方法三：微軟官方support

最后一段簡單翻譯一下：RegComCtl32和UnRegComCtl32是用戶自定義名稱；例中組件是默認(rèn)在windows/system路徑下，如果不在該路徑下，請自己添加；DllRegisterServer注意字母大小寫。

VB.NET 注冊代碼

寫兩個函數(shù)，一個檢測是否有重復(fù)用戶，第二個插入

檢測屬用戶是否存在

private function checkUser(byval uname as string) as boolean

dim sql as string = "select * from [user] where username=" uname

dim cmd as sqlcommand = new sqlcommand(sql,conn)

dim read as sqldatareader = cmd.excutereader

dim result as boolean = read.hasrows

cmd=nothing

return result

end function

新增用戶

private sub adduser(byval uname as string,byval password as string)

if checkUser(uname)

messagebox.show("用戶已存在")

exit sub

end if

try

dim sql as string = "insert into [user](username,password) values(@uname,@upass)"

dim cmd as sqlcommand = new sqlcommand(sql,conn)

cmd.parameters.add("@uname",sqldbtype.varchar).value=uname

cmd.parameters.add("@upass",sqldbtype.varchar).value=password

cmd.ExecuteNonQuery

cmd=nothing

messagebox.show("用戶添加成功！")

catch ex As Exception

messagebox.show("用戶添加失敗！" + ex.message)

end try

end sub

VB.net 中如何實現(xiàn)序列號注冊功能

思路是:

讀取電腦硬件的信息,用隨機(jī)數(shù)加工這些信息后在注冊表中做個記錄,用這個記錄生成注冊碼送回給你,你按特定的方法生成序列號,你的小程序收到序列號后還原成數(shù)據(jù),數(shù)據(jù)比較注冊表中的記錄,如果正確就加入第二部分注冊的信息完成注冊.你的程序每次打開時,先比對硬件信息-第一注冊信息-第二注冊信息,看這三者是否統(tǒng)一,不統(tǒng)一的就是使用期軟件.

也可以省了第一注冊信息,直接發(fā)硬件信息給你生成序列號,其他的相同.

網(wǎng)站欄目：vb.net注冊功能語句 vb制作登錄和注冊系統(tǒng)
網(wǎng)頁地址：http://chinadenli.net/article30/dogcoso.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供定制網(wǎng)站、網(wǎng)站制作、外貿(mào)網(wǎng)站建設(shè)、網(wǎng)頁設(shè)計公司、建站公司、小程序開發(fā)

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)