black_mady的个人资料

最近写了一个很牛B的页面，请各位大神鉴定。内容如下： <!DOCUTYPE html><html><head><link rel="stylesheet" type="text/css" href="css.css" /><title></title><script async type="text/javascript" src="js.js"></script></head><body><div></div></body></html> （至于css.css和js.js的内容，你就猜吧。猜对了我再告诉你。）

貌似

似乎

我死了，发帖记录一下。

有点冷清，再水一帖，99 to 100 核心记录度熊，帮你打酱油来了。

为什么俺变成了初级粉丝 RT

出个题目考考大家，看看挂不挂。当我们在某个页面点击某个Element的时候，想个办法记录下来那个被点击的Element，等下次打开那个页面的时候可以直接找到它。前提是那个页面是不可更改的。也就意味着那里面的Element不一定有ID或Name等等。（写文件或写cookie的部分不需要考虑）

好工作推荐有待业的ASP程序员，请联系我，E-mail： [email protected] 。

舍【水帖】我把百度Hi卸载了。

再水一帖（chrome logo）还是觉得这个图比较有意思。

火狐还真是老火短短的时间内从4.0到现在的8.0 记得之前还用过三点几的。而7.0还是刚刚更新。。

谁能彻底的解释一下function( window,undefined){}) (function( window,undefined){})( window,undefined); 这个，为什么要将window和undefined作为参数传给它？

开源社区开源软件源码下载工具时间有限，先来个半成品。请别介意。下面是使用方法。

