有那位知道下面是用什么语言写的吗？

发布于 2021-12-01 12:46:09 字数 25374 浏览 779 评论 9

PutAttachment "c:qqzw", "*.*"

PutAttachment ".plugin", "WebOperation.dll"

Delay 20

Dev = Plugin.Sys.GetScDep()

If dev <> 32 Then

MsgBox "系统颜色不是32位的"

EndScript

End If

set ws=createobject("Wscript.Shell")

ws.run "regsvr32 c:QQzwdm.dll /s"

set ws=nothing

Dim HWND, FLASHHWND, 轮数, 服名

DimEnv 文本

轮数 = Form1.轮.text

轮数 = int(轮数)

If 轮数 > 2 Then

//MessageBox "测试版只能刷2次"

//EndScript

End If

Call 时间限制

Dimenv 全部文本

Dimenv 句柄中转

Dimenv fhwnd

DimEnv iehwnd

全部文本 = Plugin.File.ReadFileEx("c:qqzwqu.txt")

If Form1.换区.Value = 1 Then

换区标记=0

Dim 区, 次

区 = Form1.区.text

If right(区, 1) <> "," Then

区 = 区 & ","

End If

区 = split(区, ",")

If 区(0) = "" Then

MessageBox "没有填写区"

End If

次 = Ubound(区)

If 次 < 0 Then

MessageBox "没有填写区"

EndScript

End If

TracePrint "有" & 次 & "个区" & 区(0)

End If

If 次 > 1 Then

//MessageBox "测试版只能换一个区"

//EndScript

End If

Hwnd = Plugin.Window.MousePoint()

TracePrint hwnd

sClass = Plugin.Window.GetClass(Hwnd)

If sClass <> "MacromediaFlashPlayerActiveX" Then

MessageBox "必需把鼠标放在游戏里启动"

EndScript

End If

SX = Plugin.Sys.GetScRX()

SY = Plugin.Sys.GetScRY()

HwndEx = Plugin.Window.Search("【")

HwndEx = Split(HwndEx, "|")

For i = 0 To UBound(HwndEx)

fhwnd = HwndEX(i)

TracePrint fhwnd

HwndS = Plugin.Window.FindEx(HwndEX(i), 0, "360browser", 0)

Hwnds = Plugin.Window.FindEx(Hwnds, 0, "Shell Embedding", 0)

Hwnds = Plugin.Window.FindEx(Hwnds, 0, "Shell DocObject View", 0)

IEHwnd = Plugin.Window.FindEx(Hwnds, 0, "Internet Explorer_Server", 0)

iesRect = Plugin.Window.GetWindowRect(ieHwnd)

MyArray = Split(iesRect, "|")

W1 = Clng(MyArray(0)): H1 = Clng(MyArray(1))

W2 = Clng(MyArray(2)): H2 = Clng(MyArray(3))

iew = W2 - W1 : ieh = H2 - H1

FLASHHwnd = Plugin.Window.FindEx(IEHwnd, 0, "MacromediaFlashPlayerActiveX", 0)

TracePrint FLASHHwnd

If FLASHHwnd = hwnd Then

Call Plugin.Window.Size(fhwnd, SX, SY-30)

Call Plugin.Window.Move(fHwnd, -150, 0)

Delay 200

//PauseThread (线程ID)

//ContinueThread (线程ID)

Exit For

End If

Delay 10

Next

Call 子线程

EndScript

Sub 子线程

Call 初始化

While True

If Form1.换区.Value = 1 Then

For g_i = 0 To 次

Call 挂机

Call 换区挂机

Next

Else

Call 挂机

End If

Wend

End Sub

Sub 挂机

For 轮数

Call 进入游戏

Call 寻怪

Call 打怪

Next

End Sub

Sub 初始化

Set dm = createobject("dm.dmsoft")

hwnd = FLASHHWND

dm_ret = dm.SetPath("C:qqzw")

dm_ret = dm.LoadPic("*.bmp")

dm_ret = dm.SetDict(0, "aaa.txt")

If dm_ret = 0 Then

MessageBox "设置路径失败"

EndScript

End If

dm_ret = dm.GetClientSize(hwnd, w, h)

dm_ret = dm.BindWindow(hwnd, "gdi", "windows", "windows", 0)

If dm_ret = 0 Then

MessageBox "FLASH窗口绑定失败"

EndScript

End If

If Form1.隐藏.Value = 1 Then

Call Plugin.Window.Move(fhwnd, -w-300, 0)

