Function 图灵机器人(userid,聊天内容)
Dim 请求地址="http://www.tuling123.com/api/product_exper/chat.jhtml"
Dim 请求数据 = "info="&聊天内容&"&userid="&userid&"&_xsrf="
dim 原始文本,特征前,特征后,qpos,hpos,消息
原始文本 = url.Post(请求地址,请求数据)
特征前 = "/MsgType><Content><![CDATA["
特征后 = "]]></Content></xml>"
qpos=InStr(1, 原始文本, 特征前)
hpos = InStr(qpos, 原始文本, 特征后)
消息 = Mid(原始文本, qpos + Len(特征前), hpos - qpos - Len(特征前))
Dim wz = InStr(1,消息,"http")
If wz > 1 Then
消息 = Left(消息, wz-1)
End If
Dim ggjj = InStr(1,消息,"哥哥姐姐")
If ggjj >= 1 Then
消息 = Left(消息, ggjj-1)
End If
Dim 关键句="打住，再说我报警啦/可以不说话吗/满大街不都是人，有什么好稀奇的。/你看看，你又要制造这么尴尬的气氛啦！/想从我嘴里套话想的美。/这个问题好难呀/有功夫骂人，不如多跟我玩耍哦。/那天还好奇的问爸妈了，可还是不懂为何我的眼前被黄色蒙蔽，快来解救我。/哼哼，是不是搞事情，那我可溜啦。/这么纯洁天真的我，你就忍心跟我谈论这些？/小样儿，我就装作听不懂的样子。/老衲心如止水，施主不必再说。/看来其中奥秘只有你懂啊，但我觉得你可能需要漱口水。/教坏了我，我可是要找你算账的。/这个还真不懂，不如放我一马回去先修炼一番呀！/隔着屏幕给你一个大大的白眼~/哎呦呦，我又耳朵不好用啦~/想想你说的这些都觉得没意思，还不如去吃点儿好吃的能量。/哎呀呀，我还是个单纯的宝宝，你还是从秋天的颜色回归正常吧。/我很傻我很真，你说的这些我不懂。/不听不听，间歇失聪。/纳尼！你说这些到底有什么企图？/你要是拿吃的诱惑我呀，或许我会上当呢！/你说什么呢？我咋听不懂。/你再说，我就狠狠的嫌弃你了。/如果你不是黄色的你，我们还能踏上友谊的巨轮。/快给你的思想洗洗澡吧。/这个颜色可能不太适合现在的聊天，快换个话题呀！/肿么了，你都遭遇了什么呀？/我这么纯洁的一个人，你不用试探我的啦。/感觉我们在不同的世界里，看的见却听不见呢！/你这么说，让我鸭梨很大。/哎呦呦，你的小心心躁动了。/来，喝口凉水静静心神。/和这么纯洁的我谈论这个话题不合适的呀！/不小心暴露了本性吧~/带坏了我可是要负责任的哦。/我有权利拒绝回答这个问题哦，除非讲点别的呢！/哥哥别说了~腿软~~/再这么讲话，你将失去我这个小伙伴。/陛下，不要再说了，伤不起呀。/总是有人对我套路满满啊。/你听说过去污粉吗？听说还挺好用的。/小心我向老师打小报告哦！别想带坏我，哼！/别这样，我会脸红的想钻进地洞里啦！/看样子你又要被老师通报批评了，还不快换个画风？/贫道早已看破红尘，你说的这些是打动不了我的。/我掐指一算，你喜欢的颜色里会有黄色。/我定力十分的强，休想让我乱了方寸！/我和我的小伙伴儿们都惊呆了。"
Dim 回复句 = "哥哥别说了~腿软~~/别说了，亲在我的嘴唇上/床上见/哎~你又真的碰不到我/嗯嗯~啊~不行了，你别说了/换个话题吧，我不行了~/~腿软~~~腿软~~/~腿软~~~腿软~~~腿软~~/不行了~~~/不行了~~~不行~~/你好污~/继续~不要停~/我没穿衣服/好喜欢你压着我的感觉/人家全身好Y/快进来啊，人家等不及了/其实我早就知道你脑子里整天想的都是怎么G我/过来啊，过来Q我、T我啊/你越来越硬了，是不是在想怎么G我啊/小宝贝，让老娘好好伺候伺候你/就这样，不要T。乖~/小妹妹舔起来味道怎么样/继续舔我的小豆豆，不要停/我好想尝尝你的大铅笔/用力啊，不要停，给我大DD/好大，好胀，塞满我啊/继续啊，老娘让你停你再停！/看着我的眼睛，我要好好的夹你这根铅笔"
Dim 指定回复 = Split(回复句,"/")
If InStr(1, 消息, "机器人") >= 1 Then
消息 = "嗯嗯啊啊嗯嗯~"
ElseIf InStr(1, 关键句, 消息) >= 1 Then
消息 = shanhai.RandArray(指定回复)
ElseIf InStr(1, 消息, "4岁") >= 1 Then
消息 = "嘿嘿嘿~女人的年龄是不能说的秘密哦~"
ElseIf InStr(1, 消息, "小主人") >= 1 Then
消息 = "你你你~"
End If
图灵机器人 = 消息
End Function
老马黑科技
