找回密码
 加入
搜索
查看: 3655|回复: 11

[AU3基础] 请教如何将VBS代码转换成AU3呀

  [复制链接]
发表于 2011-9-6 15:43:05 | 显示全部楼层 |阅读模式
本人新手,刚刚接触制作脚本类的东西..还有顺带问下大家VBS何AU3的类似何区别
SET oShell = CREATEOBJECT("Wscript.Shell")
Const ForReading = 1
strDomainName="tjadri.com"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile _
    ("c:\\account.txt", ForReading)
Do Until objTextFile.AtEndOfStream
    strNextLine = objTextFile.Readline
    arrServiceList = Split(strNextLine , ",")
    strCurrentUserName= strDomainName & "" & arrServiceList(0)
   
Loop
msgbox strCurrentUserName
strCommand= "cmd /c net localgroup administrators " & strCurrentUserName & " /add"
msgbox strCommand
SET oExec = oShell.Exec(strCommand)
发表于 2011-9-6 17:46:15 | 显示全部楼层
不懂VBS,,漂过,等高人解决
发表于 2011-9-6 18:05:19 | 显示全部楼层
论坛里有VB转AU3地代码!自己搜索下!
发表于 2011-9-6 18:58:01 | 显示全部楼层
直译如下:
$oShell = OBJCREATE("Wscript.Shell")
Global $ForReading = 1
$strDomainName="tjadri.com"
$objFSO = ObjCreate("Scripting.FileSystemObject")
$objTextFile = $objFSO.OpenTextFile("c:\account.txt", $ForReading)
while not $objTextFile.AtEndOfStream
    $strNextLine = $objTextFile.Readline
    $arrServiceList = StringSplit($strNextLine , ",")
    $strCurrentUserName= $strDomainName & "" & $arrServiceList[1]
wend
msgbox(0,"",$strCurrentUserName)
$strCommand= "cmd /c net localgroup administrators " & $strCurrentUserName & " /add"
msgbox(0,"",$strCommand)
$oExec = $oShell.Exec(strCommand)
转换成au3代码猜测如下:
$strDomainName="tjadri.com"
$h_File=fileopen("c:\account.txt", 0)
while 1
    $strNextLine = fileReadline($h_File)
    if @error then exitloop
    $arrServiceList = StringSplit($strNextLine , ",")
    $strCurrentUserName= $strDomainName & "" & $arrServiceList[1]
wend
fileclose($h_File)
msgbox(0,"",$strCurrentUserName)
$strCommand= @ComSpec&" /c net localgroup administrators " & $strCurrentUserName & " /add"
msgbox(0,"",$strCommand)
run(strCommand)
以上未经测试
 楼主| 发表于 2011-9-7 01:32:25 | 显示全部楼层
直译如下:转换成au3代码猜测如下:以上未经测试
kevinch 发表于 2011-9-6 18:58




太感谢了,我也没事。。。只是让我学到了很多 谢谢
 楼主| 发表于 2011-9-7 01:32:29 | 显示全部楼层
直译如下:转换成au3代码猜测如下:以上未经测试
kevinch 发表于 2011-9-6 18:58




太感谢了,我也没事。。。只是让我学到了很多 谢谢
 楼主| 发表于 2011-9-7 01:32:30 | 显示全部楼层
直译如下:转换成au3代码猜测如下:以上未经测试
kevinch 发表于 2011-9-6 18:58




太感谢了,我也没事。。。只是让我学到了很多 谢谢
 楼主| 发表于 2011-9-7 01:32:49 | 显示全部楼层
太感谢了,我也没试。。。不过让我学到了很多 谢谢
 楼主| 发表于 2011-9-7 01:32:53 | 显示全部楼层
太感谢了,我也没试。。。不过让我学到了很多 谢谢
发表于 2011-9-7 21:38:12 | 显示全部楼层
本帖最后由 xiehuahere 于 2011-9-7 21:42 编辑

欢迎楼主来论坛提问,贡献都比我高啦。羡慕嫉妒恨~~~ ^_^

另,我的回答在这里:
http://zhidao.baidu.com/question/316405136.html

论坛高人可以指教一二。
 楼主| 发表于 2011-9-8 11:38:55 | 显示全部楼层
哈哈  在这里碰到你。。。
 楼主| 发表于 2011-9-8 12:10:13 | 显示全部楼层
现在发现了,其实VBS和AU3很类似 因为AU3说明写了 AU3是以编写并生成具有 BASIC 语言风格的脚本程序,而VB就是叫Visual Basic   所以很类似...
您需要登录后才可以回帖 登录 | 加入

本版积分规则

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

GMT+8, 2024-11-13 17:16 , Processed in 0.097506 second(s), 23 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

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