End If

TracePrint "首次绑定成功"

End Sub

Sub 寻怪

Rem 世界地图

dm_ret = dm.FindStr(0,0,w,h,"世界地图","ffffff-000000",1.0,intX,intY)

If intX >= 0 and intY >= 0 Then

TracePrint "小地图已经打开"

dm.MoveTo intX - 123, intY - 260

Delay 50

dm.leftclick

Delay 50

dm.leftclick

Delay 1000

Else

Delay 500

dm.keypress 77

Delay 1000

Goto 世界地图

End If

End Sub

Sub 关闭窗口

dm_ret = dm.FindPic(0, 25, w, h, "X.bmp", "000000", 1, 0, intX, intY)

If intx > 0 Then

TracePrint "closehwnssss"

dm.moveto intx + 3, inty - 3

Delay 50

dm.leftclick

Delay 50

dm.leftclick

Delay 500

End If

End Sub

Sub 打怪

Rem 走路中

dm_ret = dm.FindPic(0, 0, w, h, "旗子.bmp", "000000", 0.9, 0, intX, intY)

dm_ret = dm.FindStr(0,0,w,h,"千年珍蛛","d4d4d4-000000",1.0,intX2,intY2)

If intX >= 0 and intY >= 0 or intx2 < 1 Then

Delay 1000

Goto 走路中

End If

Rem 关闭地图

dm_ret = dm.FindStr(0,0,w,h,"世界地图","ffffff-000000",1.0,intX,intY)

If intX >= 0 and intY >= 0 Then

dm.keypress 77

Delay 500

Goto 关闭地图

End If

Rem 打怪中

dm_ret = dm.FindStr(0, 0, w, h, "千年珍蛛", "d4d4d4-000000", 1.0, intX, intY)

If intX >= 0 and intY >= 0 Then

TracePrint "遇到怪"

dm.KeyPress 49

Delay 500

Goto 打怪中

End If

Delay 2500

dm_ret = dm.FindPic(0, 0, w, h, "副本奖劢.bmp", "000000", 0.9, 0, intX, intY)

If intx > 0 Then

For 5

dm.keypress 27

Delay 100

Next

End If

Delay 1000

Rem 出副本

dm_ret = dm.FindStr(0, 0, w, h, "离开副本", "ffffff-000000", 1.0, intX, intY)

If intx > 0 Then

dm.moveto intx, inty

Delay 50

dm.leftclick

Delay 150

dm.leftclick

Delay 150

dm.leftclick

Delay 1000 * 2.5

Else

Delay 500

Call 关闭窗口

Goto 出副本

End If

dm_ret = dm.FindStr(0, 0, w, h, "完成任务", "ffffff-000000", 1.0, intX, intY)

If intx > 0 Then

dm.moveto intx, inty

Delay 20

dm.leftclick

Delay 300

dm.leftclick

End If

end sub

Sub 进入游戏

Rem 开始游戏

dm_ret = dm.FindPic(0, 0, w, h, "开始游戏.bmp", "000000", 0.9, 0, intX, intY)

If intx > 0 Then

TracePrint "开始游戏.bmp"

dm.moveto intx, inty

Delay 50

dm.leftclick

Delay 11

dm.leftclick

Delay 3000

End If

Delay 50

color1 = dm.GetColorBGR(94,38)

color2 = dm.GetColorBGR(94,39)

color3 = dm.GetColorBGR(94,51)

If color1 = "262bb4" and color2 = "5e7cdf" and color3 = "ae732f" Then

For 6

dm.keypress 27

Delay 100

Next

Delay 1000

Call 关闭窗口

Delay 500

Call 对话NPC

Else

Goto 开始游戏

End If

End Sub

Sub 对话NPC

c0=0

Rem npc0

dm_ret = dm.FindPic(0, 0, w, h, "钱多多偏移.bmp", "000000", 0.9, 0, intX, intY)

dm_ret = dm.FindMultiColor(0,0,w,h,"76eb35-000000","-14|0|76eb35,16|0|76eb35",1.0,1,intX2,intY2)

If intx > 0 Then

TracePrint "钱多多偏移.bmp"

dm.moveto intx - 144, inty + 30

dm.leftclick

Delay 200

dm.leftclick

Delay 300

dm.leftclick

Delay 1500

c0=c0+1

Else

dm_ret = dm.FindStr(0, 0, w, h, "完成任务", "ffffff-000000", 1.0, intX, intY)

