好久没来论坛了，今天无聊，画圈玩~

taliove · 发表于 2012-7-13 17:29:17

最近都在玩C#。同样无聊的童鞋来画圈吧。

Global $r = 100 ;半径
Global $x = @DesktopWidth/2,$y = @DesktopHeight/2

For $ii = 1 To 2
OneCirle()
Next

Func OneCirle()
For $xx = $x - $r To $r + $x Step 1
$zz = $r ^ 2 - ($xx - $x) ^ 2
$yy = Sqrt(Abs($zz)) + $y
MouseMove($xx,$yy,1)
Next
For $xx = $x + $r To $x - $r Step -1
$zz = $r ^ 2 - ($xx - $x) ^ 2
$yy = $y - Sqrt(Abs($zz))
MouseMove($xx,$yy,1)
Next
EndFunc

wsfda · 发表于 2012-7-13 18:01:09

楼主开始玩C#了?

taliove · 发表于 2012-7-14 20:32:04

回复 3# sliqi

C#入门很容易，我以前从未玩过C#，但是一开始就可以做东西了。
C#唯一不爽的地方，就是很多电脑上面都需要安装.net
而且每个版本的.net框架都不一样上下兼容的。这一点是最蛋疼的。

xiaowo · 发表于 2012-7-16 23:41:21

原来AU3的自动化操作可以做到这样，学习了……消化一下……

seniors · 发表于 2012-7-17 20:03:06

Global $r = 100 ;半径
Global $pi = 3.14159265358979
Global $degToRad = $pi / 180
Global $Ox = @DesktopWidth/2,$Oy = @DesktopHeight/2

For $ii        = 1 To 2
        OneCirle()
Next


Func OneCirle()
        For $ang = 0 To 360 Step 1
                $xx = $Ox +$r *Sin($ang * $degToRad)
                $yy = $Oy +$r *Cos($ang * $degToRad)
                MouseMove($xx,$yy,1)
        Next
EndFunc

匀速转两圈

		自动登录	找回密码
密码			加入