sys挖矿

㈠ 360宝险箱里的按键精灵软件，怎么做天龙脚本会做的教下

//一下脚本 代码可以供你 参考 参考 天龙八部 我有全自动的 打怪 加血 加气什么 的 内容很多 全后台哦
//你可以 看下
Call 大漠注册()

UserVar Var1=0 "当怪物越不不容易搞死 数值要大"
Call 大漠注册()
Sub 得到起始判断点坐标()
Hwnd = Plugin.Window.MousePoint()
sRect = Plugin.Window.GetClientRect(Hwnd)
Dim myarray
myarray = split(srect, "|")
ux=clng(myarray(0))
uy = clng(myarray(1))

End Sub
Call 得到起始判断点坐标()
Call 判断是否有坐骑()

Do
Call 返回验证码()
Call 判断是否在监狱()
Call 得到起始判断点坐标()
Call 鼠标移动找怪()
Delay 1000
Call 小地图找怪()
Delay 1000
Call 鼠标移动找怪()

Delay 1000
Call 小地图找怪()
Delay 1000
Call 鼠标移动找怪()
Delay 1000
Call 小地图找怪()
Delay 1000
Call 鼠标移动找怪()
Delay 1000
Call 小地图找怪()
Delay 1000
Call 鼠标移动找怪()

Delay 1500
Call 小地图找怪()
Delay 1500

Call 判断人物是否能升级()
Call 判断验证码是否出现()
Call 自动加气()
Call 珍兽加血()

Call 判断验证码是否出现()
Delay 1500
KeyPress "F6", 1
Call 人物加血()
KeyPress "F3", 1
Delay 10
KeyPress "F4", 1
Delay 200
Call 关闭包裹()
Call 完整篇()

loop
Sub 鼠标移动找怪()

Call 找怪一()
Call 判断验证码是否出现()
Call 判断怪死()
Call 找怪二()
Call 判断验证码是否出现()
Call 判断怪死()
Call 找怪三()
Call 判断验证码是否出现()
Call 判断怪死()
End Sub

Sub 判断怪死()
i = 0
While i<Var1
KeyPress "F3", 1

dm_ret = dm.CmpColor(ux+278,uy+36,"d90a00-050505",0.9)
dm_ret1 = dm.CmpColor(ux+449,uy+36,"d90a00-050505",0.9)
If dm_ret1 = 0 Then

Exit Sub
End If
KeyPress "F3", 1

//如下返回值0“表示颜色匹配”代表怪没死。
If dm_ret = 0 Then
Delay 800
i = i + 1
KeyPress "F3", 1

Else
//否则就是代表死了

i=Var1

End If
Wend
End Sub

Sub 怪没点着()

dm_ret = dm.CmpColor(ux+449,uy+36,"d90a00-050505",0.9)
If dm_ret = 0 Then
Call 捡取物品()
Exit Sub
End If

End Sub

Sub 找怪一()

MoveTo ux + 144, uy + 179
For 50
Delay 6
MoveR 10, 0
Call 打怪()
Call 人物加血()
If var = 1594686126 Then
Call 人物加血()
Call 珍兽加血()
Exit For
End If
Next
End Sub
Sub 找怪二()

MoveTo ux + 141, uy + 301

For 50
Delay 6
MoveR 10, 0
Call 打怪()
If var = 1594686126 Then
Call 珍兽加血()
Call 人物加血()
Exit For
End If
Next
End Sub

Sub 找怪三()
MoveTo ux + 144, uy + 400

For 50
Delay 6
MoveR 10, 0
Call 打怪()
If var = 1594686126 Then

Call 人物加血()
Call 珍兽加血()

Exit For
End If
Next
End Sub

Sub 打怪()

var = GetCursorShape(0)
If var = 1594686126 Then

LeftDoubleClick 1
Delay 100
KeyPress "F4", 1
Delay 100
KeyPress "F2", 1
Delay 10

KeyPress "F5", 1
Delay 2900

End If

End Sub

//以下是大漠找图命令
Delay 50
Sub 判断验证码是否出现()
dm_ret = dm.FindPic(0,0,2000,2000,"验证码.bmp","000000",0.9,0,intX,intY)
If intX >= 0 and intY >= 0 Then
Call 答题()
Delay 50
Else
Exit Sub
End If
End Sub
//

Sub 答题()

