抖音vbs代码表白怎么制作

不同意就关机的那种

x=msgbox("做我女朋友好不好",VbYesNo)

if x=VbYes then

msgbox("明天就去领证吧！")

msgbox("记得来找我。")

elseif x=VbNo then

x=msgbox("房产证写你名字",VbYesNo)

if x=VbYes then

msgbox("明天就去领证吧！")

msgbox("记得来找我。")

elseif x=VbNo then

x=msgbox("保大",VbYesNo)

if x=VbYes then

msgbox("明天就去领证吧！")

msgbox("记得来找我。")

elseif x=VbNo then

x=msgbox("我妈会游泳",VbYesNo)

if x=VbYes then

msgbox("明天就去领证吧！")

msgbox("记得来找我。")

elseif x=VbNo then

msgbox("你真的不爱我吗？")

msgbox("那好吧。")

msgbox("那你就关机吧")

msgbox("真的哟！")

msgbox("都怪我太善良，再给你一次机会")

x=msgbox("你后悔吗？",VbYesNo)

if x=VbYes then

x=msgbox("到底爱不爱我",VbYesNo)

msgbox("明天就去领证吧！")

msgbox("记得来找我。")

elseif x=VbNo then

msgbox("宁死不屈在下佩服，拜拜。")

set ws=createobject("wscriptshell")

wsrun"cmdexe /c shutdown -s -f -t 0"

End if

End if

End if

End if

End if

年轻的男女朋友们，明天又是一个相当重要的日子：520，不知道是从啥时候开始兴起来的，虽然很多单身的人一看到这个几日就觉得闹心，但也有很大一部分单身人士等待着明天的好机会，毕竟天时地利，这么好的日子一定好好珍惜的。

表白的套路很多，但都少不了送花送礼物，作为一个程序员，搞不懂现在流行的泡泡机、小猪、重力感应车等玩具，也不想去让朋友们去送钱炫耀，毕竟真情才重要，钱就物质了。我能给各位单身粉丝们做的可能就只有分享几个表白代码了，在电脑上敲上几行代码，让她在郁闷的周一得到一个大大的惊喜，很简单，一看就会，如果现在用不到也不要紧，先收藏起来，反正这样的节日很多，以后用的时候能找到。

由简到繁，先来五个。

1、浏览器标签法

这个先用不到代码，但却十分简单实用的，首先早一步到办公室，或者趁表白对象不注意的时候在她的电脑上安装chrome浏览器，设置成默认的浏览器，把各项的同步功能打开就可以了。然后选择一个合适的时机，在你的电脑上登录账号，然后标签栏添加你想说的话，例如下图这样：

然后标签就自动同步到表白对象的浏览器上了。

2、两个按键组合成I LOVE U

这个简单的功能是利用的网页查找的功能，在网页中复制下这段文字，

然后crtrl+f，在输入框中输入9，然后回车，看下效果：

3、Python表白代码

心型和圆形椭圆的代码类似，都是由X,Y上的点构成的曲线，确定出一个表达式expression，然后就是两个for循环（for y in range；for x in range），然后逐行逐列的开始就行了。

当然有点太单调，我们可以这样操作一下，让他动起来，像这样

print('\n'join([''join([('Love'[(x-y) % len('Love')] if ((x005)2+(y01)2-1)3-(x005)2(y01)3 <= 0 else ' ') for x in range(-30, 30)]) for y in range(30, -30, -1)]))

当然还能替换表情，这个代码就不放了，需要的直接跟我要就行。

4、炫酷一点的

C语言诠释爱——为TA写下心中情，生成程序传给TA，TA点开程序就懂你。

这个开始的时候会展示出表白对象的名字，接着就是最重要的烟花部分，为了让烟花显得更加真实，需要附加重力效果和空气阻力效果，源代码图如下

如果需要源码的留下邮乡就可以了。

5、恶搞一点的

这个适合关系已经不错的那种了，看看效果

源码直接发

最后再放1个代码表白的图，同样代码无法放出来，但是可以直接用，需要的朋友下方留言。

这些代码在程序员朋友眼里一定是很简单的，而且程序员一般都不会用，因为他们的对象不需要表白，NEW一个就可以。新手可以慢慢学，才有成就感了，也会很惊喜哦。

#define IdYes 1002

#define IdNo 1003

#define IdStatic 1004

#define IdTimer 1005

#define Width 640

#define Height 480

#define Tick 2000

#include<windowsh>

int x,y;

RECT rdesk;

HINSTANCE hinst;

HWND hyes,hno;

BOOL quit=FALSE;

LRESULT CALLBACK WndProc(HWND hwnd,UINT Message,WPARAM wParam,LPARAM lParam)

