注册 | 登录

游侠NETSHOW论坛





查看: 1956|回复: 1
打印 上一主题 下一主题

[求助] 戎装公主绿化不了!请教各位大大!!!! [复制链接]

帖子
8
精华
0
积分
4
金钱
39
荣誉
0
人气
0
评议
0
跳转到指定楼层
楼主
发表于 2010-11-6 16:48:36 |显示全部楼层 |倒序浏览
下了免安装版本后,点击绿化安装显示错误,图在附件~~~请问如何解决??
附件: 你需要登录才可以下载或查看附件。没有帐号?注册

使用道具 举报

帖子
8
精华
0
积分
4
金钱
39
荣誉
0
人气
0
评议
0
沙发
发表于 2010-11-6 17:02:36 |显示全部楼层
Sub bat
echo create_shortcut
start wscript -e:vbs "%~f0"
Exit Sub
End Sub


Set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
Dim WshShell,pa
Set WshShell = WScript.CreateObject("WScript.Shell")
Pa = WshShell.CurrentDirectory
set oShellLink = WshShell.CreateShortcut(strDesktop & "\国王的恩赐-戎装公主.lnk")
oShellLink.TargetPath = pa & "\开始游戏.exe"
oShellLink.WindowStyle = 2
oShellLink.IconLocation = pa & "\开始游戏.exe, 0"

oShellLink.WorkingDirectory = pa

oShellLink.Save

Dim objws
Set objws=WScript.CreateObject("wscript.shell")
objws.Run "kk55.bat"
objws.Run "http://kk55.net"

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

手机版|Archiver|游侠NETSHOW论坛 ( 苏ICP备2023007791号 )

GMT+8, 2025-7-25 05:27 , Processed in 0.358214 second(s), 12 queries , Gzip On, Memcache On.

Powered by Discuz! X2

© 2001-2011 Comsenz Inc.

分享到