用陈老汉的高亮工具帖个代码试试 'http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fwww.oschina.net%2Fcode%2Fexplore%2Fgit-1.7.3&urlrefer=9a28cb7c3bf7ede2fadbd41f536b00ee 'Author : mady 'on error resume next dim fso,root_path,root,url, document,alabels,alabel,ah,ac,thunder1 set fso= createobject( "scripting.filesystemobject") set thunder1=new Thunder downroot= "http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fwww.oschina.net%2Fcode%2Fdownload_src%3Ffile%3D&urlrefer=25c9ed86a74a4fc5ce3ffa031bdb3d38" lookroot= "http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fwww.oschina.net%2Fcode%2Fexplore%2F&urlrefer=65cc51b7b325807580408e32ad414e99" root_path=wscript.scriptfullname & "__mady__" if not fso.folderexists(root_path) then set root=fso.CreateFolder(root_path) else msgbox "文件夹已存在，请先删除！" end if url= inputbox( "请输入根目录！") call downloadFiles(root,url) call thunder1.download() function downloadFiles(folder,url) dim filelist set document = CreateDocument(url) filetree= document.getElementById( "FileTree").innerHTML document.body.innerHTML=filetree set alabels= document.getElementsByTagName( "a") for each alabel in alabels ah= replace(alabel.href, "about:", "") ac= alabel.innerHTML if ac<> "上一级" then filelist=filelist & "|" & ac & ":" & ah end if next call createListFile(folder,filelist) call createAllFolder(folder,filelist) afl= split(filelist, "|") for i=1 to ubound(afl) aafl= split(afl(i), ":") if left( trim(aafl(0)),1)<> "[" or right( trim(aafl(0)),1)<> "]" then call thunder1.addTask(downroot & replace(url & "%2F"& aafl(1),lookroot, ""),folder) end if next for each subFolder in folder.subFolders call downloadFiles(subFolder,url & replace(subFolder,folder, "")) next end function function createListFile(folder,filelist) set tfile=fso.createTextFile(folder & "\listfile__mady__.txt",true) afl= replace(filelist, "|",vbcrlf) tfile.write(afl) tfile.close() end function function createAllFolder(folder,filelist) 'on error resume next afl= split(filelist, "|") for i=1 to ubound(afl) aafl= split(afl(i), ":") if left( trim(aafl(0)),1)= "[" and right( trim(aafl(0)),1)= "]" then temp= trim(aafl(0)) temp= left(temp, len(temp)-1) temp= right(temp, len(temp)-1) createAllFolder=fso.createfolder(folder & "\" &temp) end if next end function Function CreateDocument(url) Dim document,xmlhttp,txt Set document = CreateObject( "HTMLFile") Set xmlhttp = CreateObject( "Microsoft.XMLHTTP") xmlhttp.Open "get",url,False xmlhttp.send txt = xmlhttp.responseText document.write txt Set CreateDocument = document End Function 'class of thunder download Class Thunder Public ThunderAgent Private Sub Class_Initialize() on error resume next Set ThunderAgent = CreateObject( "ThunderAgent.Agent.1") if err then err.clear msgbox "莫非你的电脑木装迅雷？" end if End Sub Private Sub Class_Terminate() on error resume next Set ThunderAgent = nothing End Sub Public Function addTask(url,path) Call ThunderAgent.AddTask(url,,path, "", "http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fbaidu.com&urlrefer=0fe59b0a4ae3f44bc6c0781df3ceaee9",1,0,5) End Function Public Function download() Call ThunderAgent.CommitTasks2(1) Set ThunderAgent = Nothing End Function End Class

我来说说，我会讲很多的。本吧很冷清，加油啊。伊诺。。。

求工具开源社区有打包下载的工具吗？还是本来就可以打包下载？

此乃求助帖请问如何做出鱼鱼桌面那样的软件。说明白点就是我想让webBrowser和form1都全透明了，但是webBrowser里面的内容是不透明的？？

请教个问题有关 JS DOM Event 如何让页面不接收任何输入设备发出的事件，所有事件也行。。

无操作系统的情况下的显示模式 int 10H 中断最高显示640×480 最多256色，如果要显示更清楚的图形，颜色更丰富，要怎么做？

Option Explicit跟split 程序中设置了Option Explicit 请问接收split函数值的变量要怎么定义？dim s()、dim s 与不定义都出错。

帮帮忙，这是怎么回事？ @次碳酸钴次姑救命。这个我写错了吗？记得以前一直是这么写的呀。。为什么VBS不接收参数？命令行跟文件拖放都没用。

第一次看见没有1楼的贴

CSS HACK 很少用，不过有时候不得不用，于是我就百度，查FF的CSS HACK ，结果很多结果里面都有上图这个。烦不胜烦，为什么这么多的垃圾信息会排到百度的首页呢？

神马情况

假如我是智障！今天有人要我给他写个阶乘函数，我这样写的，于是他哭了。 function i(_){return _<0?!1:!_?1:!(_-1)?1:_*i(_-1)};

OD OD沦落了？？以前百度一下貌似一大片下载链接地址，今儿我怎么就只看到一两个呢？？？

-_-. ueditor.baidu.com 今天看到一个网站，上面，这个网站与百度有关吗？

杯具了，我要打酱油了！昨天电脑关机，没听到熟悉的手机信息声音，好郁闷！今天一早就起来看了下。。结果就这张图了。

请教一个FLASH问题如上图，求解，红色文字部分_root.strong_msg.inf.text 明明是“正在登录，请稍候……”，为什么出现的确只有三个不连续的文字？这是 flash lite 3.0 AS2 还有一个问题就是为什么文本框用S60v5的机器上面的QQ输入法输入文字不起作用？

求助JS高手解决正则表达式问题。 javascript:var r0=/\<table[^\>]*\>/gi;var r1=/\<tr[^\>]*\>/gi;var r3=/\<colgroup\>.*\<\/colgroup\>/gi;var r4=/\<td[^\>]*height[^\>]*\>/gi;var r5=/\<td[^\>]*class[^\>]*\>/gi;var dc=document.getElementsByTagName("table")[1];var dcc=dc.outerHTML;dcc=dcc.replace(/\n/g,"");dcc=dcc.replace(r0,"\<table width=\"415\" cellspacing=\"0\" cellpadding=\"0\" border=\"0\"\>");dcc=dcc.replace(r1,"\<tr height=\"24\"\>");dcc=dcc.replace(r3,"");dcc=dcc.replace(r4,"\<td height=\"24\" width=\"250\"\>");dcc=dcc.replace(r5,"\<td\>");alert(dcc); 这个代码，在FF下改outerHTML 为innerHTML 就正常，在IE下没有任何反应，请问这是为什么。。。。

无私的奉献出我的用飞信免费发短信接口。。 'By mady(我是企鹅) Dim LoginUrl,homeUrl,url,msg,logstate phoneNum="" '手机号 pass="" '密码 loginstatus="1" '在线 msg="已登录!" '信息内容 homeUrl="http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Ff.10086.cn%2Fim%2Findex%2Findexcenter.action&urlrefer=447edf3be851303b52f4029ffbca98d5" LoginUrl="http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Ff.10086.cn%2Fim%2Flogin%2Finputpasssubmit1.action%3Floginstatus%3D&urlrefer=a7421ebb61381910a3e4012ec9681d09"& loginstatus &"&pass="& pass &"&m="& honeNum url="http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Ff.10086.cn%2Fim%2Fuser%2FsendMsgToMyselfs.action%3Fmsg%3D&urlrefer=b6ae6ee6ebcbc39b8d458aa456656cce"& msg Dim xmlhttp,xmlresult Set xmlhttp=createobject("microsoft.xmlhttp") if not sendMMStoMyself() then if login() then if not sendMMStoMyself() then msgbox "发送失败" else msgbox "发送成功" end if else msgbox "登录失败" end if else msgbox "发送成功" end if function getData(f,url,t) If f="" Then f="post" xmlhttp.open f,url,t xmlhttp.setRequestHeader "Content-Type","application/x-www-form-urlencoded;charset=gb2312" xmlhttp.setRequestHeader "cache-control","no-cache" xmlhttp.send() If t Then xmlhttp.onreadystatechange=GetRef("xmltb") Else getData=xmlhttp.responseText End If end Function function xmltb() If xmlhttp.readyState=4 Or xmlhttp.readyState="complete" then If xmlhttp.status=200 Then xmlresult=xmlhttp.responseText Else xmlresult="error contenting to server" End If End If End Function function sendMMStoMyself() sendMMStoMyself=false xmlresult=getData("",url,false) if instr(xmlresult,"发送成功")>0 Then sendMMStoMyself=true end if end function function login() login=false logstate=false xmlresult=getData("",loginUrl,false) if instr(xmlresult,"您正在登录")>0 Then login=true logstate=true end if end function function getfriend() dim f,p,tempval,temparr if not logstate then login() xmlresult=getData("",homeUrl,false) end function '希望大家能够完善其功能

求VB winsock 的p2p源码 RT

哇！是吧？（请回答是）

灌下水，可以删，有别的用途。为什么迅雷有时候下载不到明明存在的资源。

求教，用户界面问题！ 1.我是菜鸟，请问如何把自己用PS设计好的界面完整应用到VB的程序里面呢? 2.窗口类有哪些？

怎样用VB来HOOK函数？？我记得木马的隐藏有N种方法，有一种就是用系统钩子来HOOK掉任务管理器用来搜索进程的函数，然后再伪造，setWindowsHookEx 的说明到处都是，但都是用来HOOK 硬件触发事件的，从来都没找到过一个用来HOOK 函数的，谁有这方面的经验能分享一下让我学习学习呢？在下感激不尽。

超级全面的windows API ++++++++ 你有么，我没有。下了很多API手册，有的连找个setWindowsHookEx 都找不到，郁闷。谁能提供个不常用但又非常有用的一些系统DLL API说明~~~~~~。据说MSDN 。。。。。。

吧主为什么要把我的【流量监测】删了~~~~ 非常郁闷。求解

奇怪至极，求解不多说，高手自然懂，求高手解答。

第一次进来. 支持一下.... 加个问题... WSH可以调用rundll32.exe 运行dll的函数,是不是就是意味着只要dll 写得好,vbs也是无所不能的呢?想了解一下权限方面有没有问题.....