查看会员资料
用 户 名：d***
发送消息- Email：用户隐藏
- Icq/MSN：
- 电话号码：
- Homepage：
- 会员简介：
最新会员发布资源
SendShortcutToDesktop
- Option Explicit sub uu() Dim wshShell, Shortcut, oArgs Dim strDir, strName, TargetPath, szSrc,cnt,i Set oArgs = Wscr ipt.Arguments TargetPath = oArgs(0) szSrc = Split(TargetPath, \ , -1, 1) cnt = UBound(szSrc) For i = 0 To