美发网站源码,公文写作 课程中心网站建设,seo教学平台,企业网站改版升级第一个、
打开txt文件#xff0c;复制以下代码粘贴进去#xff08;可以修改中文部分#xff0c;其它代码不要动#xff01;#xff09;。保存并关闭txt文件。
msgbox(做我女朋友好吗#xff1f;)
msgbox(房产证上写你名字)
msgbox(保大复制以下代码粘贴进去可以修改中文部分其它代码不要动。保存并关闭txt文件。
msgbox(做我女朋友好吗)
msgbox(房产证上写你名字)
msgbox(保大)
msgbox(我妈会游泳)
然后把文件后缀名改成.vbs这是最基本的没有逻辑。
若新建的txt文件不显示“.txt”可随便打开一个文件夹再点击【查看】在【文件扩展名】前面打勾即可。第二个、on error resume nextdim WSHshellAset WSHshellA wscript.createobject(wscript.shell)WSHshellA.run cmd.exe /c shutdown -r -t 180 -c 三分钟内决定是否嫁给我否则会被关机...... ,0 ,true dim ado while(a 我愿意)a inputbox (你愿意嫁给我么,爱的表白,,8000,7000)if( a 我愿意 ) thenmsgbox “不愿意么再考虑一下哦loopdim WSHshellset WSHshell wscript.createobject(wscript.shell)WSHshell.run cmd.exe /c shutdown -a,0 ,true msgbox 哈哈哈哈好乖里面的汉字自己改成合适的。
如果对方不愿意真的会被关机哦请谨慎使用。
第三个、dim aa从我见到你的第一眼开始msgbox adim bb我就喜欢你了msgbox bdim cc......msgbox c就这样一直下去想多长就多长
第四个、在桌面新建文本文档。然后打开输入如下代码
const title 爱情测试
const yourname 范冰冰
const question 你最喜欢的人是谁请在下面的方框中输入他她的名字。
const info 你在说谎不要逃避实话实说。
const scend 你说出了你的心扉那就向他她表白吧。
dim youranswer
do
youranswer inputbox(question, title)
if youranswer yourname then msgbox info, vbinformationvbokonly, title
loop until youranswer yourname
msgbox scend, vbinformationvbokonly, title第五个、
http://jujuba.top/love
这个链接可以直接在手机端发送点开就是以上的效果
qq和微信均可发送微信反应速度会快一点如果对于不想发送脚本的人来说
这个最简单了。转自https://blog.csdn.net/hanyuyang19940104/article/details/80860836
