撩妹套路怎么弄 txtd窗表白整蛊设置教程一览

抖音txtd窗表白整蛊怎么弄：

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

输入一下内容

asgbox(“我知道你喜欢我”)

hsgbox(\"做我女朋友好吗”)

asgbox(\"保大”)

hsgbox(\"我妈会游泳)1

文字可以任意输入

2、保存在桌面上

将记事本的后缀改成vbs即可

3、接下来就是惊人的效果了!请看!

抖音txt撩妹表白代码大全：

示例1：

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

msgbox("房产证写你名字保大我妈会游泳")

示例2：

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，如果会d出如下面的d窗，就表明成功了。

第一种示例比较简单，大家可以随意修改里面的字，也可以加更多段msgbox带括号的那种。

第二种示例中也可以在第三行前面随意增加，不管加多少行都行，不过第二个示例如果她选择拒绝就会被关机，怕是你要被打。

Tips：除了中文用全角，其他全用半角格式输入!

Dim X1, Y1, X2, Y2 As Integer\x0d\Dim I As Integer\x0d\Dim J As Boolean\x0d\Dim K As IntegerDim WithEvents Label1 As Label\x0d\Dim WithEvents Timer1 As TimerPrivate Sub Form_Activate()\x0d\ I = 100\x0d\ K = 100\x0d\ X1 = MeWidth / 2\x0d\ Y1 = MeHeight / 3\x0d\ X2 = X1\x0d\ Y2 = Y1\x0d\Label1Top = MeHeight / 2 - Label1Height / 2\x0d\ Label1Left = MeWidth / 2 - Label1Width / 2\x0d\End SubPrivate Sub Form_Load() MeBackColor = &H0&\x0d\ MeFillColor = RGB(Rnd 255, Rnd 255, Rnd 255)\x0d\ MeForeColor = RGB(Rnd 255, Rnd 255, Rnd 255)\x0d\ MeDrawMode = 13\x0d\ MeDrawWidth = 2\x0d\ MeFillStyle = 7\x0d\Set Label1 = MeControlsAdd("VBLabel", "Label1")\x0d\ Set Timer1 = MeControlsAdd("VBTimer", "Timer1")\x0d\Label1Visible = True\x0d\ Label1AutoSize = True\x0d\ Label1BackStyle = 0\x0d\ Label1Caption = "I LOVE YOU"\x0d\ Label1FontSize = 60\x0d\ Label1ForeColor = &HFF00&\x0d\ Timer1Enabled = True\x0d\ Timer1Interval = 10\x0d\ MeWindowState = 2\x0d\End SubPrivate Sub Timer1_Timer()\x0d\ MeCircle (X1, Y1), 250\x0d\ MeCircle (X2, Y2), 250\x0d\ \x0d\ If Y1 = MeHeight / 3 Then\x0d\ K = K - 5\x0d\ End If\x0d\ Else\x0d\ I = 100\x0d\ K = 100\x0d\ X1 = MeWidth / 2\x0d\ Y1 = MeHeight / 3\x0d\ X2 = X1\x0d\ Y2 = Y1\x0d\ \x0d\ MeFillColor = RGB(Rnd 255, Rnd 255, Rnd 255)\x0d\ MeForeColor = RGB(Rnd 255, Rnd 255, Rnd 255) End If\x0d\ \x0d\ MeDrawWidth = 3\x0d\ \x0d\ MePSet (Rnd MeWidth, Rnd MeHeight), RGB(Rnd 225, Rnd 225, Rnd 225)\x0d\ MeDrawWidth = 2\x0d\End SubPrivate Sub Form_Click()\x0d\ End\x0d\End SubPrivate Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)\x0d\ End\x0d\End Sub

#include <stdioh>

#include <mathh>

#include <stdlibh>

#define I 20

#define R 340

#include <stringh>

int main()

{

char answer[10];

printf("遇到你\n我才发现\n曾经所有的条件\n似乎都成了我等你的借口\n\n");

printf("我对你的感情已经决堤\n所以\n请允许我，从今往后映入你\n明媚的眼\n");

printf("我\n想和你\n耳鬓厮磨，相濡以沫！");

printf("答应我吧！\n输入yes,你可以看到我的真心\n");

scanf("%s", answer);

float y, x, z, f;

for (y = 15f; y > -15f; y -= 01f)

{

for (x = -15f; x < 15f; x += 005f)

{

z = x x + y y - 1;

f = z zz - x xyyy;

putchar(f <= 00f ""[(int)(f-80f)] : ' ');

}

putchar('\n');

}

long time;

for (;;)

{

system("color a");

for (time = 0; time<99999999; time++);

system("color b");

for (time = 0; time<99999999; time++);

system("color c");

for (time = 0; time<99999999; time++);

system("color d");

for (time = 0; time<99999999; time++);

system("color e");

for (time = 0; time<99999999; time++);

system("color f");

for (time = 0; time<99999999; time++);

system("color 0");

for (time = 0; time<99999999; time++);

system("color 1");

for (time = 0; time<99999999; time++);

system("color 2");

for (time = 0; time<99999999; time++);

system("color 3");

for (time = 0; time<99999999; time++);

system("color 4");

for (time = 0; time<99999999; time++);

system("color 5");

for (time = 0; time<99999999; time++);

system("color 6");

for (time = 0; time<99999999; time++);

system("color 7");

for (time = 0; time<99999999; time++);

system("color 8");

for (time = 0; time<99999999; time++);

system("color 9");

}

getchar();

return 0;

}

运行效果：

扩展资料：

printf函数使用注意事项

1、域宽

％d：按整型数据的实际长度输出。

如果想输出指定宽度可以指定域宽，％md－－＆gt；m域宽，打印出来以后，在控制台上，显示m位；

如果我们要打印的数的位数如果超过我们设定m则原样输出；

如果我们要打印的数的位数如果小于我们设定的位数，则补空白，具体如下：

如果m为正数，则左对齐（左侧补空白）；

如果m为负数，则右对齐（右侧补空白）。

2、转义字符

如果想输出字符＂％＂，则应该在“格式控制”字符串中用连续两个％表示。

如：printf（＂％f％％＂，1．0／3）；输出结果：0．333333％。

发到他电脑里我就没法子帮你了。

但关闭不了，可以这样。

Private Sub Form_Unload(Cancel As Integer)

Cancel = 1

End Sub

在窗体中建立一个文本框text1,multiline属性为true,scrollBars属性为2－vertical

复制进如下代码：

Private

Sub

Form_Load()

Dim

a&,

b$

For

a

=

100

To

200

If

a

Mod

3

=

0

Then

b

=

b

&

Str(a)

Next

a

Text1Text

=

b

End

Sub

---------我是华丽丽的分割线--------

dim

a(1

to

10)

as

long

dim

Temp()

as

long

‘保存能被3整除的数

dim

s

as

string

dim

n

as

integer

for

i=1

to

10

a(i)=inputbox("Please

input

data!")

next

i

for

i=1

to

10

if

(a(i)

mod

2)

then

n=n+1

s=s

&

cstr(a(i))

&

","

end

if

redim

temp(n)

as

long

dim

v

v=split(s,",")

for

i=0

to

ubound(v)

temp(i)=v(i)

next

i

以上就是关于撩妹套路怎么弄 txtd窗表白整蛊设置教程一览全部的内容，包括:撩妹套路怎么弄 txtd窗表白整蛊设置教程一览、用VB程序怎么做一个心型图、求一个用于表白的C语言或C++的程序，谢谢大家了等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！