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