Sub Startprocess Dim strNameArray(20) strNameArray(0)="张" strNameArray(1)="王" strNameArray(2)="赵" strNameArray(3)="姜" strNameArray(4)="蒋" strNameArray(5)="刘" strNameArray(6)="广" strNameArray(7)="钱" strNameArray(8)="李" strNameArray(9)="武" strNameArray(10)="笛" strNameArray(11)="尚" strNameArray(12)="廖" strNameArray(13)="比" strNameArray(14)="简" strNameArray(15)="向" strNameArray(16)="农" strNameArray(17)="唐" strNameArray(18)="元" strNameArray(19)="卿" Dim strNameArray1(20) strNameArray1(0)="有" strNameArray1(1)="积" strNameArray1(2)="高" strNameArray1(3)="采" strNameArray1(4)="词" strNameArray1(5)="语" strNameArray1(6)="杏" strNameArray1(7)="哲" strNameArray1(8)="科" strNameArray1(9)="吉" strNameArray1(10)="香" strNameArray1(11)="宝" strNameArray1(12)="岱" strNameArray1(13)="姿" strNameArray1(14)="彻" strNameArray1(15)="甜" strNameArray1(16)="好" strNameArray1(17)="力" strNameArray1(18)="清" strNameArray1(19)="亮"
strName=strNameArray(Int( rnd(1) * 20 )) + strNameArray1(Int( rnd(1) * 20 )) + strNameArray1(Int( rnd(1) * 20 )) strCode=123456789 strCodeStr = Cstr( strCode + Int( rnd(1) * 100000 ) ) + Cstr( strCode + Int( rnd(1) * 100000 ) )
set ie = createobject("Internetexplorer.Application")
ie.Navigate("http://xxxxxx")
ie.visible = true
WScript.Sleep(60000)
set doc = ie.Document
set elementsName = doc.getElementsByName("txtName") set elementsCode = doc.getElementsByName("txtCode") set elementsSubmit = doc.getElementsByName("Submit")
set eName = elementsName(0) set eCode = elementsCode(0) set eSubmit = elementsSubmit(1)
eName.value = strName eCode.value = strCodeStr
eSubmit.click()'关闭
WScript.Sleep(60000)
ie.visible = false
dim WshShell Set WshShell=WScript.CreateObject("WScript.Shell")
wshshell.AppActivate("Microsoft Internet Explorer") wshshell.SendKeys("%{F4}")
WScript.Sleep(1000)
wshshell.AppActivate("http://xxxxx - Microsoft Internet Explorer") wshshell.SendKeys("%{F4}")
End Sub
dim processtimes dim currenttime starttime = 1 processtime = InputBox("请输入你想要运行的次数:") while starttime < processtime Startprocess() WScript.Sleep(5000) starttime = starttime + 1 wend