vbs自动随机发送QQ、微信消息（傻瓜式）

谁适合阅读本文？

	一、希望同恋人、基友、闺蜜QQ续火花、提升关系等级的人
	二、想整蛊好友，来一波消息轰炸的人（友情提醒：拉黑警告！！）
	三、vbs初学者

傻瓜式教程

一、创建文件

在桌面新建一个文本文档

二、复制代码到文件中

直接上代码！全部copy就完事儿了

On Error Resume Next 
 
Dim wsh,s,xTimes,tle,sentenceArr,GetRandomMath 

Sub CopyString(s)
Set forms=WScript.CreateObject("forms.form.1")
Set textbox=forms.Controls.Add("forms.textbox.1").Object
With textbox
.multiline=True
.text=s
.selstart=0
.sellength=Len(.text)
.copy
End With
End Sub

sentenceArr = Array("位卑未敢忘忧国，事定犹须待阖棺。——宋·陆游《病起书怀》","晴川历历汉阳树，芳草萋萋鹦鹉洲。——唐·崔颢《黄鹤楼》","众口铄金，积毁销骨。——史记《张仪列传》","潮平两岸阔，风正一帆悬。——唐·王湾《次北固山下》","春心莫共花争发，一寸相思一寸灰。——唐·李商隐","采得百花成蜜后，为谁辛苦为谁甜。——唐·罗隐《蜂》","念天地之悠悠，独怆然而涕下。——唐·陈子昂《登幽州台歌》","不积跬步，无以至千里。——《荀子·劝学》","问姓惊初见，称名忆旧容。——唐·李益《喜见外弟又言别》","天接云涛连晓雾，星河欲转千帆舞。——宋·李清照《渔家傲》","君子之交淡如水，小人之交甘若醴。——《庄子》","相看两不厌，只有敬亭山。——唐·李白《独坐敬亭山》","僵卧孤村不自哀，尚思为国戍轮台。——宋·陆游《十一月四日风雨大作》","黯然销魂者，惟别而已矣。——南朝·江淹《别赋》","本是同根生，相煎何太急。——三国·曹植《七步诗》","穷则独善其身，达则兼济天下。——孟子《尽心上》","高岸为谷，深谷为陵。——《诗经·小雅》","万事俱备，只欠东风。——元未明初·罗贯中《三国演义》","知之者不如好之者，好之者不如乐之者。——《论语·雍也》","大鹏一日同风起，扶摇直上九万里。——唐·李白《上李邕》","水晶帘动微风起，满架蔷薇一院香。——唐·高骈《山亭夏日》","忽如一夜春风来，千树万树梨花开。——唐·岑参《白雪歌送武判官归京》","蝉噪林逾静，鸟鸣山更幽。——南朝·王籍《入若耶溪》","柴门闻狗吠，风雪夜归人。——唐·刘长卿《逢雪宿芙蓉山主人》","兼听则明，偏信则暗。——宋·司马光《资治通鉴》","路遥知马力，日久见人心。——元《无名氏》","十年磨一剑，霜刃未曾试。——唐·贾岛《剑客》","仁者见仁，智者见智。——易经《系辞上》","二十四桥仍在，波心荡，冷月无声。——宋·姜夔《扬州慢》","投我以桃，报之以李。——<诗经·大雅·抑》","举杯邀明月，对影成三人。——唐·李白《月下独酌》","尺有所短，寸有所长。——楚辞《卜居》","千里莺啼绿映红，水村山郭酒旗风。——唐·杜牧《江南春绝句》","举世皆浊我独清，众人皆醉我独醒。——屈原《渔父》","春风知别苦，不遣柳条青。——唐·李白《劳劳亭》","我劝天公重抖擞，不拘一格降人才。——清·龚自珍《己亥杂诗》","欲渡黄河冰塞川，将登太行雪满山。——唐·李白《行路难》","吾生也有涯，而知也无涯。——庄子《养生主》","人固有一死，或重于泰山，或轻于鸿毛。——《史记·报任少卿书》","读书百遍，其义自见。——西晋·陈寿《三国志》","山重水复疑无路，柳暗花明又一村。——宋·陆游《游山西村》","相顾无相识，长歌怀采薇。——唐·王绩《野望》","一骑红尘妃子笑，无人知是荔枝来。——唐·杜牧《过华清宫绝句》","多情只有春庭月，犹为离人照落花。——唐·张泌《寄人》","鞠躬尽瘁，死而后已。——三国·诸葛亮《后出师表》","生当作人杰，死亦为鬼雄。——宋·李清照《夏日绝句》","天街小雨润如酥，草色遥看近却无。——唐·韩愈《初春小雨》","云霞出海曙，梅柳渡江春。——唐·杜审言《和晋陵陆丞早春游望》","天生我材必有用，千金散尽还复来。——唐·李白《将进酒》","十年一觉扬州梦，赢得青楼薄幸名。——唐·杜牧《遣怀》","马上相逢无纸笔，凭君传语报平安。——唐·岑参《逢入京使》","失之东隅，收之桑榆。——《后汉书冯异传》","山高月小，水落石出。——宋·苏轼《后赤壁赋》","得道多助，失道寡助。——《孟子·公孙丑》","衣带渐宽终不悔，为伊消得人憔悴。——宋·柳永《凤栖梧》","王师北定中原日，家祭无忘告乃翁。——宋·陆游《示儿》","枯藤老树昏鸦，小桥流水人家，古道西风瘦马。夕阳西下，断肠人在天涯。——元·马致远《天净沙·秋思》","一张一弛，文武之道。——《礼记·杂记》","寻寻觅觅，冷冷清清，凄凄惨惨戚戚。——宋·李清照《声声慢》","人归落雁后，思发在花前。——隋·薛道衡《人日思归》","他山之石，可以攻玉。——诗经·小雅《鹤鸣》","不塞不流，不止不行。——唐·韩愈《原道》","历鉴前朝国与家，成由勤俭败由奢。——唐·李商隐","拜迎长官心欲碎，鞭挞黎庶令人悲。——唐·高适《封丘县》","博观而约取，厚积而薄发。——宋·苏轼","非淡泊无以明志，非宁静无以致远。——三国·诸葛亮《诫子书》","绳锯木断，水滴石穿。——汉书《枚乘传》","烟笼寒水月笼沙，夜泊秦淮近酒家。——唐·杜牧《泊秦淮》","近乡情更怯，不敢问来人。——唐·宋之问《渡汉江》","女娲炼石补天处，石破天惊逗秋雨。——唐·李贺《李凭箜篌引》","年年岁岁花相似，岁岁年年人不同。——唐·刘希夷","其身正，不令而行；其身不正，虽令不从。——《论语·子路》","手如柔荑，肤如凝脂。——《诗经·卫风·硕人》","人面不知何处去，桃花依旧笑春风。——唐·崔护《题都城南庄》","曲径通幽处，禅房花木深。——唐·常建《题破山寺后禅院》","人有悲欢离合，月有阴晴圆缺。——宋·苏轼《水调歌头》","花自飘零水自流，一种相思，两处闲愁。——宋·李清照·如梦令》","他人有心，予忖度之。——诗经《小雅》","两岸猿声啼不住，轻舟已过万重山。——唐·李白《早发白帝城》","纸上得来终觉浅，绝知此事要躬行。——宋·陆游《冬夜读书示子聿》","其曲弥高，其和弥寡。——宋玉《对楚王问》","若待上林花似锦，出门俱是看花人。——唐·杨巨源《城东早春》","知之为知之，不知为不知，是知也。——《论语·为政》","黑发不知勤学早，白首方悔读书迟。——唐·颜真卿","乱花渐欲迷人眼，浅草才能没马蹄。——唐·白居易《钱塘湖春行》","多情自古伤离别，更那堪冷落清秋节。——宋·柳永《雨霖铃》","试玉要烧三日满，辨材须待七年期。——唐·白居易《放言》","春潮带雨晚来急，野渡无人舟自横。——唐·韦应物《滁州西涧》","富贵不能淫，贫贱不能移，威武不能屈。——孟子《滕文公》","君不见黄河之水天上来，奔流到海不复回。——唐·李白《将进酒》","巧笑倩兮，美目盼兮。——诗经·卫风《硕人》","鉴前世之兴衰，考当今之得失。——宋·司马光《资治通鉴》","雪消门外千山绿，花发江边二月晴。——宋《欧阳修》","池塘生春草，园柳变鸣禽。——南朝·谢灵运《登池上楼》","勿以恶小而为之，勿以善小而不为。——《三国·刘备》","只要功夫深，铁杵磨成针。——元《虞韶》","字字看来都是血，十年辛苦不寻常。——清·曹雪芹《红楼梦》","山不在高，有仙则名；水不在深，有龙则灵。——唐·刘禹锡《陋室铭》","使老有所终，壮有所用，幼有所长，鳏寡孤独废疾者皆有所养。——《礼记·礼运》","师者，所以传道受业解惑也。——唐·韩愈《师说》","民为贵，社稷次之，君为轻。——孟子《尽心上》","停车坐爱枫林晚，霜叶红于二月花。(www.lz.cn)——唐·杜牧《山行》","有情芍药含春泪，无力蔷薇卧晓枝。——宋·秦观《春日》","物是人非事事休，欲语泪先流。——宋·李清照《五陵春》","金玉其外，败絮其中。——明·刘基《卖柑者言》","大道之行，天下为公。——《礼记·礼运》","两岸青山相对出，孤帆一片日边来。——唐·李白《望天门山》","但愿人长久，千里共婵娟。——宋·苏轼《水调歌头》","螳螂捕蝉，黄雀在后。——《吴越春秋》","春城无处不飞花，寒食东风御柳斜。——唐·韩翃《寒食》","有志者，事竟成。——后汉书《耿弇传》","青女素娥俱耐冷，月中霜里斗婵娟。——唐·李商隐《霜月》","良辰美景奈何天，赏心乐事谁家院。——明·汤显祖《牡丹亭》","今夜偏知春气暖，虫声新透绿窗纱。——唐·刘方平《月夜》","相见时难别亦难，东风无力百花残。——唐·李商隐《无题》","燕山雪花大如席，片片吹落轩辕台。——唐·李白《北风行》","一叶浮萍归大海，人生何处不相逢。——明·吴承恩《西游记》","竹外桃花三两枝，春江水暖鸭先知。——宋·苏轼《惠崇春江晚景》","天阶夜色凉如水，卧看牵牛织女星。——唐·杜牧《秋夕》","桑柘影斜春社散，家家扶得醉人归。——唐·王驾《社日》","小楼一夜听风雨，深巷明朝卖杏花。——宋·陆游《临安春雨初霁》","予独爱莲之出污泥而不染，濯清涟而不妖。——宋·周敦颐《爱莲说》","无可奈何花落去，似曾相识燕归来。——宋·晏殊《浣溪沙》","恸哭六军俱缟素，冲冠一怒为红颜。——清·吴伟业《圆圆曲》","水至清则无鱼，人至察则无徒。——汉书《东方朔传》","此地一为别，孤蓬万里征。——唐·李白《送友人》","非学无以广才，非志无以成学。——三国·诸葛亮《诫子书》","春江潮水连海平，海上明月共潮生。——唐·张若虚《春江花月夜》","老吾老，以及人之老；幼吾幼，以及人之幼。——孟子《梁惠王下》","兴酣落笔摇五岳，诗成笑傲凌沧海。——唐·李白《江上吟》","今夜偏知春意暖，虫声新透绿窗纱。——唐·刘方平《夜月》","一日不见，如三秋兮。——《诗经·王风采葛》","纵使晴明无雨色，入云深处亦沾衣。——唐·张旭《山中留客》","智者千虑，必有一失；愚者千虑，必有一得。——史记《淮阴侯列传》","月上柳梢头，人约黄昏后。——宋·朱淑真《生查子》","如切如磋，如琢如磨。——《诗经·卫风·淇奥》","停杯投箸不能食，拔剑四顾心茫然。——唐·李白《行路难》","管中窥豹，时见一斑。——晋书《王献之传》","借问酒家何处有，牧童遥指杏花村。——唐·杜牧《清明》","物以类聚，人以群分。——易经《系辞上》","人逢喜事精神爽，月到中秋分外明。——明·冯梦龙《古今小说》","此夜曲中闻折柳，何人不起故园情。——唐·李白《春夜洛城闻笛》","受任于败军之际，奉命于危难之间。——三国·诸葛亮《出师表》","独学而无友，则孤陋而寡闻。——《礼记·杂记》","晓来谁染霜林醉？总是离人泪。——元·王实甫《西厢记》","生于忧患，死于安乐。——孟子《告子下》","祸患常积于忽微，而智勇多困于所溺。——宋·欧阳修《伶官传序》","日出江花红胜火，春来江水绿如蓝。——唐·白居易《忆江南》","昆山玉碎凤凰叫，芙蓉泣露香兰笑。——唐·李贺《李凭箜篌引》","运筹帷幄之中，决胜千里之外。——史记《高祖本纪》","青青子衿，悠悠我心。——诗经·郑风《子衿》","精诚所至，金石为开。——后汉书《广陵思王荆传》","燕雀安知鸿鹄之志哉。——史记《陈涉世家》","仰天大笑出门去，我辈岂是蓬蒿人。——唐·李白《南陵别儿童入京》","谈笑有鸿儒，往来无白丁。——唐·刘禹锡《陋室铭》","关关雎鸠，在河之洲。窈窕淑女，君子好逑。——《诗经·周南关雎》","余将董道而不豫兮，固将重昏而终身。——屈原《涉江》","抽刀断水水更流，举杯消愁愁更愁。——唐·李白《宣州谢朓饯别校书叔云》","苟余心之端直兮，虽僻远其何伤？——屈原《涉江》","由俭入奢易，由奢入俭难。——宋·司马光《训俭示康》","失之毫厘，谬以千里。——《史记·太史公自序》","曾经沧海难为水，除却巫山不是云。——唐·元稹《离思》","亦余心之所善兮，虽九死其犹未悔。——屈原《离骚》","几处早莺争暖树，谁家新燕啄春泥。——唐·白居易《钱塘湖春行》","不识庐山真面目，只缘身在此山中。宋·苏轼《题西林壁》","文章本天成，妙手偶得之。——宋·陆游《文章》","吾不能变心以从俗兮，故将愁苦而终穷。——屈原《涉江》","天长地久有时尽，此恨绵绵无绝期。——唐·白居易《长恨歌》","着意栽花花不发，无意插柳柳成阴。——元·关汉卿","醉卧沙场君莫笑，古来征战几人回！——唐·王翰《凉州词》","花径不曾缘客扫，蓬门今始为君开。——唐·杜甫《客至》","国以民为本，民以食为天。——西晋·陈寿《三国志》","落霞与孤鹜齐飞，秋水共长天一色。——唐·王勃《滕王阁序》","疾风知劲草，板荡识诚臣。——唐太宗《赠萧禹》","知我者，谓我心忧，不知我者，谓我何求。——《诗经·王风·黍离》","三十功名尘与土，八千里路云和月。——宋·岳飞《满江红》","删繁就简三秋树，领异标新二月花。——清《郑板桥》","问君能有几多愁，恰似一江春水向东流。——五代·李煜《虞美人》","山随平野尽，江入大荒流。——唐·李白《渡荆门送别》","秋风吹不尽，总是玉关情。——唐·李白《子夜吴歌》","锲而不舍，金石可镂。——《荀子·劝学》","莫道不销魂，帘卷西风，人比黄花瘦。——宋·李清照《醉花阴》","少小离家老大回，乡音未改鬓毛衰。——唐·贺知章《回乡偶书》","大江东去，浪淘尽，千古风流人物。——宋·苏轼《念奴娇·赤壁之战》","登山则情满于山，观海则意溢于海。——南朝·刘勰《文心雕龙》","今宵酒醒何处，杨柳岸晓风残月。——宋·柳永《雨霖铃》","有缘千里来相会，无缘对面不相逢。——元未明初·施耐庵《水浒传》","两情若是久长时，又岂在朝朝暮暮。——宋·秦观《鹊桥仙》","少壮不努力，老大徒伤悲。——汉乐府《长歌行》","青，取之于蓝，而青于蓝。——荀子《劝学》","今夜月明人尽望，不知愁思落谁家。——唐·王建《十五夜望月》","夜阑卧听风吹雨，铁马冰河入梦来。——宋·陆游《十一月四日风雨大作》","同声相应，同气相求。——易经《乾》","忠言逆耳利于行，良药苦口利于病。——史记《留侯世家》","所谓伊人，在水一方。——诗经·秦风《蒹葭》","疏影横斜水清浅，暗香浮动月黄昏。——宋·林逋《山园小梅》","文章合为时而着，歌诗合为事而作。——唐·白居易《与元九书》","海阔凭鱼跃，天高任鸟飞。——唐·僧《云览》","山高自有客行路，水深自有渡船人。——明·吴承恩《西游记》","庄生晓梦迷蝴蝶，望帝春心托杜鹃。——唐·李商隐《锦瑟》")
set wsh=createobject("wscript.shell") 
'xTimes = inputbox("please input iter")
Randomize
GetRandomMath = Int((201 * Rnd) + 0)

