請(qǐng)使用VB.NET的“My”功能: '添加
專(zhuān)業(yè)領(lǐng)域包括網(wǎng)站制作、成都網(wǎng)站設(shè)計(jì)、電子商務(wù)商城網(wǎng)站建設(shè)、微信營(yíng)銷(xiāo)、系統(tǒng)平臺(tái)開(kāi)發(fā), 與其他網(wǎng)站設(shè)計(jì)及系統(tǒng)開(kāi)發(fā)公司不同,成都創(chuàng)新互聯(lián)公司的整合解決方案結(jié)合了幫做網(wǎng)絡(luò)品牌建設(shè)經(jīng)驗(yàn)和互聯(lián)網(wǎng)整合營(yíng)銷(xiāo)的理念,并將策略和執(zhí)行緊密結(jié)合,為客戶(hù)提供全網(wǎng)互聯(lián)網(wǎng)整合方案。
My.Computer.Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True).SetValue("running", "C:\myapp.exe") ' 刪除
My.Computer.Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True).DeleteValue("running")
這不是廢話(huà)嗎,DeleteSubKey只能刪除調(diào)用實(shí)例的子項(xiàng),并不能直接刪除子子項(xiàng)。
1.開(kāi)始--運(yùn)行--regedit 打開(kāi)注冊(cè)表
2.在注冊(cè)表里面搜索vb ,刪除所有關(guān)于vb的東東.
3.重新啟動(dòng)計(jì)算機(jī)
之后再試一試
微軟在net里內(nèi)置了一一些提供注冊(cè)表操作的類(lèi),因此我們可以很輕松的操作注冊(cè)表
導(dǎo)入名詞稱(chēng)空間 imports Microsoft.Win32
Dim reg As RegistryKey
Dim regStr As String
reg = Registry.LocalMachine
reg = reg.OpenSubKey("SYSTEM\CurrentControlSet\Enum\USB", True)
regStr = reg.GetValue("VID_08E2PID_0006")
if regstr.tostring ""then …復(fù)制文件
建議你使用VB.NET(VS2005+版本),操作注冊(cè)表非常容易: For Each name As String In My.Computer.Registry.LocalMachine.OpenSubKey("software\microsoft\windows\currentversion\run").GetValueNames
If (name "1425") Then
My.Computer.Registry.LocalMachine.OpenSubKey("software\microsoft\windows\currentversion\run").DeleteValue(name)
End If
Next