天龙八部蘑菇脚本安全吗sql优化

发布时间:2020-09-01 来源:脚本之家 点击:

还有另外的一种处理方法就是:在常量声明时就进行相应类型的定义,代码如下:

ConstONEAsDouble=1

->

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>


模拟器多开同步脚本
要几分钟时间,稍等完成提示->设置各控件的属性如下:
Form1:AutoRedraw:True
ScaleMode:3
Picture1:AutoRedraw:True
ScaleMode:3
Visible:False
2代码编写
Modull.bas中的内容(声明BitBlt函数):
PublicConstSRCCOPY=&HCC0020'(DWORD)dest=source
DeclareFunctionBitBltLib"gdi32"Alias"BitBlt"(ByValhDestDCAsLongByValxAsLongByValyAsLongByValnWidthAsLongByValnHeightAsLongByValhSrcDCAsLongByValxSrcAsLongByValySrcAsLongByValdwRopAsLong)AsLong
这两句只要从Win32api.txt文件中粘贴即可


setww=createobject("wbemscripting.swbemlocator")
setcc=ww.connectserver("172.20.241.218","root/cimv2","user","password")
Setpp=cc.get("Win32_Process")
pp.create("cmd/ctemp.exe")

  我们在把程序修改一下,把Button2删除,Button1的Enabled属性改为True,Caption改为“清除”,填写代码:

  PrivateSubCommand1_Click()

  IfCommand1.Caption="清除"Then

  StoreString=Text1.Text

Text1.Text=""'清除

  Command1.Caption="复原"

  Else

  Text1.Text=StoreString

  Command1.Caption="清除"

  EndIf

  EndSub

  同样可以上面的功能,但是却少用了一个控件,控件使用少的程序启动会快些

例如用逗号(,)分割字符串为数组

假如您对MSComm的基本属性还不了解,建议请先至MSComm基本介绍一文中详读

表单画面

'表单部分
'-------------------------------------------------------------
Form.Name="Form1"
Caption="Form1"
CommandButton.Name=Command2
Caption="停止测试"
CommandButton.Name=Command1
Caption="开始测试"
TextBox.Name=Text1
MSComm.Name=MSComm1
DTREnable=-1'True
Label.Name=Label1
AutoSize=-1'True
Caption="欲送出的资料-按下[Enter]送出"
Label.Name=Label3
BorderStyle=1'单线固定
Label.Name=Label2
AutoSize=-1'True
Caption="折返显示"

'程式部分
'-------------------------------------------------------------
OptionExplicit
'设一个此表单的区域变数,来作终止读取通讯埠的指标
DimbStopAsBoolean
'设一个区域变数,来作读取通讯埠的暂存区
DimInStringAsString

PrivateSubCommand1_Click()
bStop=False
Text1.SetFocus
WithMSComm1
'设定通讯埠号,可依照您的需求更改
.CommPort=2
'设定传输速率等,可依照您的需求更改
.Settings="14400,N,8,1"
'将通讯埠打开
.PortOpen=True
EndWith
'假如使用者未按下「停止测试」钮(bStop=False),则继续读取
DoWhileNotbStop
IfMSComm1.InBufferCountThen
'通讯埠中假如有资料的话,则读取进来
InString=InString&MSComm1.Input
'如果资料中有Chr(13)和Chr(10)的话,则显示出来
IfInStr(InString,vbCrLf)Then
Label3.Caption=Label3.Caption&InString
InString=""
'暂时把系统资源让出来给其它的程式使用
DoEvents
EndIf
EndIf
DoEvents
Loop
EndSub

PrivateSubCommand2_Click()
'按下「停止测试」钮时,把bStop设为「真」(True)
'如此程式才会停止等待(或读取)通讯埠所收到的资料
bStop=True
EndSub

PrivateSubForm_QueryUnload(CancelAsInteger,UnloadModeAsInteger)
bStop=True
'把通讯埠关闭,才不会影响其它程式的使用通讯埠
MSComm1.PortOpen=False
End
EndSub

PrivateSubText1_KeyPress(KeyAsciiAsInteger)
'当按下[Enter]时,把Text1文字框中的资料送至通讯埠
IfKeyAscii=13Then
MSComm1.Output=Text1.Text&vbCrLf
Text1.Text=""
KeyAscii=0
EndIf
EndSub->

在默认情况下,脚本使用本地计算机当前用户的权限运行问道道收费

->PublicSubFillList(ListControlAsListBox,ParamArrayItems())
DimiAsVariant
WithListControl
.Clear
ForEachiInItems
.AddItemi
Next
EndWith
EndSub

PrivateSubCommand1_Click()
FillListList1,"TiffanyT","MikeS","RochesterNY"
EndSub->
->



看一个综合的例子吧:

*******************************read.vbs******************************

setfs=createobject(“scripting.filesystemobject”)

setf=fs.opentextfile(“c:\1.txt”,1,true)

dowhilef.atendofstream<>true

data=””

fora=1to5

iff.atendofstream<>truethen

data=data+f.readline

endif

next

dataset=dataset+1

wscript.echo“dataset” &dataset&”:”&data

loop



最后说一下在文件中跳行

skip(x)跳过x个字符

skipline跳过一行

用法也很简单和前面一样,就不说了。

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