iter = GetRandomMath

'clipboardData.SetData s
 
for i=1 to 5
wscript.sleep 30
wsh.AppActivate("张三")
CopyString("【今日佳句】"+sentenceArr(iter))
wsh.sendKeys "^v"
wsh.sendKeys "%s" 
next 
 
wscript.quit

copy完后，你应当对代码一下部分进行修改。

改好后，就可以将文件保存并关闭了。

三、更改文件后缀名

由于你创建的文件是文本文档类型文件，即后缀名为.txt，现在你应当将其改为.vbs，这样文件才能被当作程序执行。我的电脑是win10，改完后缀名后会警告说”可能导致文件不可用“，不用在意，直接确定，完事儿后我的文件图标就长这样了。
（ps：如果你没看到你的文件的后缀名，应该是被隐藏了，请百度显示方法）

四、运行程序

首先，你得打开要发送消息的聊天窗口，请确保该窗口的标题名称和你程序文件中修改的名称一致，然后鼠标点击聊天窗口输入栏。

然后，双击程序文件即可自动发送消息啦（此时请不要将聊天窗口关闭或最小化），发送的效果我就不演示了，我怕张三把我拉黑[手动狗头]，发送的内容为程序文件中存好的两百首古诗词句之一（随机），若你希望自定义内容，可自行替换。

好了，以上就是关于vbs自动随机发送QQ、微信消息的全部内容，内容简单，但制作不易，感谢阅读~