AutoHotkey中文社区
文章
评论
关注
粉丝
私信列表所有往来私信
财富管理余额、积分管理
推广中心推广有奖励
任务中心每日任务
成为会员购买付费会员
认证服务申请认证
小黑屋关进小黑屋的人
我的订单查看我的订单
我的设置编辑个人资料
进入后台管理
概览
发布的
订单
邀请码
收藏
设置
很好
大佬就是大佬
;{………………………………………………………………………………………………热字串 :*? B0:koh:: Hotkey, $Space, off KeyWait, Space,d T1 if ErrorLevel { Hotkey, $Space, on return } send, {bs 3} sendinput,〔201〕 send,{left} Sleep, 100 Hotkey, $Space, on return ;} 这一段是什么意思，哪位大神帮忙解释一下
鼠标停留在桌面上任意位置，F1,将该位置像素赋于主题1的颜色，F2依次主题2 F1:: color:= GetMouseColor() oRGB := HexToRGB(color) SetThemeColor(5,oRGB) oRGB := 0 return F2:: color:= GetMouseColor() oRGB := HexToRGB(color) SetThemeColor(6,oRGB) oRGB := 0 return F3:: color:= GetMouseColor() oRGB := HexToRGB(color) SetThemeColor(7,oRGB) oRGB := 0 return F4:: color:= GetMouseColor() oRGB := HexToRGB(color) SetThemeColor(8,oRGB) oRGB := 0 return GetMouseColor(){ MouseGetPos, mouseX, mouseY CoordMode, Pixel, Screen PixelGetColor, color, %mouseX%, %mouseY%, RGB ;~ StringRight color,color,8 return color } HexToRGB(HexColor){ RR := SubStr(HexColor, 3, 2) GG := SubStr(HexColor, 5, 2) BB := SubStr(HexColor, 7, 2) oRGB16 := "0x" BB GG RR oRGB := ToBase(oRGB16,10) return oRGB } SetThemeColor(Index,oRGB){ try{ oPPT := ComObjActive("powerpoint.Application") oDess := oPPT.ActivePresentation.Designs loop, % oDess.Count oDess.item(A_Index).SlideMaster.Theme.ThemeColorScheme(index).RGB := oRGB } return } ToBase(n,b){ return (n < b ? "" : ToBase(n//b,b)) . ((d:=Mod(n,b)) < 10 ? d : Chr(d+55)) }
学习
多谢
解锁会员权限
开通会员
解锁海量优质VIP资源
立刻开通
今日签到
连续签到
之前
未认证
很好
大佬就是大佬
;{………………………………………………………………………………………………热字串 :*? B0:koh:: Hotkey, $Space, off KeyWait, Space,d T1 if ErrorLevel { Hotkey, $Space, on return } send, {bs 3} sendinput,〔201〕 send,{left} Sleep, 100 Hotkey, $Space, on return ;} 这一段是什么意思，哪位大神帮忙解释一下
鼠标停留在桌面上任意位置，F1,将该位置像素赋于主题1的颜色，F2依次主题2 F1:: color:= GetMouseColor() oRGB := HexToRGB(color) SetThemeColor(5,oRGB) oRGB := 0 return F2:: color:= GetMouseColor() oRGB := HexToRGB(color) SetThemeColor(6,oRGB) oRGB := 0 return F3:: color:= GetMouseColor() oRGB := HexToRGB(color) SetThemeColor(7,oRGB) oRGB := 0 return F4:: color:= GetMouseColor() oRGB := HexToRGB(color) SetThemeColor(8,oRGB) oRGB := 0 return GetMouseColor(){ MouseGetPos, mouseX, mouseY CoordMode, Pixel, Screen PixelGetColor, color, %mouseX%, %mouseY%, RGB ;~ StringRight color,color,8 return color } HexToRGB(HexColor){ RR := SubStr(HexColor, 3, 2) GG := SubStr(HexColor, 5, 2) BB := SubStr(HexColor, 7, 2) oRGB16 := "0x" BB GG RR oRGB := ToBase(oRGB16,10) return oRGB } SetThemeColor(Index,oRGB){ try{ oPPT := ComObjActive("powerpoint.Application") oDess := oPPT.ActivePresentation.Designs loop, % oDess.Count oDess.item(A_Index).SlideMaster.Theme.ThemeColorScheme(index).RGB := oRGB } return } ToBase(n,b){ return (n < b ? "" : ToBase(n//b,b)) . ((d:=Mod(n,b)) < 10 ? d : Chr(d+55)) }
学习
多谢