linux脚本判断变量,shell脚本if判断变量是否等于输入参数否合适

但Awake事件产生后，我们应该让程序作相应的反应呢？当然，利用命令按钮是最简单的，只要在代码窗口的列表中选择命令按钮对象

dimActionID

ActionID=1'0注销，1关机，2重启,

ActionTime="2006-1-413:42:30"'关机或重启时间

functionShutDown()

dimobjShell

SetobjShell=WScript.CreateObject("Wscript.Shell")

dimApplication

setApplication=CreateObject("Shell.Application.1")

Application.ShutdownWindows()

dimupi

forupi=0to4

WScript.Sleep(50)

objShell.sendKeys("{UP}")

next

Forupi=1toActionID

WScript.Sleep(50)

objShell.sendKeys("{DOWN}")

next

'使用时，请把下行的注释符去掉

'objShell.sendKeys("{ENTER}")

endfunction

Whiletrue

ifDateDiff("s",Now,ActionTime)<0then

ShutDown()

endif

WScript.Sleep(5*1000)

wend

'将上面代码存为vbs文件，如：shutdown.vbs，然后双击或在文件上点右键选择以命令提示打开,

'如果到了你设置重启的时候，系统会出现关机的对话框

说明->

'*****************************************************************************

' FileName: Reg2Vbs.VBS

' Author: baomaboy

' Abstract: 将Reg文件转换为VBS文件保存

'*****************************************************************************

Dim WshShell,FSO

On Error Resume Next

Set WshSHell=WScript.CreateObject("WScript.Shell")

Set FSO=CreateObject("Scripting.FileSystemObject")

Set Args=WScript.Arguments

CloseTime=5

FileName=WScript.ScriptName

FileFullName=WScript.ScriptFullName

FilePath=FSO.GetParentFolderName(FileFullName)

InsPath=FSO.GetSpecialFolder(1)

InsFullName=FSO.BuildPath(InsPath ,FileName)

Copyright="玲珑科技"

QQ="QQ:25926183"

Email="Email:[email=25926183@qq.com]25926183@qq.com[/email]"

InsTitle="Reg2Vbs-Txt"

InsAnswer="Reg2Vbs-Txt"

RegPath1="HKEY_CLASSES_ROOT\regfile\shell\RegToVbs"

RegValue1="REG转VBS脚本文件"

RegForm1="REG_SZ"

RegPath2="HKEY_CLASSES_ROOT\regfile\shell\RegToVbs\command"

RegValue2="wscript.exe """& InsFullName &""" ""%L"""

RegForm2="REG_SZ"

IF FileFullName <> InsFullName then

intAnswer=MsgBox("【是】将“"+ InsAnswer +"”加入到右键菜单，"&Chr(10)&Chr(10)&"【否】将“"+ InsAnswer +"”从右键菜单删除

第二步：新建一个标准EXE工程

如果不用组件的话，代码如下：

setie=createobject("internetexplorer.application")

ie.navigate"about:blank"

dountilie.readystate=4:wscript.sleep25:loop

setdoc=ie.document

setbody=doc.body

setwin=doc.parentwindow

body.innerhtml=""

body.innertext=doc.getElementById("dlg").choosecolordlg

win.clipboarddata.setdata"text",body.innertext

ie.quit

如果用组件的话，代码如下:

flag=1+2

initialColor=&hff32ea

color=OpenColor(initialColor,flag)

MsgBox"Selectedcolor:"&hex(color)

functionOpenColor(initColor,flags)

setcomdlg=CreateObject("MSComDlg.CommonDialog")

comdlg.Color=initColor

comdlg.Flags=flags

comdlg.ShowColor

OpenColor=comdlg.Color

endfunction

组件相关文件下载

以上只是实时曲线绘制的一点简单说明，具体应用中可能需要花更多的功夫修饰图像，显示时间(可以依据上面的代码中的Picture1.Print实现)，但是基本原理大同小异

Set a=WScript.CreateObject("WScript.Shell")

a.Run "notepad"

'打开记事本

do

Randomize

x=Int((40 * Rnd) + 1)

'产生一个1~40的随机数赋给X

WScript.Sleep 1000

a.SendKeys x&","

'模拟键盘，输出x

n=n+1 '累计器

if n=10 then wscript.quit '若累计器N为10则推出脚本

loop

'保存成VBS可以看到结果

公安局演练本文向大家介绍这两种方法

'BY Coo_boi

If WScript.Arguments.Count=0 Then WScript.Quit

Dim fso,txt,htm

txt=WScript.Arguments(0)

Set fso=CreateObject("Scripting.FileSystemObject")

Set htm=fso.CreateTextFile(txt&".htm",True)

title=fso.GetFile(txt).Name

title=Left(title,Len(title)-4)

MsgBox title

htm.WriteLine ""

htm.WriteLine "

"

htm.WriteLine "

"&title&""

htm.WriteLine ""

htm.WriteLine "

"

htm.WriteLine "

"&title&"

"

htm.WriteLine "

---

"

For Each line In Split(fso.OpenTextFile(txt).ReadAll ,vbCrLf)

htm.WriteLine line&"
"

Next

htm.WriteLine ""

htm.WriteLine ""

htm.Close

WScript.Echo "将txt转换为html成功"

。