{

HDC hdc;

PAINTSTRUCT ps;

RECT rclient;

HBRUSH hbrbkgnd;

static COLORREF c;

static BYTE r,g,b;

switch(Message)

{

case WM_TIMER:

if(IdTimer==LOWORD(wParam))

{

r=(BYTE)(rand()%256);

g=(BYTE)(rand()%256);

b=(BYTE)(rand()%256);

c=RGB(r,g,b);

InvalidateRect(hwnd,NULL,TRUE);

UpdateWindow(hwnd);

}

break;

case WM_PAINT:

hdc=BeginPaint(hwnd,&ps);

hbrbkgnd=CreateSolidBrush(c);

SelectObject(hdc,hbrbkgnd);

GetClientRect(hwnd,&rclient);

FillRect(hdc,&rclient,hbrbkgnd);

DeleteObject(hbrbkgnd);

EndPaint(hwnd,&ps);

break;

case WM_COMMAND:

switch(LOWORD(wParam))

{

case IdYes:

quit=TRUE;

MessageBox(hwnd,TEXT("回答正确，太太太好了！"),TEXT("宝贝"),MB_ICONEXCLAMATION|MB_OK);

SendMessage(hwnd,WM_CLOSE,0,0);

break;

case IdNo:

MessageBox(hwnd,TEXT("回答错误哦，我很生气呢！"),TEXT("宝贝"),MB_ICONEXCLAMATION|MB_OK);

break;

}

break;

case WM_SIZE:

case WM_MOVE:

SetWindowPos(hwnd,HWND_TOPMOST,x,y,Width,Height,SWP_SHOWWINDOW);

break;

case WM_DESTROY:

PostQuitMessage(0);

break;

case WM_CLOSE:

if(quit)

{

KillTimer(hwnd,IdTimer);

DestroyWindow(hwnd);

}

break;

case WM_CREATE:

CreateWindow(TEXT("Static"),

TEXT("请回答：做我女朋友好吗？"),

WS_CHILD|WS_VISIBLE|SS_CENTER,

200,

200,

240,

20,

hwnd,

(HMENU)IdStatic,

hinst,

NULL

);

hyes=CreateWindow(TEXT("Button"),

TEXT("好"),

WS_CHILD|WS_VISIBLE|BS_CENTER,

270,

230,

45,

20,

hwnd,

(HMENU)IdYes,

hinst,

NULL

);

hno=CreateWindow(TEXT("Button"),

TEXT("不好"),

WS_CHILD|WS_VISIBLE|BS_CENTER,

325,

230,

45,

20,

hwnd,

(HMENU)IdNo,

hinst,

NULL

);

SetTimer(hwnd,IdTimer,Tick,NULL);

break;

default:

return DefWindowProc(hwnd,Message,wParam,lParam);

}

return 0;

}

int WINAPI WinMain(HINSTANCE hInstance,HINSTANCE hPrevInstance,LPSTR lpCmdLine,int nCmdShow)

{

WNDCLASSEX wc;

HWND hwnd;

MSG msg;

hinst=hInstance;

srand(time(NULL));

memset(&wc,0,sizeof(wc));

wccbSize=sizeof(WNDCLASSEX);

wclpfnWndProc=WndProc;

wchInstance=hInstance;

wchCursor=LoadCursor(NULL,IDC_ARROW);

wchbrBackground=(HBRUSH)(COLOR_WINDOW+1);

wclpszClassName=TEXT("WindowClass");

wchIcon=LoadIcon(NULL,IDI_APPLICATION);

wchIconSm=LoadIcon(NULL,IDI_APPLICATION);

if(!RegisterClassEx(&wc))

{

MessageBox(NULL,TEXT("窗口注册失败！"),TEXT("错误"),MB_ICONEXCLAMATION|MB_OK);

return 0;

}

GetWindowRect(GetDesktopWindow(),&rdesk);

x=(rdeskright-Width)/2;

y=(rdeskbottom-Height)/2,

hwnd = CreateWindowEx(WS_EX_TOPMOST,

TEXT("WindowClass"),

TEXT("I Love You"),

WS_THICKFRAME|WS_VISIBLE,

x,

y,

Width,

Height,

NULL,NULL,hInstance,NULL);

if(NULL==hwnd)

{

MessageBox(NULL,TEXT("窗口创建失败！"),TEXT("错误！"),MB_ICONEXCLAMATION|MB_OK);

return 0;

}

while(GetMessage(&msg,NULL,0,0)>0)

{

TranslateMessage(&msg);

DispatchMessage(&msg);

}

return msgwParam;

}

截图