qq_20026293-优快云博客

原创按键精灵什么是动态数组？如何使用动态数组？（新手进阶）

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

2021-04-20 18:00:49 6455

原创按键精灵在屏幕上显示文本渐开脚本代码

//上=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"//

2021-04-20 17:36:08 1734

原创按键精灵大漠插件自动寻路自动打怪代码片段

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-

2021-04-16 01:49:33 18317 1

原创按键精灵不成熟的大漠游戏自动加血保护代码大漠字库使用案例

//从文件加载字库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

2021-04-12 21:41:30 1636

原创按键精灵大漠插件大漠字库使用方法

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

2021-04-11 19:04:12 5102

原创按键精灵大漠插件使用基础练习入门代码

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

2021-04-07 02:16:57 3865 1

原创按键精灵后台操作画图板画一个圆形基本代码实现

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)

2021-04-06 19:38:40 1266

原创正则表达式多行模式对多行手机号正则的写法

(?m)^1\d{10}(?=\r\n|$)代码针对多行模式的11位手机号正则：13724932851344313243435345143243243444143243434341232343454545(?s)是单行模式

2021-04-04 23:15:29 142

原创按键精灵利用Windows控件消息函数控制窗口风格

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

2021-03-25 02:54:17 327

原创按键精灵找到小地图颜色点按比例位置找大地图的怪物代码

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...

2021-03-24 21:47:25 2885

原创按键精灵获取窗口句柄的几个方法代码

//获取窗口句柄//根据姓名（标题）或家族（类名）查一个：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

2021-03-24 21:02:26 12102

原创按键精灵寻找父窗口一下多层窗口一层一层往下找的HwndEx代码

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

2021-03-24 20:56:06 1521

原创按键精灵查号窗口句柄输出句柄代码

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

2021-03-24 20:50:24 873

原创按键精灵找多图代码

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

2021-03-24 14:50:17 3345

原创按键精灵获取当前鼠标位置的颜色值HSL模式

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

2021-03-23 20:29:14 1016

原创按键精灵学习如何偷菜示例基本代码

//数据定义地_横坐标 = 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(".

2021-03-23 16:43:00 523

原创按键精灵的HSL HSV 获取颜色之后补血代码

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

2021-03-22 20:56:01 393

原创按键精灵游戏血条横向保护代码

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...

2021-03-22 19:35:50 951

原创按键精灵游戏环形加血基本代码模板

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

2021-03-22 16:27:15 943

原创按键精灵游戏颜色偏差判定代码

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

2021-03-17 16:27:33 1654

原创按键精灵递归对指定窗口的所有子窗口进行遍历，并根据类名进行过滤返回

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

2021-03-16 02:56:42 1998

原创按键精灵递归方式遍历窗口代码

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

2021-03-16 01:59:03 1011

原创按键精灵文字替换，文字查找代码

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)

2021-03-15 02:58:35 2267

原创按键精灵替换文字代码

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

2021-03-15 02:45:41 1864

原创按键精灵找文字的基础代码模板

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

2021-03-15 02:38:08 1524

原创按键精灵找图模板代码循环找图

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秒还没有找到图就自动跳出循环

2021-03-15 02:21:16 3668

原创按键精灵用select case循环的基本操作

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

2021-03-15 01:35:01 2800

原创按键精灵找图基础写法

//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// 找图点击 "完成任务"// 找图点击 "立即装

2021-03-15 01:29:22 2397

原创按键精灵msgbox加图标的方法

MsgBox "jijijijijjjiji",vbyesno + vbCritical

2021-03-13 15:10:03 867

原创按键精灵MsgBox信息换行方法

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

2021-03-13 15:08:50 4206

原创 python sublist3r.py -d 域名报错怎么解决

[root@kali ~/Sublist3r 02:23:57]# python sublist3r.py -d qq.comTraceback (most recent call last): File "sublist3r.py", line 21, in <module> from subbrute import subbrute File "/root/Sublist3r/subbrute/subbrute.py", line 18, in <module>

2021-02-13 15:28:33 1244 3

qq_20026293的博客