===============================================
如果,比较懒,而且每次也懒的 一个个去开启每次要用到得 VMware ScureCRT cuteftp
就用vbs 吧,传说中的黑客,对这个了如指掌。
不知道vbs 赶快google下
不废话,先贴出代码
==========================================
Option Explicit
Dim objShell
Dim WshShell
Set objShell=CreateObject("Wscript.Shell")
Set WshShell=WScript.CreateObject("WScript.Shell")
objShell.Run"""C:\Program Files\VMware\VMware Workstation\vmware.exe"""
wscript.Sleep 2000
WshShell.AppActivate"Ubuntu--11.10"
WshShell.SendKeys "^b"
wscript.Sleep (2)
objShell.Run"""D:\Program Files\Securecrt_ha\SecureCRT\SecureCRT.exe""",,true
objShell.Run"""D:\Program Files\CuteFTPPro_8.05\cuteftppro.exe"""
=========================
注解: vbs 里单引号 后面就是注释
Dim 表示声明变量
set 是关键字
objShell.Run"""C:\Program Files\VMware\VMware Workstation\vmware.exe""" //告诉os去指定的路径把指定的软件给启动(注意3个""")//语法,自己具体google
wscript.Sleep 2000 //如字面之意,休眠2000s (以保证,vmware.exe"完全开启)
WshShell.AppActivate"Ubuntu--11.10" //激活Ubuntu--11.10
WshShell.SendKeys "^b"//等于同时按下Ctrl+B 该句 就是启动Ubuntu--11.10
wscript.Sleep (2) //睡眠,以保证,SecureCRT.exe启动之后能成功连上虚拟机
objShell.Run"""D:\Program Files\Securecrt_ha\SecureCRT\SecureCRT.exe""" //启动SecureCRT.exe
为了,简单的设置SecureCRT.exe启动之后自动连接 虚拟机 ,就直接在SecureCRT.exe里设置 见下图 设置即可
把你,要连接到虚拟机的 ip名添加自可,以后,每次启动之后,scureftp会自动执行连接到虚拟机
=================================================================================
下面就是 ,开机自动联网先贴代码
================================================================================
Option Explicit
Dim objShell
Set objShell=CreateObject("Wscript.Shell")
objShell.Run"""D:\ruejie\RuijieSupplicant.exe""",,true
WScript.Sleep(1)
objShell.Run "Rasdial 宽带连接 账号 密码",0
==============================
注解: 账号就是你上网的账号,密码同理 之后的那个 0表示,os运行在后台(一般cmd下运行程序,速度超快)
WScript.Sleep(1) //保证锐捷完全启动
================================
*****************************************
要实现,开机自起,就得把.vbs文件拖到 启动------->程序里
开机之后,os会自己运行
vbs很强大............................
转载:请注明出处
阅读(2865) | 评论(0) | 转发(0) |