| |
天龙八部信件发送器
能够自动加好友自动给好友发信息～！只到发给整个服务的在线玩家。
[General]
Description=天龙信件发送器
BeginHotkey=122
BeginHotkeyMod=0
RunOnce=0
Enable=1
[Repeat]
Type=0
Number=1
[CallBack]
OnSetup=
[Comment]
Content=
[Script]
//电脑分辨率为１０２４Ｘ７６８
//颜色深度１６
//游戏窗口化
Beep
Delay 10
Plugin CK=Window.Foreground()
Plugin Window.Move(CK,0,0)
Delay 1000
VBSCall a=InputBox("请输入你要说的话：")
MoveTo 678 610
Delay 1000
LeftClick 2
Delay 1000
MoveTo 775 571
Delay 500
LeftClick 1
Delay 500
IfColor 406 190 ffffff 1
MoveTo 406 190
Delay 500
LeftClick 1
Else
EndIf
MoveTo 495 364
Delay 500
LeftClick 1
Delay 500
Rem 开始
VBS dim i,y
VBS i=1
VBS x=172
VBS y=256
While i<7
MoveTo x y
Delay 700
LeftClick 1
Delay 700
MoveTo 181 364
Delay 700
LeftClick 1
Delay 1100
MoveTo 549 473
Delay 700
LeftClick 1
Delay 700
MoveTo 640 243
Delay 700
LeftClick 1
Delay 700
MoveTo 701 377
Delay 700
LeftClick 1
Delay 500
SayExpression a
Delay 1000
MoveTo 529 344
Delay 700
LeftClick 1
Delay 700
MoveTo 701 377
Delay 700
RightClick 1
Delay 700
MoveTo 624 457
Delay 700
LeftClick 1
Delay 700
MoveTo 508 251
Delay 700
LeftClick 1
Delay 700
VBS i=i+1
VBS y=y+17
EndWhile
MoveTo 564 269
Delay 700
LeftDown 1
Delay 100
MoveTo 564 346
Delay 700
LeftUp 1
Delay 50
VBS dim n,yaa
VBS n=1
VBS yaa=287
While n<5
MoveTo x yaa
Delay 700
LeftClick 1
Delay 700
MoveTo 181 364
Delay 700
LeftClick 1
Delay 700
MoveTo 549 473
Delay 700
LeftClick 1
Delay 700
MoveTo 640 243
Delay 700
LeftClick 1
Delay 700
MoveTo 701 377
Delay 700
LeftClick 1
Delay 500
SayExpression a
Delay 1000
MoveTo 529 344
Delay 700
LeftClick 1
Delay 700
MoveTo 701 377
Delay 700
RightClick 1
Delay 700
MoveTo 624 457
Delay 700
LeftClick 1
Delay 700
MoveTo 508 251
Delay 700
LeftClick 1
Delay 700
VBS n=n+1
VBS yaa=yaa+17
EndWhile
MoveTo 318 363
Delay 700
LeftClick 1
Delay 1000
Goto 开始 |
|
