手把手教你TestComplete_咱也PING一把

 

 

 

         PING是个基本功能，Testcomplete也不能少，马马虎虎写一个吧。至于什么时候用得上，我也不是很清楚，要用的时候或许就能用上吧。

 

 

 

sub testping

 

if fblnPing("24.25.26.82") Then

  msgbox "ping ok"

Else

  msgbox "ping err"

end if

 

end Sub

 

 

Function fblnPing(strIp)

 

dim strOut,strKey

 

strKey="Reply from"

strOut=fstrExecCmd("ping -n 1 " & strIp & vbcrlf)

Log.Message("ping -n 1 " & strIp)

 

if instr(1,strOut,strKey,1)=0 then

  fblnPing=False 

else

  fblnPing=True  

end if

 

End Function

 

 

Function fstrExecCmd(strCommand)

  Dim WshShellObj,WshShellExecObj, out

 

  Set WshShellObj =CreateObject("WScript.Shell")

  Set WshShellExecObj =WshShellObj.Exec("cmd.exe")

 

   ' Flush the stream

   out =readTillChar(WshShellExecObj, ">")

   Log.Message(out)

  

   ' Send the "ver" commandand the new line character

  WshShellExecObj.StdIn.Write(strCommand)

   out =readTillChar(WshShellExecObj, ">")

   Log.Message(out)

   fstrExecCmd=out

End Function

 

 

Function readTillChar(WshShellExecObj, endChar)

  Dim out, curChar

 

  Do While NotWshShellExecObj.StdOut.AtEndOfStream

   curChar =WshShellExecObj.StdOut.Read(1)

   out = out + curChar

   If (curChar = endChar) Then

   readTillChar = out

   Exit Function

   End If

  Loop

End Function

 

 

写的比较难看，将就着用吧。