懒人专用-自动生成安装脚本.au3

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button3
Exit
Case $Button1
If GUICtrlRead($Button1) = "生成exe" Then
Local $Input1,$Input2,$Input3,$Input4,$Input5,$Input6,$Input7,$aaaa,$a,$Form1_1,$edit1,$Button1,$Button2,$Button3,$Label1,$yyyyy
main()
Func Main()
&"RunWait(" & Chr(34) & "taskkill /im " &GUICtrlRead($Input4) &" /t /f"",@SW_HIDE)" &@CRLF _
& "Return"&@CRLF _
&"EndIf"&@CRLF
;&"ProcessClose("""&GUICtrlRead($Input4)&""")" &@CRLF _
$Input3 = GUICtrlCreateInput("5", 16, 64, 65, 21)
$Input4 = GUICtrlCreateInput("请输入进程.exe", 472, 64, 121, 21)
$Input5 = GUICtrlCreateInput("键盘指令1", 200, 64, 73, 21)
$Button1 = GUICtrlCreateButton("生成代码", 32, 432, 113, 33)
$Button2 = GUICtrlCreateButton("保存代码", 240, 432, 113, 33)
$Button3 = GUICtrlCreateButton("关闭", 456, 432, 113, 33)
GUICtrlSetData($Input7,Chr(0))
EndFunc
;edtEvent($edit1,2)
; 编辑框相关事件
; $edt : 要操作的编辑框句柄
; $Event : 要执行的操作（1-剪切；2-复制；3-粘贴）
Func edtEvent($edt, $Event)
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$Form1_1 = GUICreate("懒人专用-By:张永昌 QQ106182722 温馨提示：代码还是自己写的好。", , 480, 247, 279)
$Input1 = GUICtrlCreateInput("窗口标题", 16, 16, 577, 21)
$Input2 = GUICtrlCreateInput("窗口内可见文字内容", 16, 40, 577, 21)
Else
_GUICtrlEdit_AppendText($edit1,"EndFunc")
$yyyyy=$yyyyy & "EndFunc"
GUICtrlSetData($Button1,"生成exe")
EndIf
EndSwitch
WEnd
EndFunc
Func aaaa()
GUICtrlSetData($Label1,"添加"& $a &"组代码")
GUICtrlSetData($Button1,"追加代码")
EndFunc ;改变按钮1的名字
Func shengcheng()
$a=$a+1
If $a<>0 Then aaaa()
_FileCreate("./temp.bak") ;生成完代码清空临时文件
MsgBox(1,"生成完毕","恭喜您生成代码完毕了。去测试一下吧")
Else
shengcheng()
EndIf
Case $Button2
If GUICtrlRead($Button1) = "生成exe" Then
Local $Text, $Len
Switch $Event
Case 1, 2
$Text = GUICtrlRead($edt)
If $Text = '' Then Return
ClipPut($Text)
If $Event = 1 Then GUICtrlSetData($edt, '')
EndIf
If GUICtrlRead($Input7)= "鼠标指令1" Or GUICtrlRead($Input7) = Chr(0) Then
$dddd=""
Else
$dddd="ControlClick("& Chr(34) &GUICtrlRead($Input1) & Chr(34)&"," & Chr(34) & GUICtrlRead($Input2) & """,""[text:" & GUICtrlRead($Input7)&"]"");模拟鼠标点击"& @CRLF
$Len = StringLen($Text)
Case 3
$Text = ClipGet()
If $Text = '' Then Return
GUICtrlSetData($edt, $Text)
$Len = StringLen($Text)
EndSwitch
_FileCreate("./temp.bak")
$yyyyy=_GUICtrlEdit_GetText($edit1)
_FileWriteToLine("./temp.bak",1,$yyyyy)
RunWait ("./ACNWrapper.exe /in ./temp.bak")
$bbbb="If $error <> 0 Then " &@CRLF
If GUICtrlRead($Input5) = "键盘指令1" Or GUICtrlRead($Input5) = Chr(0) Then
$cccc=""
Else
$cccc="Send("& Chr(34) &"!" &GUICtrlRead($Input5) & Chr(34) &") ;模拟按键"&@CRLF
EndIf
$eeee="$error=WinWaitNotActive("& Chr(34) & GUICtrlRead($Input1) & Chr(34)&"," & Chr(34) & GUICtrlRead($Input2)& """)"& ";等待失去焦点"&@CRLF _
&"else"&@CRLF _
$Label1 = GUICtrlCreateLabel("超时5秒", 88, 64, 85, 20)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
;MsgBox(1,1,$Label1)
#EndRegion ### END Koda GUI section ###
If $a= 1 then
$xxxx=$aaa&$aaaa&$bbbb&$cccc&$dddd&$eeee
Else
$xxxx=$aaaa&$bbbb&$cccc&$dddd&$eeee
EndIf
_GUICtrlEdit_AppendText($edit1,$xxxx)
GUICtrlSetData($Input5,Chr(0))
#include <GuiEdit.au3>
#include <GuiConstantsEx.au3>
#include <file.au3>