返回列表 发帖

[系统综合] [已解决]这个脚本可以精简代码吗,还有怎么保存配置文件.ini以及怎样避免重复设置热键

本帖最后由 3131210 于 2017-5-23 15:30 编辑

这个脚本可以精简代码吗,还有怎么保存配置文件.ini以及运行程序的时候,自动载入配置
还有就是 热键如果使用了,能不能使其他的下拉组合框中,看不到这个热键呢?以免重复设置相同热键
  1. #include <ButtonConstants.au3>
  2. #include <ComboConstants.au3>
  3. #include <GUIConstantsEx.au3>
  4. #include <StaticConstants.au3>
  5. #include <WindowsConstants.au3>
  6. Dim $var[100], $ime[100], $imee = "", $keylist = "Alt + 0|Alt + 1|Alt + 2|Alt + 3|Alt + 4|Alt + 5|Alt + 6|Alt + 7|Alt + 8|Alt + 9"
  7. #Region ### START Koda GUI section ### Form=e:\bak\system\!desktop\form1.kxf
  8. $Form1 = GUICreate("LP快捷辅助", 456, 437, 233, 139)
  9. $Label1 = GUICtrlCreateLabel("英文输入法", 8, 10, 64, 17)
  10. $Label2 = GUICtrlCreateLabel("中文输入法", 8, 42, 64, 17)
  11. $Language1 = GUICtrlCreateCombo("None", 73, 6, 297, 25, BitOR($GUI_SS_DEFAULT_COMBO, $CBS_SIMPLE))
  12. $Language2 = GUICtrlCreateCombo("None", 73, 38, 297, 25, BitOR($GUI_SS_DEFAULT_COMBO, $CBS_SIMPLE))
  13. $Save = GUICtrlCreateButton("保存配置", 376, 8, 73, 49)

  14. $Label3 = GUICtrlCreateLabel("快捷", 32, 72, 28, 17)
  15. $Label4 = GUICtrlCreateLabel("热键", 100, 72, 28, 17)
  16. $Label5 = GUICtrlCreateLabel("自定义快捷", 185, 72, 60, 17)
  17. $Label6 = GUICtrlCreateLabel("%s 为剪贴板内容", 300, 72, 90, 17)
  18. $Altbox0 = GUICtrlCreateCheckbox("A → 0", 10, 96, 52, 17)
  19. GUICtrlSetState(-1, 1)
  20. $Altbox1 = GUICtrlCreateCheckbox("A → 1", 10, 120, 52, 17)
  21. $Altbox2 = GUICtrlCreateCheckbox("A → 2", 10, 144, 52, 17)
  22. GUICtrlSetState(-1, 1)
  23. $Altbox3 = GUICtrlCreateCheckbox("A → 3", 10, 168, 52, 17)
  24. GUICtrlSetState(-1, 1)
  25. $Altbox4 = GUICtrlCreateCheckbox("A → 4", 10, 192, 52, 17)
  26. $Altbox5 = GUICtrlCreateCheckbox("A → 5", 10, 216, 52, 17)
  27. $Altbox6 = GUICtrlCreateCheckbox("A → 6", 10, 240, 52, 17)
  28. $Altbox7 = GUICtrlCreateCheckbox("A → 7", 10, 264, 52, 17)
  29. $Altbox8 = GUICtrlCreateCheckbox("A → 8", 10, 288, 52, 17)
  30. $Altbox9 = GUICtrlCreateCheckbox("A → 9", 10, 312, 52, 17)
  31. $Altbo0 = GUICtrlCreateCombo("None", 75, 93, 70, 25, BitOR($GUI_SS_DEFAULT_COMBO, $CBS_SIMPLE))
  32. $Altbo1 = GUICtrlCreateCombo("None", 75, 117, 70, 25, BitOR($GUI_SS_DEFAULT_COMBO, $CBS_SIMPLE))
  33. $Altbo2 = GUICtrlCreateCombo("None", 75, 141, 70, 25, BitOR($GUI_SS_DEFAULT_COMBO, $CBS_SIMPLE))
  34. $Altbo3 = GUICtrlCreateCombo("None", 75, 165, 70, 25, BitOR($GUI_SS_DEFAULT_COMBO, $CBS_SIMPLE))
  35. $Altbo4 = GUICtrlCreateCombo("None", 75, 189, 70, 25, BitOR($GUI_SS_DEFAULT_COMBO, $CBS_SIMPLE))
  36. $Altbo5 = GUICtrlCreateCombo("None", 75, 213, 70, 25, BitOR($GUI_SS_DEFAULT_COMBO, $CBS_SIMPLE))
  37. $Altbo6 = GUICtrlCreateCombo("None", 75, 237, 70, 25, BitOR($GUI_SS_DEFAULT_COMBO, $CBS_SIMPLE))
  38. $Altbo7 = GUICtrlCreateCombo("None", 75, 261, 70, 25, BitOR($GUI_SS_DEFAULT_COMBO, $CBS_SIMPLE))
  39. $Altbo8 = GUICtrlCreateCombo("None", 75, 285, 70, 25, BitOR($GUI_SS_DEFAULT_COMBO, $CBS_SIMPLE))
  40. $Altbo9 = GUICtrlCreateCombo("None", 75, 309, 70, 25, BitOR($GUI_SS_DEFAULT_COMBO, $CBS_SIMPLE))

  41. $Ctrlbox0 = GUICtrlCreateCheckbox("Ctrl + 0", 180, 96, 70, 17)
  42. $Ctrlbox1 = GUICtrlCreateCheckbox("Ctrl + 1", 180, 120, 70, 17)
  43. GUICtrlSetState(-1, 1)
  44. $Ctrlbox2 = GUICtrlCreateCheckbox("Ctrl + 2", 180, 144, 70, 17)
  45. $Ctrlbox3 = GUICtrlCreateCheckbox("Ctrl + 3", 180, 168, 70, 17)
  46. $Ctrlbox4 = GUICtrlCreateCheckbox("Ctrl + 4", 180, 192, 70, 17)
  47. $Ctrlbox5 = GUICtrlCreateCheckbox("Ctrl + 5", 180, 216, 70, 17)
  48. $Ctrlbox6 = GUICtrlCreateCheckbox("Ctrl + 6", 180, 240, 70, 17)
  49. $Ctrlbox7 = GUICtrlCreateCheckbox("Ctrl + 7", 180, 264, 70, 17)
  50. $Ctrlbox8 = GUICtrlCreateCheckbox("Ctrl + 8", 180, 288, 70, 17)
  51. $Ctrlbox9 = GUICtrlCreateCheckbox("Ctrl + 9", 180, 312, 70, 17)
  52. $Ctrlinput0 = GUICtrlCreateInput("None", 255, 96, 190, 17)
  53. $Ctrlinput1 = GUICtrlCreateInput("亲,为了更好的为您服务,请问【%s】是您的游戏账户吗?", 255, 120, 190, 17)
  54. $Ctrlinput2 = GUICtrlCreateInput("None", 255, 144, 190, 17)
  55. $Ctrlinput3 = GUICtrlCreateInput("None", 255, 168, 190, 17)
  56. $Ctrlinput4 = GUICtrlCreateInput("None", 255, 192, 190, 17)
  57. $Ctrlinput5 = GUICtrlCreateInput("None", 255, 216, 190, 17)
  58. $Ctrlinput6 = GUICtrlCreateInput("None", 255, 240, 190, 17)
  59. $Ctrlinput7 = GUICtrlCreateInput("None", 255, 264, 190, 17)
  60. $Ctrlinput8 = GUICtrlCreateInput("None", 255, 288, 190, 17)
  61. $Ctrlinput9 = GUICtrlCreateInput("None", 255, 312, 190, 17)


  62. For $i = 1 To 100
  63.         $var[$i] = RegRead("HKEY_CURRENT_USER\keyboard layout\preload", $i)
  64.         If Not $var[$i] Then
  65.                 $var[0] = $i - 1
  66.                 ExitLoop
  67.         EndIf
  68. Next
  69. For $i = 1 To $var[0]
  70.     $ime[$i] = RegRead("HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Keyboard Layouts\" & $var[$i], "Layout Text")
  71.     If $ime[$i] Then $imee = $imee & $ime[$i] & "|"
  72. Next

  73. If StringRight($imee, 1) = "|"  Then $imee = StringTrimRight($imee, 1)
  74. GUICtrlSetData($Language1, $imee, 0)
  75. GUICtrlSetData($Language2, $imee, 0)
  76. GUICtrlSetData($Altbo0, $keylist, "Alt + 1")
  77. GUICtrlSetData($Altbo1, $keylist, 0)
  78. GUICtrlSetData($Altbo2, $keylist, "Alt + 2")
  79. GUICtrlSetData($Altbo3, $keylist, "Alt + 3")
  80. GUICtrlSetData($Altbo4, $keylist, 0)
  81. GUICtrlSetData($Altbo5, $keylist, 0)
  82. GUICtrlSetData($Altbo6, $keylist, 0)
  83. GUICtrlSetData($Altbo7, $keylist, 0)
  84. GUICtrlSetData($Altbo8, $keylist, 0)
  85. GUICtrlSetData($Altbo9, $keylist, 0)

  86. If GUICtrlRead($Ctrlbox0) = 1 Then HotKeySet("^0","SendCtrlMsg0")
  87. If GUICtrlRead($Ctrlbox1) = 1 Then HotKeySet("^1","SendCtrlMsg1")
  88. If GUICtrlRead($Ctrlbox2) = 1 Then HotKeySet("^2","SendCtrlMsg2")
  89. If GUICtrlRead($Ctrlbox3) = 1 Then HotKeySet("^3","SendCtrlMsg3")
  90. If GUICtrlRead($Ctrlbox4) = 1 Then HotKeySet("^4","SendCtrlMsg4")
  91. If GUICtrlRead($Ctrlbox5) = 1 Then HotKeySet("^5","SendCtrlMsg5")
  92. If GUICtrlRead($Ctrlbox6) = 1 Then HotKeySet("^6","SendCtrlMsg6")
  93. If GUICtrlRead($Ctrlbox7) = 1 Then HotKeySet("^7","SendCtrlMsg7")
  94. If GUICtrlRead($Ctrlbox8) = 1 Then HotKeySet("^8","SendCtrlMsg8")
  95. If GUICtrlRead($Ctrlbox9) = 1 Then HotKeySet("^9","SendCtrlMsg9")



  96. If GUICtrlRead($Altbo0) <> "None" Then $AltHKS0 = "!" & StringRight(GUICtrlRead($Altbo0),1)
  97. If GUICtrlRead($Altbo1) <> "None" Then $AltHKS1 = "!" & StringRight(GUICtrlRead($Altbo1),1)
  98. If GUICtrlRead($Altbo2) <> "None" Then $AltHKS2 = "!" & StringRight(GUICtrlRead($Altbo2),1)
  99. If GUICtrlRead($Altbo3) <> "None" Then $AltHKS3 = "!" & StringRight(GUICtrlRead($Altbo3),1)
  100. If GUICtrlRead($Altbo4) <> "None" Then $AltHKS4 = "!" & StringRight(GUICtrlRead($Altbo4),1)
  101. If GUICtrlRead($Altbo5) <> "None" Then $AltHKS5 = "!" & StringRight(GUICtrlRead($Altbo5),1)
  102. If GUICtrlRead($Altbo6) <> "None" Then $AltHKS6 = "!" & StringRight(GUICtrlRead($Altbo6),1)
  103. If GUICtrlRead($Altbo7) <> "None" Then $AltHKS7 = "!" & StringRight(GUICtrlRead($Altbo7),1)
  104. If GUICtrlRead($Altbo8) <> "None" Then $AltHKS8 = "!" & StringRight(GUICtrlRead($Altbo8),1)
  105. If GUICtrlRead($Altbo9) <> "None" Then $AltHKS9 = "!" & StringRight(GUICtrlRead($Altbo9),1)

  106. If GUICtrlRead($Altbox0) = 1 And GUICtrlRead($Altbo0) <> "None" Then
  107.         HotKeySet($AltHKS0,"SendAltMsg0")
  108.         GUICtrlSetState($Altbo0,128)
  109. Else
  110.         GUICtrlSetState($Altbox0,4)
  111. EndIf
  112. If GUICtrlRead($Altbox1) = 1 And GUICtrlRead($Altbo1) <> "None" Then
  113.         HotKeySet($AltHKS1,"SendAltMsg1")
  114.         GUICtrlSetState($Altbo1,128)
  115. Else
  116.         GUICtrlSetState($Altbox1,4)
  117. EndIf
  118. If GUICtrlRead($Altbox2) = 1 And GUICtrlRead($Altbo2) <> "None" Then
  119.         HotKeySet($AltHKS2,"SendAltMsg2")
  120.         GUICtrlSetState($Altbo2,128)
  121. Else
  122.         GUICtrlSetState($Altbox2,4)
  123. EndIf
  124. If GUICtrlRead($Altbox3) = 1 And GUICtrlRead($Altbo3) <> "None" Then
  125.         HotKeySet($AltHKS3,"SendAltMsg3")
  126.         GUICtrlSetState($Altbo3,128)
  127. Else
  128.         GUICtrlSetState($Altbox3,4)
  129. EndIf
  130. If GUICtrlRead($Altbox4) = 1 And GUICtrlRead($Altbo4) <> "None" Then
  131.         HotKeySet($AltHKS4,"SendAltMsg4")
  132.         GUICtrlSetState($Altbo4,128)
  133. Else
  134.         GUICtrlSetState($Altbox4,4)
  135. EndIf
  136. If GUICtrlRead($Altbox5) = 1 And GUICtrlRead($Altbo5) <> "None" Then
  137.         HotKeySet($AltHKS5,"SendAltMsg5")
  138.         GUICtrlSetState($Altbo5,128)
  139. Else
  140.         GUICtrlSetState($Altbox5,4)
  141. EndIf
  142. If GUICtrlRead($Altbox6) = 1 And GUICtrlRead($Altbo6) <> "None" Then
  143.         HotKeySet($AltHKS6,"SendAltMsg6")
  144.         GUICtrlSetState($Altbo6,128)
  145. Else
  146.         GUICtrlSetState($Altbox6,4)
  147. EndIf
  148. If GUICtrlRead($Altbox7) = 1 And GUICtrlRead($Altbo7) <> "None" Then
  149.         HotKeySet($AltHKS7,"SendAltMsg7")
  150.         GUICtrlSetState($Altbo7,128)
  151. Else
  152.         GUICtrlSetState($Altbox7,4)
  153. EndIf
  154. If GUICtrlRead($Altbox8) = 1 And GUICtrlRead($Altbo8) <> "None" Then
  155.         HotKeySet($AltHKS8,"SendAltMsg8")
  156.         GUICtrlSetState($Altbo8,128)
  157. Else
  158.         GUICtrlSetState($Altbox8,4)
  159. EndIf
  160. If GUICtrlRead($Altbox9) = 1 And GUICtrlRead($Altbo9) <> "None" Then
  161.         HotKeySet($AltHKS9,"SendAltMsg9")
  162.         GUICtrlSetState($Altbo9,128)
  163. Else
  164.         GUICtrlSetState($Altbox9,4)
  165. EndIf




  166. GUISetState(@SW_SHOW)
  167. #EndRegion ### END Koda GUI section ###

  168. While 1
  169.         $nMsg = GUIGetMsg()
  170.         Switch $nMsg
  171.                 Case $GUI_EVENT_CLOSE
  172.                         Exit

  173.                 Case $Altbox0
  174.                         If GUICtrlRead($Altbox0) = 1 Then
  175.                                 If GUICtrlRead($Altbo0) <> "None" Then
  176.                                         $AltHKS0 = "!" & StringRight(GUICtrlRead($Altbo0),1)
  177.                                         GUICtrlSetState($Altbo0,128)
  178.                                         HotKeySet($AltHKS0,"SendAltMsg0")
  179.                                 Else
  180.                                         GUICtrlSetState($Altbox0,4)
  181.                                         MsgBox(0,"警告","A → 0 未设置热键")
  182.                                 EndIf
  183.                         Else
  184.                                 HotKeySet($AltHKS0)
  185.                                 GUICtrlSetState($Altbo0,64)
  186.                         EndIf

  187.                 Case $Altbox1
  188.                         If GUICtrlRead($Altbox1) = 1 Then
  189.                                 If GUICtrlRead($Altbo1) <> "None" Then
  190.                                         $AltHKS1 = "!" & StringRight(GUICtrlRead($Altbo1),1)
  191.                                         GUICtrlSetState($Altbo1,128)
  192.                                         HotKeySet($AltHKS1,"SendAltMsg1")
  193.                                 Else
  194.                                         GUICtrlSetState($Altbox1,4)
  195.                                         MsgBox(0,"警告","A → 1 未设置热键")
  196.                                 EndIf
  197.                         Else
  198.                                 HotKeySet($AltHKS1)
  199.                                 GUICtrlSetState($Altbo1,64)
  200.                         EndIf

  201.                 Case $Altbox2
  202.                         If GUICtrlRead($Altbox2) = 1 Then
  203.                                 If GUICtrlRead($Altbo2) <> "None" Then
  204.                                         $AltHKS2 = "!" & StringRight(GUICtrlRead($Altbo2),1)
  205.                                         GUICtrlSetState($Altbo2,128)
  206.                                         HotKeySet($AltHKS2,"SendAltMsg2")
  207.                                 Else
  208.                                         GUICtrlSetState($Altbox2,4)
  209.                                         MsgBox(0,"警告","A → 2 未设置热键")
  210.                                 EndIf
  211.                         Else
  212.                                 HotKeySet($AltHKS2)
  213.                                 GUICtrlSetState($Altbo2,64)
  214.                         EndIf

  215.                 Case $Altbox3
  216.                         If GUICtrlRead($Altbox3) = 1 Then
  217.                                 If GUICtrlRead($Altbo3) <> "None" Then
  218.                                         $AltHKS3 = "!" & StringRight(GUICtrlRead($Altbo3),1)
  219.                                         GUICtrlSetState($Altbo3,128)
  220.                                         HotKeySet($AltHKS3,"SendAltMsg3")
  221.                                 Else
  222.                                         GUICtrlSetState($Altbox3,4)
  223.                                         MsgBox(0,"警告","A → 3 未设置热键")
  224.                                 EndIf
  225.                         Else
  226.                                 HotKeySet($AltHKS3)
  227.                                 GUICtrlSetState($Altbo3,64)
  228.                         EndIf

  229.                 Case $Altbox4
  230.                         If GUICtrlRead($Altbox4) = 1 Then
  231.                                 If GUICtrlRead($Altbo4) <> "None" Then
  232.                                         $AltHKS4 = "!" & StringRight(GUICtrlRead($Altbo4),1)
  233.                                         GUICtrlSetState($Altbo4,128)
  234.                                         HotKeySet($AltHKS4,"SendAltMsg4")
  235.                                 Else
  236.                                         GUICtrlSetState($Altbox4,4)
  237.                                         MsgBox(0,"警告","A → 4 未设置热键")
  238.                                 EndIf
  239.                         Else
  240.                                 HotKeySet($AltHKS4)
  241.                                 GUICtrlSetState($Altbo4,64)
  242.                         EndIf

  243.                 Case $Altbox5
  244.                         If GUICtrlRead($Altbox5) = 1 Then
  245.                                 If GUICtrlRead($Altbo5) <> "None" Then
  246.                                         $AltHKS5 = "!" & StringRight(GUICtrlRead($Altbo5),1)
  247.                                         GUICtrlSetState($Altbo5,128)
  248.                                         HotKeySet($AltHKS5,"SendAltMsg5")
  249.                                 Else
  250.                                         GUICtrlSetState($Altbox5,4)
  251.                                         MsgBox(0,"警告","A → 5 未设置热键")
  252.                                 EndIf
  253.                         Else
  254.                                 HotKeySet($AltHKS5)
  255.                                 GUICtrlSetState($Altbo5,64)
  256.                         EndIf

  257.                 Case $Altbox6
  258.                         If GUICtrlRead($Altbox6) = 1 Then
  259.                                 If GUICtrlRead($Altbo6) <> "None" Then
  260.                                         $AltHKS6 = "!" & StringRight(GUICtrlRead($Altbo6),1)
  261.                                         GUICtrlSetState($Altbo6,128)
  262.                                         HotKeySet($AltHKS6,"SendAltMsg6")
  263.                                 Else
  264.                                         GUICtrlSetState($Altbox6,4)
  265.                                         MsgBox(0,"警告","A → 6 未设置热键")
  266.                                 EndIf
  267.                         Else
  268.                                 HotKeySet($AltHKS6)
  269.                                 GUICtrlSetState($Altbo6,64)
  270.                         EndIf

  271.                 Case $Altbox7
  272.                         If GUICtrlRead($Altbox7) = 1 Then
  273.                                 If GUICtrlRead($Altbo7) <> "None" Then
  274.                                         $AltHKS7 = "!" & StringRight(GUICtrlRead($Altbo7),1)
  275.                                         GUICtrlSetState($Altbo7,128)
  276.                                         HotKeySet($AltHKS7,"SendAltMsg7")
  277.                                 Else
  278.                                         GUICtrlSetState($Altbox7,4)
  279.                                         MsgBox(0,"警告","A → 7 未设置热键")
  280.                                 EndIf
  281.                         Else
  282.                                 HotKeySet($AltHKS7)
  283.                                 GUICtrlSetState($Altbo7,64)
  284.                         EndIf

  285.                 Case $Altbox8
  286.                         If GUICtrlRead($Altbox8) = 1 Then
  287.                                 If GUICtrlRead($Altbo8) <> "None" Then
  288.                                         $AltHKS8 = "!" & StringRight(GUICtrlRead($Altbo8),1)
  289.                                         GUICtrlSetState($Altbo8,128)
  290.                                         HotKeySet($AltHKS8,"SendAltMsg8")
  291.                                 Else
  292.                                         GUICtrlSetState($Altbox8,4)
  293.                                         MsgBox(0,"警告","A → 8 未设置热键")
  294.                                 EndIf
  295.                         Else
  296.                                 HotKeySet($AltHKS8)
  297.                                 GUICtrlSetState($Altbo8,64)
  298.                         EndIf

  299.                 Case $Altbox9
  300.                         If GUICtrlRead($Altbox9) = 1 Then
  301.                                 If GUICtrlRead($Altbo9) <> "None" Then
  302.                                         $AltHKS9 = "!" & StringRight(GUICtrlRead($Altbo9),1)
  303.                                         GUICtrlSetState($Altbo9,128)
  304.                                         HotKeySet($AltHKS9,"SendAltMsg9")
  305.                                 Else
  306.                                         GUICtrlSetState($Altbox9,4)
  307.                                         MsgBox(0,"警告","A → 9 未设置热键")
  308.                                 EndIf
  309.                         Else
  310.                                 HotKeySet($AltHKS9)
  311.                                 GUICtrlSetState($Altbo9,64)
  312.                         EndIf


  313.                 Case $Ctrlbox0
  314.                         If GUICtrlRead($Ctrlbox0) = 1 Then
  315.                                 HotKeySet("^0","SendCtrlMsg0")
  316.                         Else
  317.                                 HotKeySet("^0")
  318.                         EndIf

  319.                 Case $Ctrlbox1
  320.                         If GUICtrlRead($Ctrlbox1) = 1 Then
  321.                                 HotKeySet("^1","SendCtrlMsg1")
  322.                         Else
  323.                                 HotKeySet("^1")
  324.                         EndIf

  325.                 Case $Ctrlbox2
  326.                         If GUICtrlRead($Ctrlbox2) = 1 Then
  327.                                 HotKeySet("^2","SendCtrlMsg2")
  328.                         Else
  329.                                 HotKeySet("^2")
  330.                         EndIf

  331.                 Case $Ctrlbox3
  332.                         If GUICtrlRead($Ctrlbox3) = 1 Then
  333.                                 HotKeySet("^3","SendCtrlMsg3")
  334.                         Else
  335.                                 HotKeySet("^3")
  336.                         EndIf

  337.                 Case $Ctrlbox4
  338.                         If GUICtrlRead($Ctrlbox4) = 1 Then
  339.                                 HotKeySet("^4","SendCtrlMsg4")
  340.                         Else
  341.                                 HotKeySet("^4")
  342.                         EndIf

  343.                 Case $Ctrlbox5
  344.                         If GUICtrlRead($Ctrlbox5) = 1 Then
  345.                                 HotKeySet("^5","SendCtrlMsg5")
  346.                         Else
  347.                                 HotKeySet("^5")
  348.                         EndIf

  349.                 Case $Ctrlbox6
  350.                         If GUICtrlRead($Ctrlbox6) = 1 Then
  351.                                 HotKeySet("^6","SendCtrlMsg6")
  352.                         Else
  353.                                 HotKeySet("^6")
  354.                         EndIf

  355.                 Case $Ctrlbox7
  356.                         If GUICtrlRead($Ctrlbox7) = 1 Then
  357.                                 HotKeySet("^7","SendCtrlMsg7")
  358.                         Else
  359.                                 HotKeySet("^7")
  360.                         EndIf

  361.                 Case $Ctrlbox8
  362.                         If GUICtrlRead($Ctrlbox8) = 1 Then
  363.                                 HotKeySet("^8","SendCtrlMsg8")
  364.                         Else
  365.                                 HotKeySet("^8")
  366.                         EndIf

  367.                 Case $Ctrlbox9
  368.                         If GUICtrlRead($Ctrlbox9) = 1 Then
  369.                                 HotKeySet("^9","SendCtrlMsg9")
  370.                         Else
  371.                                 HotKeySet("^9")
  372.                         EndIf

  373.         EndSwitch
  374. WEnd

  375. Func SendCtrlMsg0()
  376.         FixMsg(GUICtrlRead($Ctrlinput0))
  377. EndFunc

  378. Func SendCtrlMsg1()
  379.         FixMsg(GUICtrlRead($Ctrlinput1))
  380. EndFunc

  381. Func SendCtrlMsg2()
  382.         FixMsg(GUICtrlRead($Ctrlinput2))
  383. EndFunc

  384. Func SendCtrlMsg3()
  385.         FixMsg(GUICtrlRead($Ctrlinput3))
  386. EndFunc

  387. Func SendCtrlMsg4()
  388.         FixMsg(GUICtrlRead($Ctrlinput4))
  389. EndFunc

  390. Func SendCtrlMsg5()
  391.         FixMsg(GUICtrlRead($Ctrlinput5))
  392. EndFunc

  393. Func SendCtrlMsg6()
  394.         FixMsg(GUICtrlRead($Ctrlinput6))
  395. EndFunc

  396. Func SendCtrlMsg7()
  397.         FixMsg(GUICtrlRead($Ctrlinput7))
  398. EndFunc

  399. Func SendCtrlMsg8()
  400.         FixMsg(GUICtrlRead($Ctrlinput8))
  401. EndFunc

  402. Func SendCtrlMsg9()
  403.         FixMsg(GUICtrlRead($Ctrlinput9))
  404. EndFunc

  405. Func FixMsg($FixString)
  406.         If StringInStr($FixString, "%s") Then
  407.                 Local $sData = StringRegExpReplace(ClipGet(), ' |        | ', '')
  408.                 If StringLeft($sData, 2) <> "tb" Then $sData = "tb" & $sData
  409.                 $Msg = StringRegExpReplace($FixString, '%s', $sData)
  410.         Else
  411.                 $sData = ClipGet()
  412.                 $Msg = $FixString
  413.         EndIf
  414.         ClipPut($Msg)
  415.         Send("^v")
  416.         ClipPut($sData)
  417. EndFunc

  418. Func SendAltMsg0()
  419.         MsgBox(0,0,0)
  420. EndFunc

  421. Func SendAltMsg1()
  422.         MsgBox(0,0,0)
  423. EndFunc

  424. Func SendAltMsg2()
  425.         MsgBox(0,0,0)
  426. EndFunc

  427. Func SendAltMsg3()
  428.         MsgBox(0,0,0)
  429. EndFunc

  430. Func SendAltMsg4()
  431.         MsgBox(0,0,0)
  432. EndFunc

  433. Func SendAltMsg5()
  434.         MsgBox(0,0,0)
  435. EndFunc

  436. Func SendAltMsg6()
  437.         MsgBox(0,0,0)
  438. EndFunc

  439. Func SendAltMsg7()
  440.         MsgBox(0,0,0)
  441. EndFunc

  442. Func SendAltMsg8()
  443.         MsgBox(0,0,0)
  444. EndFunc

  445. Func SendAltMsg9()
  446.         MsgBox(0,0,0)
  447. EndFunc
复制代码

选好快捷键之后用   IniWrite("文件名", "字段", "关键字", "值")
初始化时候用  IniRead("文件名", "字段名", "关键字", "默认值")
然后  GUICtrlSetData()

TOP

返回列表