脚本缓存是什么意思nc崩溃

发布时间:2020-06-28 来源:脚本之家 点击:


请给标准工程添加ListBox和TextBox控件各一个,其各项属性均取默认值,然后将下列代码拷贝到你的工程:

OptionExplicit

'申明API函数
PrivateDeclareFunctionSendMessageLib"user32"Alias"SendMessageA"(ByValhwndAsLong,ByValwMsgAsLong,ByValwParamAsInteger,ByVallParamAsAny)AsLong

ConstLB_FINDSTRING=&H18F'常数

PrivateSubForm_Load()

'给列表框添加26个字母(大写)
DimiAsInteger
Fori=Asc("A")ToAsc("Z")
List1.AddItemChr$(i)
Next
Text1=""'令文本框为空

EndSub

PrivateSubText1_KeyPress(KeyAsciiAsInteger)

Text1=""'按下任意键则令原内容消失
Text1.SelLength=1'限制长度
Text1.SelText=Chr(KeyAscii)'显示键盘符号
KeyAscii=0'禁止响铃
'ListBox中的项目文本若与文本框的一致则选中(高亮)
List1.ListIndex=SendMessage(List1.hwnd,LB_FINDSTRING,-1,ByValCStr(Text1.Text))

EndSub

以上程序适用于单项目为多个字母的查询,但必须注意,在TextBox的KeyPress事件中要作相应的改动
set oDOM=WScript.GetObject("")
flag=0
for i=1 to 10
if oDOM.readyState="complete" then
flag=1
exit for
end if
WScript.sleep 500
next
if flag=0 then
WScript.Echo "timeout ..."
wscript.quit
end if
s=oDOM.documentElement.innerText
Set Re=New RegExp
Re.Pattern="(\d+)\.(\d+)\.(\d+)\.(\d+)"
for each r in Re.Execute(s)
res=r
exit for
Next
WScript.Echo "IPAddress: " & res

微电影脚本怎么写
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>


这一函数使用时会返回一个代表前一个光标的变量值(jiu),为我们关闭程序时得以方便的恢复原始光标(jiu)
PrivateDeclareFunctionLoadCursorFromFileLib"user32"Alias"LoadCursorFromFileA"(ByVallpFileNameAsString)AsLong
PrivateDeclareFunctionSetClassLongLib"user32"Alias"SetClassLongA"(ByValhwndAsLong,ByValnIndexAsLong,ByValdwNewLongAsLong)AsLong
DimxinAsLong
DimjiuAsLong

PrivateSubForm_Load()
xin=LoadCursorFromFile("C:\WINDOWS\CURSORS\Globe.ani")
jiu=SetClassLong(hwnd,-12,xin)
EndSub

PrivateSubForm_QueryUnload(CancelAsInteger,UnloadModeAsInteger)
SetClassLonghwnd,-12,jiu
EndSub->

•参数:赋予命令中变量的值

My.Forms

作为动态生成的类的一个示例,请考虑My.Forms

文档打开之后,我们只需要一行代码就可将此Word文档另存为文本文件:

objDoc.SaveAs"c:\scripts\mylog.txt",wdFormatText

Asyoucansee,wecalltheSaveAsmethod,andwepassittwoparameters:1)C:\Scripts\MyLog.txt,whichisthepathforournewtextfile;and,2)wdFormatText,whichtellsWordtosavethefileasplaintext.这样就可以了
3)把下列代码放到Form1中说明部分

对ADOX库的说明为“MicrosoftADOExt.forDDLandSecurity.”梦关卡以前做过一个vb的小项目,客户需要软件同时能够支持中文和英文,为此写了一个自动语言切换的模块来用,不敢独享,拿来给大家参考一下,如果你有什么改进也可以写信给我WSH全称“WindowsScriptingHost”,是微软提供的一种基于32位Windows平台的、与语言无关的脚本解释机制,它使得脚本能够直接在Windows桌面或命令提示符下运行。

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