如何用VB控制CS中准心的移动也就是模拟鼠标移动，准心跟着移动一点

在2D平面获取鼠标位置使用以下API

Declare Function GetCursorPos Lib "user32" Alias "GetCursorPos" (lpPoint As POINTAPI) As Long

关于POINTAPI类型，请用API查看器搜索

在CS等3D游戏，VB6可使用DX7、DX8对象控制鼠标,需要在VB引用菜单引用这些对象

在窗体中建立一个文本框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

首先局域网游戏，不要其他软件就可以一起玩。例如你们一个学校的只要建立的局域网关系，当有人建立主机其他的人就可以看到。之所以现在看不到其他的同学的，多数是因为大家不是使用局域网，而是使用adsl这种或者其他不同的网络上网，还有游戏版本的问题。

如果你要做类似浩方这种平台，就是学习如何把互联网的信息和局域网信息统一起来，模拟局域网数据。关于这种，我也不知道。

不过可以肯定，你做出的这个东西肯定不如浩方好用，而且没有意义。所以大家也都不深究了。

以上就是关于如何用VB控制CS中准心的移动也就是模拟鼠标移动，准心跟着移动一点全部的内容，包括:如何用VB控制CS中准心的移动也就是模拟鼠标移动，准心跟着移动一点、用VB编写程序、我想用VB 做个局域网软件 可以使一个学校的同学机器能在一起打CS 或者魔兽这类的等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！