secureCRT 用 VB 脚本实现安卓截图、获取运行时间

  • A+
所属分类:PHP开发
摘要

上一篇文章介绍了Python,还是有必要介绍下VB,因为secureCRT推荐的还是VB,这里只简单的记录下,算是做个笔记,后续好参考使用:

secureCRT 用 VB 脚本实现安卓截图、获取运行时间

上一篇文章介绍了Python,还是有必要介绍下VB,因为secureCRT推荐的还是VB,这里只简单的记录下,算是做个笔记,后续好参考使用,功能是一样的:

 

# $language = "VBScript"
# $interface = "1.0"

Sub Main

    '###################################################################
    '##
    '##定义截图名称
    '##定义截图、文件保存路径
    '##截图名称:年-月-日-时-分-秒
    '##
    '###################################################################
    dim pictureName,dirPath
    dirPath="/storage/emulated/0/Pictures"
    pictureName = DatePart("yyyy",Date) & "-" & DatePart("m",Date) & "-" & DatePart("d",Date) & "-" & Hour(Now)  & "-" & Minute(Now)  & "-" & Second(Now)
    
    '###################################################################
    '##
    '##开启同步
    '##
    '###################################################################
    
    crt.Screen.Synchronous = True
    
    '###################################################################
    '##
    '##给su权限
    '##并设定1秒延时
    '##切换到工作区目录
    '##
    '###################################################################
    
    crt.Screen.Send "su" & chr(13)
    crt.Sleep 1000
    crt.Screen.Send "cd  " & dirPath  & chr(13)
    
    '###################################################################
    '##
    '##获取系统的运行时间
    '##便于判定是否出现过重启
    '##并设定1秒延时
    '##
    '###################################################################
    
    crt.Screen.Send("cat /proc/uptime >>" & dirPath & "/uptime.txt") & chr(13)
    crt.Sleep 1000
    
    
    '###################################################################
    '##
    '##截取屏幕画面
    '##
    '###################################################################
    
    crt.Screen.Send ("screencap -p " & dirPath & "/" & pictureName & ".png") & chr(13) & chr(13)
    crt.Screen.Send "ls" & chr(13)
    
    '###################################################################
    '##
    '##执行完成后,显示成功信息,一般时候,给于屏蔽
    '##
    '###################################################################
    
    'crt.Dialog.MessageBox("ok!!!")
    
    crt.Screen.Synchronous = False
    
    
End Sub

 

 

 

  • 我的微信
  • 请务必准确填写验证信息
  • weinxin
  • 我的微信公众号
  • 提供本博客以及生活资讯
  • weinxin
avatar

发表评论

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen:

关闭震动