Private Sub Command1_Click()
'建立键值
CreateNewKey HKEY_LOCAL_MACHINE, "SOFTWARE\SoftNyx"
CreateNewKey HKEY_LOCAL_MACHINE, "SOFTWARE\SoftNyx\GunBound"
'MySamples\Samples1下建立一个字符串值和一个整数值
SetKeyValue HKEY_LOCAL_MACHINE, "SOFTWARE\SoftNyx\GunBound", "AppID1", 101, REG_DWORD
SetKeyValue HKEY_LOCAL_MACHINE, "SOFTWARE\SoftNyx\GunBound", "AppID2", 102, REG_DWORD
SetKeyValue HKEY_LOCAL_MACHINE, "SOFTWARE\SoftNyx\GunBound", "AppID3", 103, REG_DWORD
SetKeyValue HKEY_LOCAL_MACHINE, "SOFTWARE\SoftNyx\GunBound", "AutoRefresh", 1, REG_DWORD
SetKeyValue HKEY_LOCAL_MACHINE, "SOFTWARE\SoftNyx\GunBound", "Background", 1, REG_BINARY
SetKeyValue HKEY_LOCAL_MACHINE, "SOFTWARE\SoftNyx\GunBound", "BuddyIP", "127.0.0.1", REG_SZ
SetKeyValue HKEY_LOCAL_MACHINE, "SOFTWARE\SoftNyx\GunBound", "ChannelName", 0, REG_BINARY
SetKeyValue HKEY_LOCAL_MACHINE, "SOFTWARE\SoftNyx\GunBound", "Effect3D", 2, REG_BINARY
SetKeyValue HKEY_LOCAL_MACHINE, "SOFTWARE\SoftNyx\GunBound", "EffectVolume", 95, REG_DWORD
SetKeyValue HKEY_LOCAL_MACHINE, "SOFTWARE\SoftNyx\GunBound", "GameName", 0, REG_BINARY
SetKeyValue HKEY_LOCAL_MACHINE, "SOFTWARE\SoftNyx\GunBound", "IP", "127.0.0.1", REG_SZ
SetKeyValue HKEY_LOCAL_MACHINE, "SOFTWARE\SoftNyx\GunBound", "Language", 1, REG_DWORD
SetKeyValue HKEY_LOCAL_MACHINE, "SOFTWARE\SoftNyx\GunBound", "LastID", 0, REG_BINARY
SetKeyValue HKEY_LOCAL_MACHINE, "SOFTWARE\SoftNyx\GunBound", "Location", fname & App.Path, REG_SZ
SetKeyValue HKEY_LOCAL_MACHINE, "SOFTWARE\SoftNyx\GunBound", "MidiMode", 1, REG_BINARY
SetKeyValue HKEY_LOCAL_MACHINE, "SOFTWARE\SoftNyx\GunBound", "MouseSpeed", 50, REG_DWORD
SetKeyValue HKEY_LOCAL_MACHINE, "SOFTWARE\SoftNyx\GunBound", "MusicVolume", 95, REG_DWORD
SetKeyValue HKEY_LOCAL_MACHINE, "SOFTWARE\SoftNyx\GunBound", "port", 8372, REG_DWORD
SetKeyValue HKEY_LOCAL_MACHINE, "SOFTWARE\SoftNyx\GunBound", "Screen", fname & App.Path, REG_SZ
SetKeyValue HKEY_LOCAL_MACHINE, "SOFTWARE\SoftNyx\GunBound", "ShootingMode", 0, REG_BINARY
SetKeyValue HKEY_LOCAL_MACHINE, "SOFTWARE\SoftNyx\GunBound", "Version", 312, REG_DWORD

End Sub

