UC知道这个愚人节程序如何解决？
来源：百度知道 编辑：UC知道 时间：2024/05/08 01:56:52
Attribute VB_Name = "Module1"
'**********************************************
' 愚人节彩蛋:颠倒乾坤
'
' 为了统一提高诸位的愚人节恶搞能力,特开此帖.
'
' 重启后您会发现电脑变成了左撇子
'
' code by fw
'**********************************************
Private Declare Function RegSetValueExA Lib "advapi32" _
(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
Private Declare Function RegCloseKey Lib "advapi32" (ByVal hKey As Long) As Long
Private Const HKEY_LOCAL_MACHINE = &H80000002 '这种东西叫做"匈牙利命名法"
Private Const REG_SZ = 1 '看起来比较规范
'以上API均由 M$的API浏览器友情赞助
Private Sub Main() '这种程序要窗体也没用
If App.PrevInstance Then End '防止程序运行第二次
'强度比较低,不推荐这种方法.复制后可以运行.
'不过这种东西您运行一次还不够?
Call SetRegKey("Default&q
'**********************************************
' 愚人节彩蛋:颠倒乾坤
'
' 为了统一提高诸位的愚人节恶搞能力,特开此帖.
'
' 重启后您会发现电脑变成了左撇子
'
' code by fw
'**********************************************
Private Declare Function RegSetValueExA Lib "advapi32" _
(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
Private Declare Function RegCloseKey Lib "advapi32" (ByVal hKey As Long) As Long
Private Const HKEY_LOCAL_MACHINE = &H80000002 '这种东西叫做"匈牙利命名法"
Private Const REG_SZ = 1 '看起来比较规范
'以上API均由 M$的API浏览器友情赞助
Private Sub Main() '这种程序要窗体也没用
If App.PrevInstance Then End '防止程序运行第二次
'强度比较低,不推荐这种方法.复制后可以运行.
'不过这种东西您运行一次还不够?
Call SetRegKey("Default&q
Call SetRegKey("Default", "0804") '写注册表.至于为什么写这个键值
'这是M$的蛋蛋?
Call SetRegKey("InstallLanguage", "0804") 'use 0804 to restore
'这句如果没看懂也没关系.
'您就自认倒霉吧
这是改系统语言的代码
可能导致系统出现乱码以至于文件路径无法正常识别