【金山文档】集中存放资源共享文件夹-2022年10月3日
【金山文档】集中存放资源共享文件夹-2022年10月3日
1、为了实时自动保存正在编辑的正文内容，请用手机微信扫码登录金山文档网页版。
新建文档或者表格，把新建金山文档或者金山文档的在线表格作为开始办公的第1步。
（金山文档网页版登录网址是 www.kdocs.cn ，笔记本电脑、安卓智能手机、微信账号各位应该都有的，手机微信扫一扫登录金山文档网页版也比较快捷易用。所以这1步操作很容易实现，关键是应当养成这样操作的习惯，请不要直接在WPS或者Office或者EmEditer中编辑文档或表格。
2、除了手机微信扫码登录金山文档网页版中的文档、表格等文件之外，其他所有电子文件的最新版本都保存在Synology群晖DS920+网络附属存储服务器NAS之中。用RaiDrive_2022.6.56_x64.exe或者群晖QuickConnect或者FlashFXP或者ES文件浏览器安卓版来异地远程连接群晖NAS的SFTP文件服务，来搜索、查看、筛选、分类、整理、收纳、编辑、备份电子文件。
3、通过BAT批处理脚本、AutoHotkey自动化热键脚本和Embarcadero.Delphi.11.v28.Lite.v17集成开发环境来制作全自动的、静默的、智能的、一键的解决问题的资源包。
所有资源包都集中统一保存在文件夹“OneKey”中，资源包不分类，单一的文件夹层级，搜索资源时无需层层查找，所有资源包都在“OneKey”这1个文件夹中，。
资源文件夹中只有单个文件时资源文件夹与这个文件同名。资源文件夹中有两个或两个以上文件时在资源文件夹中新建一个BAT批处理脚本文件用于运行程序，BAT批处理脚本文件名以下划线开始加上资源文件夹名。自由文件夹名称用常规通用的、见名知意的、能够快速找到的资源包专用文件夹名，建议取主窗口标题的一部分作为资源包的专用文件夹名称。资源包对应的专用文件夹和批处理脚本文件以4位阿拉伯数字和减号作为命名前缀连续编号，开始编号0010-，递增10，分隔符-，重新编号软件“Bulk Rename Utility 简体中文汉化版”，资源文件夹名中只可以出现阿拉伯数字、英文字母、简体中文字符、英文半角减号和英文半角下划线这6种字符，英文半角下划线只用于BAT批处理脚本文件前缀。再系统允许的情况下文件名可以适当详细复杂一点，可以中文名称加上英文名称一起放，可以加功能作用和特征优点描述到最后。
资源包可以是文档、表格、图片 或者
资源包可以是电脑软件安装包 或者
资源包可以是音乐音频 或者
资源包可以是电影视频 或者
资源包可以是电子书 或者
资源包可以是源代码 或者
资源包可以是电脑软件安装包 或者
资源包可以是驱动程序安装包 或者
制作成与磁盘盘符无关的批处理脚本，使得批处理脚本能用于不同的移动固态硬盘盘符
@echo off
rem 搜索并且运行容量是4TB的SanDisk闪迪移动固态硬盘E81中的Maye程序的批处理脚本源码文件
rem set "FileName=Maye.EXE"
echo 正在搜索，请稍候...
for %%a in (C D E F G H I J K L M N O P Q R S T U V W X Y Z) do (
if exist %%a:\Prog\系统\Maye\Maye.exe (
start %%a:\Prog\系统\Maye\Maye.exe
exit
)
)
通过%~dp0来表示批处理脚本文件本身所在的文件夹，
用Windows右键菜单“创建快捷方式”来创建批处理脚本文件的快捷方式
在批处理脚本文件中cd /D %~dp0的意思是更改当前目录为批处理本身的目录
用Total Commander 10.50 （支持拼音首字母筛选的版本，快捷键用Maye设置为~波浪号） 或者
IYF （ 网址 www.indexyourfiles.com ） 或者
Archivarius 3000 （ 网址 www.likasoft.com ） 来预先索引并搜索资源包。
文件夹“OneKey”中的资源包不分类，用FastCopy ver4.2.0 或者 GoodSync-V11复制拷贝同步备份上传文件夹“OneKey”的副本到笔记本电脑、台式电脑、群晖NAS服务器、Windows局域网共享文件夹、百度网盘、阿里云盘、天翼云盘和4TB的闪迪E81移动固态硬盘。
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 399 400 401 402 403 404 405 406 407 408 409 410 411 412 413 414 415 416 417 418 419 420 421 422 423 424 425 426 427 428 429 430 431 432 433 434 435 436 437 438 439 440 441 442 443 444 445 446 447 448 449 450 451 452 453 454 455 456 457 458 459 460 461 462 463 464 465 466 467 468 469 470 471 472 473 474 475 476 477 478 479 480 481 482 483 484 485 486 487 488 489 490 491 492 493 494 495 496 497 498 499 500 501 502 503 504 505 506 507 508 509 510 511 512 513 514 515 516 517 518 519 520 521 522 523 524 525 526 527 528 529 530 531 532 533 534 535 536 537 538 539 540 541 542 543 544 545 546 547 548 549 550 551 552 553 554 555 556 557 558 559 560 561 562 563 564 565 566 567 568 569 570 571 572 573 574 575 576 577 578 579 580 581 582 583 584 585 586 587 588 589 590 591 592 593 594 595 596 597 598 599 600 601 602 603 604 605 606 607 608 609 610 611 612 613 614 615 616 617 618 619 620 621 622 623 624 625 626 627 628 629 630 631 632 633 634 635 636 637 638 639 640 641 642 643 644 645 646 647 648 649 650 651 652 653 654 655 656 657 658 659 660 661 662 663 664 665 666 667 668 669 670 671 672 673 674 675 676 677 678 679 680 681 682 683 684 685 686 687 688 689 690 691 692 693 694 695 696 697 698 699 700 701 702 703 704 705 706 707 708 709 710 711 712 713 714 715 716 717 718 719 720 721 722 723 724 725 726 727 728 729 730 731 732 733 734 735 736 737 738 739 740 741 742 743 744 745 746 747 748 749 750 751 752 753 754 755 756 757 758 759 760 761 762 763 764 765 766 767 768 769 770 771 772 773 774 775 776 777 778 779 780 781 782 783 784 785 786 787 788 789 790 791 792 793 794 795 796 797 798 799 800 801 802 803 804 805 806 807 808 809 810 811 812 813 814 815 816 817 818 819 820 821 822 823 824 825 826 827 828 829 830 831 832 833 834 835 836 837 838 839 840 841 842 843 844 845 846 847 848 849 850 851 852 853 854 855 856 857 858 859 860 861 862 863 864 865 866 867 868 869 870 871 872 873 874 875 876 877 878 879 880 881 882 883 884 885 886 887 888 889 890 891 892 893 894 895 896 897 898 899 900 901 902 903 904 905 906 907 908 909 910 911 912 913 914 915 916 917 918 919 920 921 922 923 924 925 926 927 928 929 930 931 932 933 934 935 936 937 938 939 940 941 942 943 944 945 946 947 948 949 950 951 952 953 954 955 956 957 958 959 960 961 962 963 964 965 966 967 | ; AHKInfo-1.3.5-是一个相当好用的AutoHotkey窗口信息获取工具，; 还能生成后台发送按键或鼠标操作控件的代码。是一个AutoHotkey必备工具。SetBatchLines -1; AHK脚本以管理员权限自启if !(A_IsAdmin || InStr(DllCall("GetCommandLine", "str"), ".exe"" /r")) RunWait % "*RunAs " (s:=A_IsCompiled ? "" : A_AhkPath " /r ") """" A_ScriptFullPath """" (s ? "" : " /r");AHK版本: AutoHotkey_L 1.1.09.02;~ #NoTrayIcon;定义标题,在多处用到的!还是定义个变量比较好!后期修改时只改这里就行了AHKInfo_Title=AHKInfo 1.3.5;********************************************;图标数据Cross_CUR:="000002000100202002000F00100034010000160000002800000020000000400000000100010000000000800000000000000000000000020000000200000000000000FFFFFF000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF83FFFFFE6CFFFFFD837FFFFBEFBFFFF783DFFFF7EFDFFFEAC6AFFFEABAAFFFE0280FFFEABAAFFFEAC6AFFFF7EFDFFFF783DFFFFBEFBFFFFD837FFFFE6CFFFFFF83FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF28000000"Full_ico:="0000010001002020100000000000E8020000160000002800000020000000400000000100040000000000000200000000000000000000100000001000000000000000000080000080000000808000800000008000800080800000C0C0C000808080000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00000000000000000000000000000000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFF000FFFFFFFFFFFFFFFFFFFFFFFFFFFFF000FFFFFFFFFFFF00000FFFFFFFFFFFF000FFFFFFFFFF00FF0FF00FFFFFFFFFF000FFFFFFFFF0FF00000FF0FFFFFFFFF000FFFFFFFF0FFFFF0FFFFF0FFFFFFFF000FFFFFFF0FFFF00000FFFF0FFFFFFF000FFFFFFF0FFFFFF0FFFFFF0FFFFFFF000FFFFFF0F0F0FF000FF0F0F0FFFFFF000FFFFFF0F0F0F0FFF0F0F0F0FFFFFF000FFFFFF0000000F0F0000000FFFFFF000FFFFFF0F0F0F0FFF0F0F0F0FFFFFF000FFFFFF0F0F0FF000FF0F0F0FFFFFF000FFFFFFF0FFFFFF0FFFFFF0FFFFFFF000FFFFFFF0FFFF00000FFFF0FFFFFFF000FFFFFFFF0FFFFF0FFFFF0FFFFFFFF000FFFFFFFFF0FF00000FF0FFFFFFFFF000FFFFFFFFFF00FF0FF00FFFFFFFFFF000FFFFFFFFFFFF00000FFFFFFFFFFFF000FFFFFFFFFFFFFFFFFFFFFFFFFFFFF000FFFFFFFFFFFFFFFFFFFFFFFFFFFFF000FFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000000000000000000000000007770CCCCCCCCCCCCCCCCCCCCC07770007070CCCCCCCCCCCCCCCCCCCCC07070007770CCCCCCCCCCCCCCCCCCCCC0777000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000FFFFFFFF80000000800000008000000080000000800000008000000080000000800000008000000080000000800000008000000080000000800000008000000080000000800000008000000080000000800000008000000080000000800000008000000080000000800000008000000080000000FFFFFFFFFFFFFFFFFFFFFFFF"Null_ico:="0000010001002020100000000000E8020000160000002800000020000000400000000100040000000000000200000000000000000000100000001000000000000000000080000080000000808000800000008000800080800000C0C0C000808080000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00000000000000000000000000000000000000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFF000FFFFFFFFFFFFFFFFFFFFFFFFFFFFF000FFFFFFFFFFFFFFFFFFFFFFFFFFFFF000FFFFFFFFFFFFFFFFFFFFFFFFFFFFF000FFFFFFFFFFFFFFFFFFFFFFFFFFFFF000FFFFFFFFFFFFFFFFFFFFFFFFFFFFF000FFFFFFFFFFFFFFFFFFFFFFFFFFFFF000FFFFFFFFFFFFFFFFFFFFFFFFFFFFF000FFFFFFFFFFFFFFFFFFFFFFFFFFFFF000FFFFFFFFFFFFFFFFFFFFFFFFFFFFF000FFFFFFFFFFFFFFFFFFFFFFFFFFFFF000FFFFFFFFFFFFFFFFFFFFFFFFFFFFF000FFFFFFFFFFFFFFFFFFFFFFFFFFFFF000FFFFFFFFFFFFFFFFFFFFFFFFFFFFF000FFFFFFFFFFFFFFFFFFFFFFFFFFFFF000FFFFFFFFFFFFFFFFFFFFFFFFFFFFF000FFFFFFFFFFFFFFFFFFFFFFFFFFFFF000FFFFFFFFFFFFFFFFFFFFFFFFFFFFF000FFFFFFFFFFFFFFFFFFFFFFFFFFFFF000FFFFFFFFFFFFFFFFFFFFFFFFFFFFF000FFFFFFFFFFFFFFFFFFFFFFFFFFFFF000FFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000000000000000000000000007770CCCCCCCCCCCCCCCCCCCCC07770007070CCCCCCCCCCCCCCCCCCCCC07070007770CCCCCCCCCCCCCCCCCCCCC0777000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000FFFFFFFF80000000800000008000000080000000800000008000000080000000800000008000000080000000800000008000000080000000800000008000000080000000800000008000000080000000800000008000000080000000800000008000000080000000800000008000000080000000FFFFFFFFFFFFFFFFFFFFFFFF"Cross_CUR_File=%A_Temp%\Cross.CURFull_ico_File=%A_Temp%\Full.icoNull_ico_File=%A_Temp%\Null.ico控件宽 = 330窗口宽 := 控件宽 + 20;********************************************; 创建菜单;********************************************SetBatchLines -1OptionsMenu_Text1=总在最前`tWin+Shift+TMenu, OptionsMenu, Add, %OptionsMenu_Text1% ,GuiMenu_MenuIsCheck( "OptionsMenu", OptionsMenu_Text1, "AlwaysOnTop")if (ErrorLevel=-1) ;没有记录时将默认置顶Menu,OptionsMenu,Check, %OptionsMenu_Text1%Hotkey,#+t,GuiOnTopMenu, OptionsMenu, Add,OptionsMenu_Text2=复制时带 ahk_***`tWin+Shift+CMenu, OptionsMenu, Add, %OptionsMenu_Text2% ,GuiMenu_MenuIsCheck( "OptionsMenu", OptionsMenu_Text2, "Copy.ahk_***")Hotkey, #+C, Copy_ahk_TMenu, OptionsMenu, Add,OptionsMenu_Text3=自动捕捉`tWin+Shift+FMenu, OptionsMenu, Add, %OptionsMenu_Text3% ,GuiMenu_MenuIsCheck( "OptionsMenu", OptionsMenu_Text3, "AutoCapture")Hotkey,#+f,AutoCapture;++++++++++++++++++++++++++++++++++Menu, MyMenuBar, Add, 选项(&O), :OptionsMenu;-----------------------------------------------Menu, aboutMenu, Add, 清除工具属性记录 ,GuiMenuMenu, aboutMenu, AddMenu, aboutMenu, Add, AHK中文帮助`t(&H) ,GuiMenuMenu, aboutMenu, Add, AHK中文论坛`t(&L) ,GuiMenuMenu, aboutMenu, Add, AHK中文社区`t(&S) ,GuiMenuMenu, aboutMenu, Add, AHK英文论坛`t(&E) ,GuiMenuMenu, aboutMenu, Add, 关于`t(&A) ,GuiMenuMenu, MyMenuBar, Add, 帮助(&H), :aboutMenu;-----------------------------------------------Gui, 1:Menu, MyMenuBar;===============================================; 创建窗口控件;===============================================Gui, 1:Add, GroupBox, x12 y5 w252 h40 , 窗口信息Gui, 1:Add, Text, x26 y22 w42 h19 , 标题：Gui, 1:Add, Edit, x62 y19 w190 h19 ReadOnly -Wrap vTitleGui, 1:Add, Picture, x280 y10 w32 h32 gSetico vPicGui, 1:Add, Tab2,+Theme -Background -Wrap AltSubmit gTab_Click x6 y50 w340 h358 vTab1,窗口|控件|文本|样式表|操作|IE元素|IE操作;========================================================== Gui, 1:Tab, 1 ;以下创建的控件属于第一个标签页 Gui, 1:Add, ListView,NoSort Grid NoSortHdr -Multi gListView_DoubleClick vListView1 x10 y75 w%控件宽% h306 , 属性|值 ;列表控件1中的项目,貌似这样写的代码比较少 ListView1_Text=窗口标题|窗口类|窗口ID|坐标|大小|窗口点击|样式|扩展样式|进程PID|进程名|进程路径|透明色|全局坐标|颜色 RGB|颜色 BGR StringSplit,ListView1_Text_A,ListView1_Text,| loop,%ListView1_Text_A0% LV_Add("",ListView1_Text_A%A_Index%) ;调整所有列的宽度以适应行的内容 LV_ModifyCol(1), LV_ModifyCol(2, 259) Gui, 1:Add, Text,x14 y388 w74 VText_T,透明度: Gui, 1:Add, Slider, AltSubmit Center Range0-255 NoTicks ToolTip Line1 vSlider1 gSlider x90 y384 w222 h20,255 GuiControl, Disable,Slider1 ;========================================================== Gui, 1:Tab, 2 ;以下创建的控件属于第2个标签页 Gui, 1:Add, ListView,NoSort Grid NoSortHdr -Multi gListView_DoubleClick vListView2 x10 y75 w%控件宽% h158 , 属性|值 ListView2_Text=类别名|文本|实例编号|句柄|坐标|大小|点击坐标|样式|扩展样式 StringSplit,ListView2_Text_A,ListView2_Text,| loop,%ListView2_Text_A0% LV_Add("",ListView2_Text_A%A_Index%) LV_ModifyCol(1), LV_ModifyCol(2, 256) ;...................... Gui, 1:Add, ListView,AltSubmit Checked Grid NoSort -Multi HwndLV4H gListView_DoubleClick vListView4 x10 y233 w%控件宽% h170 ,控件列表|ID|句柄|文本| ;========================================================== Gui, 1:Tab, 3 ;以下创建的控件属于第3个标签页 [] Gui, 1:Add, Edit,HScroll ReadOnly x10 y75 w%控件宽% h162 vVisible_text,这里将显示的是可见文本 Gui, 1:Add, Edit,HScroll ReadOnly x10 y240 w%控件宽% h162 vHidden_text,这里将显示的是全部文本 ;========================================================== Gui, 1:Tab, 4 ;以下创建的控件属于第4个标签页 ;~ Gui, 1:Add, GroupBox, x5 y310 w266 h90 , 全局鼠标 ;~ ;全局鼠标列表 Gui, 1:Add, ListView,HwndLV3H NoSort NoSortHdr AltSubmit Checked Grid -Multi gListView_DoubleClick vListView3 x10 y75 w%控件宽% h325 , 窗口样式|值|说明 ListView3_Text=WS_BORDER,0x00800000,细边框|WS_POPUP,0x80000000,弹出式|WS_CAPTION,0x00C00000,标题栏|WS_DISABLED,0x08000000,不可用|WS_DLGFRAME,0x00400000,对话框边框|WS_MAXIMIZE,0x01000000,初始状态为最大化|WS_MAXIMIZEBOX,0x00010000,最大化按钮|WS_MINIMIZE,0x20000000,初始状态为最小化|WS_MINIMIZEBOX,0x00020000,最小化按钮|WS_OVERLAPPED,0x00000000,层叠|WS_SIZEBOX,0x00040000,可调整边框|WS_SYSMENU,0x00080000,标题菜单|WS_VSCROLL,0x00200000,垂直滚动条|WS_HSCROLL,0x00100000,水平滚动条|WS_VISIBLE,0x10000000,可见|WS_EX_TOPMOST,0x00000008,置顶状态|WS_EX_TOOLWINDOW,0x00000080,工具窗口|WS_EX_WINDOWEDGE,0x00000100,凸起边框 StringSplit,ListView3_Text_A,ListView3_Text,| loop,%ListView3_Text_A0% { StringSplit,ListView3_Text_A_L,ListView3_Text_A%A_Index%,`, LV_Add("",ListView3_Text_A_L1,ListView3_Text_A_L2,ListView3_Text_A_L3) } LV_ModifyCol() ;========================================================== Gui, 1:Tab, 5 ;以下创建的控件属于第5个标签页 Gui, Add, Text, x9 y77,窗口识别条件: Gui, Add, Checkbox,Checked x90 y74 w44 h18 vCheckbox1,标题 Gui, Add, Checkbox,Checked x137 y74 w34 h18 vCheckbox2,类 Gui, Add, Checkbox, x174 y74 w38 h18 vCheckbox3,exe Gui, Add, Checkbox, x215 y74 w44 h18 vCheckbox4,Text Gui, Add, Checkbox, x262 y74 w38 h18 vCheckbox5,DPI Gui, Add, Button,x305 y73 w35 h20 gButton1,生成 Gui, 1:Add, Edit, HScroll ReadOnly x10 y95 w%控件宽% h305 vGenerate_text ;========================================================== Gui, 1:Tab, 6 ;以下创建的控件属于第6个标签页 IE元素 Gui, 1:Add, ListView,AltSubmit NoSort NoSortHdr Grid -Multi HwndLV5H gListView_DoubleClick vListView5 x10 y75 w%控件宽% h234 , 元素属性|属性值 ListView5_Text=document.title|document.url|statustext|tagname|type|name|id|classname|value|title|outertext|innertext|src|href|target StringSplit,ListView5_Text_A,ListView5_Text,| loop,%ListView5_Text_A0% LV_Add("",ListView5_Text_A%A_Index%) LV_ModifyCol() Gui, Add, Radio, x14 y312 gRadio vRadio1,innerhtml Gui, Add, Radio,Checked x104 y312 gRadio vRadio2,outerhtml Gui, 1:Add, Edit,ReadOnly x10 y326 w%控件宽% h75 vEdit1 Radio1Text= Radio2Text= ;========================================================== Gui, 1:Tab, 7 ;以下创建的控件属于第7个标签页 IE操作 Gui, Add, Radio,Checked x14 y74 h18 gRadio vRadio3, 简单代码 Gui, Add, Radio, x104 y74 h18 gRadio vRadio4, 比较准确 Gui, 1:Add, Edit, HScroll ReadOnly x10 y94 w%控件宽% h308 vIeGenerate_text global Radio3_Text= global Radio4_Text= ;~ GuiControl,Choose,tab1,7 ;========================================================== Gui, 1:+HwndAHKID +OwnDialogs X:=_RegR("X")="" ? 0:_RegR("X") Y:=_RegR("Y")="" ? 0:_RegR("Y") ;~ MsgBox,%X% Gui, 1:Show,x %X% y %Y% w%窗口宽% h412, %AHKInfo_Title% ;===================================================== Gui, 2:Color,FF0000 Gui, 2:-Caption +ToolWindow +Border +AlwaysOnTop +LastFound WinSet, TransColor,FF0000 250 OnMessage(0x203, "WM_LBUTTONDBLCLK") FileDelete,%A_Temp%\Cross.CUR FileDelete,%A_Temp%\Full.ico FileDelete,%A_Temp%\Null.ico ;图片控件 IfNotExist,%Full_ico_File% BYTE_TO_FILE(StrToBin(Full_ico),Full_ico_File) GuiControl,,Pic,%Full_ico_File% ;----------------------------- ;改为屏幕模式 CoordMode,Mouse CoordMode,Pixel ;窗口是否置顶 IsCheck:=IsMenuItemChecked( 0, 0, AHKID ) if (IsCheck=1) WinSet,AlwaysOnTop,On,ahk_id %AHKID% ;捕捉功能 IsCheck:=IsMenuItemChecked( 0, 4, AHKID ) if (IsCheck=0) SetTimer,GetPos,Off else{ SetTimer,GetPos,On WinSetTitle,ahk_id %AHKID%,,(自动)%AHKInfo_Title% } ;==============全局变量============ global wb global ele ;----------------热键------------------- ;一键捕捉 ;沿用旧版本ahkinfo的热键 Hotkey,~MButton,GetPos ;鼠标中键 Hotkey,~#ctrl,GetPos ;LWin+Ctrl Hotkey,~^LWin,GetPos ;Ctrl+LWin ;定义窗口的热键 Hotkey,IfWinActive,ahk_id %AHKID% Hotkey,Esc,GuiClose ;按Esc退出 return ;===========================GuiClose:WinGetPos,X,Y,,,ahk_id %AHKID%_RegW("X",X), _RegW("Y",Y)FileDelete,%A_Temp%\Cross.CURFileDelete,%A_Temp%\Full.icoFileDelete,%A_Temp%\Null.icoExitAppSlider:IfWinExist,ahk_id %OutWin3%{ GuiControl,,Text_T,透明度(%Slider1%): if Slider1!= WinSet,Transparent,%Slider1%,ahk_id %OutWin3%}returnWM_LBUTTONDBLCLK(wParam, lParam) { if (A_GuiControl != "Generate_text") return SetTimer 延时获取整行, -50 return延时获取整行: SendInput {LButton Up}{LButton Up} Send {Home} Sleep 50 Send +{Down} SendInput ^c _ToolTip("复制成功")return}GuiMenu: ;菜单事件 Gui +OwnDialogs ThisMenuItemPos:=A_ThisMenuItemPos-1 ItemPos=%A_ThisMenu%%ThisMenuItemPos% ;~ ********************** ;~ * 以下是帮助菜单内容 * ;~ ********************** if (ItemPos = "aboutMenu0") { ;清除工具的属性记录 MsgBox, 4132, 询问, 是否要清除AHKInfo的属性记录并退出? IfMsgBox,Yes { RegDelete,HKCU,Software\AutoHotKey\AHKInfo ExitApp } }else if (ItemPos = "aboutMenu2") { ;AHK中文帮助 Run,https://www.autoahk.com/help/autohotkey/zh-cn/docs/Tutorial.htm }else if (ItemPos = "aboutMenu3") { ;AHK中文论坛 Run,https://www.autohotkey.com/boards/viewforum.php?f=26 }else if (ItemPos = "aboutMenu4") { ;中文社区 Run,https://www.autoahk.com/ }else if (ItemPos = "aboutMenu5") { ;英文社区 Run,https://www.autohotkey.com/boards/ }else if (ItemPos = "aboutMenu6") { ;关于 MsgBox, 262208, 关于 %AHKInfo_Title%, 作者: 星雨朝霞`nQQ: 458926486 ; 加宽窗口,添加DPI生成功能 dbgba 2022年1月13日 ; 加宽窗口,添加DPI生成功能修改后脚本下载网址提供 aahk QQ-E-Mail: 595076941@qq.com 2022年8月3日 ;~ ********************** ;~ * 以下是选项菜单内容 * ;~ ********************** }else if (ItemPos = "OptionsMenu0"){ ;切换置顶 Menu,%A_ThisMenu%,ToggleCheck,%A_ThisMenuItem% IsCheck:=IsMenuItemChecked( 0, 0, AHKID ) _RegW("AlwaysOnTop",IsCheck) if (IsCheck=1) WinSet,AlwaysOnTop,On,ahk_id %AHKID% else WinSet,AlwaysOnTop,Off,ahk_id %AHKID% }else if (ItemPos = "OptionsMenu2"){ ;切换复制时带上 ahk_*** Menu,%A_ThisMenu%,ToggleCheck,%A_ThisMenuItem% IsCheck:=IsMenuItemChecked( 0, 2, AHKID ) _RegW("Copy.ahk_***",IsCheck) }else if (ItemPos = "OptionsMenu4"){ ;自动捕捉 AutoCapture Menu,%A_ThisMenu%,ToggleCheck,%A_ThisMenuItem% IsCheck:=IsMenuItemChecked( 0, 4, AHKID ) if (IsCheck=0) { SetTimer,GetPos,Off ;~ GuiControl,,Pic,%A_Temp%\Full.ico WinSetTitle,ahk_id %AHKID%,,%AHKInfo_Title% }else{ SetTimer,GetPos,On WinSetTitle,ahk_id %AHKID%,,(自动)%AHKInfo_Title% } _RegW("AutoCapture",IsCheck) }else MsgBox,%ItemPos%returnGuiOnTop: ;窗口置顶 ;为了能选中菜单项又能触发它的事件!我只想到这种貌似有效又简单的方法 WinMenuSelectItem,ahk_id %AHKID%,,1&,1&returnCopy_ahk_T: ;切换复制时带上 ahk_*** WinMenuSelectItem,ahk_id %AHKID%,,1&,3&returnAutoCapture: ;自动捕捉 AutoCapture WinMenuSelectItem,ahk_id %AHKID%,,1&,5&returnTab_Click: GuiControlGet,var,,tab1 ;~ MsgBox,%var%returnListView_DoubleClick: Gui, 1:ListView,%A_GuiControl% ;切换下面的列表命令对应的列表控件,A_GuiControl包含了当前点击的控件关联变量名 ;双击列表复制 if (A_GuiControlEvent="DoubleClick"){ ;只有是双击时才触发 if (A_GuiControl="ListView1" or A_GuiControl="ListView2" or A_GuiControl="ListView3" or A_GuiControl="ListView5") and (A_EventInfo!=0){ LV_GetText(LV_Text,A_EventInfo ,2) ;获取选中的项目第二列的内容,A_EventInfo包含了当前选中的行数 if LV_Text != { ;如果内容不为空 ahk_x= ;定义一个变量,(我也不知道要不要这样) ;检查是否选中 复制时带 ahk_ IsCheck:=IsMenuItemChecked( 0, 2, AHKID ) ;所检查的菜单位置: 第一个菜单第三个项目 if (IsCheck=1){ ;如果菜单项是选中状态 if (A_GuiControl="ListView1"){ ;如果是指定的控件 if (A_EventInfo=2) ; ahk_x=ahk_class if (A_EventInfo=3) ahk_x=ahk_id if (A_EventInfo=9) ahk_x=ahk_pid if (A_EventInfo=10) ahk_x:=ahk_exe } if (A_GuiControl="ListView5") ahk_x:="." _LV_GetText(A_EventInfo) ":=" } Clipboard=%ahk_x%%LV_Text% _ToolTip( "Clipboard= " Clipboard) } } ;控件列表双击事件 if (A_GuiControl="ListView4" and A_EventInfo!=0){ LV_GetText(ListView4_T1,A_EventInfo,1), LV_GetText(ListView4_T2,A_EventInfo,4), LV_GetText(ListView4_T3,A_EventInfo,2), LV_GetText(ListView4_T4,A_EventInfo,3) ControlGetPos,lvx,lvy,lvw,lvh,%ListView4_T1%,ahk_id %OutWin3% ListView4_T5=%lvx%,%lvy% ListView4_T6=%lvw%,%lvh% ListView4_T7= ControlGet,ListView4_T8,Style,,%ListView4_T1%,ahk_id %OutWin3% ;控件样式 ControlGet,ListView4_T9,ExStyle,,%ListView4_T1%,ahk_id %OutWin3% ;控件扩展样式 Gui, 1:ListView,ListView2 loop,9 LV_Modify(A_Index,"Col2",ListView4_T%A_Index%) LV_ModifyCol() ;重新调整列宽 } } ;列表选中事件 MouseGetPos,,,,LV,2 if (LV=LV4H and A_GuiControl="ListView4" and A_GuiControlEvent="I" and A_EventInfo!=0){ IfWinExist,ahk_id %OutWin3% { LV_GetText(LV_Text,A_EventInfo,1) if % InStr(ErrorLevel, "C", true) Control,Show,,%LV_Text%,ahk_id %OutWin3% else if % InStr(ErrorLevel, "c", true) Control,Hide,,%LV_Text%,ahk_id %OutWin3% ;~ WinSet,Redraw,,ahk_id %OutWin3% } } if (LV=LV5H and A_GuiControl="ListView5" and A_GuiControlEvent="I" and A_EventInfo!=0 and IsObject(wb) and IsObject(ele)){ if _LV_GetText(A_EventInfo)="Checked" { if InStr(ErrorLevel, "C", true) ele.Checked:=true if InStr(ErrorLevel, "c", true) ele.Checked:=false }} ;~ MsgBox,%A_GuiControl% ;双右击时事件 if (A_GuiControlEvent="R") { if (A_GuiControl="ListView5" and IsObject(wb) and IsObject(ele)){ LV_GetText(LV_Text1,A_EventInfo,1) LV_GetText(LV_Text2,A_EventInfo,2) WV=title,url,value,outertext,innertext if InStr(WV,LV_Text1) { InputBox,LV_TextOut,元素属性值,输入元素属性值`n%LV_Text1% =,,,150,,,,,%LV_Text2% if !ErrorLevel { LV_Modify(A_EventInfo,"Col2",LV_TextOut) if _LV_GetText(A_EventInfo)="title" wb.document.title:=LV_TextOut if _LV_GetText(A_EventInfo)="url" wb.Navigate(LV_TextOut) if _LV_GetText(A_EventInfo)="value" ele.value:=LV_TextOut if _LV_GetText(A_EventInfo)="innertext" ele.innertext:=LV_TextOut if _LV_GetText(A_EventInfo)="outertext" ele.outertext:=LV_TextOut } }}} ;窗口样式 if (LV=LV3H and A_GuiControl="ListView3" and A_GuiControlEvent="I" and A_EventInfo!=0 and OutWin3!=AHKID){ DetectHiddenWindows, on IfWinExist,ahk_id %OutWin3% { ;~ MsgBox, ;~ if (OutWin3!=AHKID) { LV_GetText(LV_Text1,A_EventInfo,1) LV_GetText(LV_Text,A_EventInfo,2) if % InStr(ErrorLevel, "C", true) if % InStr(LV_Text1,"EX") WinSet,ExStyle,+%LV_Text%,ahk_id %OutWin3% else WinSet,Style,+%LV_Text%,ahk_id %OutWin3% else if % InStr(ErrorLevel, "c", true) if % InStr(LV_Text1,"EX") WinSet,ExStyle,-%LV_Text%,ahk_id %OutWin3% else WinSet,Style,-%LV_Text%,ahk_id %OutWin3% ;~ WinSet,Redraw,,ahk_id %OutWin3% } ;} DetectHiddenWindows, Off } return ;图标控件点击事件Setico: IfNotExist,%Cross_CUR_File% BYTE_TO_FILE(StrToBin(Cross_CUR),Cross_CUR_File) IfNotExist,%Null_ico_File% BYTE_TO_FILE(StrToBin(Null_ico),Null_ico_File) GuiControl,,Pic,%Null_ico_File% ;设置鼠标指针为十字标 CursorHandle := DllCall( "LoadCursorFromFile", "Str",Cross_CUR_File ) DllCall( "SetSystemCursor", "Uint",CursorHandle, "Int",32512 ) SetTimer,GetPos,500 GuiControl,,ieGenerate_text,等待... SetText("等待...") ;等待左键弹起 KeyWait,LButton Gui, 2:Hide SetTimer,GetPos,Off ;还原鼠标指针 DllCall( "SystemParametersInfo", "UInt",0x57, "UInt",0, "UInt",0, "UInt",0 ) ;图标设置为原样 IfNotExist,%Full_ico_File% BYTE_TO_FILE(StrToBin(Full_ico),Full_ico_File) GuiControl,,Pic,%Full_ico_File% ;~ GuiControlGet,TABVar,,TAB1 ;当前选项卡序号 ;~ if (TABVar>=6) {returnGenerate(){ ;生成简单代码 Gui, 1:ListView,ListView1 ;切换到窗口列表以设置数据 GuiControlGet,Checkbox1_C,,Checkbox1 GuiControlGet,Checkbox2_C,,Checkbox2 GuiControlGet,Checkbox3_C,,Checkbox3 GuiControlGet,Checkbox4_C,,Checkbox4 GuiControlGet,Checkbox5_C,,Checkbox5 GuiControlGet,ALL_text,,Hidden_text StringSplit,ALL_text,ALL_text,`n LV_GetText(text1,1,2) ;标题 LV_GetText(text2,2,2) ;类名 LV_GetText(text3,10,2) ;进程名 LV_GetText(text4,6,2) ;窗口内指定坐标 Gui, 1:ListView,ListView2 LV_GetText(text5,1,2) ;获取控件类 LV_GetText(text6,7,2) ;获取控件内坐标 loop,%ALL_text0% { Index:=ALL_text0-A_Index+1 Text_index:=ALL_text%Index% WinText:=Text_index!="" ? ", " SubStr(Text_index,1,10): if Text_index!= break ;~ if Text_index!= ;~ { ;~ WinText:=SubStr(Text_index,1,10) ;~ Break ;~ } } WinTitle:= if (Checkbox1_C=1) WinTitle=%text1% if (Checkbox2_C=1) WinTitle=%WinTitle% ahk_class %text2% if (Checkbox3_C=1) WinTitle=%WinTitle% ahk_exe %text3% if (Checkbox4_C!=1) WinText:="" if (Checkbox5_C=1) DPI修正提示:="【DPI缩放通用坐标修正】", text4 := StrReplace(StrReplace(text4,"x","% ""x"" ")," y","*A_ScreenDPI//" A_ScreenDPI " "" y"" ") "*A_ScreenDPI//" A_ScreenDPI SetText("",0) if (WinTitle!="" and WinTitle!="ahk_class") { ;~ SetText(";------<<操作代码>>-------") text= ( ;等待指定标题窗口出现 WinWait, %WinTitle%%WinText% ) SetText(text) text= ( ;点击窗口内指定坐标 %DPI修正提示% ControlClick, %text4%, %WinTitle%%WinText% ) SetText(text) if text5!= { text= ( ;点击控件 ControlClick, %text5%, %WinTitle%%WinText% ) SetText(text) if text6!= { text= ( ;左键点击控件内指定坐标1次 ControlClick, %text5%, %WinTitle%%WinText%, , Left, 1, %text6% ) SetText(text) } if % InStr(text5,"Button") { text= ( ;控件选中(如果此控件为选择框或单选框) Check替换为Uncheck即取消选中 Control, Check, , %text5%, %WinTitle%%WinText% ) SetText(text) } text= ( ;向控件发送空格键 ControlSend, %text5%,{Space}, %WinTitle%%WinText% ) SetText(text) }} ;~ Gui, 1:ListView,ListView5 ;切换到窗口列表以设置数据 ;~ IE_Array:=Object() Gui, 1:Tab, 7 iUrl:=GetV("document.url",2) itagname:=GetV("tagname",2) itype:=GetV("type",2) iID:=GetV("id",2) iValue:=GetV("Value",2)!="" ? GetV("Value",2):"设置新属性值" Index=1 iCode= ( ;脚本由 AHKInfo 生成ComObjError(false) ;关闭对象错误提示for window in ComObjCreate("Shell.Application").Windows { if InStr(window.document.url,"%iUrl%") { ;网页地址子字符串 ie:=window break}} ;连接符合条件的IE窗口,其它窗口上的IE控件请用 IEAttach() 帖子: http://ahk.5d6d.net/viewthread.php?tid=5501if IsObject(ie)=0 { ;Exit ;如果连接IE对象失败就退出当前线程,(貌似跳过后面的代码了) ie:=ComObjCreate("InternetExplorer.Application") ;如果连接IE对象失败就创建一个IE窗口 ie.visible :=true ;浏览器窗口可见 ie.Navigate("%iUrl%") ;如果先加载空白页面 about:blank ,这样IE窗口应该响应得快一点点}Loop { ;等待网页加载完成! Sleep, 200 if (ie.readyState="complete" or ie.readyState=4 or A_LastError!=0) break} ;****************************************************************`n`n ) iCode2:=GetV("tagname",2)!="" ? ("if (" itagname ".item(A_Index-1).tagname=`"`"" itagname "`"`" " ): iCode2.=GetV("id",2)!="" ? ("and " itagname ".item(A_Index-1).id=`"`"" GetV("id",2) "`"`" " ): iCode2.=GetV("src",2)!="" ? ("and " itagname ".item(A_Index-1).src=`"`"" GetV("src",2) "`"`" " ): iCode2.=GetV("name",2)!="" ? ("and " itagname ".item(A_Index-1).name=`"`"" GetV("name",2) "`"`" " ): iCode2.=GetV("classname",2)!="" ? ("and " itagname ".item(A_Index-1).classname=`"`"" GetV("classname",2) "`"`" " ): iCode2.=GetV("href",2)!="" ? ("and " itagname ".item(A_Index-1).href=`"`"" GetV("href",2) "`"`" " ): iCode2.=GetV("target",2)!="" ? ("and " itagname ".item(A_Index-1).target=`"`"" GetV("target",2) "`"`" " ): ;~ iCode2.=GetV("classname",2)!="" ? ".classname`n": ;~ iCode2.=GetV("innertext",2)!="" ? ".innertext`n": ;~ iCode2.=GetV("value",2)!="" ? ".value`n": Gui, 1:ListView,ListView5 ;切换到窗口列表以设置数据 Radio4_Text_value= (%itagname%:=ie.document.GetElementsByTagName("%itagname%")Loop `% %itagname%.length {%iCode2%) { %itagname%.item(A_Index-1).value:="%iValue%" break ;找到一个符合条件的元素进行操作后,就退出循环,后面的元素就不比较了,可以提高一点点效率}} ) Radio4_Text_Click= (%itagname%:=ie.document.GetElementsByTagName("%itagname%")Loop `% %itagname%.length {%iCode2%) { %itagname%.item(A_Index-1).Click() break ;找到一个符合条件的元素进行操作后,就退出循环,后面的元素就不比较了,可以提高一点点效率}} ) Radio4_Text_Check= (%itagname%:=ie.document.GetElementsByTagName("%itagname%")Loop `% %itagname%.length {%iCode2%) { ;选择单选`/复选框并激活onChange/OnClick事件;设置为 false 即取消选择 %itagname%.item(A_Index-1).Checked:=true %itagname%.item(A_Index-1).fireEvent("onChange") %itagname%.item(A_Index-1).fireEvent("OnClick") break ;找到一个符合条件的元素进行操作后,就退出循环,后面的元素就不比较了,可以提高一点点效率}} ) ;=********************************************************************* if (itagname="Input") { if (itype="text" or itype="password") if (iID=""){ Radio3_Text=;设置新属性值`nie.document.GetElementsByTagName("%itagname%").item(%TagIndex%).value:="%iValue%"`n`n Radio4_Text:=Radio4_Text_value }else{ Radio3_Text=;设置新属性值`nie.document.getElementById("%iID%").value:="%iValue%"`n`n Radio4_Text:=Radio4_Text_value } if (itype="submit" or itype="button" or itype="image") if (iID=""){ Radio3_Text=;点击元素`nie.document.GetElementsByTagName("%itagname%").item(%TagIndex%).Click() Radio4_Text:=Radio4_Text_Click }else{ Radio3_Text=;点击元素`nie.document.getElementById("%iID%").Click() Radio4_Text:=Radio4_Text_Click } if (itype="radio" or itype="checkbox") if (iID=""){ Radio3_Text=;选择单选`/复选框并激活onChange/OnClick事件;设置为 false 即取消选择`nie.document.GetElementsByTagName("%itagname%").item(%TagIndex%).Checked:=true`nie.document.GetElementsByTagName("%itagname%").item(%TagIndex%).fireEvent("onChange")`nie.document.GetElementsByTagName("%itagname%").item(%TagIndex%).fireEvent("OnClick") Radio4_Text:=Radio4_Text_Check }else{ Radio3_Text=;选择单选`/复选框并激活onChange/OnClick事件;设置为 false 即取消选择`nie.document.getElementById("%iID%").Checked:=true`nie.document.getElementById("%iID%").fireEvent("onChange")`nie.document.getElementById("%iID%").fireEvent("OnClick") Radio4_Text:=Radio4_Text_Check }}else if (itagname="button" or itagname="a" or itagname="img" or itagname="span" or itagname="area" or itagname="input_image" ` or itagname="input_button" or itagname="input_submit" or itagname="input_radio" or itagname="input_reset" ` or itagname="li" or itagname="td" or itagname="table"){ if (iID=""){ Radio3_Text=;点击元素`nie.document.GetElementsByTagName("%itagname%").item(%TagIndex%).Click() Radio4_Text:=Radio4_Text_Click }else{ Radio3_Text=;点击元素`nie.document.getElementById("%iID%").Click() Radio4_Text:=Radio4_Text_Click } }else if (itagname="textarea"){ if (iID="") Radio3_Text=;设置新属性值`nie.document.GetElementsByTagName("%itagname%").item(%TagIndex%).value:="设置新属性值"`n`n else Radio3_Text=;设置新属性值`nie.document.getElementById("%iID%").value:="设置新属性值"`n`n }else{ Radio3_Text=MsgBox,0,`% ".item(%TagIndex%).outerhtml",`% ie.document.GetElementsByTagName("%itagname%").item(%TagIndex%).outerhtml ;~ Radio4_Text=MsgBox,0,outerhtml,`% %outerhtml% Radio4_Text= (%itagname%:=ie.document.GetElementsByTagName("%itagname%")Loop `% %itagname%.length {%iCode2%) { MsgBox,0,`% ".item(" A_Index-1 ").outerhtml",`% %itagname%.item(A_Index-1).outerhtml}} ) } ;"if (" itagname ".item(A_Index-1).tagname=`"`"" itagname "`"`" " if InStr(Radio4_Text,itagname ".item(A_Index-1).tagname=`"`"" itagname "`"`" and") StringReplace,Radio4_Text,Radio4_Text,% itagname ".item(A_Index-1).tagname=`"`"" itagname "`"`" and" else Radio4_Text:=Radio3_Text global Radio3_TextS:=iCode Radio3_Text "`n" global Radio4_TextS:=iCode Radio4_Text "`n" GuiControlGet,Check_C,,Radio3 if Check_C=1 GuiControl,,ieGenerate_text,%Radio3_TextS% else GuiControl,,ieGenerate_text,%Radio4_TextS% } ;================== GetV(VV,Col=1) { Gui, 1:ListView,ListView5 ;切换到窗口列表以设置数据 loop,% LV_GetCount() { LV_GetText(outvar,A_Index) if (outvar=VV) { return _LV_GetText(A_Index,Col) }} } SetText(iText,o=1){ StringReplace,iText,iText,%A_Tab% ,,All if (o=1){ GuiControlGet,ControlText,,Generate_text if ControlText=`n StringReplace,ControlText,ControlText,`n,,All GuiControl,,Generate_text,%ControlText%%iText%`n }else GuiControl,,Generate_text,%iText%`n}Radio: GuiControlGet,sRadio1,,Radio1 if sRadio1=1 GuiControl,,Edit1,%Radio1Text% else GuiControl,,Edit1,%Radio2Text% GuiControlGet,sRadio1,,Radio3 if sRadio1=1 GuiControl,,IeGenerate_text,%Radio3_TextS% else GuiControl,,IeGenerate_text,%Radio4_TextS%return;******************************************************************************************************GetPos: MouseGetPos,OutX,OutY,OutWin3,OutCtrl1 ;取鼠标下信息 WinGetPos,WinX,WinY,WinW,WinH,ahk_id %OutWin3% ;取鼠标下窗口坐标/大小 WinGetTitle,OutWin1,ahk_id %OutWin3% ;取鼠标下窗口标题 WinGetClass,OutWin2,ahk_id %OutWin3% ;取鼠标下窗口类名 ControlGetPos,OutCtrlX,OutCtrlY,OutCtrlW,OutCtrlH,%OutCtrl1%,ahk_id %OutWin3% ;控件坐标/大小 GuiControlGet,TABVar,,TAB1 ;当前选项卡序号 ;========================================================= if (OutWin3=AHKID) { ;如果鼠标下窗口为自身清空所有 GuiControl,,Title, Gui, 1:ListView,ListView1 ;切换到窗口列表以设置数据 loop,%ListView1_Text_A0% LV_Modify(A_Index,"Col2","") LV_ModifyCol() Gui, 1:ListView,ListView2 ;切换到控件列表以设置数据 loop,%ListView2_Text_A0% LV_Modify(A_Index,"Col2","") LV_ModifyCol() ;重新调整列宽 Gui, 1:ListView,ListView3 ;切换到列表控件3 loop,%ListView3_Text_A0% LV_Modify(A_Index,"-Check") Gui, 1:ListView,ListView4 ;切换到列表控件4 类别名|ID|句柄|文本| LV_Delete() LV_ModifyCol(1,"80","控件列表") LV_ModifyCol(2,50) ;重新调整列宽 LV_ModifyCol(3,50) LV_ModifyCol(4,50) GuiControl,,Hidden_text, GuiControl,,Visible_text, GuiControl,,Edit1, } ;===================网页操作=========================== if InStr(OutCtrl1,"Internet Explorer_Server") { ControlGet,CtrlHwnd,Hwnd,,%OutCtrl1%,ahk_id %OutWin3% global wb:=_IEObjGetFromHwnd(CtrlHwnd) ;从控件句柄转到对象 if IsObject(wb) { Gui, 1:ListView,ListView5 ;切换到列表控件5 IE LV_ModifyCol(2,"","属性值 (等待)" ) GuiControl,,Title,% wb.document.title global ele:=wb.document.elementFromPoint(OutX-(WinX+OutCtrlX),OutY-(WinY+OutCtrlY)) ;取鼠标下网页元素对象 loop,% LV_GetCount() { LV_Modify(A_Index,"Col2",_LV_GetText(A_Index)="document.title" ? wb.document.title:) LV_Modify(A_Index,"Col2",_LV_GetText(A_Index)="statustext" ? wb.statustext:) LV_Modify(A_Index,"Col2",_LV_GetText(A_Index)="target" ? ele.target:) LV_Modify(A_Index,"Col2",_LV_GetText(A_Index)="name" ? ele.name:) LV_Modify(A_Index,"Col2",_LV_GetText(A_Index)="href" ? ele.href:) LV_Modify(A_Index,"Col2",_LV_GetText(A_Index)="id" ? ele.id:) LV_Modify(A_Index,"Col2",_LV_GetText(A_Index)="classname" ? ele.classname:) LV_Modify(A_Index,"Col2",_LV_GetText(A_Index)="src" ? ele.src:) LV_Modify(A_Index,"Col2",_LV_GetText(A_Index)="outertext" ? ele.outertext:)| LV_Modify(A_Index,"Col2",_LV_GetText(A_Index)="innertext" ? ele.innertext:) LV_Modify(A_Index,"Col2",_LV_GetText(A_Index)="type" ? ele.type:) ;~ LV_Modify(A_Index,_LV_GetText(A_Index)="checked" and _LV_GetText(A_Index,2)!="" and ele.checked=-1 ? "Col2 Check":"Col2 -Check",_LV_GetText(A_Index)="checked" ? (ele.checked=-1 ? "True":"false"):) LV_Modify(A_Index,"Col2",_LV_GetText(A_Index)="title" ? ele.title:) LV_Modify(A_Index,"Col2",_LV_GetText(A_Index)="tagname" ? ele.tagname:) LV_Modify(A_Index,"Col2",_LV_GetText(A_Index)="id" ? ele.id:) LV_Modify(A_Index,"Col2",_LV_GetText(A_Index)="value" ? ele.value:) LV_Modify(A_Index,"Col2",_LV_GetText(A_Index)="name" ? ele.name:) LV_Modify(A_Index,"Col2",_LV_GetText(A_Index)="document.url" ? wb.document.url:) } LV_ModifyCol(), Radio1Text:=ele.innerhtml, Radio2Text:=ele.outerhtml gosub,Radio } } if (OutWin3!=AHKID){ ;不获取自身..和标签页为6以上.IE global OutWin3 ;==============设置窗口列表的数据=================== ;~ OutWin1= ;标题 ;~ OutWin2= ;类名 ;~ OutWin3= ;句柄 ;~ OutWin4= ;窗口坐标 ;~ OutWin5= ;窗口大小 ;~ OutWin6= ;窗口点击 ;~ OutWin7= ;窗口样式 ;~ OutWin8= ;窗口扩展样式 ;~ OutWin9= ;进程PID ;~ OutWin10= ;进程名 ;~ OutWin11= ;进程路径 ;=========================================== Gui, 1:ListView,ListView1 ;切换到窗口列表以设置数据 GuiControl,,Title,%OutWin1% OutWin4=%WinX%,%WinY% OutWin5=%WinW%,%WinH% OutWin6_X:=OutX-WinX, OutWin6_Y:=OutY-WinY OutWin6=x%OutWin6_X% y%OutWin6_Y% WinGet,OutWin7, Style,ahk_id %OutWin3% ;窗口样式 WinGet,OutWin8, ExStyle,ahk_id %OutWin3% ;窗口扩展样式 WinGet,OutWin9,PID,ahk_id %OutWin3% ;窗口进程PID WinGet,OutWin10,ProcessName,ahk_id %OutWin3% ;窗口进程名 WinGet,OutWin11,ProcessPath,ahk_id %OutWin3% ;窗口进程路径 WinGet,OutWin12,TransColor,ahk_id %OutWin3% ;获取窗口的透明色 OutWin13=%OutX% , %OutY% PixelGetColor,OutWin14,%OutX%,%OutY%,Slow RGB ;获取鼠标下RGB颜色值 PixelGetColor,OutWin15,%OutX%,%OutY%,Slow ;获取鼠标下BGR颜色值 WinGet,OutWin17,Transparent,ahk_id %OutWin3% ;获取窗口的透明度 if OutWin16= OutWin16=255 GuiControl, Enable,Slider1 GuiControl, ,Slider1,%OutWin16% GuiControl,,Text_t,透明度(%OutWin16%): loop,%ListView1_Text_A0% LV_Modify(A_Index,"Col2",OutWin%A_Index%) LV_ModifyCol() ;=============设置控件列表的数据=================== ;~ OutCtrl1= ;控件类别名 ;~ OutCtrl2= ;控件文本 ;~ OutCtrl3= ;控件编号 ;~ OutCtrl4= ;控件句柄 ;~ OutCtrl5= ;控件坐标 ;~ OutCtrl6= ;控件大小 ;~ OutCtrl7= ;控件内点击坐标 ;~ OutCtrl8= ;控件样式 ;~ OutCtrl9= ;控件扩展样式 ;=========================================== Gui, 1:ListView,ListView2 ;切换到控件列表以设置数据 if (OutCtrl1!=""){ ;如果控件类别名不为空 ControlGetText,OutCtrl2,%OutCtrl1%,ahk_id %OutWin3% ;获取控件文本 ControlGet,OutCtrl4,Hwnd,,%OutCtrl1%,ahk_id %OutWin3% ;控件句柄 OutCtrl3 := DllCall("GetDlgCtrlID", "uint", OutCtrl4) ;控件ID if (OutCtrl3<=0) ;如果获取的控件ID小于0就把控件ID变量置空 OutCtrl3= if (OutCtrlX!="") { OutCtrl5=%OutCtrlX%,%OutCtrlY% OutCtrl6=%OutCtrlW%,%OutCtrlH% if (TABVar<6) ; Gui2Show(WinX+OutCtrlX,WinY+OutCtrlY,OutCtrlW,OutCtrlH) }else{ OutCtrl5= OutCtrl6= } if (OutCtrl6!="") { ;控件内点击坐标 if (OutX-(WinX+OutCtrlX)>=0) { OutCtrl7_X:=OutX-(WinX+OutCtrlX) OutCtrl7_Y:=OutY-(WinY+OutCtrlY) OutCtrl7=x%OutCtrl7_X% y%OutCtrl7_Y% }else OutCtrl7= }else OutCtrl7= ControlGet,OutCtrl8,Style,,%OutCtrl1%,ahk_id %OutWin3% ;控件样式 ControlGet,OutCtrl9,ExStyle,,%OutCtrl1%,ahk_id %OutWin3% ;控件扩展样式 ;上面所获取的数据变量名都设置为 同变量名+序号 是为了这里能两句命令就能解决复赋值问题 loop,%ListView2_Text_A0% LV_Modify(A_Index,"Col2",OutCtrl%A_Index%) LV_ModifyCol() ;重新调整列宽 ;~ if (TABVar=1) ;如果当前标签是第1个, ;~ GuiControl, Choose, Tab1,2 ;激活第2个标签页 ;=========================================== }else{ ;如果控件类别名为空的,控件标签页中全部置空 loop,%ListView2_Text_A0% LV_Modify(A_Index,"Col2","") ;~ if (TABVar=2) ;如果当前标签是第2个, ;~ GuiControl, Choose, Tab1,1 ;激活第1个标签页 } ;=========================================== Gui, 1:ListView,ListView3 ;切换到列表控件3 loop,%ListView3_Text_A0% { LV_GetText(LV_TEXT,A_Index,2) ;~ MsgBox,%LV_TEXT% if (OutWin7 & LV_TEXT or OutWin8 & LV_TEXT) LV_Modify(A_Index,"Check") else LV_Modify(A_Index,"-Check") } LV_ModifyCol() ;=============设置可见文本的数据=================== DetectHiddenText,Off WinGetText,OutWinText_Visible,ahk_id %OutWin3% GuiControl,,Visible_text,%OutWinText_Visible% ;=============设置全部文本的数据=================== DetectHiddenText,On WinGetText,OutWinText_Hidden,ahk_id %OutWin3% GuiControl,,Hidden_text,%OutWinText_Hidden% ;=========================================== Gui, 1:ListView,ListView4 ;切换到列表控件4 类别名|ID|句柄|文本| WinGet,CtrList,ControlList,ahk_id %OutWin3% LV_Delete() loop, Parse,CtrList,`n { ControlGet,CtrlHwnd,Hwnd,,%A_LoopField%,ahk_id %OutWin3% CtrlID:= DllCall("GetDlgCtrlID", "uint", CtrlHwnd) if (CtrlID<=0) CtrlID= ControlGetText,CtrlText,%A_LoopField%,ahk_id %OutWin3% ControlGet,Visible,Visible,,%A_LoopField%,ahk_id %OutWin3% if (Visible=1) Visible=Check else if (Visible=0) Visible=-Check LV_Add(Visible,A_LoopField,CtrlID,CtrlHwnd,CtrlText) LV_ModifyCol(1,"","类别名[列表](" A_Index ")") } LV_ModifyCol() } ;取元素集合序号 eletag:=wb.document.GetElementsByTagName(ele.tagname) loop % eletag.length if (eletag.item(A_Index-1).id=ele.id and eletag.item(A_Index-1).classname=ele.classname and eletag.item(A_Index-1).name=ele.name ` and eletag.item(A_Index-1).innertext=ele.innertext and eletag.item(A_Index-1).outerhtml=ele.outerhtml ` and eletag.item(A_Index-1).target=ele.target and eletag.item(A_Index-1).title=ele.title and eletag.item(A_Index-1).outertext=ele.outertext){ global TagIndex:=A_Index-1 break }Gui, 1:ListView,ListView5 ;切换到窗口列表以设置数据LV_ModifyCol(2,"","属性值 (" eletag.length-1 "/" TagIndex ")" ), Generate()return_LV_GetText(Index,Col=1) { LV_GetText(sText,Index,Col) return sText}Button1: Generate()return_MenuIsCheck( ThisMenu, ThisMenuItem, ValueName) { ;从注册表读取属性 RegRead,ThisCheck,HKCU,Software\AutoHotKey\AHKInfo,%ValueName% if (ThisCheck=1) { Menu,%ThisMenu%,Check,%ThisMenuItem% ErrorLevel=1 }else if (ThisCheck=0) { Menu,%ThisMenu%,UnCheck,%ThisMenuItem% ErrorLevel=0 }else ErrorLevel=-1}_RegW( ValueName, value ) { ;写注册表 RegWrite,REG_DWORD ,HKCU,Software\AutoHotKey\AHKInfo,%ValueName%,%value%}_RegR( ValueName) { ;读注册表 RegRead,Outvalue,HKCU,Software\AutoHotKey\AHKInfo,%ValueName% return %Outvalue%}IsMenuItemChecked( MenuPos, SubMenuPos, hWnd ) { ; 检查菜单项是否选中,返回1或0 hMenu :=DllCall("GetMenu", "UInt",hWnd ), hSubMenu := DllCall("GetSubMenu", "UInt",hMenu, "Int",MenuPos ), VarSetCapacity(mii, 48, 0), NumPut(48, mii, 0), NumPut(1, mii, 4), DllCall( "GetMenuItemInfo", "UInt",hSubMenu, "UInt",SubMenuPos, "Int", 1, "UInt",&mii ) return ( NumGet(mii, 12) & 0x8 ) ? 1 : 0}EmptyMem(PID="AHK Rocks"){ ;释放内存 pid:=(pid="AHK Rocks") ? DllCall("GetCurrentProcessId") : pid, h:=DllCall("OpenProcess", "UInt", 0x001F0FFF, "Int", 0, "Int", pid), DllCall("SetProcessWorkingSetSize", "UInt", h, "Int", -1, "Int", -1), DllCall("CloseHandle", "Int", h)}_ToolTip(Text,OutTime=3000) { ;自动消失的ToolTip ToolTip,%Text% SetTimer, RemoveToolTip, %OutTime%}RemoveToolTip: SetTimer, RemoveToolTip, Off ToolTipreturnGui2Show(x,y,w,h) { wq := w*2 Gui, 2:Show,NA x%x% y%y% w%wq% h%h% Sleep,300 Gui, 2:Hide};字符串转二进制StrToBin(Str) { XMLDOM:=ComObjCreate("Microsoft.XMLDOM"), xmlver:="<?xml version=`"`"1.0`"`"?>" XMLDOM.loadXML(xmlver), Pic:=XMLDOM.createElement("pic"), Pic.dataType:="bin.hex", pic.nodeTypedValue := Str, StrToByte := pic.nodeTypedValue return StrToByte}; 数据流保存为文件BYTE_TO_FILE(body, filePath) { Stream := ComObjCreate("Adodb.Stream"), Stream.Type := 1, Stream.Open(), Stream.Write(body), Stream.SaveToFile(filePath,2), Stream.Close()}_IEObjGetFromHwnd(h_IECtrl) { static Msg := DllCall("RegisterWindowMessage", "str", "WM_HTML_GETOBJECT") SendMessage, Msg, 0, 0, , ahk_id %h_IECtrl% if (ErrorLevel = "FAIL") return lResult := ErrorLevel, VarSetCapacity(GUID, 16, 0), GUID := IID_IHTMLDocument2, sGUID := "{332C4425-26CB-11D0-B483-00C04FD90119}", CLSID := DllCall("ole32\CLSIDFromString", "wstr", sGUID, "ptr", &GUID) >= 0 ? &GUID : "", DllCall("oleacc\ObjectFromLresult", "ptr", lResult, "ptr", CLSID, "ptr", 0, "ptr*", pDoc) static IID_IWebBrowserApp := "{0002DF05-0000-0000-C000-000000000046}" static SID_SWebBrowserApp := IID_IWebBrowserApp ComObjError(false), pWeb := ComObjQuery(pDoc, SID_SWebBrowserApp, IID_IWebBrowserApp), ObjRelease(pDoc) static VT_DISPATCH := 9, F_OWNVALUE := 1 oIE := ComObjParameter(VT_DISPATCH, pWeb, F_OWNVALUE) return, oIE} |
www.cnblogs.com/delphixx
【推荐】国内首个AI IDE，深度理解中文开发场景，立即下载体验Trae
【推荐】编程新体验，更懂你的AI，立即体验豆包MarsCode编程助手
【推荐】抖音旗下AI助手豆包，你的智能百科全书，全免费不限次数
【推荐】轻量又高性能的 SSH 工具 IShell：AI 加持，快人一步
· 10年+ .NET Coder 心语 ── 封装的思维：从隐藏、稳定开始理解其本质意义
· 提示词工程——AI应用必不可少的技术
· 地球OL攻略 —— 某应届生求职总结
· 字符编码：从基础到乱码解决
· SpringCloud带你走进微服务的世界