输入法设置英文,扩展名隐藏,文件名后添加来自剪贴板的字符串

                                                                        ;

#z::                                                                    ;win+z运行
PreLang := GetLang()
SetEN(0x00000804)
SetNameStamp()
SetLang(PreLang)
return

;获取当前语言,返回当前语言值
GetLang(){
    return DllCall(“GetKeyboardLayout”, UInt)
}

;设置英文模式 0x00000804
SetEN(dwLayout){
    HKL:=DllCall(“LoadKeyboardLayout”, Str, dwLayout, UInt, 0)
    SetLang(HKL)
    return
}

;设置语言模式
SetLang(HKL)
{
    ControlGetFocus,ctl,A
    SendMessage,0x50,0,HKL,%ctl%,A
    return
}

;设置时间戳
SetNameStamp()
{

value := “1”
RegWrite, REG_DWORD,HKEY_CURRENT_USER,Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\,HideFileExt, %Value%
PostMessage,0x111,0x7103,0,SHELLDLL_DefView1,A
;扩展名隐藏
sleep 188
    Send, {F2}{Right}
    Sleep, 100
    Newname := Clipboard
    Send, `_
    Send, % Newname                                ;输出文件名
    Send, {Enter}
    Return
}

 

 

 

 

 

 

 

               

 

给TA买糖
共{{data.count}}人
人已赞赏
学习

在行代码后自动插入一些空格,用注释符结束

2021-9-22 7:07:38

学习

最新、最全AutoHotkey教程

2021-9-22 16:25:27

2 条回复 A文章作者 M管理员
  1. 1河许人

    建议下次分享排下版

  2. ccc

    你好,这个排版是用编辑器排版的吗?我是用系统的txt写的

个人中心
购物车
优惠劵
今日签到
有新私信 私信列表
搜索