dm_ret = dm.Capture(intx-4,inty-11,intx+224,inty+254,"screen.bmp")
Delay 20
x = Plugin.Sys.GetDir(大漠梦想)
x = x & ".\plugin\大漠梦想\screen.bmp"
TracePrint "开始答题"
sDate = Plugin.Sys.GetDateTime()
TracePrint sDate
Call Plugin.Msg.ShowScrTXT(0, 0, 1024, 768, "开始识别“验证码，请稍等，", "0000FF")
do
题目ID = Plugin.lyydt.SendImages("yutao531315", "7865431jkl", "31100", "1", "55", x, "看清楚啊 ”不要把我搞进监狱啦“")
If 题目ID>0 Then
Exit Do
ElseIf 题目IP<0

TracePrint "发送题目出错啦"
End If
Loop
答案 = ""
While 答案 = ""

答案 = Plugin.lyydt.GetAnswer("yutao531315", "7865431jkl", 题目ID)
TracePrint 答案
If 答案 <> "" Then

MyArray = Split(答案, ",")
相对X = int(MyArray(0))
相对Y = int(MyArray(1))

Delay 100
dm.MoveTo intx-4+相对x,inty-11+相对y
Delay 100
LeftClick 1

Delay 800

dm.MoveTo intx + 203, inty + 243
Delay 100

LeftDoubleClick 1
Call Plugin.Msg.ShowScrTXT(0, 0, 1024, 768, "验证码识别完毕，这是第次识别了", "0000FF")
Delay 3000
Call Plugin.Msg.HideScrTXT()
i=i+1
End If
Wend

Delay 100
End Sub
//
Sub 大漠注册()
PutAttachment ".\plugin","*.dll"
PutAttachment ".\plugin\大漠梦想","*.bmp"
PutAttachment ".\plugin\大漠梦想","*.txt"
PutAttachment ".\plugin\大漠梦想","dm.dll"
//↑PutAttachment释放附件
Call Plugin.DBSoft.RegDBSoft("")
//↑大兵·注册
Call Plugin.RegDll.Reg(".\plugin\大漠梦想\dm.dll")
set dm = createobject("dm.dmsoft")
//↑大漠·注册
dm.SetPath ".\plugin\大漠梦想"
dm.SetDict 0,"字库.txt"

Delay 40

End Sub
//释放 绑定窗口

Sub 分割“字符串”()
MyArray = Split(答案, ",")
相对X = int(MyArray(0))
相对Y = int(MyArray(1))
End Sub

Sub 小地图找怪()
Call 捡取物品()
dm_ret = dm.FindColor(ux+633,uy+62,ux+757,uy+153,"f87c00-050505",1.0,4,intX1,intY2)
If intX1 >= 0 and intY2 >= 0 Then
dm.MoveTo intX1, intY2
dm.LeftClick
Delay 10

dm.LeftClick
End If

End Sub

Sub 判断人物是否能升级()

dm_ret = dm.CmpColor(ux + 790, uy + 592, "000400-050505", 0.9)
//如下返回值0“表示颜色匹配”代表经验值没满。
If dm_ret = 0 Then
Delay 800

Else
//否则就是代表经验值满了

Delay 1000
KeyDown 18, 1
KeyPress 67, 1
KeyUp 18, 1
MoveTo ux + 436, uy + 467
Delay 800
LeftClick 1

Delay 800
KeyDown 18, 1
KeyPress 67, 1
KeyUp 18, 1
Delay 100
End If
End Sub

Sub 自动加气()
dm_ret = dm.CmpColor(ux + 115, uy + 43, "3736ea-050505", 0.9)
//如下返回值0“表示颜色匹配”气还有。
If dm_ret = 0 Then
Delay 100
Else
//否则就是代表气没了
Call 判断包裹是否打开()

Delay 800
dm_ret = dm.FindColor(ux + 611, uy + 160,ux + 785, uy + 409,"46dac8-050505|e9e3cf-050505",1.0,0,X,Y)
If X >= 0 and x>= 0 Then
dm.MoveTo x, y
Delay 500
For 2
RightClick 1
Delay 100
Next
Call 打开关闭包裹()
Delay 1000
End If
end if
End Sub

Sub 人物加血()
dm_ret = dm.CmpColor(ux + 144, uy + 35, "ea0900-050505", 0.9)
//如下返回值1“表示颜色不匹配”血不正常。
If dm_ret = 1 Then

Call 鼠标移动进去点击加血()
Delay 500
Call 打开关闭包裹()
Delay 1000
Else

End If
End Sub
Sub 鼠标移动进去点击加血()

