跪求高手vbs转au3

mcknight1013

on error resume next
dim fu,gui,cgo,mdir,game,mgame
set fu = wscript.createObject("wscript.shell")
Set gui = WScript.CreateObject("Scripting.FileSystemObject")
cgo = "cgo2043.exe"
mdir = wscript.arguments.item(0)
game = wscript.arguments.item(1)
mgame = "cmd /c chdir /d "&mdir&" &&start "&game
If gui.FileExists(mdir & game) Then
fu.run mgame,0,0
else
fu.run cgo
WScript.Sleep(3000)
fu.run mgame,0,0
end if

cgo2043出盘的，希望高手帮弄下 。。。谢谢！

十分谢谢sxd！哈哈OK啦！

[ 本帖最后由 mcknight1013 于 2009-2-6 16:36 编辑 ]

sxd

Extras\Send2A3X
有vbs2au3

mcknight1013

详细点吧！新人呢

mcknight1013

Extras\里面没那东西。。。 请问问您的au3是哪下的 帅哥哥！
3.3.0.0.1汉化版里面下载里没vbs to au3

[ 本帖最后由 mcknight1013 于 2009-2-5 17:11 编辑 ]

sxd

不过我就转过一次 转完还要改一下 变量方面

pg1984

上面的vb2au3怎么用呀

ceoguang

Dim $cgo, $mdir, $game
$cgo = "cgo2043.exe"
If $cmdline[0] <> 0 Then
        $mdir = $cmdline[1]
        $game = $cmdline[2]
        If FileExists($mdir & $game) Then
                Run(@ComSpec & " /c " & "chdir /d" & $mdir & "&&start" & $game, "", @SW_HIDE)
        else
                Run($cgo)
                Sleep(3000)
                Run(@ComSpec & " /c " & "chdir /d" & $mdir & "&&start" & $game, "", @SW_HIDE)
        EndIf
Else
        Run($cgo)
EndIf

[ 本帖最后由 ceoguang 于 2009-2-26 03:42 编辑 ]