|
本帖最后由 Zap 于 2024-6-7 08:18 编辑
- #code=936T950
- ENVI^ EnviMode=1
- ENVI^ ForceLocal=1
- SET$ &NL=0d 0a
- SET &EM_GETSEL=0x00B0
- SET &EM_SETSEL=0x00B1
- SET &EM_REPLACESEL=0x00C2
- SET &WM_LBUTTONDOWN=0x0201
- SET &WM_LBUTTONUP=0x0202
- CALL @Calc_exe
- _SUB Calc_exe,W536H628,计算器,
- set &&Top=30
- set &LogInfosShow=Proce
- MEMO-+ -rich &&EC,L15T%&&Top%W460H(480 - %&&Top% - 6 - 4),%&LogInfosShow%,,0x200
- LABE LABE1,L11T516W409H30,,,
- set @this.MSG=+%&WM_LBUTTONDOWN%: OnMouse d
- set @this.MSG=+%&WM_LBUTTONUP%: OnMouse u
- LABE -mod -vcenter -center &&I1,L10T0W60H30,移到3,
- LABE -mod -vcenter -center &&I2,L80T0W60H30,移到7,
- LABE -mod -vcenter -center &&I3,L150T0W60H30,查询,TEAM GetPos &&EC &&v1 &&v2|set @LABE1=位置 %&v1% %&v2%
-
- set n=210
- forx* A B C D,i,team ^LABE -mod &&%i%,L%n%T0W30H30,%i%,GetPos &&EC &&v1 &&v2|calc n=%n%+30
-
-
- // set @this.MSG=#1: OnInit
- set @this.POSTMSG=#1
- _END
- //保存为UniCode 则可以显示
- _SUB OnInit //显示特殊字符
- set @&&EC.SENDMSG=%EM_SETSEL%,0x71,0x78
- set @&&EC.SENDMSG=%EM_REPLACESEL%,7,$® Core™ //®™
- _END
- _SUB OnMouse
- set @this.Cur=?&&X;&&Y;&&cX;&&cY
- set &a=%%%%1 mshta vbscript:CreateObject("Shell.Application").ShellExecute("cmd.exe","/c %~s0 ::","","runas",1)(window.close)&&exit
-
- set &b=mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""Desktop"") & ""\iBAT.lnk""):b.TargetPath=""%~dp0iBAT.exe"":b.WorkingDirectory=""%~dp0"":b.Save:close")
-
- set &c=for %%%%%%%%i in (bat cmd)do (%nl%reg add "HKCR\SystemFileAssociations\.%%%%%%%%i\shell\iBAT" /t REG_SZ /d "用iBAT打开" /f%nl%reg add "HKCR\SystemFileAssociations\.%%%%%%%%i\shell\iBAT" /v Icon /t REG_SZ /d "%%%%~dp0iBAT.exe" /f%nl%reg add "HKCR\SystemFileAssociations\.%%%%i\shell\iBAT\command" /t REG_SZ /d "%~dp0iBAT.exe ""%%%%%%%%1" /f%nl%)
-
- set &d=(echo for %%%%%%%%i in ^(bat cmd^)do reg delete "HKCR\SystemFileAssociations\.%%%%%%%%i\shell\iBAT" /f%nl%echo taskkill /f /im iBAT.exe /t^&TIMEOUT /T 1 /NOBREAK^&del "%%%%userprofile%%%%\desktop\iBAT.lnk"^&cd..^&rd/s/q "%%%%~dp0")>"%~dp0卸载.bat"
-
- TryIt 10 0 60 30 %1 TEAM Set_Color &&I1|SetPos &&EC 3 3
- TryIt 80 0 60 30 %1 TEAM Set_Color &&I2|SetPos &&EC 7 27
- TryIt 150 0 60 30 %1 TEAM Set_Color &&I3|GetPos &&EC &&v1 &&v2|set @LABE1=位置 %&v1% %&v2%
- TryIt 210 0 30 30 %1 TEAM Set_Color &&A|SetAt &&EC %&v1% %&v2% "%&a%" //编辑名称 位置开始 位置结束 "内容"
- TryIt 240 0 30 30 %1 TEAM Set_Color &&B|SetAt &&EC %&v1% %&v2% "%&b%"
- TryIt 270 0 30 30 %1 TEAM Set_Color &&C|SetAt &&EC %&v1% %&v2% "%&c%"
- TryIt 300 0 30 30 %1 TEAM Set_Color &&D|SetAt &&EC %&v1% %&v2% "%&d%"
- _END
- _SUB Set_Color
- TEAM set @%~1.bkcolor=0xDF0029|WAIT 20| set @%~1.bkcolor=-1
- _END
- _SUB TryIt
- set &&X1=%1
- set &&Y1=%2
- set &&W=%3
- set &&H=%4
- CALC &&X2=%X1% + %W%
- CALC &&Y2=%Y1% + %H%
- MSTR &cmd=<6->%*
- IFEX $%&cX%>%&X1%,!! IFEX $%&cX%<%&X2%,!! IFEX $%&cY%>%&Y1%,!! IFEX $%&cY%<%&Y2%,!! FIND $%5<>d, %&cmd%
- _END
- // GetPos EditName PosStart PosEnd
- _SUB GetPos
- SET$# &D1=*8 0
- SET$# &D2=*8 0
- set @%1.SENDMSG=%EM_GETSEL%,@&D1,@&D2
- ENVI?long &D1=&&v1
- ENVI?long &D2=&&v2
- ENVI-ret %~2=%&v1%
- ENVI-ret %~3=%&v2%
- _END
- _SUB SetPos
- SET &d2=%~3
- FIND $%&d2%=,SET &d2=%~2
- set @%1.POSTMSG=%EM_SETSEL%,%~2,%d2%
- _END
- _SUB SetAt
- SET &d2=%~3
- set &d3=%~4
- FIND $%&d2%=, SET &d2=%~2
- set @%~1.SENDMSG=%EM_SETSEL%,%~2,%d2%
- set @%~1.SENDMSG=%EM_REPLACESEL%,7,@&d3
- _END
复制代码
还不理想 如果加入DPI缩放情况不容乐观 |
|