按键精灵界面输入框调用怎么用

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

PSW="Form1.InputBox2.Text"，改为PSW=Form1.InputBox2.Text

还有，你这个用ASCII的方法，不是最好的方法，你的代码只能输入字母和数字组合的密码，我给你一个我以前做好的函数给你，你直接调用就行了，函数如下：

Sub KeyList(Strings,Delay_ms)

    Dim AllKey, AllKeyAsc, KeyAsc, i, j

    

    AllKey = "0123456789abcdefghijklmnopqrstuvwxyz`-=[]\',./)!@#$%^&*(ABCDEFGHIJKLMNOPQRSTUVWXYZ~_+{}|:""<>?"

    AllKeyAsc = "48,49,50,51,52,53,54,55,56,57,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82,83,84,85,86,87,88,89,90,192,189,187,219,221,220,186,222,188,190,191"

    KeyAsc = Split(AllKeyAsc, ",")

    

    If Delay_ms < 20 Then 

        MessageBox "按键延迟不能小于20毫秒"

        Exit Sub

    End If

    

    For i = 1 To Len(Strings)

        j = 0

        Do

            If Mid(Strings, i, 1) = Mid(AllKey, j + 1, 1) Then 

                If j < 47 Then 

                    KeyDown Clng(KeyAsc(j)), 1

                    Delay 20

                    KeyUp Clng(KeyAsc(j)), 1

                    Delay Delay_ms - 20

                    Exit Do

                ElseIf j > 46 And j < 94 Then

                    KeyDown 16, 1

                    KeyDown Clng(KeyAsc(j - 47)), 1

                    Delay 20

                    KeyUp Clng(KeyAsc(j - 47)), 1

                    Delay Delay_ms - 20

                    KeyUp 16, 1

                    Exit Do 

                ElseIf j > 93 Then

                    MessageBox "密码存在不能识别的字符"

                    Exit Sub 

                End If

            End If

            j = j + 1

        Loop

    Next

End Sub

'调用方法：

Call KeyList("125abC~../", 100)

写一个随机数生成就好了 ，把你打招呼的内容存入txt 一行一个，比如存了五行，然后随机生成1倒5的一个数，让脚本去文件里面读取这个随机行数即可

//----------------随机内容存入----------------------------------

HH1 = ReadUIConfig("输入框1")

HH2 = ReadUIConfig("输入框2")

HH3 = ReadUIConfig("输入框3")

HH4 = ReadUIConfig("输入框4")

HH5 = ReadUIConfig("输入框5")

运行次数=ReadUIConfig("输入框6")

文件路径="/sdcard/MobileAnjian/hanhua.txt"

Call File.Write(文件路径,HH1&"\n")

Call File.Append(文件路径, HH2 &"\n")

Call File.Append(文件路径, HH3 &"\n")

Call File.Append(文件路径, HH4 &"\n")

Call File.Append(文件路径, HH5 &"\n")

//-------------------------随机内容存入结束-----------------------

//------------------------随机内容取出---------------

TracePrint "进入随机内容"

Randomize //随机数生成器

随机结果 = Int(((5 - 1 + 1) * Rnd()) + 1)

输出内容= File.Readline(文件路径, 随机结果)

InputText 输出内容

Delay 1200

//------------------------随机内容取出完毕------------

---