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
版权声明:本文标题:按键精灵一键隐藏游戏窗口代码 内容由热心网友自发贡献,该文观点仅代表作者本人, 转载请联系作者并注明出处:https://www.elefans.com/dongtai/1720539301a829995.html, 本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容,一经查实,本站将立刻删除。
发表评论