qq_20026293的博客

前言如果你没有编程基础，对数组还没什么了解，建议不要学习本帖知识，先学习了解数组的基本知识。对数组有基本了解往下看，直入主题，什么是动态数组？怎么用？概念上的东西不多说了，看例子！正文// 什么是动态数组？什么时候用？有什么用看例子：//// 定义数组：Dim 数组名(下标)，数组长度已被锁定！Dim GG(3) //定义一个数组GG，下标为3，数组元素数为4(公式：数组下标+1=数组中元素个数)GG(0)=8GG(1)=3GG(2)=4GG(3)=6// 上面是数组的定义与赋值，

//上=0，右=1，下=2，左=3/*上：y-1右：x + 1 下：y + 1 左：x-1*/方向 = - 1 x = 0y = 0颜色=Array("DC143C","FF00FF","FF00FF","E6E6FA","FF00FF","708090","00FA9A","FFFFE0","FF00FF")//Dim 颜色(9)//颜色(0)="DC143C"//颜色(1) = "FF1493"//颜色(2) = "FF00FF"//颜色(3) = "FF00FF"//

Call 传送到("兽人古墓")Function 传送到(mapname) //寻路找老兵 自动寻路 265, 272 //点击老兵Call 等字点击("老兵", "49.67.78-10.20.30", 20, 45, 500)Call 等字点击(mapname, "ffdf00-050505", 24, 6, 500)Call 等字点击("前往挑战", "ffdf00-050505", 24, 6, 500)// Do// 找到了么 = 找字点击("老兵", "49.67.78-

//从文件加载字库dm.SetPath "c:\123"//加载的目录dm.SetDict 0, "123.txt"//加载的字库文件 从123目录加载的文件Set dm = CreateObject("dm.dmsoft") //引入大漠插件hWnd = dm.FindWindow("GAME", "神途") //窗口类名 窗口标题dm.SetWindowState hWnd, 12 //12 : 恢复并激活指定窗口dm.BindWindowEx hWnd, "dx", "wi

Set dm = CreateObject("dm.dmsoft")dm.AddDict 0,"1C0C410440C80901A01401C0200000000000000038080200801002004004004803000000000300607FC1803006000000000F001C007800000000000010383038038007001C000000000000387870100000000001002000000000000000007E0200000004008018

Set dm = CreateObject("dm.dmsoft") //绑定大漠插件//MsgBox dm.ver //绑定大漠成功的话会弹出字//dm.BindWindow 1905432, "normal", "normal", "normal", 0//前台模式dm.BindWindow 1905432, "dx", "windows", "windows", 0//后台模式Delay 1000//用后台模式一般都要加个延迟dm.FindPic 0,0,2048,20

Hwnd = Plugin.Window.Find("MSPaintApp", 0)HwndEx = Plugin.Window.FindEx(Hwnd, 0, "MSPaintView", 0)HwndEx = Plugin.Window.FindEx(HwndEx, 0, 0, 0)TracePrint HwndExFor i = 1 To 360 x = 100 * cos(i * 3.1415926 / 180) y = 100 * sin(i * 3.1415926 / 180)

Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As LongDeclare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As

FindColor 0, 0, 3000, 3000, "0000CC", x, yIf x >= 0 Then x = x - 1079 //小地图左上上角坐标位置 y = y - 358 x = x * 5 //和大地图的比例是 5 y = y * 5 x = x + 659 //加上窗口的坐标位置 y = y + 338 MoveTo x,yEnd If...

//获取窗口句柄//根据姓名（标题）或家族（类名）查一个：Hwnd = Plugin.Window.Find(0, "无标题 - 记事本")HwndEx = Plugin.Window.FindEx(Hwnd, 0, "Button", "表情")//根据姓名（标题）或家族（类名）查所有：HwndEx = Plugin.Window.Search("记事本")HwndEx = Plugin.Window.SearchEx(0,"记事本",0)//当面查：Hwnd = Plugin.Win

Hwnd = Plugin.Window.Find(0, "无标题 - 记事本")HwndEx = Plugin.Window.FindEx(Hwnd, 0, 0, 0)HwndEx = Plugin.Window.FindEx(HwndEx, 0, 0, 0) // 没有分支窗口就用 0 HwndEx = Plugin.Window.FindEx(HwndEx, 0, 0, 0)HwndEx = Plugin.Window.FindEx(HwndEx, 0, 0, 0)HwndEx = Plu

HwndEx = Plugin.Window.Search("*1.txt - 记事本")TracePrint HwndEx句柄 = Split(HwndEx, "|")For i = 0 To UBound(句柄) - 1 TracePrint 句柄(i) Plugin.Window.Size 句柄(i),1024,768Next

