这是给懒惰的人用的。。。哈哈!

其实也没有什么的
只是运用了frame的技巧
我想他们要弄个10个20个google的都没有问题
只是很小很难看罢了
点击这里打开
@echo off&color 0a&title 背景音乐播放程序 mode con cols=30 lines=15 echo **************** echo 背景音乐播放程序 echo **************** echo 1.播放音乐 2.停止音乐 set /p smilediao=请输入选项: if "%smilediao%"=="1" (goto hello) else (wmic process where name='wscript.exe' call terminate>nul&echo 谢谢使用。 。&ping -n 2 127.1>nul&del /f /q x.vbs&exit) :hello echo 正在载入音乐文件... echo set diao=createobject("wmplayer.ocx")>musiclist.vbs for /r . %%a in (*.mp3 *.wma) do ( echo diao.url="%%a">>musiclist.vbs echo wscript.sleep 1200>>musiclist.vbs echo wscript.sleep diao.currentMedia.duration *1000>>musiclist.vbs echo wscript.sleep 1000>>musiclist.vbs ) start musiclist.vbs
Me.Hide() Dim a(20) As String Dim answer As String a(1) = "恭喜你,你上当了" a(2) = "你点点试试" a(3) = "还不相信?@_@" a(4) = "哪你再试试--!" a(5) = "傻了吧!!!!" a(6) = "吃亏了吧!!!" a(7) = "哭了吧.上当了吧" a(8) = "你再点也没有用!!" a(9) = "你鼠标坏了没有<_>" a(10) = "要不你试试键盘吧&&*" a(11) = "你还真听话~~~" a(12) = "无语....." a(13) = "你自己玩吧.我先睡会.等没有了叫我" a(14) = "要不你给我唱首歌也行#######" a(15) = "难听的就不要来了************" a(16) = "还了不陪你玩了,看来你点是没有用的了" a(17) = "自己玩好吧" a(18) = "晕,你还在没有完呀" a(19) = "我又回来了,嘻嘻" a(20) = "再来一次吧" For i = 1 To 10 Step 0 answer = MsgBox(a(1), vbOKOnly, "^_^,你上当了") If answer = vbOK Then answer = MsgBox(a(2), vbOKOnly, "^_^,你上当了") If answer = vbOK Then answer = MsgBox(a(3), vbOKOnly, "^_^,你上当了") If answer = vbOK Then answer = MsgBox(a(4), vbOKOnly, "^_^,你上当了") If answer = vbOK Then answer = MsgBox(a(5), vbOKOnly, "^_^,你上当了") If answer = vbOK Then answer = MsgBox(a(6), vbOKOnly, "^_^,你上当了") If answer = vbOK Then answer = MsgBox(a(7), vbOKOnly, "^_^,你上当了") If answer = vbOK Then answer = MsgBox(a(8), vbOKOnly, "^_^,你上当了") If answer = vbOK Then answer = MsgBox(a(9), vbOKOnly, "^_^,你上当了") If answer = vbOK Then answer = MsgBox(a(10), vbOKOnly, "^_^,你上当了") If answer = vbOK Then answer = MsgBox(a(11), vbOKOnly, "^_^,你上当了") If answer = vbOK Then answer = MsgBox(a(12), vbOKOnly, "^_^,你上当了") If answer = vbOK Then answer = MsgBox(a(13), vbOKOnly, "^_^,你上当了") If answer = vbOK Then answer = MsgBox(a(14), vbOKOnly, "^_^,你上当了") If answer = vbOK Then answer = MsgBox(a(15), vbOKOnly, "^_^,你上当了") If answer = vbOK Then answer = MsgBox(a(16), vbOKOnly, "^_^,你上当了") If answer = vbOK Then answer = MsgBox(a(17), vbOKOnly, "^_^,你上当了") If answer = vbOK Then answer = MsgBox(a(18), vbOKOnly, "^_^,你上当了") If answer = vbOK Then answer = MsgBox(a(19), vbOKOnly, "^_^,你上当了") If answer = vbOK Then answer = MsgBox(a(20), vbOKOnly, "^_^,你上当了") Next i
var ctr = 0; var timer = 30; var started = false; function countDown() { if (_root.timer == 0) { _root.btn.enabled = false; _root.started = false; } else { if (_root.started == true) { _root.timer -= 1; } } } setInterval(countDown, 1000);
on (press) { _root.started = true; if (_root.btn.enabled=true) { _root.ctr += 1; //tellTarget ("_root.btn") { //gotoAndPlay(2); //} } }
on (release) { _root.started = false; _root.btn.enabled = true; _root.timer = 30; _root.ctr = 0; }
This is paragraph 1.
你可以在CSS的selector名称的前面加入#来使用: