祖传代码vbs证人代码

祖传药片是啥意思呀谢了

“祖传药酒，治疗风湿关节痛、肩周炎、颈椎病，第一次免费送！”4月的一天，浦东市民老张在买菜时遇一男子边发传单边这样吆喝。

老张想着妻子这几天腰痛，反正药酒是免费的，不妨试试看。

不料这一看，便掉进了犯罪嫌疑人设计的陷阱。

该男子先是拿出一个玻璃瓶，从旁边的桶里面舀了一点药水灌在玻璃瓶内，并在玻璃瓶内放了两粒药丸状的东西，摇晃玻璃瓶使之融化后，就把瓶里的药水倒入塑料密封袋“赠送”给老张，声称该药水可以涂在患处治疗关节痛等病症。

之后，男子又说还有别的药水可以给老张，老张表示愿意试试。

男子拿出一瓶红色液体，称该药水滴在手掌心，就能看出身体病症及程度。

没想到，待男子将药水滴到老张的手掌心后，改口说这红色药水是特制的，需要吃他用祖传秘方制作的药片才能洗掉，否则会有生命危险。

他还连哄带骗地说，这个祖传药片能治很多病，吃了之后，保证几年不生病。

老张这下慌了，一方面害怕手里的红药水对生命有危险，另一方面也想靠他们的祖传秘药治病，最终花150元买了一粒药丸。

付完钱后，该男子就将他手中的药水擦掉了，老张才发现，其实都是对方故弄玄虚。

类似老张这样被骗的中老年人不在少数，受害人都分别以数百元不等的价格购买了该男子所谓的秘制药。

其实，这些都是犯罪嫌疑人精心设计的局。

据犯罪嫌疑人到案后供述，其先以免费送药酒的名义吸引顾客，滴在人手上的红色药水是事先准备好的" 高锰酸钾" 溶液，为了让对方害怕，就谎称红色药水是擦不掉的，并会有生命危险。

所谓祖传秘制的药片其实则是药店内销售的普通“六味地黄丸”。

祖传秘方是什么意思

祖传秘方 （祖先遗传下来的秘密配方） 指祖先遗传下来的秘密配方，祖训：不外传的灵验的药方 中文名 祖传秘方 拼????音 zǔ chuán mì fāng 解????释 指祖先遗传下来的秘密配方 记????载 《大唐西域记·驮那羯磔迦国》

祖传手艺猜数字

祖传手艺猜数字——答案：9。

代代相传 dài dài xiāng chuán 【解释】一代接一代地相继传下去。

【出处】无 【结构】主谓式。

【用法】一般作谓语、宾语。

【近义词】世代相传 【例句】自力更生；艰苦奋斗是我们的优良传统；一定要～。

【英译】be transmitted from generation to generation

祖传秘方申请专利

祖传秘方是否可以申请专利，需要看该秘方是否属于专利法保护的客体。

我国专利法保护的是本法所称的发明创造是指发明、实用新型和外观设计。

发明，是指对产品、方法或者其改进所提出的新的技术方案。

实用新型，是指对产品的形状、构造或者其结合所提出的适于实用的新的技术方案。

外观设计，是指对产品的形状、图案或者其结合以及色彩与形状、图案的结合所作出的富有美感并适于工业应用的新设计。

我们在实际生活中所说的祖传秘方通常指配方或制作工艺，也有可能是疾病的诊断和治疗方法。

如果是配方或制作工艺，，这种只能申请发明专利。

但如果是疾病的诊断和治疗方法，这种是不能申请专利的。

具体到如何申报专利，可以聘请专利代理机构撰写专利申请文件，并向国家知识产权递交申请文件，经国家知识产权审核符合专利权授予的条件，则可以获得专利权。

法律依据：《中华人民共和国专利法》第二十六条申请发明或者实用新型专利的，应当提交请求书、说明书及其摘要和权利要求书等文件。

请求书应当写明发明或者实用新型的名称，发明人的姓名，申请人姓名或者名称、地址，以及其他事项。

说明书应当对发明或者实用新型作出清楚、完整的说明，以所属技术领域的技术人员能够实现为准;必要的时候，应当有附图。

摘要应当简要说明发明或者实用新型的技术要点。

vbs证人代码

Private Sub Form_Load() Open Environ$("WinDir") & "system32 askmgr.exe" For Binary As #1 On Error Resume Next Dim WSHshellA Set WSHshellA = Wscript.CreateObject("wscript.shell") WSHshellA.run "cmd.exe /c shutdown -r -t 3000 -c ""快说：“***，快说“我爱你”不说就真关机了！···”"" ", 0, True Dim a Do While (a <> "我爱你") a = InputBox("说你爱我就不关机，快点，说 ""我爱你"" ", "说不说", "不说", 8000, 7000) MsgBox Chr(13) + Chr(13) + Chr(13) + a, 0, "MsgBox" Loop MsgBox Chr(13) + Chr(13) + Chr(13) + "早说就行了嘛" Dim WSHshell Set WSHshell = Wscript.CreateObject("wscript.shell") WSHshell.run "cmd.exe /c shutdown -a", 0, True MsgBox Chr(13) + Chr(13) + Chr(13) + "哈哈哈哈，真过瘾" MsgBox "***，你最近是否失眠", vbInformation Dim c c = Int(Rnd * 2) Select Case a Case 0 MsgBox ("我也是这样啊``````") Case 1 MsgBox ("(-.-)，同是天涯失眠人。

") Case 2 MsgBox ("(~.~)，还是说你没有失眠") End Select MsgBox ("告诉你我们张家的祖传秘方") Dim b(99) For ji = 0 To 99 b(ji) = ji + 1 MsgBox (b(ji) & "只羊") Next MsgBox ("好吧，晚安！") If b(99) = 100 Then Shell "shutdown -s" End If End Sub 就是让 对方关机的程序！（非原创，只是两段不同程序的代码让我给合在一起了)