黑框眼镜脚本lpl
DeclareFunctionReleaseCaptureLib"user32"()AsLongDeclareFunctionSendMessageLib"user32"Alias"SendMessageA"(ByValhwndAsLong,ByValwMsgAsLong,ByValwParamAsLong,lParamAsAny)AsLong再在控制的Mousedown事件中插入：SubCommand1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)DimRet&ReleaseCaptureRet&=SendMessage(Me.hWnd,&H112,&HF012,0)EndSub二、把表单放在屏幕的正中央----在开发VB程序时，一般希望将表单放在屏幕可利用区域的正中央，实现上可以利用Move(Screen.Width-Width)\2,(Screen.Height-Height)\2的方法来实现但是，主程序中的WScript.Echo "main ...."语句是执行了的
DimqtApp DimqtTest DimqtResultsOpt SetqtApp=CreateObject("QuickTest.Application") qtApp.Launch qtApp.Visible=True qtApp.Open"C:\QuickTestProfessional\tests\test1\test1.usr",True SetqtTest=qtApp.Test qtTest.Settings.Run.OnError="NextStep" SetqtResultsOpt=CreateObject("QuickTest.RunResultsOptions") qtResultsOpt.ResultsLocation="C:\QuickTestProfessional\tests\test1" qtTest.Run SetqtResultsOpt=Nothing SetqtTest=Nothing SetqtApp=Nothing基本思路是：建立一个空格字符串，其长度为要重复复制的数目，然后替换每一个空格为要复制的字符串：FunctionReplicateString(SourceAsString,TimesAsLong)AsString
ReplicateString=Replace$(Space$(Times),"",Source)
EndFunction
但是请注意：根据字符串的长度以及重复的数目，这个方法也许比传统的循环方法要慢些
示例 2：欲将TextBox内的文字向右靠，除了将Alignment属性设为「1-靠右对 」之外，亦 将MultiLine属性设为True
在这个示例脚本中，我们使用了两个分别叫做 strUserName 和 strUserDomain 的变量格式是Shell（命令字符串［，窗口类型］）其中的命令字符串是欲执行的应用程序名，可执行文件的扩展名只限于“.COM”，“.EXE”，“.BAT”，“.PIF”，缺省扩展名为.EXE文件，窗口类型是一整数值，它对应于程序执行时的显示窗口风格，是可选的，共有下列5种选择：窗口类型值窗口类型1，5，9正常窗口，具有指针2最小窗口，具有指针（缺省）3最大窗口，具有指针4，8正常窗口，不具指针6，7最小窗口，不具指针当Shell函数成功地调用某一个应用程序时，返回一个任务标识（TaskID），该ID表示正在执行的程序的唯一标识
vbs实现的下拉框对应键入值选择自gu1dai的Blog 关键字vbs实现的下拉框对应键入值 <TITLE>selectcenter</TITLE> <linkrel="stylesheet"type="text/css"href=""> <METANAME="Generator"CONTENT="EditPlus"> <METANAME="Author"CONTENT=""> <METANAME="Keywords"CONTENT=""> <METANAME="Description"CONTENT=""> <head> <SCRIPTLANGUAGE="vbScript"> <!-- functionkeypress() tname=mainform.tname.value 'alert(mainform.tname.value) foreachtninmainform.tablename allvalue=tn.value ifleft(allvalue,len(tname))=tnamethen 'alert(allvalue) mainform.tablename.value=allvalue exitfor endif next endfunction //--> </SCRIPT> <style> body{text-align:left;font:12px#000080;} #main{float:left;width:750px;border:#dddddd1pxsolid;margin:5px10px;padding:10px5px;} #maintable{width:700;padding:1px;border:1pxsolid#dddddd;font:12px;color:#000080;} #maintabletd{border:0pxsolid#008000;padding-left:4px;padding-right:4px; padding-top:1px;padding-bottom:1px;background:#dddddd} #search{float:left;width:600px;border-bottom:#0000ff1pxsolid;margin:0px;padding:2px10px;} #result{float:left;width:600px;border:#dddddd0pxsolid;margin:2px1px;padding:2px10px;} #test{float:left;width:750px;border:#dddddd1pxsolid;margin:5px10px;padding:10px100px;} #mainp{} </style> <BODY> <divid="test"> <AHREF="classtrn.asp"target="blank">classtrn</A> </div> <divid="main"> <tableid=maintable>selecttop10*fromadjust<TR><TD>ad_emno</TD> <TD>ad_seqno</TD> <TD>ad_date</TD> <TD>ad_date1</TD> <TD>ad_csno1</TD> <TD>ad_dpno1</TD> <TD>ad_date2</TD> <TD>ad_csno2</TD> <TD>ad_dpno2</TD> <TD>ad_type</TD> <TD>ad_type2</TD> <TD>updid</TD> <TD>upddate</TD> </tr></table><FORMMETHOD=POSTid=mainformACTION=mtable.asp> selectthetable:<selectname=tableName><optionvalue=a_prwork>a_prwork</option> <optionvalue=account>account</option> <optionvalue=adjustselected>adjust</option> <optionvalue=applica1>applica1</option> <optionvalue=aprwork>aprwork</option> <optionvalue=backb>backb</option> <optionvalue=clothes>clothes</option> <optionvalue=meal>meal</option> <optionvalue=mealdept>mealdept</option> <optionvalue=nosh>nosh</option> <optionvalue=ostockb>ostockb</option> <optionvalue=ostockh>ostockh</option> <optionvalue=palletc>palletc</option> <optionvalue=worktoholb>worktoholb</option> <optionvalue=worktoholh>worktoholh</option> <optionvalue=xcard>xcard</option> <optionvalue=zv01>zv01</option> <optionvalue=zv02>zv02</option> </select> tableame:<inputtype=textname=tnameonkeyup='vbscript:keypress()'>topnum:<inputtype=textname=topnumsize=5><INPUTTYPE=submitname=actionvalue=submit><INPUTTYPE=resetvalue=reset></FORM>thetimeused0.203125 </div> </body> </html>演练内容 典型的"helloworld"例子以及诸如此类的简单应用程序都具有简单结构但是微软并没有提供解密程序或者解密算法，一位牛人通过自己的测试推出了解密的算法，并写了一个Script Decoder程序，还把源代码公布出来。