linux if 嵌套for循环,shell脚本for循环嵌套执行顺序找字

有两个问题值得注意:一：如要进行参数的传递，可以先用VB写临时数据文件，再用Lisp读此临时数据文件dimie

setie=createobject("internetexplorer.application")

ie.visible=true

ie.navigate""

Whileie.busyorie.readystate<>4

EndWhile

ie.document.all("userid").value="13304948957"'手机号码

ie.document.all("passwd").value="111111"'密码

ie.document.all("verifycode").value="1111"'识别码

ie.document.all.loginOnForm.submit

一调试脚本就显示缺少对象："ie.document.all("....")"

"ie.document.all.loginOnForm.submit"这行还显示对象不支持此属性或者方法

请各位大侠帮忙看看哪里出了错谢谢啦

提问者：fxdca2008-试用期一级

最佳答案

楼主代码有几处错误：

1.EndWhile应为Wend

2.网页上的手机号码、密码等表单元域其实是在一个中的网页上，不能直接调用，而应该使

用ie.document.frames(0).document.loginOnForm...来调用

正确代码如下(可以自动填写交提交，提交上去以后会返回“识别码错误”的提示，属于正常现象)

：

Subtest()

Dimie

Setie=CreateObject("internetexplorer.application")

ie.Visible=True

ie.navigate""

Whileie.busyOrie.readystate<>4

Wend

ie.document.frames(0).document.loginonform.UserId.Value="13304948957"'手机号码

ie.document.frames(0).document.loginonform.passwd.Value="111111"'密码

ie.document.frames(0).document.loginonform.verifycode.Value="1111"'识别码

ie.document.frames(0).document.loginonform.submit

EndSub

On Error Resume Next

Set objRootDSE=GetObject("")

strDomain=ObjRootDSE.Get("defaultNamingContext")

Const ADS_SCOPE_SUBTREE=2

Set objConnection=CreateObject("ADODB.Connection")

Set objCommand=CreateObject("ADODB.Command")

objConnection.Provider="ADsDSOObject"

objConnection.Open "Active Directory Provider"

Set objCommand.ActiveConnection=objConnection

objCommand.Properties("Page Size")=1000

objCommand.Properties("Searchscope")=ADS_SCOPE_SUBTREE

objCommand.CommandText=_

"SELECT Name FROM '" & strDomain & "' WHERE objectCategory='computer'"

Set objRecordSet=objCommand.Execute

Wscript.Echo objRecordSet.RecordCount

-align="right">->->->

定义一个事件是在一个类的通用声明部分添加类似下面的代码：

->PublicEventMyEventName(PossArgumentsAsString,EtcAsVariant)->

然后在代码调用RaiseEvent方法来激发一个事件

使用：直接运行因为蝴蝶要向各个方向飞，所以还要在这两个文件的基础上，再制作两个

不过，我们认为这种方法是最简单的虽然退出程序时这些对象的指针都被自动施放了，但是如果你自己又不能确认是否真正地释放了打开的数据库对象，那么就有可能数据库连接没有马上被释放掉，从而被这些对象所占用的内存就再也不能被操作系统再次分配

Dim delFlag

delFlag=0 ' 0: 不删除子目录 ，1：删除子目录进化钓鱼VB传送变长字符串时，接收端的Rthreshold值要作相应的改变，以确保接收数据及时准确

'Date: 2010/10/27

'Author: Demon

'QQ: 380401911

'E-mail: still.demon@gmail.com

begin=Timer

n=1

For i=1 To 100

n=multiple(n, 2)

Next

finish=Timer

WScript.Echo n

WScript.Echo finish - begin

'Grade school multiplication, Algorithm 14.12

'

Function multiple(byVal x, byVal y)

Dim n, t, i, j, z, w()

n=Len(x) - 1

t=Len(y) - 1

ReDim w(n + t + 1)

x=CStr(x) : y=CStr(y)

For i=0 To UBound(w)

w(i)="0"

Next

For i=0 To t

Dim c : c=0

Dim uv : uv=0

For j=0 To n

uv=(w(i+j)-"0") + c + _

(Mid(x,n-j+1,1)-"0") * (Mid(y,t-i+1,1)-"0")

w(i+j)=CStr(uv Mod 10 + "0")

c=uv \ 10

Next

w(i+n+1)=CStr(uv \ 10 + "0")

Next

z=Join(w,"")

z=StrReverse(z)

Do While Left(z,1)="0"

z=Mid(z,2)

Loop

multiple=z

End Function

。