admin 管理员组

文章数量: 1086019


2024年3月18日发(作者：getresources 加载资源)

//=====================================================================

===========

//MessageBox "正在初始话请稍等"

Call ("正在加载方案…")

DqTime = lib.网络.获取网络时间()

//获取网络时间，得到的时间格式为：2000-1-1 12:00:00

zzsj="2011-11-1 23:59:59"

//zzsj=终止时间 终止时间为脚本使用限定的最后时间！

If CDate(DqTime)

Call ("加载成功!(*^__^*)")

//MessageBox "加载成功!(*^__^*)"

//Msgbox "验证成功！继续使用！"

Else

Call ("加载失败，可能是没有权限！⊙﹏⊙‖∣")

RunApp("/")

EndScript

End If

//=====================================================================

===========

'wlsj=Lib.网络.获取网络时间()

'Delay 2000

'If wlsj>cdate("2012-10-24")

' Delay 100

'MsgBox "使用期限已到,请从任务管理器关闭程序"

'EndScript

'end if

//使用期限检测脚本

DimEnv shuliang,time1,time2,time3,time4,ktjc,feyjy

Dim hwnd,hwnd1,hwnd2

DimEnv kaiguan

kaiguan=0

hwnd=oint

x=(hwnd,0,0)

'Delay 1000

time1=e //获取脚本运行时系统初始时间

'ktjc=1

'set ws=createobject("")

' "c:",5,ture

'Delay 500

'hwnd2=ound

'y=(hwnd2,0,480)

gosub 站街自动喊话

Rem kaitou

Sub 站街自动喊话 //站街喊话脚本

//下面这句在屏幕区域范围内查找16进制颜色("0000FF")的数量

UserVar fdys=15 "防掉线设置"

MoveTo 603,439

gosub 检查是否有交易

time3=e

If int(time3-time1)>fdys*60*1000 then //15分钟后开启防掉线，只支持站街的时候

gosub 防掉线

End If

KeyPressS "Enter", 1

Delay 200

NUM =olor(60, 398,92, 407, "AADDEE",1) //查找喊话窗口是否存在

If NUM > 0 Then

Goto 喊话

Rem 喊话

End If

UserVar szhhjs=5 "设置喊话句数(最多五句）"

If szhhjs= 1 Then

KeyPressS "B", 1

Delay 20

KeyPressS "A", 1

Delay 20

KeyPressS "1", 1

Delay 20

KeyPressS "Enter", 1

Delay 1200

ElseIf szhhjs= 2 Then

KeyPressS "B", 1

Delay 20

KeyPressS "A", 1

Delay 20

KeyPressS "1", 1

Delay 20

KeyPressS "Enter", 1

Delay 3200

KeyPressS "B", 2

Delay 20

KeyPressS "1", 1

Delay 20

KeyPressS "Enter", 1

Delay 1200

ElseIf szhhjs= 3 Then


本文标签： 时间 加载 查找 喊话 脚本

版权声明：本文标题：DNF自动收货脚本源代码(选自网络) 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.roclinux.cn/p/1710763831a571881.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。