按键精灵随机输入文本代码怎么写?
答案:1 悬赏:10
解决时间 2021-02-18 03:52
- 提问者网友:战魂
- 2021-02-18 00:00
按键精灵随机输入文本代码怎么写?
最佳答案
- 二级知识专家网友:妄饮晩冬酒
- 2021-02-18 01:30
Dim Y(9),Z(9)
Val = InputBox("用|分隔","请输入10个字或词","你好|再见|老头|郁闷|努力|神马|纠结|Seven|Eight|Nine",7000,7000)
X = Split(Val, "|")
i=0
Rem 随机数
If i=10
Goto 输出
End If
randomize(timer)
n=int(10*rnd)
If n=10
Goto 随机数
End If
j=0
Rem 随机排序
If j=i
Z(j)=n
i=i+1
Goto 随机数
Else
If Z(j)=n
Goto 随机数
Else
j=j+1
Goto 随机排序
End If
End If
Rem 输出
i=0
For 10
Y(i)=X(Z(i))
i=i+1
Next
Call RunApp("notepad.exe")
Delay 1000
Hwnd = Plugin.Window.Find(0, "无标题 - 记事本")
Hwnd = Plugin.Window.FindEx(Hwnd, 0, "Edit", 0)
i=0
For 10
Call Plugin.Window.SendString(hwnd,Y(i))
Call Plugin.Bkgnd.KeyPress(hwnd,13)
i=i+1
Next
Val = InputBox("用|分隔","请输入10个字或词","你好|再见|老头|郁闷|努力|神马|纠结|Seven|Eight|Nine",7000,7000)
X = Split(Val, "|")
i=0
Rem 随机数
If i=10
Goto 输出
End If
randomize(timer)
n=int(10*rnd)
If n=10
Goto 随机数
End If
j=0
Rem 随机排序
If j=i
Z(j)=n
i=i+1
Goto 随机数
Else
If Z(j)=n
Goto 随机数
Else
j=j+1
Goto 随机排序
End If
End If
Rem 输出
i=0
For 10
Y(i)=X(Z(i))
i=i+1
Next
Call RunApp("notepad.exe")
Delay 1000
Hwnd = Plugin.Window.Find(0, "无标题 - 记事本")
Hwnd = Plugin.Window.FindEx(Hwnd, 0, "Edit", 0)
i=0
For 10
Call Plugin.Window.SendString(hwnd,Y(i))
Call Plugin.Bkgnd.KeyPress(hwnd,13)
i=i+1
Next
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