mdsk.net
当前位置:首页 >> 按键精灵输入框内容 >>

按键精灵输入框内容

Form1.InputBox1.Text= InputBox("请输入数据")直接弹出一个输入框,你输入内容后,直接到界面的输入框里面,如果你要加入变量的,中间多赋值一个变量就行了.

写一个随机数生成就好了 ,把你打招呼的内容存入txt 一行一个,比如存了五行,然后随机生成1倒5的一个数,让脚本去文件里面读取这个随机行数即可//----------------随机内容存入---------------------------------- HH1 = ReadUIConfig("输入框1")

form1.inputbox1.text 用这个可以取到按键精灵界面里的控件值form1是窗体名字,默认生成的就是这个名字inputbox1 是输入框的名字text 输入框的文本内容例如 文本框里的内容是20那么代码就可以这么写forcount = form1.inputbox1.text for i=forcount to 100 saystring cstr(i) delay 200 keypress "enter", 1next

Form1.InputBox1.Text 用这个可以取到按键精灵界面里的控件值 Form1是窗体名字,默认生成的就是这个名字 InputBox1 是输入框的名字 Text 输入框的文本内容 例如 文本框里的内容是20那么代码就可以这么写 forcount = Form1.InputBox1.Text For i=forcount to 100 SayString CStr(i) Delay 200 KeyPress "Enter", 1 Next

一确定要输入的窗口激活 二运行代码SayString "引号里是你要输入的内容"

Rem 开始 输入:A=InputBox("这里写上输入框的提示文字")//这是弹出输入文本框,并将输入的值存储在变量"A"里面.输出方式1:MessageBox A //这是弹出一个窗体,窗体中间显示变量"A"的内容.输出方式2:SaySting A //这是将变量"A"的内容键入到当前光标所在位置.还可以加一条判断语句在输入输出两条命令之间:If A = "" Then Goto 开始 End If 意为输入什么都没键入,就从头开始继续输入.成果显示为类似如下:

Do MoveTo 118, 557 LeftClick 1 Call Lib.键盘5261.键盘组合键("Ctrl + A", 0) Call Lib.键盘.键盘组合键("Ctrl + C", 0) Clipboard = Plugin.Sys.GetCLB() If Len(Clipboard) > 0 Then MessageBox "输入4102框有内容" Else MessageBox "输入框无内容或未获1653取到输入框内内容" End If Delay 3000 Loop输入框的坐标自设容

DimEnv kkHwnd = Plugin.Window.MousePoint()Event Form1.Button1.Click ' 按钮属性 Button1kk=Form1.InputBox1.Text '输入框的文本属性 InputBox1.Text End EventCall Plugin.Window.SendString(Hwnd, kk)MessageBox kk//记得点保存这是 QUI界面 按键精灵9

DimEnv 内容HH = Plugin.Window.GetKeyFocusWnd()//假设输入框为1do //你这里do..loop一直循环 i = 0 If i = 0 Then 内容 = Form1.InputBox1.Text Call Plugin.Bkgnd.SendString(HH, 内容) Delay 500 Call Plugin.Bkgnd.KeyPress(HH, 13) End Ifloop

很简单.a = inputbox("请输入内容")Call Plugin.File.WriteFileEx("d:\d.txt", "内容")这里需要你自己更改一下输入框的提示内容,还有就是文件的存储地址.希望能对您有帮助

ddng.net | xmlt.net | fkjj.net | zxqk.net | gpfd.net | 网站首页 | 网站地图
All rights reserved Powered by www.mdsk.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com