强悍的vbs,很多时候如果只是简单的写一个windows桌面工具,可以优先考虑一下vbs,js什么的。

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 

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值