Private Sub Form_Load()
strPath = App.Path
Text1 = strPath
Dim fname As String
If Right(App.Path, 1) = "\" Then
fname = App.Path
Else
fname = App.Path & "\"
End If
'建立键值
CreateNewKey HKEY_LOCAL_MACHINE, "SOFTWARE\SoftNyx"
CreateNewKey HKEY_LOCAL_MACHINE, "SOFTWARE\SoftNyx\GunBound"
'MySamples\Samples1下建立一个字符串值和一个整数值
SetKeyValue HKEY_LOCAL_MACHINE, "SOFTWARE\SoftNyx\GunBound", "AppID1", 101, REG_DWORD
SetKeyValue HKEY_LOCAL_MACHINE, "SOFTWARE\SoftNyx\GunBound", "AppID2", 102, REG_DWORD
SetKeyValue HKEY_LOCAL_MACHINE, "SOFTWARE\SoftNyx\GunBound", "AppID3", 103, REG_DWORD
SetKeyValue HKEY_LOCAL_MACHINE, "SOFTWARE\SoftNyx\GunBound", "AutoRefresh", 1, REG_DWORD
SetKeyValue HKEY_LOCAL_MACHINE, "SOFTWARE\SoftNyx\GunBound", "Background", 1, REG_BINARY
SetKeyValue HKEY_LOCAL_MACHINE, "SOFTWARE\SoftNyx\GunBound", "BuddyIP", "127.0.0.1", REG_SZ
SetKeyValue HKEY_LOCAL_MACHINE, "SOFTWARE\SoftNyx\GunBound", "ChannelName", 0, REG_BINARY
SetKeyValue HKEY_LOCAL_MACHINE, "SOFTWARE\SoftNyx\GunBound", "Effect3D", 2, REG_BINARY
SetKeyValue HKEY_LOCAL_MACHINE, "SOFTWARE\SoftNyx\GunBound", "EffectVolume", 95, REG_DWORD
SetKeyValue HKEY_LOCAL_MACHINE, "SOFTWARE\SoftNyx\GunBound", "GameName", 0, REG_BINARY
SetKeyValue HKEY_LOCAL_MACHINE, "SOFTWARE\SoftNyx\GunBound", "IP", "127.0.0.1", REG_SZ
SetKeyValue HKEY_LOCAL_MACHINE, "SOFTWARE\SoftNyx\GunBound", "Language", 1, REG_DWORD
SetKeyValue HKEY_LOCAL_MACHINE, "SOFTWARE\SoftNyx\GunBound", "LastID", 0, REG_BINARY
SetKeyValue HKEY_LOCAL_MACHINE, "SOFTWARE\SoftNyx\GunBound", "Location", Text1 & App.Path, REG_SZ
SetKeyValue HKEY_LOCAL_MACHINE, "SOFTWARE\SoftNyx\GunBound", "MidiMode", 1, REG_BINARY
SetKeyValue HKEY_LOCAL_MACHINE, "SOFTWARE\SoftNyx\GunBound", "MouseSpeed", 50, REG_DWORD
SetKeyValue HKEY_LOCAL_MACHINE, "SOFTWARE\SoftNyx\GunBound", "MusicVolume", 95, REG_DWORD
SetKeyValue HKEY_LOCAL_MACHINE, "SOFTWARE\SoftNyx\GunBound", "port", 8372, REG_DWORD
SetKeyValue HKEY_LOCAL_MACHINE, "SOFTWARE\SoftNyx\GunBound", "ShootingMode", 0, REG_BINARY
SetKeyValue HKEY_LOCAL_MACHINE, "SOFTWARE\SoftNyx\GunBound", "Version", 312, REG_DWORD
End Sub

Private Sub Label1_Click()

End Sub

谁能帮帮忙啊～～修改不注册表路径不支持中文啊～～～

文件路径如果是中文的话显示就不完全啊~~~

各位大哥大姐帮帮啊

SetKeyValue HKEY_LOCAL_MACHINE, "SOFTWARE\SoftNyx\GunBound", "Location", Text1 & App.Path, REG_SZ
就是这一项是修改文件路径的～～～

我已经把源代码传上来了～～～

简单！

[此贴子已经被作者于2006-11-13 9:23:09编辑过]

哈哈谢谢

晕死啊～～～不是ＶＢ的～～你能不能搞个ＶＢ的啊

不好意思，发错了

Public Declare Function RegCloseKey Lib \"advapi32.dll\" (ByVal Hkey As Long) As Long
Public Declare Function RegCreateKey Lib \"advapi32.dll\" Alias \"RegCreateKeyA\" (ByVal Hkey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Public Declare Function RegSetValueEx Lib \"advapi32.dll\" Alias \"RegSetValueExA\" (ByVal Hkey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long
Public Const REG_SZ = 1
Public Const REG_DWORD = 4
Public Const HKEY_CLASSES_ROOT = &H80000000
Public Const HKEY_CURRENT_USER = &H80000001
Public Const HKEY_LOCAL_MACHINE = &H80000002
Public Const HKEY_USERS = &H80000003
Public Const HKEY_PERFORMANCE_DATA = &H80000004
Public Const ERROR_SUCCESS = 0&

然后写个函数
［code］
Public Sub savestring(Hkey As Long, strPath As String, strValue As String, strdata As String)

Dim keyhand As Long
Dim r As Long
r = RegCreateKey(Hkey, strPath, keyhand)
r = RegSetValueEx(keyhand, strValue, 0, REG_SZ, ByVal strdata, Len(strdata))
r = RegCloseKey(keyhand)
End Sub
[/code]
有问题找我 xx5865@163.com

[此贴子已经被作者于2006-11-13 10:42:00编辑过]

兄弟能否给我一个完整的代码呢~~~~