寻笨狼代码收藏集解决方案
日期：2014-05-17 浏览次数：21240 次
寻笨狼代码收藏集
要看看笨狼代码收藏集里有什么好东西没有。
结果去他站点上已经无法下载了。
谁有？
狼哥呢？
给我一份，谢谢！
75913352 qq.com
------解决方案--------------------
友情UP
------解决方案--------------------
我服务器坏了，年后我再弄好。
要不谁有FTP我先传上去也可以。
------解决方案--------------------
资料一共有多大?也许我能提供临时的空间,QQ83649822
------解决方案--------------------
我回头传到我的服务器上，再提供下载
但是，那个收藏集的软件，不是要授权的吗？
------解决方案--------------------
我这有一个
------解决方案--------------------
顶死人不管。
------解决方案--------------------
帮顶一下
------解决方案--------------------
笨狼，我服务器里不是还有吗？还是原来的口令可以登录。
------解决方案--------------------
http://superdullwolf.cnzone.net/ 是这个？
------解决方案--------------------
存成*.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>
------解决方案--------------------
:)
------解决方案--------------------
要看看笨狼代码收藏集里有什么好东西没有。
结果去他站点上已经无法下载了。
谁有？
狼哥呢？
给我一份，谢谢！
75913352 qq.com
------解决方案--------------------
友情UP
------解决方案--------------------
我服务器坏了，年后我再弄好。
要不谁有FTP我先传上去也可以。
------解决方案--------------------
资料一共有多大?也许我能提供临时的空间,QQ83649822
------解决方案--------------------
我回头传到我的服务器上，再提供下载
但是，那个收藏集的软件，不是要授权的吗？
------解决方案--------------------
我这有一个
------解决方案--------------------
顶死人不管。
------解决方案--------------------
帮顶一下
------解决方案--------------------
笨狼，我服务器里不是还有吗？还是原来的口令可以登录。
------解决方案--------------------
http://superdullwolf.cnzone.net/ 是这个？
------解决方案--------------------
存成*.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>
------解决方案--------------------
:)
------解决方案--------------------
免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
