在 AutoIt 中使用 switch case 中的循环。

huangapple
go评论77阅读模式
英文:

loop use in switch case autoit

问题

我有成千上万个小工具，我试图使用AutoIt创建一个菜单。我必须定义成千上万个函数、案例和变量，如何能够更容易地实现呢？
以下是我的代码，如何使用循环来选择案例并运行 soft.exe。

  1. #include <ButtonConstants.au3>
  2. #include <GUIConstantsEx.au3>
  3. #include <WindowsConstants.au3>
  5. $Form1 = GUICreate("MainMenu", 615, 437, 192, 124)
  7. $Soft1 = GUICtrlCreateButton("Button1", -8, 0, 75, 25)
  8. $Soft2 = GUICtrlCreateButton("Button2", -18, 10, 75, 25)
  9. $Soft3 = GUICtrlCreateButton("Button3", -28, 20, 75, 25)
  10. $Soft4 = GUICtrlCreateButton("Button4", -38, 30, 75, 25)
  11. $Soft5 = GUICtrlCreateButton("Button5", -48, 40, 75, 25)
  12. $Soft6 = GUICtrlCreateButton("Button6", -58, 50, 75, 25)
  13. GUISetState(@SW_SHOW)
  15. While 1
  16.     $nMsg = GUIGetMsg()
  17.     Switch $nMsg
  18.         Case $GUI_EVENT_CLOSE
  19.             Exit
  20.         Case $Soft1
  21.             Startsoft1()
  22.         Case $Soft2
  23.             Startsoft2()
  24.         Case $Soft3
  25.             Startsoft3()
  26.         Case $Soft4
  27.             Startsoft4()
  28.         Case $Soft5
  29.             Startsoft5()
  30.         Case $Soft6
  31.             Startsoft6()
  32.     EndSwitch
  33. WEnd
  35. Func Startsoft1()
  36.     Run('Soft1.exe')
  37. EndFunc
  39. Func Startsoft2()
  40.     Run('Soft2.exe')
  41. EndFunc
  43. Func Startsoft3()
  44.     Run('Soft3.exe')
  45. EndFunc
  47. Func Startsoft4()
  48.     Run('Soft4.exe')
  49. EndFunc
  51. Func Startsoft5()
  52.     Run('Soft5.exe')
  53. EndFunc

我是编程新手，因此正在学习新的东西。

英文:

