按键精灵手机版,form1自定义窗口弹出

来源：蜘蛛抓取(WebSpider) 时间：2018-08-18 12:45 标签： 类似按键精灵的软件
你的位置：
新手请教：关于 Form1.Inputbox3.Text 输入问题
23:41:51 |
来源: 按键精灵资源站
新手请教：
如何把 Form1.Inputbox3.Text 中的数值输入到句柄窗口中的密码框里？
下载地址请访问原帖
我自己写的代码如下，请高手帮调一下。
Sub 开始注册& & & &
For Form1.InputBox1.Text
& & & & Delay 3000
& & & & Hwnd = Plugin.Window.MousePoint()
& & & & Delay 3000
& & & & Call Plugin.Bkgnd.LeftClick(Hwnd, 109, 289)&&//点1秒注册
& & & & Delay 5000
& & & & Call Plugin.Bkgnd.LeftClick(Hwnd, 54, 168)&&//帐户窗口前端
& & & & Delay 500
& & & & Call Plugin.Bkgnd.LeftClick(Hwnd, 311, 168)&&//帐户窗口后端
& & & & Delay 500
& & & & KeyPress &BackSpace&, 20
& & & & Delay 2000
& & & & VBS Randomize& & //得到 1~99999 之间的一个随机数（这里输出4-5个随机数）
& & & & VBS sz = Int((99999 * Rnd) + 1)
& & & & Delay 1500
& & & & //删除上一次记灵的密码后输入新密码
& & & & Call Plugin.Bkgnd.LeftClick(Hwnd, 54, 207)& &//密码窗口前端
& & & & Delay 500
& & & & Call Plugin.Bkgnd.LeftClick(Hwnd, 318, 207)& &//密码窗口后端
& & & & Delay 500
& & & & Call Lib.键盘.KeyList(Form1.InputBox3.Text,0,50)
& & //输入密码
& & & & Delay 600
& & & & Call Plugin.Bkgnd.LeftClick(Hwnd, 366, 48)&&//点击右上角【完成】
& & & & Delay 8000
Event Form1.Button1.Click
BeginThread 开始注册
Event Form1.InputBox1.Change
Event Form1.InputBox3.Change你的位置：
总是提示缺少对象FORM1,求解决办法
22:23:20 |
来源: 按键精灵资源站
If Form1.CheckBox1.Value = 1 Then
& && && && &dm_ret = dm.FindPic(0, 0, x11, y11, &验证码1.bmp&, &000000&, 0.9, 0, x, y)
& && && && &If x &= 0 and y &= 0 Then
& && && && && & Do
& && && && && && &&&Call Lib.A01基础命令.A101修改标题(&验证码出现,警报!警报!&)
& && && && && && &&&Delay 200
& && && && && && &&&Beep
& && && && && & Loop
& && && && &End If
& && &&&End If
& && &&&Delay 300
上面是我的程序,运行的时候提示 第二行 缺少对象 FORM1
http://files.anjian.com/forum//pzh4oi8coog63.jpg按键精灵里的Form1.InputBox1.Text不能和时间值对比_百度知道
按键精灵里的Form1.InputBox1.Text不能和时间值对比
想直接用输入框变量H与时对比没作用,把对比值设为数字就通过,请问怎么写才能成IF......Then!我的代码如下.:DimHH=Form1.InputBox1.TextMessageBoxH//在这里能弹出框内输入数字.说明H能...
想直接用输入框变量 H与时 对比没作用,把对比值设为数字就通过,请问怎么写才能成IF......Then!我的代码如下.:Dim HH = Form1.InputBox1.TextMessageBox H //在这里能弹出框内输入数字.说明H能识别输入框数字,Do
时间 = Plugin.Sys.GetDateTime()
秒=Second(时间)
时=Hour(时间)
分=Minute(时间)
If 时 = H Then //这里 H和时 对比不起作用?,然后提示一直再循环.
TracePrint &进入&
//这里没进入就是对比不成立.
//这里没进入就是对比不成立.
TracePrint &循环&
//调试界面就都是这个提示.LoopRem 标记
//这里没进入就是对比不成立.TracePrint &跳出&
//这里没进入就是对比不成立.EndScript
答题抽奖
首次认真答题后
即可获得3次抽奖机会，100%中奖。
采纳数：490
获赞数：1147
因为时间的数字不是单纯的字符串，我建议你用CDate函数把字符串转换为Date类型，才可以等于，不然的话就算数字相等也不会等于的，就好像用1跟一根本无法相比，因为一只有我们中国才能理解。
你说的方法我没试验,也许可行,但是我找到用int转换文本的方法来得更快.还是谢谢你!
为你推荐：
其他类似问题
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。你的位置：
如何重启Form1.Load
10:03:40 |
来源: 按键精灵资源站
本帖最后由 c81256 于
11:06 编辑
Event Form1.Load
& & MsgBox &aaaaaa&& &
RestartScript
想重启整个脚本，但发现Event Form1.Load内并不执行。如果实现这种情况。求大神指点。
或者说重新加载Form1.Load你的位置：
为何p = Form1.InputBox1.Text的值一直等于输入框
12:08:37 |
来源: 按键精灵资源站
如何把Form1.InputBox1.Text的值赋值给程序1里面
DimEnv x,y,k,z,p,m
Event Form1.Load
//时时显示
TracePrint now
Form1.Timer1.Interval = 100
Event Form1.Timer1.Timer
Form1.Label1.Caption = x
Form1.Label2.Caption = y
Form1.Label5.Caption = m
p = Form1.InputBox1.Text
If DateDiff(&s&, k, now) & 5Then
Form1.Label1.Caption = x
Form1.Label2.Caption = y
Call 计算()
Sub 计算()
x = int(Rnd()*100)
y = int(Rnd()*100)
TracePrint x
p = Form1.InputBox1.Text
Form1.Label1.Caption =x
Form1.Label2.Caption = y
MessageBox p
If z = int(p) Then

我要回帖

更多关于 类似按键精灵的软件 的文章

 

随机推荐