reg.txt

一款飞机射击游戏的源代码

Option Explicit
Dim KLA As Long
Dim KLA2 As Long
Dim KLAsub As Long
Private Sub Command1_Click()
Call CReg
End Sub


Sub CReg()
Dim Se As SECURITY_ATTRIBUTES
    'kla=RegCreateKeyEx(keyaddressa,keyaddresssub
    RegCreateKeyEx HKEY_CLASSES_ROOT, ".smp", 0, REG_SZ, REG_OPTION_NON_VOLATILE, KEY_ALL_ACCESS, Se, KLA, 0
    RegCreateKeyEx HKEY_CLASSES_ROOT, "Map for SkyWar\DefaultIcon", 0, REG_SZ, REG_OPTION_NON_VOLATILE, KEY_ALL_ACCESS, Se, KLA, 0
    RegCreateKeyEx HKEY_CLASSES_ROOT, "Map for SkyWar\shell", 0, REG_SZ, REG_OPTION_NON_VOLATILE, KEY_ALL_ACCESS, Se, KLA, 0
    RegCreateKeyEx HKEY_CLASSES_ROOT, "Map for SkyWar\shell\open", 0, REG_SZ, REG_OPTION_NON_VOLATILE, KEY_ALL_ACCESS, Se, KLA, 0
    RegCreateKeyEx HKEY_CLASSES_ROOT, "Map for SkyWar\shell\open\command", 0, REG_SZ, REG_OPTION_NON_VOLATILE, KEY_ALL_ACCESS, Se, KLA, 0
    
    RegOpenKeyEx HKEY_CLASSES_ROOT, ".smp", 0, KEY_ALL_ACCESS, KLA
        RegSetValueEx KLA, vbNullString, 0, REG_SZ, ByVal "Map for SkyWar", Len("Map for SkyWar")
    RegCloseKey KLA
    
    RegOpenKeyEx HKEY_CLASSES_ROOT, "Map for SkyWar", 0, KEY_ALL_ACCESS, KLA
        RegSetValueEx KLA, vbNullString, 0, REG_SZ, ByVal "Map for SkyWar", Len("Map for SkyWar")
    RegCloseKey KLA
    
    
    RegOpenKeyEx HKEY_CLASSES_ROOT, "Map for SkyWar\DefaultIcon", 0, KEY_ALL_ACCESS, KLA
        RegSetValueEx KLA, vbNullString, 0, REG_SZ, ByVal "D:\GameProgram\MapEdit\ListPro\Icon.ICO", Len("D:\GameProgram\MapEdit\ListPro\Icon.ICO")
    RegCloseKey KLA
    
    RegOpenKeyEx HKEY_CLASSES_ROOT, "Map for SkyWar\shell\open\command", 0, KEY_ALL_ACCESS, KLA
        RegSetValueEx KLA, vbNullString, 0, REG_SZ, ByVal "D:\GameProgram\MapEdit\MapEdit.exe %1", Len("D:\GameProgram\MapEdit\MapEdit.exe %1")
    RegCloseKey KLA				    ByVal AppPath & "\" & AppName & ".exe %1"
    
    
End Sub
'Content Type
ByVal AppPath & "\" & AppName & ".exe %1"