- 按键精灵如何从QUI界面的输入框获取信息写入到一个文本里？
- 怎么把TXT文本直接写入按键精灵
- 按键精灵如何把变量输出写入TXT文本？
- 如何用按键精灵读取一个txt文本内容，然后按键，比如文本里是qwef，要依次以一秒间隔按这些键？
按键精灵如何从QUI界面的输入框获取信息写入到一个文本里？
假设你的窗体是Form.1，输入框控件是InputBox1，那么代码就这样：
m=Form1.InputBox1.Text
这样，m就是界面的字符串（9.6以下的版本要点保存设置才生效，除非你在事件获取），就是这么简单。
至于写文本，就用File插件就行了。
怎么把TXT文本直接写入按键精灵
展开全部
你的意思是读txt文件内容吧。
//下面这句是向目标文件("C:\Config.txt")读出文本内容到变量(Text)
Text = Plugin.File.ReadFileEx("C:\Config.txt")
Msgbox "向目标文件读出文本内容为："& Text
MyArray = Split(Text, "|")
If UBound(MyArray)>=0 Then
For i=0 To UBound(MyArray)
//下面这句是得到文本内容
Msgbox "第 " & i+1 &" 行文本内容为："& Cstr(MyArray(i))
Next
End If
按键精灵如何把变量输出写入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 ,以后运行你可以直接获取保存的坐标,或者重新获取坐标
//使用方法按照脚本弹窗提示.
如何用按键精灵读取一个txt文本内容，然后按键，比如文本里是qwef，要依次以一秒间隔按这些键？
//首先C盘新建一个名字为Log的TXT文档，写入你的内容，按键代码如下
Text = Plugin.File.ReadFileEx("C:\Log.txt")
MyArray = Split(Text, "|")
For i=1 to Len(MyArray(0))
MyVar = Mid(Cstr(MyArray(0)) , i, 1)
KeyPress MyVar, 1
Delay 1000
Next