mcknight1013 发表于 2009-2-4 21:09:10

跪求高手vbs转au3

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 发表于 2009-2-4 21:54:07

Extras\Send2A3X
有vbs2au3

mcknight1013 发表于 2009-2-5 16:20:42

:face (2): 详细点吧！新人呢

mcknight1013 发表于 2009-2-5 17:08:08

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

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

sxd 发表于 2009-2-5 22:51:00

:face (29):

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

pg1984 发表于 2009-2-21 11:58:11

上面的vb2au3怎么用呀

ceoguang 发表于 2009-2-26 01:57:31


Dim $cgo, $mdir, $game
$cgo = "cgo2043.exe"
If $cmdline <> 0 Then
        $mdir = $cmdline
        $game = $cmdline
        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 编辑 ]
页: [1]
查看完整版本: 跪求高手vbs转au3