查看会员资料
- Email:用户隐藏
- Icq/MSN:qq
- 电话号码:
- 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