寻笨狼代码收藏集

李睿_Lee 2007-02-19 08:02:49

要看看笨狼代码收藏集里有什么好东西没有。
结果去他站点上已经无法下载了。
谁有？
狼哥呢？
给我一份，谢谢！
75913352 qq.com

...全文

525 24 打赏收藏转发到动态举报

写回复

用AI写文章

24 条回复

切换为时间正序

请发表友善的回复…

发表回复

超级大笨狼 2007-04-06

打赏
举报

www.dullwolf.cn
服务器修好了，抱歉：）

李睿_Lee 2007-03-23

打赏
举报

等到花儿也谢了。。。

龙宜坡 2007-03-21

打赏
举报

还是不行！

Jaron 2007-03-21

打赏
举报

FTP 一直是他自己管的。可能要等笨狼回来了。

李睿_Lee 2007-03-17

打赏
举报

还是下载不了：
http://superdullwolf.cnzone.net/笨狼代码收藏集.rar
什么时候能修复？

李睿_Lee 2007-03-12

打赏
举报

Jaron(WWW.JARON.CN) ( ) 信誉：338 Blog 2007-3-11 21:48:34 得分: 0

笨狼，我服务器里不是还有吗？还是原来的口令可以登录。

Jaron(WWW.JARON.CN) ( ) 信誉：338 Blog 2007-3-11 21:50:54 得分: 0

http://superdullwolf.cnzone.net/ 是这个？

________________________________________________________
是这个

lgue 2007-03-12

打赏
举报

无爱大叔 2007-03-12

打赏
举报

存成*.hta，双击即可运行。呼呼我只有一个。
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>笨狼颜色选择器</title>
<style>
body,body.*
{
font-size:12;
}
span,button,input
{
margin:2;
width:50;
border:1px solid black;
height:18;
}
A
{
color:blue;
}
</style>
<SCRIPT LANGUAGE="vbScript">
dim aaa,counter
window.resizeTo window.screen.availWidth,window.screen.availHeight
window.moveTo 0,0

function randColor()
dim re,i,ranNum
for i=1 to 3
randomize
ranNum=hex(int(255*rnd)+1)
if(len(ranNum)=1) then ranNum="0" & ranNum
re=re & ranNum
next
randColor = "#" & re
end function

sub test
'设置最多产生1000个色块。
if counter>1000 then exit sub
dim strHTML ,color
color=randColor()
strHTML="<span style='background-color:" & color & ";' onclick='vbs:getColor me' title='" & color & "'></span>"
document.body.insertAdjacentHTML "beforeEnd",strHTML
counter =counter +1
end sub

sub getColor(obj)
ipt.value=obj.title
ipt.select
choice.style.backgroundColor=obj.title
window.clipboardData.setData "Text",ipt.value
end sub

sub gogogo
aaa=window.setInterval("test","10","VBScript")
end sub

sub shutUp
window.clearInterval aaa
end sub
</SCRIPT>
</head>

<body>
<button onclick="vbs:gogogo">选美</button>
<button onclick="vbs:shutUp" >停止</button>
<button onclick="vbs:window.location.reload " >刷新</button>
<span id="choice"></span>
<input id="ipt">

<A href="http://superdullwolf.cnzone.net">超级大笨狼制作，呜呼！~~君子好色，取之有道：）...</A>

<hr/>
</body>
</html>

Jaron 2007-03-11