创建文件夹怎么弄爱情表白码

第一步在系统桌面右键新建一个文本文档

新建完成后可以修改文件名为自己喜欢的名称

修改后按下回车键，并双击运行它

复制下面的代码，粘贴上去

msgbox("我喜欢你！")

msgbox("我喜欢你很久了")

msgbox("做我女朋友吧！")

5每一行代码引号内的文本可以自己任意修改成自己喜欢的内容，还可以继续添加下去

6修改完成后一次点击 文件>保存 

7最后一步右键重命名，将后缀名改成 vbs 按下回车键，现在可以把它发给你喜欢的人啦！

记不记得上一期给大家推荐的

抖音表白神器

如果忘记了或没收到

赶紧点击关注我们公众号

那么多福利还不关注等过年？

这么强大的表白神器

是不是很神奇很是神奇？

是不是想知道怎么做的？

既然你诚心诚意的发问了

我就大发慈悲的告诉你

不不不，搞错了！

表白代码制作教程

不传外人

以后我们就是一家人了

步骤1

在电脑桌面用鼠标右键单击新建一个txt文档。

步骤2

输入代码：

msgbox("做我女朋友好吗？")

msgbox("我有车有楼有翻狗")

步骤3

鼠标左键点击文本左上角文件，再点击另存为，

文件名改成：XXXvbs，保存类型改为：所有文件，然后点击确定。

步骤4

点击确定后，完成制作，电脑桌面上会显示一个vbs文件。

步骤5

鼠标左键双击打开vbs文件，就会像抖音里面一样的啦。

据说程序员都有病还病得不轻得了一种叫做“编程快乐”的疾病你有没有感受到“编程快乐”？

征服的成就感：每天打开电脑，调出各种软件，“手指在命令行间驰骋，思绪在浏览器上飞奔”。

没有做不到，只有想不到。

每次解决一个难题，想出一个巧妙算法，攻克一个Bug，那“一键在手，天下我有”的征服感也是没谁了，简直happy得不要不要的。

绝对比考试拿一百分欢喜十倍，还不止。

赠品：

附上抖音里面比较火的代码：

msgbox("做我女朋友好吗？")

msgbox("房产证写你名字")

msgbox("保大")

msgbox("我妈会游泳")

x=msgbox("做我女朋友好不好"，VbOkCancel)

if x=VbOk then

msgbox("爱你，么么哒")

elseif x=VbCancel then

msgbox("哼，再见")

set ws=createobject("wshell")

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

end if

制作使用的方法跟刚才表白示例是一样的

你这么说就已经说明你有代码了，我就不讲了。

首先，右键桌面，新建文本文档

然后，点击文本文档里的“文件”（左上角）单击另存为，把名字加上后缀“vbs”

例：新建文档 =》 新建文档vbs

接着，你的桌面上会出现一个蓝色的图标，右键它，点开编辑，把你的代码复制到里面去，保存

最后双击它就行了

Const

Title

=

"爱情测试"

Const

Question

=

"你最喜欢的人是谁

请在下面方框中输入他(她)的名字"

Const

Info

=

"你说出你的心声,

那就向他(她)表白吧"

Const

YourName

=

"张三"

Dim

YourAnswer

Do

YourAnswer=inputbox(Question,

Title)

if

YourAnswer

<>

YourName

then

Msgbox

Info,

VBInformation

+

VBOKOnly,

Title

End

if

Loop

Until

YourAnswer

=

YourName

Msgbox

YourName

&

"我爱你!",

VBInformation

+

VBOKOnly,

Title

REM

此行为注释,

不用复制

你的代码中的(最后一行)

scend

的内容是什么

#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;

}

截图

最近，抖音DJ上流行起了许多表白的套路，最有意思的就是DJ抖音网表白代码了。那抖音上的表白代码有哪些_怎么弄呢？下面来具体了解下DJ抖音网表白代码设置生成方法吧。

抖音表白代码怎么设置

方法一

msgbox("做我女朋友好吗")

msgbox("房产证写你名字")

msgbox("保大")

msgbox("我妈会游泳")

x=msgbox("做我女朋友好不好"，VbOkCancel)

if x=VbOk then

msgbox("爱你，么么哒")

elseif x=VbCancel then

msgbox("哼，再见")

set ws=createobject("wscriptshell")

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

end if

使用方法：将第一段示例或者第二段示例复制到一个新建的文本文档中，保存。然后修改文本文档的后缀为vbs，如果会弹出如下面的弹窗，就表明成功了。大家可以随意修改里面的字，也可以加更多段msgbox带括号的那种。

方法二

直接在电脑上打开一个记事本

输入一下内容

asgbox(“做我女朋友好吗”)

hsgbox("房产证上写称名”)

asgbox("保大”)

hsgbox("我妈会游泳)1

文字可以任意输入

保存在桌面上

将记事本的后缀改成vbs，效果如下图，打开文本即可跳出对话框界面

1 在电脑上新建一个txt文件。

2 打开txt文件，复制以下代码粘贴进去（可以修改中文部分，其它代码不要动！）。保存并关闭txt文件。

msgbox("做我女朋友好吗？")

msgbox("房产证上写你名字")

msgbox("保大")

msgbox("我妈会游泳")

3 将txt文件名称后面的“txt”改为“vbs”

4 双击改名后的vbs文件即可看到和抖音视频上一样的效果。