注册 | 登录

游侠NETSHOW论坛





查看: 1960|回复: 3
打印 上一主题 下一主题

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

帖子
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"

使用道具 举报

帖子
64
精华
0
积分
32
金钱
799
荣誉
0
人气
0
评议
0
板凳
发表于 2010-11-6 18:38:12 |只看该作者
都是免安裝的了 你還裝個什麽勁啊 直接玩就是了

使用道具 举报

帖子
598
精华
0
积分
299
金钱
999
荣誉
0
人气
0
评议
0
地板
发表于 2010-11-7 00:23:19 |只看该作者
objws.Run "kk55.bat"
objws.Run "http://kk55.net"
删掉... 最恶心的就是这种广告了...

[ 本帖最后由 tcc40 于 2010-11-7 00:24 编辑 ]

使用道具 举报

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

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

GMT+8, 2025-8-1 10:22 , Processed in 0.384058 second(s), 12 queries , Gzip On, Memcache On.

Powered by Discuz! X2

© 2001-2011 Comsenz Inc.

分享到