I have a thousands mini tools, I am trying to create a menu by using Autuit. I have to define thousand functions and case and variable how i can make it easy.
here is my code how can use loop for select case and run soft.exe

  1. #include &lt;ButtonConstants.au3&gt;
  2. #include &lt;GUIConstantsEx.au3&gt;
  3. #include &lt;WindowsConstants.au3&gt;
  5. $Form1 = GUICreate(&quot;MainMenu&quot;, 615, 437, 192, 124)
  7. $Soft1 = GUICtrlCreateButton(&quot;Button1&quot;, -8, 0, 75, 25)
  8. $Soft2 = GUICtrlCreateButton(&quot;Button2&quot;, -18, 10, 75, 25)
  9. $Soft3 = GUICtrlCreateButton(&quot;Button3&quot;, -28, 20, 75, 25)
  10. $Soft4 = GUICtrlCreateButton(&quot;Button4&quot;, -38, 30, 75, 25)
  11. $Soft5 = GUICtrlCreateButton(&quot;Button5&quot;, -48, 40, 75, 25)
  12. $Soft6 = GUICtrlCreateButton(&quot;Button6&quot;, -58, 50, 75, 25)
  13. GUISetState(@SW_SHOW)
  16. While 1
  17. 	$nMsg = GUIGetMsg()
  18. 	Switch $nMsg
  19. 		Case $GUI_EVENT_CLOSE
  20. 			Exit
  21. 		Case $Soft1
  22. 		Startsoft1()
  24. 		Case $Soft2
  25. 		Startsoft2()
  27. 		Case $Soft3
  28. 		Startsoft3()
  30. 		Case $Soft4
  31. 		Startsoft4()
  33. 		Case $Soft5
  34. 		Startsoft5()
  36. 		Case $Soft6
  37. 		Startsoft6()
  38. 	EndSwitch
  39. WEnd
  41. Func  Startsoft1()
  42. 	Run(&#39;Soft1.exe&#39;)
  43. EndFunc
  45. Func  Startsoft2()
  46. 	Run(&#39;Soft2.exe&#39;)
  47. EndFunc
  49. Func  Startsoft3()
  50. 	Run(&#39;Soft3.exe&#39;)
  51. EndFunc
  53. Func  Startsoft4()
  54. 	Run(&#39;Soft4.exe&#39;)
  55. EndFunc
  57. Func  Startsoft5()
  58. 	Run(&#39;Soft5.exe&#39;)
  59. EndFunc

iam new in programing there for learning new things

答案1

得分: 1

尝试这样作为一个很好的起点。在StringSplit方法的字符串中放置名称和路径。如果按钮到达GUI宽度末端，GUI按钮会自动放置在新行。

  1. #include <ButtonConstants.au3>
  2. #include <GUIConstantsEx.au3>
  3. #include <WindowsConstants.au3>
  5. main()
  7. Func main()
  8.     Local $gui_width = @DesktopWidth -100, $gui_height = @DesktopHeight - 80
  9.     Local $Form1 = GUICreate("MainMenu", $gui_width, $gui_height, 50, 10)
  11.     Local $exesName_A = StringSplit('a.exe,b.exe,c.exe,d.exe,e.exe,f.exe,g.exe,h.exe,i.exe,j.exe,k.exe,l.exe,m.exe,n.exe,o.exe,a.exe,b.exe,c.exe,d.exe,e.exe,f.exe,g.exe,h.exe,i.exe,j.exe,k.exe,l.exe,m.exe,n.exe,o.exe', ',', 2)
  12.     Local $exesPath_A = StringSplit('a.exe,b.exe,c.exe,d.exe,e.exe,f.exe,g.exe,h.exe,i.exe,j.exe,k.exe,l.exe,m.exe,n.exe,o.exe,a.exe,b.exe,c.exe,d.exe,e.exe,f.exe,g.exe,h.exe,i.exe,j.exe,k.exe,l.exe,m.exe,n.exe,o.exe', ',', 2)
  13.     Local $height = 45, $width = 125, $y = 0, $x = 0
  14.     Local $button_A[UBound($exesName_A)]
  16.     For $i = 0 To UBound($exesName_A) - 1
  17.         If (8 + ($x + 1) * $width) > $gui_width Then
  18.             $y += 1
  19.             $x = 0
  20.         EndIf
  22.         $button_A[$i] = GUICtrlCreateButton($exesName_A[$i], 8 + $x * $width, 10 + $y * $height, 75, $height)
  23.         GUICtrlSetImage(-1, "shell32.dll", 22+ $i)
  24.         $x += 1
  25.     Next
  27.     GUISetState(@SW_SHOW)
  29.     While 1
  30.         $nMsg = GUIGetMsg()
  31.         Switch $nMsg
  32.             Case $GUI_EVENT_CLOSE
  33.                 Exit
  34.         EndSwitch
  35.         ; 扫描所有按钮以检查是否有按钮被按下
  36.         For $i = 0 To UBound($button_A) - 1
  37.             If $nMsg = $button_A[$i] Then
  38.                 ConsoleWrite('现在运行exe文件' & $exesPath_A[$i] & @CRLF)
  39.                 ;~ ShellExecute($exesPath_A[$i], '') ; 取消注释以运行exe文件
  40.             EndIf
  41.         Next
  42.     WEnd
  43. EndFunc   ;==>main
英文:

Try something like this as a good starting point.
Put the names and pathes in the strings of the method StringSplit.
The GUI buttons are automatically placed in a new line if the button reaches the GUI width end.

  1. #include &lt;ButtonConstants.au3&gt;
  2. #include &lt;GUIConstantsEx.au3&gt;
  3. #include &lt;WindowsConstants.au3&gt;
  5. main()
  7. Func main()
  8. 	Local $gui_width = @DesktopWidth -100, $gui_height = @DesktopHeight - 80
  9. 	Local $Form1 = GUICreate(&quot;MainMenu&quot;, $gui_width, $gui_height, 50, 10)
  11. 	Local $exesName_A = StringSplit(&#39;a.exe,b.exe,c.exe,d.exe,e.exe,f.exe,g.exe,h.exe,i.exe,j.exe,k.exe,l.exe,m.exe,n.exe,o.exe,a.exe,b.exe,c.exe,d.exe,e.exe,f.exe,g.exe,h.exe,i.exe,j.exe,k.exe,l.exe,m.exe,n.exe,o.exe&#39;, &#39;,&#39;, 2)
  12. 	Local $exesPath_A = StringSplit(&#39;a.exe,b.exe,c.exe,d.exe,e.exe,f.exe,g.exe,h.exe,i.exe,j.exe,k.exe,l.exe,m.exe,n.exe,o.exe,a.exe,b.exe,c.exe,d.exe,e.exe,f.exe,g.exe,h.exe,i.exe,j.exe,k.exe,l.exe,m.exe,n.exe,o.exe&#39;, &#39;,&#39;, 2)
  13. 	Local $height = 45, $width = 125, $y = 0, $x = 0
  14. 	Local $button_A[UBound($exesName_A)]
  16. 	For $i = 0 To UBound($exesName_A) - 1
  17. 		If ((8 + ($x + 1) * $width) &gt; $gui_width) Then
  18. 			$y += 1
  19. 			$x = 0
  20. 		EndIf
  22. 		$button_A[$i] = GUICtrlCreateButton($exesName_A[$i], 8 + $x * $width, 10 + $y * $height, 75, $height)
  23. 		GUICtrlSetImage(-1, &quot;shell32.dll&quot;, 22+ $i)
  24. 		$x += 1
  25. 	Next
  27. 	GUISetState(@SW_SHOW)
  29. 	While 1
  30. 		$nMsg = GUIGetMsg()
  31. 		Switch $nMsg
  32. 			Case $GUI_EVENT_CLOSE
  33. 				Exit
  35. 		EndSwitch
  36. 		; scan all buttons to check if one was pressed
  37. 		For $i = 0 To UBound($button_A) - 1
  38. 			If $nMsg = $button_A[$i] Then
  39. 				ConsoleWrite(&#39;Now run the exe&#39; &amp; $exesPath_A[$i] &amp; @CRLF)
  40. ;~ 			ShellExecute($exesPath_A[$i], &#39;&#39;) ; uncomment this to run the exe
  41. 			EndIf
  42. 		Next
  43. 	WEnd
  45. EndFunc   ;==&gt;main

huangapple
  • 本文由 发表于 2023年2月7日 01:00:47
  • 转载请务必保留本文链接：https://go.coder-hub.com/75364355.html
  • autoit
  • loops
  • switch-statement
匿名

发表评论

匿名网友

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen:

确定