重慶分公司,新征程啟航
為企業提供網站建設、域名注冊、服務器等服務
為企業提供網站建設、域名注冊、服務器等服務
那是不可能實現的,你寫了個.REG的文件只是用VB的一個控件來調用他,想不提示那除非你改WINDOW系統,不過我以前用過VC,在VC里面有幾個改注冊表的函數可以在編程里面實現,VB也有吧。你自己看看
創新互聯是一家集網站建設,阿巴嘎企業網站建設,阿巴嘎品牌網站建設,網站定制,阿巴嘎網站建設報價,網絡營銷,網絡優化,阿巴嘎網站推廣為一體的創新建站企業,幫助傳統企業提升企業形象加強企業競爭力。可充分滿足這一群體相比中小企業更為豐富、高端、多元的互聯網需求。同時我們時刻保持專業、時尚、前沿,時刻以成就客戶成長自我,堅持不斷學習、思考、沉淀、凈化自己,讓我們為更多的企業打造出實用型網站。
程序的兼容模式設置保存在注冊表下。
在 HKEY_CURRENT_USER/Software/Microsoft/Windows NT/CurrentVersion/AppCompatFlags/Layers/ 下新建一個鍵值,鍵值名稱是可執行程序文件的完全路徑,數據類型為reg_sz,數據數值為兼容的操作系統代碼。
代碼對照如下:
Windows NT 4.0 (Service Pack 5):NT4SP5
windows 95:WIN95
windows 98 or windows ME:WIN98
windows 2000:WIN2000
windows xp:WINXP
windows 2003:WIN2003
比如你要以WinXP的兼容模式運行 C:\1.exe,那么就是
HKEY_CURRENT_USER/Software/Microsoft/Windows NT/CurrentVersion/AppCompatFlags/Layers 在這下面新建一個鍵,名為"C:\starcraft.exe”,再在這個鍵下面創建一個reg_sz類型的數據,數據值為WINXP即可。
用VB.NET操作注冊表這個你可以百度到很多了。
VB.NET 參考代碼:
Imports?Microsoft.Win32
Public?Class?Form1
Private?Sub?Button1_Click(sender?As?Object,?e?As?EventArgs)?Handles?Button1.Click
Dim?regKey?As?RegistryKey?=?Registry.LocalMachine.OpenSubKey("SYSTEM\CurrentControlSet\Control\Windows",?False)
For?Each?strSubKeyName?In?regKey.GetValueNames()
If?regKey.GetValueKind(strSubKeyName)?=?RegistryValueKind.String?Then
MessageBox.Show(regKey.GetValue(strSubKeyName))
'?regKey.SetValue(strSubKeyName,?"修改后的值")
End?If
Next
End?Sub
End?Class
var reg = /;SPLIT(?:(?!;SPLIT)[\s\S])*;SPLIT/g;
var str = "";
str.replace(reg,"");