===============================================
如果，比较懒，而且每次也懒的 一个个去开启每次要用到得 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很强大............................
转载：请注明出处
阅读(2852) | 评论(0) | 转发(0) |
