找回密码  加入

AUTOIT CN

搜索
查看: 130|回复: 3

[GUI管理] GUI问题

[复制链接]
发表于 2019-8-13 19:22:11 | 显示全部楼层 |阅读模式
新手求助,创建一个GUI窗口,将autoit脚本嵌入到该GUI窗口按钮中,如何做到点击按钮执行预先脚本程序,新手研究好久还是没有成功,希望各位高手能帮忙解决问题,在这里先谢谢各位了!
发表于 7 天前 | 显示全部楼层
本帖最后由 xyx115 于 2019-8-14 17:14 编辑






  1. #NoTrayIcon
  2. #Region ;**** 由 AccAu3Wrapper_GUI 创建指令 ****
  3. #AccAu3Wrapper_Icon=D:\OneDrive\图标\ico\项目129.ico
  4. #AccAu3Wrapper_OutFile=随机字符生成工具.exe
  5. #AccAu3Wrapper_UseUpx=Y
  6. #AccAu3Wrapper_UseX64=n
  7. #AccAu3Wrapper_Res_Comment=随机字符生成工具
  8. #AccAu3Wrapper_Res_Description=随机字符生成工具
  9. #AccAu3Wrapper_Res_Fileversion=1.2.0.7
  10. #AccAu3Wrapper_Res_FileVersion_AutoIncrement=Y
  11. #AccAu3Wrapper_Res_LegalCopyright=迷路轮回
  12. #AccAu3Wrapper_Res_Language=2052
  13. #AccAu3Wrapper_Res_requestedExecutionLevel=None
  14. #AccAu3Wrapper_Run_Tidy=Y
  15. #AccAu3Wrapper_Run_Au3Stripper=Y
  16. #Au3Stripper_Parameters=/sf=1 /sv=1
  17. #AccAu3Wrapper_Run_Obfuscator=Y
  18. #Obfuscator_Parameters=/cs=1 /cn=1 /cf=1 /cv=1 /sf=1 /sv=0 /sci=0
  19. #AccAu3Wrapper_Antidecompile=y
  20. #AccAu3Wrapper_DBSupport=y
  21. #EndRegion ;**** 由 AccAu3Wrapper_GUI 创建指令 ****
  22. #include <Crypt.au3>
  23. #include <File.au3>
  24. #include <ButtonConstants.au3>
  25. #include <EditConstants.au3>
  26. #include <GUIConstantsEx.au3>
  27. #include <StaticConstants.au3>
  28. #include <WindowsConstants.au3>

  29. ;        作者:迷路轮回                www.xyx115.com

  30. #Region ### START Koda GUI section ### Form=
  31. Global $ip, $user, $pass, $mymd5, $ehash
  32. Global $Label[4], $Input[4], $But[4], $Inputtext[4]
  33. Global $STR[10][3] = [ _
  34.                 [' 类型', ' 序号', '密码字符'], _
  35.                 [' 纯数字', '  1  ', '0123456789'], _
  36.                 [' 小写字母', '  2  ', 'abcdefghijklmnopqrstuvwxyz'], _
  37.                 [' 大写字母', '  3  ', 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'], _
  38.                 [' 小写字母+大写字母', '  4  ', 'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ'], _
  39.                 [' 数字+小写字母', '  5  ', '0123456789abcdefghijklmnopqrstuvwxyz'], _
  40.                 [' 数字+大写字母', '  6  ', '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ'], _
  41.                 [' 数字+大小写字母', '  7  ', '0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ'], _
  42.                 [' 数字+大小写字母+简单标点符号', '  8  ', '0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ!@#

  43. 以上代码,是一个完整的随机字符串生成工具,仅供演示和参考。], _
  44.                 [' 数字+大小写字母+复杂标点符号', '  9  ', '0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ!@#$,.??()%+_-`~[]{}']]
  45. Global $Form1 = GUICreate("随机字符生成工具", 500, 240, -1, -1)
  46. GUISetBkColor(0xffffff, $Form1)
  47. Global $x1 = 30, $x2 = 98, $x3 = 330, $y1 = 40, $y2 = 50, $yadd = 35, $yadd2 = 40, $k = 65, $g = 33
  48. Global $Labeltext[4] = ["字符长度:", "字符类型:", "生成字符:"]
  49. Global $Buttext[2] = ["生成", "复制"]
  50. $Label[0] = GUICtrlCreateLabel($Labeltext[0], $x1, $y1 + 4, Default, Default)
  51. $Label[1] = GUICtrlCreateLabel($Labeltext[1], $x1, $y1 + $yadd + 4, Default, Default)
  52. $But[1] = GUICtrlCreateButton($Buttext[0], $x3, $y2, $k, $g)
  53. $But[2] = GUICtrlCreateButton($Buttext[1], $x3 + 80, $y2, $k, $g)
  54. $Input[0] = GUICtrlCreateInput("字符长度", $x2, $y1, 200, 20, $SS_CENTER)
  55. $Input[1] = GUICtrlCreateCombo(" 数据组合方式", $x2, $y1 + $yadd, 200, 20)
  56. $Input[2] = GUICtrlCreateInput($Inputtext[2], $x1, $y1 + $yadd * 2, 445, 100, $ES_MULTILINE)
  57. Global $shuo = GUICtrlCreateLabel("使用说明", 20, 10, Default, Default)
  58. Global $about = GUICtrlCreateLabel("By:迷路轮回", 280, 10, Default, Default)
  59. Global $xyx115 = GUICtrlCreateLabel("http://www.xyx115.com", 365, 10, Default, Default)
  60. Global $character = @ScriptDir & "\生成随机字符记录.dat"
  61. GUISetState(@SW_SHOW)
  62. GUICtrlSetData($Input[1], $STR[1][0] & "|" & $STR[2][0] & "|" & $STR[3][0] & "|" & $STR[4][0] & "|" & _
  63.                 $STR[5][0] & "|" & $STR[6][0] & "|" & $STR[7][0] & "|" & $STR[8][0] & "|" & $STR[9][0] & "|", $STR[7][0])
  64. #EndRegion ### END Koda GUI section ###
  65. While 1
  66.         $nMsg = GUIGetMsg()
  67.         Switch $nMsg
  68.                 Case $GUI_EVENT_CLOSE
  69.                         Exit
  70.                 Case $shuo
  71.                         MsgBox(64, "使用说明", "      此工具专门用来生成随机字符,用来给服务器,数据库等加密。生成随机字符后点击复制并保存到一个地方以后再使用。" & @CRLF & "      数据库和操作系统都支持128位加密。请不要吝惜密码长度。")
  72.                 Case $about
  73.                         MsgBox(64, "关于作者", @CRLF & _
  74.                                         "      迷路轮回,IT技术爱好者。 " & @CRLF & @CRLF & _
  75.                                         "本软件制作于2017年3月16日(中国.苏州)")
  76.                 Case $xyx115
  77.                         ShellExecute("http://www.xyx115.com")
  78.                 Case $But[1]
  79.                         _Main_Read()
  80.                 Case $But[2]
  81.                         ClipPut(GUICtrlRead($Input[2]))
  82.                         ;                        _FileWriteLog($character, "生成字符 " & GUICtrlRead($Input[2]), 1)
  83.                         MsgBox(64, "提示", "复制成功", 1)
  84.         EndSwitch
  85. WEnd
  86. Func _Main_Read()

  87.         Local $lang = GUICtrlRead($Input[0])
  88.         Local $ids = GUICtrlRead($Input[1])



  89.         If $lang = "字符长度" Or StringIsDigit ( $lang ) = 0 Then
  90.                 MsgBox(48, "提示", "请输入需要生成的字符长度!")
  91.                 Return -1
  92.         ElseIf $ids = " 数据组合方式" Then
  93.                 MsgBox(48, "提示", "请选择字符串组合方式!")
  94.                 Return -2
  95.         EndIf
  96.         For $i = 0 To UBound($STR, 1) - 1
  97.                 If $ids = $STR[$i][0] Then
  98.                         Local $id = $i
  99.                         ExitLoop
  100.                 EndIf
  101.         Next
  102.         Local $news = __Get_Random($lang, $id)
  103.         GUICtrlSetData($Input[2], $news)
  104.         ;        _FileWriteLog($character, "复制字符 " & $news, 1)

  105. EndFunc   ;==>_Main_Read

  106. Func __Get_Random($lang, $id)

  107.         ;        函数功能:
  108.         ;        产生随机数,可以自定义产生随机数的字符串和长度。
  109.         ;
  110.         ;        使用方法:__Get_Random($lang, $id)
  111.         ;        __Get_Random($lang, $id)
  112.         ;        其中$lang为字符串长度,$id使用的字符串数组序号。
  113.         ;        作者:迷路轮回                www.xyx115.com
  114.         Local $key = "", $alang = StringLen($STR[$id][2])
  115.         For $i = 1 To $lang
  116.                 $key = $key & StringMid($STR[$id][2], Random(1, $alang, 1), 1)
  117.         Next
  118.         Return $key

  119. EndFunc   ;==>__Get_Random





复制代码


以上代码,是一个完整的随机字符串生成工具,仅供演示和参考。
发表于 6 天前 | 显示全部楼层
说什么好呢,帮助文档里的例子你看过了吗?
发表于 6 天前 | 显示全部楼层

  1. #include <ButtonConstants.au3>
  2. #include <GUIConstantsEx.au3>
  3. #include <WindowsConstants.au3>
  4. #Region ### START Koda GUI section ### Form=
  5. $Form1 = GUICreate("Form1", 286, 217, 192, 124)
  6. $Button1 = GUICtrlCreateButton("运行", 80, 64, 107, 33)
  7. GUISetState(@SW_SHOW)
  8. #EndRegion ### END Koda GUI section ###

  9. While 1
  10.         $nMsg = GUIGetMsg()
  11.         Switch $nMsg
  12.                 Case $GUI_EVENT_CLOSE
  13.                         Exit
  14.                 Case $Button1
  15.                         Run("cmd");这里放入需要运行的东西

  16.         EndSwitch
  17. WEnd
复制代码
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|小黑屋|手机版|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2019-8-21 01:14 , Processed in 0.062500 second(s), 19 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表