Question

vb 编写小程序

我需要的是模块级别的，
就是监测到鼠标左键是一直按着，持续了1秒，就在接下来的时间里发送鼠标信息：
按一下左键，就松一下，再按一下左键，再松一下
直到实际鼠标左键松开为止
说白了，就是我要帮同学搞个cf点射助手

Answer 1

题主你好，CF有腾讯的TP保护机制（运行时右下角有个TP的进度条题主可以看一看），会屏蔽包括keyevent、winio.sys在内的模拟按键功能，并对驱动级进程注入有监控和防范（所以题主可以看到那些外挂需要天天更新甚至一天更新几次来过免杀）。

另外模块级别是什么意思？

VB 写底层是一件非常困难的事情，建议题主使用 C / C++ 写自己的免杀驱动，然后用 VB 调用。

Answer 2

Private
Sub
Form_load()
dim
a,b,c,d,sum,aver
as
long
a
=
Val(InputBox
("请输入第1个数"))
b
=
Val(InputBox
("请输入第2个数"))
c
=
Val(InputBox
("请输入第3个数"))
d
=
Val(InputBox
("请输入第4个数"))
sum
=
a
+
b
+
c
+
d
aver
=
sum
/
4
Print
"所输入的4个数字分别是";
a,
b,
c,
d
Print
"4个数字的和为";
sum
Print
"4个数字的平均值为";
aver
End
Sub

Answer 3

me.autoredraw=true
me.cls
dim
x(
1
to
4)
as
double
dim
i
as
intger
dim
s
as
double
Print
"所输入的4个数字分别是";
for
i
=1
to
4
x(i)
=
InputBox
("请输入第"
&
i
&"个数")
s=
s
+x(i)
print
x(i),
next
Print
"4个数字的和为";
s
Print
"4个数字的平均值为";
s/4