#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;
}
截图
打开记事本,把下面的代码给拷贝进去,看情况改字哈``然后保存,最后把txt后缀改为hta,然后就可以运行罗``关闭的话ALT+F4
<html>
<head>
<title>杨清瑶我爱你</title><!--这里是标题-->
<hta:application sysmenu=no scroll=no border=none>
<script language="vbscript">
sub sub1
meclose
end sub
meresizeto 500,410 '这里设置窗口大小,单位为像素
memoveto 260,100 '这里设置窗口位置,单位为像素
windowsettimeout "sub1",100000 '这是设置时间,单位为毫秒,我这里设置为12秒
</script>
<body>
<CENTER>
<FONT style="COLOR:#33FF00; FILTER: shadow(color=black); FONT-FAMILY: 华文彩云; FONT-SIZE: 30pt; LINE-HEIGHT: 150%; WIDTH: 100%"><B>杨清瑶我爱你</B></FONT></CENTER>
<hr>
<style type="text/css">
3dfont { FILTER: glow(color=ffffff,strength=0) shadow(color=cccccc,direction:135); POSITION: relative; WIDTH: 100% }
</style>
<table border="0" width="100%">
<tr>
<td width="100%" class="3dfont"><font color=RED><CENTER> ☆☆☆☆☆☆ 永久通知 ☆☆☆☆☆☆</font>
<br>
<P align=left>
★杨清瑶是世界上最漂亮的姑娘!</B><br><br>
杨清瑶我真的好爱你，真的真的好爱你!</B><br><br>
<MARQUEE>轩辕伊杨 2010125</body>
</html>
追女孩最重要的是什么？
相貌平平，追女生，重要的是什么？是坚持，记得以前有这样一件事，男生喜欢一个女孩，坚持追了29天，到第30天的时候，男孩没有再像往常那样出现，也正是这天，女孩心里想，如果今天还来了，我就答疑他，就这样，错过将是错过；当然在恋爱中也会有很多因素，如果没有让女生倒追的资本，
在这个人人都在秀情商的时候，做为程序员我们也要操作起来！散发我们的荷尔蒙！今天就大家奉献上最强表白程序！此程序结合数据抓取 + 微信自动发消息 + 定时任务，实现一个能每天自动定时给你心爱的 ta 发送：你们相识相恋天数 + 情话 + 我爱你的。具体的消息如下。
每天要发送给她的信息如下：
这里需要填写的第一个字段是 ta 的称呼，inLoveDays 为你们相识相恋的天数。
love_word 是每天为 ta 精心准备情话内容，当然如果你的文笔好也可以自己写
最后也是最重要的！每天不尽相同「我爱你」的！
实现思路
本次程序运行的环境是 windows10 + Python 36，此次主要用到的库有 selenium、itchat、request。程序主要分为两部分第一数据的抓取，一些情话信息和信息。另一部就是利用 itchat 自动发送消息给你的好友。
情话信息
如果对你的文笔有信心，可以自己写每天的情话。当然大部分人的文笔跟我一样的，那我们就利用网络上的情话啦！
表白资源
为了配合此次表白程序，我专门去找了些带有「我爱你」的资源。通过一些贴吧的贴子，我们就可以获取到大量的这样资源。
程序源码
此次表白程序主要有 5 个函数
crawl_Love_words()
此函数通过 selenium + xpath 来抓取情话网站的资源，并存入到当前目录下的「love_wordtxt」文件。
crawl_love_image()
此函数用来爬取贴吧带有「我爱你」的资源，通过 request + re 来实现。代码并不复杂，在正则表达式那也简单的写了一个，用来匹配当前也所有的资源。
mkdir(path)
此函数用来在当前目录下创建一个新的文件夹，以便存储相应的数据。
send_new()
此函数通过利用 itchat 库，实现给你的微信好友自动发送消息。在这个函数中我利用 datetime 来计算你们之间相识相恋的时间。并且在登录的时候添加了一个「hotReload=True」，这样你就可以不用每次运行程序的时候都要登录。关于 itchat 更多的操作，大家可以去网上查找相应的资料。
main()
main() 函数就是我们主逻辑函数，程序运行的逻辑顺序就是在这个函数里规定的。在 main() 里我首先判断下当前路径下是否有「love_wordtxt」文件，如果有则提示相应的信息，没有的话才去执 crawl_Love_words() 函数，去网上抓取一些情话数据。
其次再判断下当前目录下是否有「img」文件夹，用来判断我们是否有资源，没有则执行 crawl_love_image() 来抓取贴吧上的资源。
最后我们所需的数据都已准备完善，则调用 send_news() 函数，整理下要发送的数据格式，然后自动给你的 ta 发送消息。
定时任务
每天定时发送我主要是用 while True 简单的实现，通过判断当前的时间是否是你所需要发送的时间，来达到每天定时发送。
表白程序使用教程
首先你把相应的源码下载下来，后台回复「表白」即可获取。其次把相应的库先事先安装好，随后运行程序则会显示一个微信网页登录的二维码，扫描登录即可。
1网上认识的，你就要慎重点，首先得考虑是否在异地，异地恋的爱情通常会比较辛苦，且要考虑对方的家庭，结婚不是两个人的事，而是两个家庭的事
2你喜欢的那个她，是否有男朋友了，你要问清楚她
3基于你对她的了解，你对她的喜欢是要以结婚去交往的，还是因为寂寞孤独，或者只是想找个知已说话而已
4如果你真的喜欢她，那你可以直白的跟她说，你想认真的跟她交往，或者你们也可以通过电话聊天告诉她
5这些的前提是你要对她了解的时间长点，等足够的了解后再跟她说的话也不迟，是你的就是你的，不是你的再怎么样也不会是你的，这种事是急不来的
1 在电脑上新建一个txt文件。
2 打开txt文件，复制以下代码粘贴进去（可以修改中文部分，其它代码不要动！）。保存并关闭txt文件。
msgbox("做我女朋友好吗？")
msgbox("房产证上写你名字")
msgbox("保大")
msgbox("我妈会游泳")
3 将txt文件名称后面的“txt”改为“vbs”
4 双击改名后的vbs文件即可看到和抖音视频上一样的效果。
欢迎分享，转载请注明来源：表白网
微信扫一扫
支付宝扫一扫
评论列表（0条）