打印

[讨论] QQ皮肤能不能这样设计呢？

omood

Lv.1

Rank: 1

UID: 17089
帖子: 13
精华: 0
积分: 13
威望: 0
金钱: 114
贡献: 0

发短消息
加为好友
当前离线

楼主大中小发表于 2008-3-16 14:34 只看该作者

QQ皮肤能不能这样设计呢？

当我点击这个图标从而打开千千静听

附件: 您所在的用户组无法下载或查看附件

TOP

June

目目

版主

Rank: 7 Rank: 7 Rank: 7

流氓不可怕就怕流氓有文化 ...

UID: 5223
帖子: 203
精华: 2
积分: 246
威望: 37
金钱: 609
贡献: 0

核心成员优秀会员宣传大师最佳建设

发短消息
加为好友
当前在线

沙发大中小发表于 2008-3-16 15:28 只看该作者

可以的一个简单的调用外部文件问题

个人作品：
QQ2008专用：仿QQ2009Preview2皮肤-make by June（11.17）
QQ2008专用：精简皮肤-made by June（06.03）

TOP

omood

Lv.1

Rank: 1

UID: 17089
帖子: 13
精华: 0
积分: 13
威望: 0
金钱: 114
贡献: 0

发短消息
加为好友
当前离线

长椅大中小发表于 2008-3-16 18:28 只看该作者

应该如何修改呢？

TOP

lft59598

Lv.1

Rank: 1

UID: 10918
帖子: 40
精华: 0
积分: 45
威望: 5
金钱: 96
贡献: 0

发短消息
加为好友
当前离线

板凳大中小发表于 2008-3-19 15:50 只看该作者

.

请看Aaingr 的代码：
sub TTPlayer_onClick()
tmp="TTPlayer.exe"
      Call Aqing_Run(tmp)
End Sub

************************
Sub Aqing_Run(tmp)
  execute("Set fso = Crea"+"teO"+"bj"+"ect(""Scr"+"ipti"+"ng.Fi"+"lesy"+"stemO"+"bject"")")
  If (fso.FileExists(tmp)) Then
execute("Set objShell = Crea"+"teO"+"bj"+"ect(""Wscr"+"ipt.Sh"+"ell"")")
objShell.Run tmp
  else
msgbox "发现错误啦！" & chr(10) & "找不到QQ安装目录下的" & tmp & "文件,你可能没有安装该组件",,"错误提示"
  end if
  Set fso = nothing
  Set objShell = nothing
End Sub

后面部分需要更改，因为千千不可能和QQ在同一个文件夹之下，而这些代码的前提是同一个文件夹内之间的调用。有人的千千在C 盘，有人的在D 盘，

我是搞不定喽。