按键精灵第一个容器需要输入密码才能打开第二个容器怎么做_百度知道
按键精灵第一个容器需要输入密码才能打开第二个容器怎么做
答题抽奖
首次认真答题后
即可获得3次抽奖机会，100%中奖。
采纳数：2731
获赞数：5660
//新建两个容器，一个输入框，代码如下Event Form1.Load
if Form1.InputBox1.Text=&123456&
Form1.Container2.Visible = True
Form1.Container2.Visible = False
End IfEnd Event
Event Form1.InputBox1.Change
if Form1.InputBox1.Text=&123456&
Form1.Container2.Visible = True
Form1.Container2.Visible = False
End IfEnd Event
会员的你会做吗，就是容器1输入帐号密码然后点按钮1确认 跳容器2的
要是想把软件卖了的话就卖个按键小妖精把
为你推荐：
其他类似问题
您可能关注的内容
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。你的位置：
怎么使用InputBox1,帮我看看脚本编辑的对不对？
13:55:20 |
来源: 按键精灵资源站
本帖最后由 澳华 于
13:57 编辑
下载地址请访问原帖
Event Jie.Button1.Click
//控制输入框控件内容限制为5位数& &
Event Jie.InputBox1.Change
& & 调试 = Right(Form1.InputBox1.Text,6)
Event Jie.InputBox2.Change
& & 文件格式 = Right(Form1.InputBox1.Text,6)
Event Jie.InputBox3.Change
& & 够不够行数 = Right(Form1.InputBox1.Text,6)
Event Jie.InputBox4.Change
& & 每次从文件中连续取出多少行 = Right(Form1.InputBox1.Text,6)
Event Jie.InputBox5.Change
& & 创建并存为 = Right(Form1.InputBox1.Text)
Event Jie.InputBox6.Change
& & 要取出内容的文件名及路径 = Right(Form1.InputBox1.Text)
Const ForWriting = 2
Dim fso, I,f, txtArray
//向目标文件(内容源)读出文本内容到变量(Text)
Text = Plugin.File.ReadFileEx(内容源)
txtArray = Split(Text, &|&)
MessageBox txtArray(0)
Call 分配内容
Sub 分配内容
& & Rem Sub_Files
& & If UBound( txtArray )&=够不够行数
& && &&&Set fso = CreateObject(&Scripting.FileSystemObject&)
& && &&&Set f = fso.OpenTextFile(&C:\Documents and Settings\Administrator\桌面\& & 调试 & 文件格式, ForWriting, True)
& && &&&For 每次从文件中连续取出多少行
& && && && &f.Write txtArray(I) & vbCrLf
& && && && &I = I + 1
& && &&&Next
& && &&&HangShu = HangShu + 每次从文件中连续取出多少行
& && &&&调试 = 调试 + 1
& && &&&Goto Sub_Files
& && &&&余下行数 = (UBound( txtArray )) - I
& && &&&Set fso = CreateObject(&Scripting.FileSystemObject&)
& && &&&Set f = fso.OpenTextFile(&C:\Documents and Settings\Administrator\桌面\& & 调试 & 文件格式, ForWriting, True)
& && &&&For 余下行数
& && && && &f.Write txtArray(I) & vbCrLf
& && && && &I = I + 1
& && &&&Next
& & End If
& & Set f = Nothing
Erase txtArray
如何让脚本和合体Form1.show
Event Form1.Button1.Click
Form1.Inputup.Enabled = False
Form1.InputEnter.Enabled = False
Form1.Button1.Enabled = False
e= BeginThread (main ())
Event Form1.Button2.Click
StopThread e
Form1.Inputup.Enabled = True
Form1.InputEnter.Enabled = True
Form1.Button1.Enabled = True
Function main()
//软件有效期
MyYear = Year(Date)
MyMonth = Month(Date)
configYear = 2016
configMonth = 3
If MyYear & configYear Then
Msgbox "软件过期了！！"
ExitScript
If MyMonth & configMonth Then
Msgbox "软件过期了！！"
ExitScript
//点击提交价格
sj = split(time, ":")
Form1.timeinput.Text = time
mm = sj(2)
//修改时间的话，两个点击的地方都要修改。
uptime = Form1.Inputup.Text
//这个是小时
If h = 11 Then
//这个是分钟
If m = 29 Then
//秒是界面设置的
If mm = uptime Then
LeftClick 2
LeftClick 2
MoveTo 886, 386
LeftClick 2
//最后点击确定
sj1 = split(time, ":")
Form1.timeinput.Text = time
mm1 = sj1(2)
upentertime = Form1.InputEnter.Text
//修改时间的话，两个点击的地方都要修改。
If h1 = 11 Then
If m1 = 29 Then
If mm1 = upentertime Then
MoveTo 789, 473
LeftClick 2
LeftClick 2
End Function
如何快速制作脚本?间隔时间自动使用按键精灵游戏技能辅助脚本
来源：按键学院
【按键精灵】
脚本使用说明:
1. 此脚本可应用于各种网络游戏，用于自动间隔时间使用辅助技能，可自定义三个技能和间隔时间。
2. 脚本开始运行前请先在按键精灵主界面上设置自定...
按键精灵脚本
一、环境搭建1、夜神模拟器V_3.1.0.0版本+按键精灵手机助手，两者电脑版安装；2、模拟器可百度，按键精灵手机助手电脑版，下载地址：http://m.anjian.com/3、分别打开模拟器和手机...
1.按照逻辑思维来进行命令增加
2.关于前台找图，需要将图片添加到路径
3.后来找色需要判断能否找色，指定句柄后的截图返回的程序坐标可以直接应用觉得没什么好写的，简单的随便做，难的不会做。...
//软件有效期
MyYear = Year(Date)
MyMonth = Month(Date)
configYear = 2016
configMonth = 3
If MyYear ...
Event Form1.Label1.Click
Event Form1.Button1.Click
uptimetext = Form1.InputEnter.Text
一个使用C++在VS2005MFC下实现的&em&按键精灵源代码&/em&,主要通过输入脚本实现,以适应不同的功能需求。
&em&按键精灵&/em&脚本&em&源代码&/em&,可以根据自己需要设置按键,设置技能冷却时间。文件是&em&按键精灵&/em&软件导出的,使用进行导入就OK。
按键精灵采集脚本源码 立即下载
上传者: jzqhuhui123 时间:
综合评分: 0 积分/C币:3
&em&按键精灵源代码&/em&---vb 立即下载
上传者: xinswdong 时...
按键精灵脚本代码
Event Form1.Label1.Click
Event Form1.Button1.Click
uptimetext = Form1.InputEnter.Text
没有更多推荐了，你的位置：
为何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你的位置：
新手请教：关于 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}