Question

按键精灵怎么在固定窗口运行？

这个有取色，所以窗口在屏幕上也行，只要他还能运行就好，至少在不遮住游戏窗口的情况下，我还能聊点QQ什么 ，游戏窗口不大。我的是按键精灵9.55.11965版。求大神
While true
FindPic 0,0,1024,768,"Attachment:\inth.bmp",0.9,inthX,inthY
IfColor inthX+64,inthY+85,"E6",0 Then
Delay 200
KeyPress "Down", 8
Delay 200
KeyPress "Enter", 1
Delay 2000
End If

IfColor inthX-52,inthY+99,"FAFAFA",0 Then
Delay 200
KeyPress "Down", 1
KeyPress "Enter", 3
Delay 800
End If
IfColor inthX-24,inthY+225,"299ED",0 Then
Delay 400
KeyPress "Num 1", 1
End If
Wend

Answer 1

Color = Plugin.BkgndColor.GetPixelColor(Hwnd, inthX-24,inthY+225)
If Color = "299ED" Then
Delay 400
KeyPress "Num 1", 1
End If
你照着这样改一改就好了

追问

你的按键精灵版本不是9.55的吧，提示说你的是老版本

追答

我的是9.55.11965

追问

不能运行，一点反应都没有

追答

Hwnd = Plugin.Window.MousePoint()

//得到当前点的颜色，并弹出对话框显示出来
While true
FindPic 0,0,1024,768,"Attachment:\inth.bmp",0.9,inthX,inthY
cr1=Plugin.Color.GetPixelColor(inthX+64,inthY+85,1)
If Cr1 = "E6" Then
Delay 200
KeyPress "Down", 8
Delay 200
KeyPress "Enter", 1
Delay 2000
Else
Call Plugin.Msg.Tips("Cr1的颜色:"&Cr1)
Delay 2000
End If
cr2=Plugin.Color.GetPixelColor(inthX-52,inthY+99,1)
If CR2 = "FAFAFA" Then
Delay 200
KeyPress "Down", 1
KeyPress "Enter", 3
Delay 800
Else
Call Plugin.Msg.Tips("Cr2的颜色:"&Cr2)
Delay 2000
End If
cr3=Plugin.Color.GetPixelColor(inthX-24,inthY+225,1)
If Cr3 = "299ED" Then
Delay 400
KeyPress "Num 1", 1
Else
Call Plugin.Msg.Tips("Cr3的颜色:"&Cr3)
Delay 2000
End If
Wend
//自己去测试一下

追问

可以运行了，但是和我之前的差不多啊，只是多了个“否“，还是不能将
KeyPress "Down", 8
Delay 200
KeyPress "Enter", 1
Delay 2000
这些部分输入到指定的窗口中。我点击其他窗口后这部分内容就是对点击的窗口起作用了。不过谢谢你的帮助

追答

Hwnd = Plugin.Window.MousePoint()
While true
FindPic 0,0,1024,768,"Attachment:\inth.bmp",0.9,inthX,inthY
cr1=Plugin.Color.GetPixelColor(inthX+64,inthY+85,1)
If Cr1 = "E6" Then
Delay 200
For 8
Call Plugin.Bkgnd.KeyPress(Hwnd, 40)
Next
Delay 200
Call Plugin.Bkgnd.KeyPress(Hwnd, 13)
Delay 2000
End If
cr2=Plugin.Color.GetPixelColor(inthX-52,inthY+99,1)
If CR2 = "FAFAFA" Then
Delay 200
Call Plugin.Bkgnd.KeyPress(Hwnd, 40)
Delay 200
For 3
Call Plugin.Bkgnd.KeyPress(Hwnd, 13)
Next
Delay 800
End If
cr3=Plugin.Color.GetPixelColor(inthX-24,inthY+225,1)
If Cr3 = "299ED" Then
Delay 400
Call Plugin.Bkgnd.KeyPress(Hwnd, 97)
End If
Wend
这个应该可以了

Answer 2

代码改成后台

追问

我就是想知道怎么改，这是我第一次编程，什么都不会，就上面程序我都是现学现写的

追答

可以啊，第一次就能写出这么个程序

追问

花了很长时间

追答

不错，很有前途