admin管理员组

文章数量:1568555

2024年7月9日发(作者:)

按键精灵一键隐藏游戏窗口代码

dim i,Hwnd,cq,bb,s

Delay 100

//读取存在配置文件里的窗口标题

Call 读取窗口标题()

//遍历符合窗口标题("剑侠情缘网络版2 (剑网2免费区 双剑诛邪

4.09版)")的句柄保存到数组(HwndEx)里

HwndEx = (Text)

URL=

"/doc/,/?k11415943"

Call RunApp(URL)

FindColor 0,0,1024,768,"0033FF",intX,intY

If intX > 0 And intY > 0 Then

MoveTo intX, intY

End If

LeftClick 1

Hwnd = ound()

Call (Hwnd)

dim MyArrayGG

If HwndEx="" Then

Call 读取窗口句柄组()

Call 显示窗口()

Delay 100

Call 读取窗口标题()

HwndEx = (Text)

Call 重新写窗口标题()

Else

Call 读取窗口句柄组()

Call 显示窗口()

Call 隐藏窗口()

Call 写入窗口()

End If

Rem 结束程序

EndScript

Sub 重新写窗口标题()

If HwndEx="" Then

//写入窗口标题

MessageBox "保存的窗口标题已更新版本,请把鼠标指向要保存

的窗口然后按小键盘上的“+”键"

Rem 按键

AJ = WaitKey()

If AJ=107 Then

Hwnd = oint()

sText = t(Hwnd)

Call NI("Command", "窗口标题", sText,

".")

Else

Goto 按键

End If

End If

End Sub

Sub 读取窗口句柄组()

//打开配置文件读取

Delay 100

MessageBox "系统检测到您的脚本没有安装DM后台,点击安装

"

URL= "/doc/,/"

Call RunApp(URL)

Text = I("Command", "窗口句柄组",

".")

HwndEx=Text

If Text="" Then

Text = I("Command", "窗口标题",

".")

HwndEx = (Tent)

Call NI("Command", "窗口句柄组", HwndEx,

".")

End If

Delay 100

End Sub

Sub 读取窗口标题()

//打开配置文件读取

Delay 100

Text = I("Command", "窗口标题",

".")

If Text="" Then

MessageBox "未保存过窗口标题,请把鼠标指向要保存的窗口然

后按小键盘上的“+”键"

Rem 按键

AJ = WaitKey()

If AJ=107 Then

Hwnd = oint()

sText = t(Hwnd)

Call NI("Command", "窗口标题", sText,

".")

Else

Goto 按键

End If

End If

Delay 100

End Sub

Sub 写入窗口()

Delay 100

//打开配置文件写入窗口句柄组

Call NI("Command", "窗口句柄组", HwndEx,

".")

Delay 100

End Sub

Sub 隐藏窗口()

Call 读取窗口标题()

HwndEx = (Text)

//下面这句用于分割字符串,将获得的句柄组分割

MyArray = Split

(HwndEx, "|")

If UBound(MyArray)>=0

i=0

For UBound(MyArray)

//下面这句将字符串转换成数值

Hwnd=Clng(MyArray(i))

//隐藏窗口

Call (Hwnd)

i=i+1

EndFor

EndIf

Delay 100

End Sub

Sub 显示窗口()

//下面这句用于分割字符串,将获得的句柄组分割

MyArray = Split(HwndEx, "|")

If UBound(MyArray)>=0

i=0

For UBound(MyArray)

//下面这句将字符串转换成数值

Hwnd=Clng(MyArray(i))

//显示窗口

Call (Hwnd)

i=i+1

EndFor

EndIf

Delay 100

End Sub

Delay 100

本文标签: 标题读取句柄安装