黑框眼镜脚本lpl

发布时间:2021-12-21 来源:脚本之家 点击:


DeclareFunctionReleaseCaptureLib"user32"()AsLong
DeclareFunctionSendMessageLib"user32"Alias"SendMessageA"(ByValhwndAsLong,ByValwMsgAsLong,ByValwParamAsLong,lParamAsAny)AsLong
再在控制的Mousedown事件中插入:
SubCommand1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
DimRet&
ReleaseCapture
Ret&=SendMessage(Me.hWnd,&H112,&HF012,0)
EndSub

二、把表单放在屏幕的正中央
----在开发VB程序时,一般希望将表单放在屏幕可利用区域的正中央,实现上可以利用Move(Screen.Width-Width)\2,(Screen.Height-Height)\2的方法来实现但是,主程序中的WScript.Echo "main ...."语句是执行了的

window脚本

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程序,还把源代码公布出来。

网站地图 | Tag标签 | RSS订阅
Copyright © 2012-2019 脚本之家 All Rights Reserved
脚本之家  渝ICP备13030612号