育才学习网1.按键精灵后台怎么输出大写字母
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
转载请注明出处育才学习网 » 按键精灵输出怎么写(按键精灵后台怎么输出大写字母)