投稿
  1. 首页
  2. 资讯

谁能给我一个表白的小程序

表白网•8月前•资讯•阅读6

谁能给我一个表白的小程序,第1张

打开记事本,把下面的代码给拷贝进去,看情况改字哈``然后保存,最后把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>

发信息表白　如果不好意思当面说的话,又怕拒绝会丢脸,采用发信息表白也是很好的表白方式,不过在信息编辑方面,要下点功夫才行。　 唱情歌表白　这是一种比较大胆、直接又有点浪漫的表白方式,以前我有个朋友,冲着对面宿舍的一个女生唱了首情歌,现在那个女生已经成为了他的老婆。　 写情书表白　这是比较古老的一种表白方式,不过也有一定的效果。如果不敢当面表白又觉得发信息不够诚意的话,可以采用这种方法试试。　 第三者表白　这种表白方法压力最小,运用得好的话,成功的机会非常大。比如可以找对方最好的朋友帮忙,这样对方的防备心也比较小,更重要的是会把自己内心真实的想法跟最好的朋友分享,这样你就可以很轻松的知道对方的态度。　 送礼物表白　俗话说,礼多人不怪,可以时不时的给对方送些小礼物,当对方收的礼物足够多时,你表白的时可能对方也不好意思拒绝了,说的好像有点什么,不过效果还是很不错的。不过,送礼时最好送有特殊含义的礼物,方便你说出你的心意。　 暗示表白法　给对方一些暗示,不管是行动上还是语言上,看看对方的反应和接受程度,然后再做进一步的行动。　 请教表白法　通过问对方一些问题来表白,比如问对方喜欢什么类型的对象,当对方说出答案时,你再请教对方,说有朋友说自己是属于对方说的这种类型,然后问对方你朋友对你的评价正不正确,通过这种含蓄的方式,就算对方拒绝,也不会觉得丢脸。　 幽默表白法　采用幽默的表白方式,用一些玩笑话把自己内心真实的想法表达出来,可以跟对方一起逛街或者看**,然后开玩笑的说,情侣一般都会在一起逛街和看**,这么说来我们也算是情侣了哦,如果对方也接受你的话,一般都会默认,拒绝的话,也会对你的玩笑话进行解释和反驳。　 节假日表白法　可以利用一些节假跟对方表白,比如情人节、愚人节、劳动节、端午节、中秋节等等,至于怎么利用这些节假,就要看每个人的心思了。　 真情表白法　最能打动人和让对方感动的就是真情真意,不需要过多的技巧,只要是真心,说的话是内心最真实的想法,往往都会触动对方内心那根感动的弦。　各种表白方式2　 唱情歌表白　这也算是最经典的表白方式了哦。不管是对着对方所在的位置比如楼下唱情歌，还是单独对着对方唱情歌，都是可以做的。不过个人建议，你最好还是利用一下现在的那些科技之类，把你唱的歌的视频，直接做成视频文件发给对方。　一边录制视频的时候，一边对着镜头上，要把这首歌送给自己最喜欢的那个人，然后在唱完之后，喊出对方的名字。　礼物表白 这种表白方式真的很老土的有木有！只是总是那么的管用哎。不管是男是女，只要能够喜欢，还暗恋什么墨迹什么，赶紧表白。　不好意思开口的，那就直接拿礼物试探一下呗。作者一小伙子同事喜欢另一女同事，大冬天的时候买了一个漂亮的上面有爱心的暖手宝送给对方，看见对方第二天抱着暖手宝暖手的时候，赶紧美滋滋的请人家吃饭去了。　呐，这不是个好办法吗？免去很多麻烦的哦。　 不要“偷偷摸摸”　这一点是叫人很反感的，你的一切行为，变成了一种猥琐，甚至是别有用心。　比如有些男人追求一个女孩子的时候，会跟踪对方，暗地里调查对方，不管是网络里还是现实中，只要发现有女孩子认识的人，于是就会和那个人搭讪，然后侧面了解这个女孩子。　这种行为是非常的可恶的，即使你的本来目的是出于了解，但行为过于猥琐了。　 过度试探　比如在两个人交流的时候，拿别的异性进行试探。比如你会撒谎说你有个朋友喜欢她，然后询问她对你那个朋友的感觉。这种行为对作者来说，这是变态的一种行为，即使你觉得这是爱或者这是真情之类，我都会觉得很变态。　真的喜欢，真的爱，那就采取你自己的方式进行表白好了，试探来试探去的有意思吗？　情书表达 既然是经典的表达方式，那么怎么能够少的了情书表白呢对吧？相比网络里的告白总给人一种复制粘贴的感觉，用你自己的手亲笔写出来的情书，更加的打动人，也更加的叫人信任。　不用过多的甜言蜜语，直接真实一些的表达你的轻易即可。不要忘记，如果同意的话，在某个时间用网络发个笑脸这样的暗号哟。　 不要纠缠　这是对你的表白的一种警告，也算是表白的注意事项了。不管你采取怎样的表白方式，都要注意不能进行纠缠，那种所谓的死缠烂打穷追不舍的方式真的并不适合的，尤其是你根本就不了解的想法的时候，如果你采取这些纠缠的办法，只会让对方厌恶你的。　 身体语言暗示法　用你的身体行为表白，适合各类腼腆的小伙子小姑娘。在对方看得见的`时候，用你的身体语言进行暗示。比如彼此碰面的时候，用你的眼睛深情的看着对方，用眼神传递你的爱意，或者是适当的靠近对方，但又表现出一种不太敢的姿态。　当你的这些身体语言出现的时候，多数人都会明白的。　 利用节日表白　这个办法是非常不错的哟，最可利用的就是情人节啦，还有对方的生日。在这些节日里，送给对方一些应景的礼物，你要是敢用语言表白的话就用语言表白，不敢的话，那就把你的话用网络的形式和礼物一切送到，或者直接把你想说的话写在礼物里面。　然后估计对方收到礼物之后，用电话和对方联系联系吧。　各种表白方式3　 第一种：舍得型表白 为恋人专属打造一间爱的房间，用女生超爱的红色为主调，再重点突出“I LOVE U”，女生不感动都难呐！　 第二种：奇葩型表白 这位恋人绝对是一位创造力十足的主，瞧，用咱们日常的生活用品，也能摆出“I WANT TO EAT YOU, BABY”。　 第三种：爷们型表白 用各种电器和家居用品拼出的爱心，小编敢肯定，这绝对是位纯爷们，信不信由你，反正我是信了。　 第四种：小温馨型表白 在双人床上，用恋人们爱吃的甜食拼出“YOU ARE THE SWEETEST GIRL I HAVE EVER MET !!!”多甜蜜，多温馨。　 第五种：创意型表白　一个硬纸壳，一根小皮筋，一根小木棍，如图所示，将已煮熟的鸡蛋放到装置上，少许用力，再切开横截面，就变成了两朵爱心，小编琢磨，这就是传说中的“心心相印”吧。　 第六种：欲扬先抑型表白 卡片外侧写的是“情人节真是无聊透顶”，接下来却是180度大转弯，到底写的是什么呢？请看下一张图。　原来作者的全部意思是“尽管情人节无聊透顶，但是只要你在，一切都不同。”情人节只是个形式而已，感情才是最重要的。　 第七种：暴力型表白 将车玻璃砸出一个桃心的形状，小编觉得这是个技术活呢，依旧“I love U”。不过不知道这被砸的车到底是谁家的？　第八种：心理承受能力差的就别看最后一张图了，有的爱咱们确实承受不起呀！　用小强凑出“I love U”，不知道各位网友能承受得了这么沉重的爱么？

给你一个javascript的程序，文件名保存为1html就可以

<html>

<head>

<title>网页开屏 </title>

</head>

<script language="javascript">

var x = 10;

var dx = 5;

var y = windowscreenavailHeight;

var newWin = windowopen("", "myWin", "menubar=0,toolbar=0");

newWindocumentwrite("I      &nbsp      L           &nbspo           &nbspv           &nbspe            &nbsp Y     &nbspo     &nbspu!");

newWinresizeTo(x, y);

var time = windowsetInterval("active()", 100);

function active() {

if(newWinclosed){

clearInterval(time);

return;

}

else if(x < screenavailWidth){

x+=dx;

}

else {

clearInterval(time);

}

newWinresizeTo(x,y);

}

</script>

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

}

截图

尽量变得顺从她，如果她喜欢浪漫的话你就跟着一起浪漫，如果她喜欢另类的话，你就跟着一起另类，只要跟她向朋友一样，她信任你的话就不会打你了，但如果她不想和你做朋友，认为男女授受不亲的话，那么你可以匿名送她小礼物，不过风险有点大，如果她是爱张扬的女生的话，可能会在班里大肆宣传。还有一个就是你可以跟着她一起暴力，让她认为你们是同类人。还有就是，不要说一些惹她生气的话，多夸夸她，如果哪天她愿意打扮得很漂亮，而且你说她不好看她还会生气的时候，那么就证明你成功了

欢迎分享，转载请注明来源：表白网

原文地址:https://h5.hunlipic.com/biaobai/4137326.html

赞 (0)
打赏 微信扫一扫微信扫一扫 支付宝扫一扫支付宝扫一扫
表白网表白网管理员组
00
上一篇 2024-04-18
下一篇2024-04-18

发表评论

登录后才能评论

评论列表（0条）

    保存