Delay 800
dm_ret = dm.FindColor(ux + 614, uy + 155,ux + 785, uy + 409,"ffef86-000000|cea542-050505|f4e26e-010101|",1.0,0,X,Y)
If X >= 0 and x>= 0 Then
dm.MoveTo x, y
Delay 500
For 2
RightClick 1
Delay 1000
Call 打开关闭包裹()
Next
Delay 1000
End If

End Sub

Sub 判断包裹是否打开()

dm_ret = dm.FindPic(0,0,2000,2000,"包裹.bmp","000000",0.9,0,intX,intY)
If intX >= 0 and intY >= 0 Then
Else
Delay 1000
Call 打开关闭包裹()

Delay 1000
End If

End Sub
Sub 打开关闭包裹()

KeyDown 18, 1
KeyPress 65, 1
KeyUp 18, 1
End Sub

Sub 珍兽加血()
dm_ret = dm.CmpColor(ux + 128, uy + 83, "ea0f00-050505", 0.9)
//如下返回值0“表示颜色匹配”珍兽血正常。
If dm_ret = 0 Then
Exit Sub
Else
//表示血没了
Call 判断包裹是否打开()
Delay 800
dm_ret = dm.FindColor(ux + 611, uy + 160,ux + 785, uy + 409,"de463a-050505|eb6a45-020202|d64a33-000000",1.0,0,intX,intY)
If intX >= 0 and intY >= 0 Then
dm.MoveTo intx, inty
Delay 500
For 2
RightClick 1
Delay 100
Next
Call 打开关闭包裹()

Delay 1000
End If

End If
End Sub

Sub 判断是否有坐骑()
dm_ret = dm.CmpColor(ux+422,uy+34,"1b255a-050505",0.9)
If dm_ret = 0 Then
KeyPress "F1", 1
Delay 5000
Else
Exit Sub
End If

End Sub
Sub 关闭包裹()

dm_ret = dm.FindColor(ux + 611, uy + 160,ux + 785, uy + 409,"de463a-050505|eb6a45-020202",1.0,0,intX,intY)
If intX >= 0 and intY >= 0 Then
dm.MoveTo intx, inty
Delay 500

Call 打开关闭包裹()

Else
Exit Sub
End If
End Sub

Sub 判断是否在监狱()
dm_ret = dm.FindPic(0,0,2000,2000,"监狱.bmp","000000",0.9,0,intX,intY)
If intX >= 0 and intY >= 0 Then
Delay 10
MessageBox "重见天日"
Call 重见天日()

MessageBox "到达张正规"
Call 判断是否到达张正贵()

Delay 3000
Call 重返战场()

MessageBox "在洛阳"
Call 在洛阳()

Delay 2000
MessageBox "找怪"
Call 在敦煌找怪()

Else
exit sub
End If

End Sub
Sub 重见天日()
Delay 1000
dm_ret = dm.FindPic(0,0,2000,2000,"打开寻路界面.bmp","000000",0.9,0,intX,intY)
If intX >= 0 and intY >= 0 Then
Delay 10
dm.MoveTo intx + 10, inty + 5
Delay 10
dm.LeftClick
Delay 500
dm_ret = dm.FindPic(0,0,2000,2000,"张正贵.bmp","000000",0.9,0,intX,intY)
If intX >= 0 and intY >= 0 Then
Delay 10
dm.MoveTo intx + 10, inty + 5
Delay 10
dm.LeftDoubleClick
Delay 5000
End If

End If

㈡ 比特币挖矿软件cgminer运行时提示缺少opencl.dll怎么办

楼主你好，你可以重新下载一个opencl.dll文件，然后按如下步骤操作：

一、解压后直接拷贝该文件到系统目录里：

1、Windows 95/98/Me系统，复制到C:WindowsSystem目录下。

2、Windows NT/2000系统，复制到C:WINNTSystem32目录下。

3、Windows XP/WIN7/Vista系统，复制到C:WindowsSystem32目录下。

4、如果您的系统是64位的请将文件复制到C:WindowsSysWOW64目录

二、打开"开始-运行-输入regsvr32 opencl.dll"，回车即可解决。

已上传并提供下载连接，可根据需要下载。

小技巧：如果无法进入桌面，可以启动安全模式或者使用PE启动电脑，然后修复。

【重要】：一定要选择与系统版本一致的DLL才可以

opencl.dll下载地址:http://www.ghosys.com/downinfo/?28235.1.30874.htm

opencl.dll无法定位、丢失、找不到、加载失败 等问题的修复

上传了，在附件

必看dll安装教材: http://www.ghosys.com/dll/jiaocai/?28235.opencl.dll.1.26298.shtml