Function 找多图(图片) 图片列表 = Split(图片, "|") For i = 0 To UBound(图片列表) FindPic 0, 0, 3000, 3000, 图片列表(i), 0.8, x, y If x >= 0 Then Exit Function End If NextEnd FunctionIf 找多图 "C:\Users\Administrator\Desktop\怪1.bmp | C:\Users\Administrator\Desk

GetCursorPos x, yGetColor=GetPixelColor(x,y)Call Plugin.Color.ColorToHSL(GetColor,H,S,L)If H < 30 Then TracePrint "红色"ElseIf H < 90 Then TracePrint "黄色"ElseIf H < 150 Then TracePrint "绿色"ElseIf H < 210 Then TracePrint "青色"ElseIf H

//数据定义地_横坐标 = Array(60,150,236,137,230,316,225,311,397)地_纵坐标 = Array(189,233,272,148,186,229,101,143,183)//整体流程Call 初始化网页()Call 开始游戏()Do Call 种植() Call 偷取() Call 出售() Call 收割()LoopSub 初始化网页() Call Plugin.Web.Bind("wqm.exe") Plugin.Web.Go(".

GetColor = GetPixelColor(655, 770)Call Plugin.Color.ColorToHSL(GetColor, H, S, L)If (H > 0) and (H < 10) Then TracePrint "有血，不需要加"Else TracePrint "没血了"End If

Function 横向血条保护(百分比) 血条颜色 = GetPixelColor(713 + (220 * 百分比 / 100), 468) R = Right(血条颜色, 2) G = Mid(血条颜色, 3, 2) B = left(血条颜色, 2) If (R = G) and (G = B) Then KeyPress "Q",1 End IfEnd FunctionDo 横向血条保护 10Loop...

For i = 450 to 270 Step -1 x = 100 * Cos(i * 3.141592654 / 180) y = 100 * Sin(i * 3.141592654 / 180) MoveTo x + 798, y + 455 Delay 50Next

GetColor = GetPixelColor(709, 760)TracePrint GetColorB = Left(GetColor, 2)G = Mid(GetColor,3, 2)R = Right(GetColor, 2)B = int("&H" & B) //转化成16进制G = int("&H" & G)R = int("&H" & R)If (B > 0) and (B < 64) Then If (G

//使用递归对指定窗口的所有子窗口进行遍历，并根据类名进行过滤返回Function 遍历子窗口(父窗口, 过滤类名) Dim 返回字符串, 临时句柄 //定义局部变量 Do 临时句柄 = Plugin.Window.FindEx(父窗口, 临时句柄, 0, 0) //查找子窗口 If Plugin.Window.GetClass(临时句柄) = 过滤类名 Then //判断窗口类名 返回字符串 = 返回字符串 & 临时句柄 & "|" //符合则记录窗

Sub 遍历窗口(父窗口) Dim HwndEx Do HwndEx = Plugin.Window.FindEx(父窗口, HwndEx, 0, 0) If HwndEx Then TracePrint HwndEx Call 遍历窗口(HwndEx) End If Loop While HwndEx //为真则继续循环 HwndEx 为0则跳出循环 只能递归 1 层End Sub遍历窗口 032

TracePrint left("baidu.com", 5)TracePrint Right("baidu.com", 5)TracePrint mid("baidu.com", 5, 1)a = "<a href=http://ie.baidu.com/>"位置1 = InStr(a, "http")位置2 = InStr(a, "com/") + 4TracePrint mid(a,位置1,位置2-位置1)

a = "<a herf=#url>#titll</a>"a = Replace(a, "#url", "http://baidu.com")a = Replace(a, "#titll", "百度")TracePrint a

//找文字的If InStr(orc(),"20026293") Then MsgBox "找到了"Else MsgBox "找不到"End If

a = nowDo FindPic 0, 0, 3000, 3000, "c:\1.bmp", 0.8, x, y If x >= 0 Then Exit Do End IfLoop While DateDiff("s",a,now) < 5 //如果5秒还没有找到图就自动跳出循环

Doi = i + 1Select Case i Mod 4//不超过4求余等于1就一直循环 Case 0 TracePrint "1" Case 2 TracePrint "2" Case 3 TracePrint "3" Case 4 TracePrint "4"End SelectDelay 500Loop

//Sub 找图点击(图片)// FindPic 0, 0, 3000, 3000, "c:\" & 图片 & ".bmp", 0.8, x, y// If x >= 0 Then // MoveTo x, y// LeftClick 1// TracePrint 图片// End If// Delay 500//End Sub//Do// 找图点击 "完成任务"// 找图点击 "立即装

MsgBox "jijijijijjjiji"& vbcrlf &"asdasdasdsadsd"& vbcrlf &"dsdsdsdsdsdsdsds",0,"提示信息"