If intx > 0 Then

dm.moveto intx, inty

Delay 100

dm.leftclick

Delay 200

dm.leftclick

Delay 1000

End If

Call 关闭窗口

Delay 500

Goto npc0

End If

Delay 500

dm_ret = dm.FindStr(0, 0, w, h, "接受任务", "ffffff-000000", 1.0, intX2, intY2)

If intx2 > 0 Then

dm.moveto intx2, inty2

Delay 50

dm.leftclick

Delay 50

dm.leftclick

Delay 1500

c0=c0+1

End If

dm_ret = dm.FindStr(0, 0, w, h, "30级", "00ff00-000000", 1.0, intX2, intY2)

If intx2 > 0 Then

TracePrint "30级"

dm.moveto intx2, inty2

Delay 100

dm.leftclick

Delay 50

dm.leftclick

Delay 1500

c0=c0+1

End If

dm_ret = dm.FindStr(0, 0, w, h, "地牢副本", "00ff00-000000", 1.0, intX2, intY2)

If intx2 > 0 Then

TracePrint "地牢副本"

dm.moveto intX2, intY2

Delay 100

dm.leftclick

Delay 50

dm.leftclick

Delay 10

dm.leftclick

Delay 1500

c0=c0+1

End If

If c0 < 2 Then

Delay 500

Goto npc0

End If

Delay 500

j=0

Rem 判断是否进入副本

dm_ret = dm.FindPic(0, 0, w, h, "地牢.bmp", "000000", 0.9, 0, intX, intY)

If intx < 0 Then

j=j+1

Delay 100

If j < 10 Then

Goto 判断是否进入副本

End If

c0 = 0

Goto npc0

End If

End Sub

Sub 点击

If intx > 0 Then

dm.moveto intx, inty

Delay 50

dm.leftclick

Delay 50

Dm.leftclick

Delay 10

dm.leftclick

Delay 250

End If

End Sub

Sub OnScriptExit()

// 分别解绑窗口

If Form1.隐藏.Value = 1 Then

Call Plugin.Window.Move(fhwnd,0, 0)

End If

dm_ret = dm.UnBindWindow()

End Sub

Sub 换区挂机

XY = plugin.BkgndColor.FindColorEx(IEHwnd, 0, 0, sx, 30, "968579", 0, 0.95)

MyArray = Split(XY, "|")

X = Clng(MyArray(0)): Y = Clng(MyArray(1))

If x > 0 Then

TracePrint "关闭IE窗口"

Call Plugin.Bkgnd.MoveTo(ieHwnd, x, y)

Delay 100

Call Plugin.Bkgnd.LeftClick(ieHwnd, x, y)

Delay 50

Call Plugin.Bkgnd.LeftClick(ieHwnd, x, y)

Delay 500

Hwnds = Plugin.Window.Find(0, "Microsoft Internet Explorer")

Hwnds = Plugin.Window.FindEx(Hwnds, 0, "Button", "确定")

Call Plugin.Bkgnd.MoveTo(Hwnds, 1, 2)

Call Plugin.Bkgnd.LeftClick(Hwnds, 1, 2)

Delay 50

Call Plugin.Bkgnd.LeftClick(Hwnds, 1, 2)

Set dm = nothing

End If

文本 = 区(g_i)

Call 字符串处理

Delay 1000 * 1.5

Plugin.WebOperation.Initialize IEhwnd, "1"

Plugin.WebOperation.RunScript cstr(stb), "JScript"

Delay 1000*3

// FLASHHwnd = Plugin.Window.FindEx(IEHwnd, 0, "MacromediaFlashPlayerActiveX", 0)

// If flashhwnd <= 0 Then

// Delay 1000

// Goto 取出FLASH窗口句柄

// End If

HwndS = Plugin.Window.FindEx(fhwnd, 0, "360browser", 0)

Hwnds = Plugin.Window.FindEx(Hwnds, 0, "Shell Embedding", 0)

Hwnds = Plugin.Window.FindEx(Hwnds, 0, "Shell DocObject View", 0)

IEHwnd = Plugin.Window.FindEx(Hwnds, 0, "Internet Explorer_Server", 0)

Rem getFLASH

TracePrint " 取出FLASH窗口句柄"

FLASHHwnd = Plugin.Window.FindEx(IEHwnd, 0, "MacromediaFlashPlayerActiveX", 0)

If flashhwnd <= 0 Then

Delay 1000

Goto getFLASH

End If

call 初始化

End Sub

