我是新手，有个简单的问题请教大家

sohu9394

如何在托盘图标右键的菜单里增加一个选项。选择了就自动导入以下到注册表

Windows Registry Editor Version 5.00
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Keyboard Layout]
"Scancode Map"=hex:00,00,00,00,00,00,00,00,02,00,00,00,00,00,5B,E0,00,00,00,00

导入成功后就弹出一个msgbox提示。按了确定之后就会自动注销.按取消就不注销

-------------------------------------------------------------------------------------------------
原因：注入屏蔽左Win键的注册表信息后需注销才能开始屏蔽，方便玩红警与War3的朋友。

希望有朋友帮手解决

[ 本帖最后由 sohu9394 于 2008-11-2 14:23 编辑 ]

liongodmien

RegWrite('HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Keyboard Layout', 'Scancode Map', 'REG_BINARY', '0x00000000000000000200000000005BE000000000')
If MsgBox(36, '选择', '是否注销以便使设置生效？') = 6 Then
        MsgBox(64,'提示', '准备注销...', 2)
        Shutdown(0)
Else
        MsgBox(64,'提示','键设置于手动注销或重启后生效！', 2)
EndIf

sohu9394

还我需要的是有个新选项可以选择才进行导入注册表。不是进行就导入注册表。谢谢

liongodmien

原帖由 sohu9394 于 2008-11-2 11:46 发表
还我需要的是有个新选项可以选择才进行导入注册表。不是进行就导入注册表。谢谢

希望大家都可以先对帮助有所认识！

liongodmien

If MsgBox(36, '选择', '是否写入键左WIN键禁用设置？') = 6 Then
    MsgBox(64,'提示', '准备写入...', 2)
        RegWrite('HKEY_LOCAL_MACHINESYSTEMCurrentControlSetControlKeyboard Layout', 'Scancode Map', 'REG_BINARY', '0x00000000000000000200000000005BE000000000')
Else
    MsgBox(64,'提示','键设置写入取消！', 2)
        Exit
EndIf
If MsgBox(36, '选择', '是否注销以便使设置生效？') = 6 Then
    MsgBox(64,'提示', '准备注销...', 2)
    Shutdown(0)
Else
    MsgBox(64,'提示','键设置于手动注销或重启后生效！', 2)
EndIf

sohu9394

我表达能力不好，呵呵。

sohu9394

我的意思是托盘菜单如何增加多一项。用来执行这个RegWrite的。我不会

liongodmien

自己放进脚本里吧，不要说怎么放也不会！

Opt('TrayAutoPause', 0)
Opt('TrayOnEventMode', 1)
TrayCreateItem('左WIN键禁用写入')
TrayItemSetOnEvent(-1, 'WriteREG')
Do
        Sleep(90)
Until 0

Func WriteREG()
        If MsgBox(36, '选择', '是否写入键左WIN键禁用设置？') = 6 Then
    MsgBox(64,'提示', '准备写入...', 2)
        RegWrite('HKEY_LOCAL_MACHINESYSTEMCurrentControlSetControlKeyboard Layout', 'Scancode Map', 'REG_BINARY', '0x00000000000000000200000000005BE000000000')
Else
    MsgBox(64,'提示','键设置写入取消！', 2)
        Exit
EndIf
If MsgBox(36, '选择', '是否注销以便使设置生效？') = 6 Then
    MsgBox(64,'提示', '准备注销...', 2)
    Shutdown(0)
Else
    MsgBox(64,'提示','键设置于手动注销或重启后生效！', 2)
EndIf
EndFunc

78391493

你直接说想找人帮你写一个算了……

sohu9394

liongodmien兄太强大。好人屎啊~~~~~~~~~顶你。


呵呵~~~万分感谢

liongodmien

假如你的问题得到解决.请发贴人,编辑主题.把分类改为[已解决]

举手之劳,利国利民

举手之劳，利国利民！