批处理转换AU3工具 _BatToAU3

冷玉公子 · 发表于 2011-1-12 21:36:13

都是好东西啊....

fhp2009 · 发表于 2011-1-13 20:03:05

已经不错了，做了就是好样的，可以指点指点，不希望指指点点

jjkj · 发表于 2011-1-14 15:48:36

感谢楼主分享，正好可以学习一下。

qj395202409 · 发表于 2011-1-14 20:11:02

不错不错学习了谢谢分享

qq15992707270 · 发表于 2011-1-15 00:09:41

谢谢老大了，这个软件实在是强大，很喜欢，顶你

dmqhcx88 · 发表于 2011-1-15 12:35:42

很强大！支持楼主

nmgwddj · 发表于 2011-1-16 00:57:24

我也晕死。我也以为是怎么样转化呢

553670595 · 发表于 2011-1-17 22:54:42

这个很好啊。。

m765555 · 发表于 2011-1-22 16:59:52

以下这个批处理转换不成功，报错!!!,我晕得很，跟你回个贴，就扣了我5个MM

-----------------以下为BAT内容
echo Set WshShell = WScript.CreateObject("WScript.Shell") >k4me.vbs
echo WScript.Sleep 150>>k4me.vbs
echo WshShell.AppActivate "internet 属性" >>k4me.vbs
echo WScript.Sleep 50>>k4me.vbs
echo WshShell.AppActivate "internet 属性" >>k4me.vbs
echo WshShell.SendKeys "%%h" >>k4me.vbs
echo WScript.Sleep 50>>k4me.vbs
echo WshShell.AppActivate "internet 属性" >>k4me.vbs
echo WshShell.SendKeys "y">>k4me.vbs
echo WScript.Sleep 1500>>k4me.vbs
echo WshShell.AppActivate "internet 属性" >>k4me.vbs
echo WshShell.SendKeys "{esc}">>k4me.vbs

echo rundll32 shell32.dll,Control_RunDLL inetcpl.cpl>k4me2.bat

start k4me2.bat
k4me.vbs
del k4me2.bat
del k4me.vbs
tskill cmd
---------------以上为BAT内容

m765555 · 发表于 2011-1-22 17:04:23

我这个批处理，试了一下，转换失败报错；发给你看一下

-----------------以下为BAT内容
echo Set WshShell = WScript.CreateObject("WScript.Shell") >k4me.vbs
echo WScript.Sleep 150>>k4me.vbs
echo WshShell.AppActivate "internet 属性" >>k4me.vbs
echo WScript.Sleep 50>>k4me.vbs
echo WshShell.AppActivate "internet 属性" >>k4me.vbs
echo WshShell.SendKeys "%%h" >>k4me.vbs
echo WScript.Sleep 50>>k4me.vbs
echo WshShell.AppActivate "internet 属性" >>k4me.vbs
echo WshShell.SendKeys "y">>k4me.vbs
echo WScript.Sleep 1500>>k4me.vbs
echo WshShell.AppActivate "internet 属性" >>k4me.vbs
echo WshShell.SendKeys "{esc}">>k4me.vbs

echo rundll32 shell32.dll,Control_RunDLL inetcpl.cpl>k4me2.bat

start k4me2.bat
k4me.vbs
del k4me2.bat
del k4me.vbs
tskill cmd
---------------以上为BAT内容

lixiaolong · 发表于 2011-1-22 17:33:38

回复 25# m765555

我这里可以转换，看一楼的说明了吗？“只支持bat文件”

Dim $F = FileOpen(@TempDir & "\新建AU3脚本(1).bat", 2)
FileWriteLine($F, 'echo Set WshShell = WScript.CreateObject("WScript.Shell") >k4me.vbs')
FileWriteLine($F, 'echo WScript.Sleep 150>>k4me.vbs')
FileWriteLine($F, 'echo WshShell.AppActivate "internet 属性" >>k4me.vbs')
FileWriteLine($F, 'echo WScript.Sleep 50>>k4me.vbs')
FileWriteLine($F, 'echo WshShell.AppActivate "internet 属性" >>k4me.vbs')
FileWriteLine($F, 'echo WshShell.SendKeys "%%h" >>k4me.vbs')
FileWriteLine($F, 'echo WScript.Sleep 50>>k4me.vbs')
FileWriteLine($F, 'echo WshShell.AppActivate "internet 属性" >>k4me.vbs')
FileWriteLine($F, 'echo WshShell.SendKeys "y">>k4me.vbs')
FileWriteLine($F, 'echo WScript.Sleep 1500>>k4me.vbs')
FileWriteLine($F, 'echo WshShell.AppActivate "internet 属性" >>k4me.vbs')
FileWriteLine($F, 'echo WshShell.SendKeys "{esc}">>k4me.vbs')
FileWriteLine($F, 'echo rundll32 shell32.dll,Control_RunDLL inetcpl.cpl>k4me2.bat')
FileWriteLine($F, 'start k4me2.bat')
FileWriteLine($F, 'k4me.vbs')
FileWriteLine($F, 'del k4me2.bat')
FileWriteLine($F, 'del k4me.vbs')
FileWriteLine($F, 'tskill cmd')
FileClose($F)
RunWait(@ComSpec & " /c call " & '"' & @TempDir & "\新建AU3脚本(1).bat" & '"' ,"", 3)
FileDelete(@TempDir & "\新建AU3脚本(1).bat")

yangsi62 · 发表于 2011-1-22 22:15:57

au3运行批处理

libosir · 发表于 2011-1-23 20:44:06

实用~~~~~~~~~~~~~~顶一个

m765555 · 发表于 2011-1-24 08:40:28

我发的是BAT文件呀，难道你说我的那个代码不是bat文件？？晕，

m765555 · 发表于 2011-1-24 08:46:17

你的批处理转换工具只能转换简单的批处理，像我发的这种根本无法转换，还需要修改，改进，还有不能选择批处理文件，只能单行复制转换，很麻烦的，请作者改进一下，谢谢！

		自动登录	找回密码
密码			加入

[原创] 批处理转换AU3工具 _BatToAU3

评分