跪求高手vbs转au3

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

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

详细点吧！新人呢

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

Extras\里面没那东西。。。请问问您的au3是哪下的

帅哥哥！
3.3.0.0.1汉化版里面下载里没vbs to au3

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

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

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

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] <> 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 编辑 ]

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

跪求高手vbs转au3

评分

本帖子中包含更多资源