例如:WordBasic中,给所选区域字符标粗体的函数Bold与判断所选区域字符是否为粗体的函数Bold()的调用方法就不同:　　・函数Bold是一个操作,无须返回值,所以调用形式是WORDCALL(wdBld)

If wscript.arguments.count<4 ThenWscript.Echo "Change File Hex. By: lxzzr lxzzr@21cn.com"Wscript.Echo ""Wscript.Echo "Usage: cscript.exe " & WScript.ScriptName & " FilePath SavePath sHEX dHEX"Wscript.Echo " : cscript.exe CHex.vbs "".\test.exe"" "".\new.exe"" ""80 7A 01 61"" ""80 7A 01 61"""WScript.Quit(0)End If

Dim Wsh,objWMIService,colMonitoredEvents Set Wsh=WScript.CreateObject("WScript.Shell") Set objWMIService=GetObject("winmgmts:\. ootwmi") Set colMonitoredEvents=objWMIService.ExecNotificationQuery("Select * from MSNdis_StatusMediaDisconnect") Do While True Set strLatestEvent=colMonitoredEvents.NextEvent Wsh.run "shutdown -s -t 30 -c "&chr(34)&"系统网络断开，机器即将关闭"&chr(34) Loop 当我们要移动控制项(Control)或表单(Form)时，很多人习惯这样写：

frmCustomer.Left=frmCustomer.Left 100frmCustomer.Top=frmCustomer.Top 50

但是若使用MoveMethod，可以加快40：

frmCustomer.MovefrmCustomer.Left 100,frmCustomer.Top 50->

'**************************** '*by r05e '*检验SQL SERVER是否在这机器上工作 '**************************** strComputer="." Set objWMIService=GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\" & strComputer & "\root\cimv2") Set colServices=objWMIService.ExecQuery _ ("Select * from Win32_Service Where Name='MSSQLServer'") If colServices.Count > 0 Then For Each objService in colServices Wscript.Echo "SQL Server is " & objService.State & "." Next Else Wscript.Echo "SQL Server is not installed on this computer." End If 这是因为该软件事先定义了热键

dim xint,xinlu,jiuw dim objfso,objoutputfile,f,fx dim objTextFile,strtext Set objFSO=CreateObject("Scripting.FileSystemObject") '创建FSO对象 jiuw=inputbox("请输入源文件夹所在的路径(含文件夹名称)","请输入多个TXT文件夹所在位置") if objFSO.folderexists(jiuw) then set f=objFSO.getfolder(jiuw) '文件所在位路径 else msgbox "路径错误，请重新输入" end if xinlu=inputbox("请输入新的TXT所在的路径（不含书名），如果省略――即直接不输入点确定或取消,则默认是创建在源文件夹同一层位置","新的TXT保存位置") if objFSO.folderexists(xinlu) or len(xinlu)=0 then xint=inputbox("请输入新书名的名字","新书名") if len(xint)>0 then xint=xinlu & xint Set objOutputFile=objFSO.CreateTextFile( xint &".txt") '创建名为output的新的TXT，可以修改为你要的名称.txt else msgbox "没有输入内容，请重新输入" end if else msgbox "路径错误，请重新输入" end if For Each fx In f.Files '循环写入文本内容 Set objTextFile=objFSO.OpenTextFile(fx, ForReading) '找开文件 strText=objTextFile.ReadAll '读取全部 objTextFile.Close '关闭打开的文件 objOutputFile.WriteLine strText '在output.txt写入 文本 内容 Next ->

Function ReadExcel( myXlsFile, mySheet, my1stCell, myLastCell, blnHeader ) ' Function : ReadExcel ' Version : 2.00 ' This function reads data from an Excel sheet without using MS-Office ' ' Arguments: ' myXlsFile [string] The path and file name of the Excel file ' mySheet [string] The name of the worksheet used (e.g. "Sheet1") ' my1stCell [string] The index of the first cell to be read (e.g. "A1") ' myLastCell [string] The index of the last cell to be read (e.g. "D100") ' blnHeader [boolean] True if the first row in the sheet is a header ' ' Returns: ' The values read from the Excel sheet are returned in a two-dimensional ' array; the first dimension holds the columns, the second dimension holds ' the rows read from the Excel sheet. ' ' Written by Rob van der Woude ' Dim arrData( ), i, j Dim objExcel, objRS Dim strHeader, strRange Const adOpenForwardOnly=0 Const adOpenKeyset=1 Const adOpenDynamic=2 Const adOpenStatic=3 ' Define header parameter string for Excel object If blnHeader Then strHeader="HDR=YES;" Else strHeader="HDR=NO;" End If ' Open the object for the Excel file Set objExcel=CreateObject( "ADODB.Connection" ) ' IMEX=1 includes cell content of any format; tip by Thomas Willig objExcel.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _ myXlsFile & ";Extended Properties=""Excel 8.0;IMEX=1;" & _ strHeader & """" ' Open a recordset object for the sheet and range Set objRS=CreateObject( "ADODB.Recordset" ) strRange=mySheet & "$" & my1stCell & ":" & myLastCell objRS.Open "Select * from [" & strRange & "]", objExcel, adOpenStatic ' Read the data from the Excel sheet i=0 Do Until objRS.EOF ' Stop reading when an empty row is encountered in the Excel sheet If IsNull( objRS.Fields(0).Value ) Or Trim( objRS.Fields(0).Value )="" Then Exit Do ' Add a new row to the output array ReDim Preserve arrData( objRS.Fields.Count - 1, i ) ' Copy the Excel sheet's row values to the array "row" ' IsNull test credits: Adriaan Westra For j=0 To objRS.Fields.Count - 1 If IsNull( objRS.Fields(j).Value ) Then arrData( j, i )="" Else arrData( j, i )=Trim( objRS.Fields(j).Value ) End If Next ' Move to the next row objRS.MoveNext ' Increment the array "row" number i=i + 1 Loop ' Close the file and release the objects objRS.Close objExcel.Close Set objRS=Nothing Set objExcel=Nothing ' Return the results ReadExcel=arrData End Function 声音请在声明区中放入以下声明ConstGWL_EXSTYLE=(-20)ConstWS_EX_TRANSPARENT=&H20&ConstSWP_FRAMECHANGED=&H20ConstSWP_NOMOVE=&H2ConstSWP_NOSIZE=&H1ConstSWP_SHOWME=SWP_FRAMECHANGEDOrSWP_NOMOVEOrSWP_NOSIZEConstHWND_NOTOPMOST=-2PrivateDeclareFunctionSetWindowLongLib"user32"Alias"SetWindowLongA"(ByValhwndAsLong,ByValnIndexAsLong,ByValdwNewLongAsLong)AsLongPrivateDeclareFunctionSetWindowPosLib"user32"(ByValhwndAsLong,ByValhWndInsertAfterAsLong,ByValxAsLong,ByValyAsLong,ByValcxAsLong,ByValcyAsLong,ByValwFlagsAsLong)AsLong在Form_Load使用的范例如下：PrivateSubForm_Load()SetWindowLongMe.hwnd,GWL_EXSTYLE,WS_EX_TRANSPARENTSetWindowPosMe.hwnd,HWND_NOTOPMOST,0&,0&,0&,0&,SWP_SHOWMEMe.RefreshEndSub->

请检查输入的CD-KEY是否与当前Windows版本相匹配。