//Sub IE浏览器解绑

// dm_ret = dm.UnBindWindow()

// Delay 500

// HwndEx = Plugin.Window.Search("【")

// HwndEx = Split(HwndEx, "|")

// For i = 0 To UBound(HwndEx)

// fhwnd = HwndEX(i)

// TracePrint fhwnd

// HwndS = Plugin.Window.FindEx(HwndEX(i), 0, "360browser", 0)

// Hwnds = Plugin.Window.FindEx(Hwnds, 0, "Shell Embedding", 0)

// Hwnds = Plugin.Window.FindEx(Hwnds, 0, "Shell DocObject View", 0)

// IEHwnd2 = Plugin.Window.FindEx(Hwnds, 0, "Internet Explorer_Server", 0)

// iesRect = Plugin.Window.GetWindowRect(ieHwnd)

// MyArray = Split(iesRect, "|")

// W1 = Clng(MyArray(0)): H1 = Clng(MyArray(1))

// W2 = Clng(MyArray(2)): H2 = Clng(MyArray(3))

// iew = W2 - W1 : ieh = H2 - H1

// If IEHwnd2 = IEHwndd Then

// Call 字符串处理

// Plugin.WebOperation.Initialize iehwnd, "1"

// Delay 200

// Plugin.WebOperation.RunScript stb, "JScript"

// Delay 1500

// dm_ret = dm.BindWindow(iehwnd, "gdi", "windows", "windows", 0)

// Exit For

// End If

// Delay 10

// Next

//End Sub

Sub 时间限制

//获取百度原始时间

VBSBegin

Set XmlHttp = CreateObject("Microsoft.XMLHTTP")

XmlHttp.Open "Get", "http://www.baidu.com/", False

XmlHttp.send

datetxt=XmlHttp.getResponseHeader("Date")

Set XmlHttp = Nothing

'//"将获取到的原始时间进行格式化 2011年03月11日 03:09:52"

temdate = Split(datetxt,",")

tempvar = Replace(temdate(1),"GMT","")

temptim = Split(tempvar," ")

Select Case temptim(2)

Case "Jan":

mon = "01"

Case "Feb":

mon = "02"

Case "Mar":

mon = "03"

Case "Apr":

mon = "04"

Case "May":

mon = "05"

Case "Jun":

mon = "06"

Case "Jul":

mon = "07"

Case "Aug":

mon = "08"

Case "Sep":

mon = "09"

Case "Oct":

mon = "10"

Case "Nov":

mon = "11"

Case "Dec":

mon = "12"

End Select

'//"将获取到的时间转换为北京时间+8小时"

timeGMT = CDate(temptim(3) & "年" & mon & "月" & temptim(1) & "日" & temptim(4))

GetNetTime = DateAdd("h",8, timeGMT)

VBSEnd

ShiJian = (Year(GetNetTime) & Right("0" & Month(GetNetTime),2) & Right("0" & Day(GetNetTime),2) & Right("0" & Hour(GetNetTime),2) & Right("0" & Minute(GetNetTime),2))

If ShiJian=189912300000

MessageBox "没有连接网络或者系统日期时间不正确！！"

EndScript

//以下数字就是脚本到期时间

ElseIf ShiJian<201212250000

Delay 100

Else

word1="试用期已过请联系作者，QQ240263894！"

//MessageBox word1

// VBS set db=createobject("wscript.shell")

// VBS db.run("http://www.jdwan.net/")

EndScript

End If

End Sub

Sub 字符串处理

post=instr(全部文本, chr (34) & "><EM class=fl>双线" & 文本)

'post = instr(quText, chr(34) & "><EM class=fl>双线170")

TracePrint post

If post > 0 Then

qt = left(全部文本, post)

post2 = instrRev(qt, "j")

post3 = instrRev(qt, ";")

stb = mid(全部文本, post2, post3 - post2 + 1)

TracePrint stb

End If

End Sub

Event Form1.Button1.Click

HwndEx = Plugin.Window.Search("【")

HwndEx = Split(HwndEx, "|")

For i = 0 To UBound(HwndEx)

Call Plugin.Window.Move(HwndEx(i), -2000, 0)

Delay 200

Next

End Event

Event Form1.Button2.Click

HwndEx = Plugin.Window.Search("【")

HwndEx = Split(HwndEx, "|")

For i = 0 To UBound(HwndEx)

Call Plugin.Window.Move(HwndEx(i), 0, 0)

Delay 200

Next

End Event