按键精灵输出怎么写 - 按键精灵后台怎么输出大写字母
Private Declare Function GetKeyState Lib "user32" Alias "GetKeyState" (ByVal nVirtKey As Long) As Integer
Hwnd = Plugin.Window.MousePoint()
Do
c = 检测CapsLock状态()
//检测CapsLock是否为开启状态,开启为0,关闭为1
TracePrint c
If c = 1 Then
//判断CapsLock状态,如果未开启则开启,如果已开启则无动作
KeyPress "CapsLock", 1
End If
Call Plugin.Bkgnd.KeyPress(Hwnd, 65)
KeyPress "CapsLock", 1
Loop
Function 检测CapsLock状态()
ret = GetKeyState(20)
ret = ret & 1
If ret = 1 Then
检测CapsLock状态=1
Else
检测CapsLock状态=0
End If
End Function
这个只能靠更改大小写状态来实现,其实函数判断不是必要的,如果你不在乎大小写的话全程大写都可以的,其实“我的命令库”—“键盘”里面的键码组能自由使用大写还是小写,不过我不知道如何把这个转后台。
2.按键精灵如何把变量输出写入TXT文本Dim txt, 点击间隔, i, Shul, obj, 弹出对话框,数组 txt = "设置每个坐标点的延迟,单位毫秒," & vbcr & vbcr & "如 50" & vbcr & vbcr & "表示每个坐标点击间隔50毫秒" 点击间隔 = InputBox(txt, "设置点击间隔") If 点击间隔 = "" Then 点击间隔 = 10 ElseIf cint(点击间隔) < 10 Then 点击间隔 = 10 End If TracePrint "点击间隔 = " & 点击间隔 If Plugin.File.IsFileExist("D:鼠标多点连击脚本配置.txt") = True Then Set obj = CreateObject("WScript.Shell") txt = "是否读取保存的坐标" & vbcr & vbcr & "是 : 确定 ,用保存的坐标直接运行 " & vbcr & vbcr & "否 : 取消 , 重新获取坐标点 " 弹出对话框 = Cint(obj.Popup(txt, 0, "是否读取", 1)) Set obj = Nothing If 弹出对话框 = 1 Then Call 读取配置文件并保存坐标到数组() Call 鼠标点击坐标() Else Call Plugin.File.DeleteFile("D:鼠标多点连击脚本配置.txt") Rem 手动获得鼠标坐标20 i = 0 Do Rem 不正确按键码重新获取23 txt = "设置第" & i + 1 & "个点的坐标" & vbcr & vbcr & "鼠标移动到目标后按Ctrl确定"& vbcr & vbcr &"如果设置结束,请按Shitf后运行多点点击" MessageBox txt key = WaitKey() If key = 17 Then '按Ctrl Redim Preserve x(i), y(i) GetCursorPos x(i), y(i) TracePrint "第 " & i + 1 & " 坐标= " & x(i) & " " & y(i) Call Plugin.File.WriteFileEx("D:鼠标多点连击脚本配置.txt", x(i) & "," & y(i)) ElseIf key = 16 and i > 0 Then '按Shift Exit Do Else Goto 不正确按键码重新获取23 End If i = i + 1 Delay 1 Loop Call 鼠标点击坐标() End If Else Goto 手动获得鼠标坐标20 End If Sub 读取配置文件并保存坐标到数组() 数组 = Split(Plugin.File.ReadFileEx("D:鼠标多点连击脚本配置.txt"), "|") Shul = UBound(数组) Redim x(Shul - 1), y(Shul - 1) For i = 0 To Shul - 1 坐标 = Split(数组(i), ",") TracePrint 坐标(0) & "," & 坐标(1) x(i) = 坐标(0) : y(i) = 坐标(1) Next End Sub Sub 鼠标点击坐标() Shul = UBound(x) Do For i = 0 To Shul MoveTo x(i), y(i) //TracePrint x(i)&" | "& y(i) Delay 点击间隔 LeftDown 1 Delay 1 LeftUp 1 Delay 1 Next Delay 1 Loop End Sub Sub OnScriptExit() LeftUp 1 End Sub//这个是鼠标多点依次连击的代码,第一次运行鼠标选择要点击的每个点,自动保存到 D:鼠标多点连击脚本配置.txt ,以后运行你可以直接获取保存的坐标,或者重新获取坐标//使用方法按照脚本弹窗提示.。
3.按键精灵 复制文本后如何输出文本For j = 0 To len(TEXT)
dm.KeyPress Asc(mid(text, j, 1))
delay 50
Next
游戏屏蔽了粘贴功能可能。你的帐号应该是数字加字母吧,这个方法字母可能输出要加32,你改下看看。
哦,对了 我是用大漠插件的。
For j = 0 To len(TEXT)
KeyPress mid(text, j, 1),1
delay 50
Next
这样就行了。
4.怎么用按键精灵代码实现输出指定字符串在当前窗口输入文本。
SayString [文本]
SayString string
[文本] 参数可以是任意有效的字符。
说明
注意:string 参数可以用变量,如果想使用变量,请确定软件应为6.10版之后。
下面示例在具有输入焦点的窗口输出“这是一个例子”:
SayString 这是一个例子
/*********************************************/
你可以到网上搜一下“按键宝典”,官方出的,里边非常详细的。
5.按键精灵 输出数字UserVar low1=20 随机数下限
UserVar high1=300 随机数上限
UserVar xs=2 保留小数点位数
UserVar t1=2010-9-1 起始日期(年月日用-号隔开)
UserVar t2=2010-11-22 结束日期
dim tt(50)
Randomize
x1=((high1-low1+1)*Rnd+low1)
x2=inStr(x1,".")
x3=Left(x1,x2+xs)
VBSCall RunApp("notepad.exe")
Delay 2000
Plugin h= Window.Find("Notepad", 0)
Plugin Window.Active(h)
Delay 200
SayString "随机数"&x3
KeyPress 13,2
SayString "下面将输出连续日期,自动识别每个月的天数"
KeyPress 13,1
t1=CDate(t1)
t2=CDate(t2)
t3=t1
SayString t3
KeyPress 13,1
While DateDiff("d",t3,t2)>0
t3=DateAdd("d",1,t3)
SayString t3
KeyPress 13,1
EndWhile
6.按键精灵怎么输出1是不是这样?
a = 1 : b = 10
Do
Hwnd = Plugin.Window.Find("Notepad", 0)
If Hwnd RunApp "notepad.exe"
Else
Exit Do
End If
Delay 500
Loop
Delay 100
Hwnd = Plugin.Window.FindEx(Hwnd, 0, "Edit", 0)
Do
Call Plugin.Bkgnd.SendString(Hwnd, a & "-" & b & vbcr )
a = a + 10 : b = b + 10
Delay 200
Loop