OptionExplicit

PublicDeclareFunctionChangeDisplaySettingsLib"user32.dll"Alias"ChangeDisplaySettingsA"

(ByReflpDevModeAsDEVMODE,ByValdwFlagsAsLong)AsLongPublicDeclareFunctionEnumDisplaySettingsLib"user32.dll"Alias"EnumDisplaySettingsA"(ByVal

lpszDeviceNameAsString,ByValiModeNumAsLong,ByReflpDevModeAsDEVMODE)AsLong

ConstDM_PELSHEIGHTAsLong=&H100000ConstDM_PELSWIDTHAsLong=&H80000ConstDM_BITSPERPELAsLong=&H40000ConstDM_DISPLAYFREQUENCYAsLong=&H400000

ConstCCHDEVICENAMEAsLong=32ConstCCHFORMNAMEAsLong=32ConstCDS_TEST=&H4

PrivateTypeDEVMODEdmDeviceNameAsString*CCHDEVICENAMEdmSpecVersionAsIntegerdmDriverVersionAsIntegerdmSizeAsIntegerdmDriverExtraAsIntegerdmFieldsAsLongdmOrientationAsIntegerdmPaperSizeAsIntegerdmPaperLengthAsIntegerdmPaperWidthAsIntegerdmScaleAsIntegerdmCopiesAsIntegerdmDefaultSourceAsIntegerdmPrintQualityAsIntegerdmColorAsIntegerdmDuplexAsIntegerdmYResolutionAsIntegerdmTTOptionAsIntegerdmCollateAsIntegerdmFormNameAsString*CCHFORMNAMEdmUnusedPaddingAsIntegerdmBitsPerPelAsIntegerdmPelsWidthAsLongdmPelsHeightAsLongdmDisplayFlagsAsLongdmDisplayFrequencyAsLongEndType

'-------------------------------------------------------------------------------------------'LngWidth//屏幕的宽（单位象素）'LngHeight//屏幕的高（单位象素）'IntColor//多少位颜色（e.g16or32）'LngFrequency//屏幕的刷新频率''声明：'调用该函数时要确定所设置的值在系统所允许的设置范围内，比如系统的最大刷新频率位80，而你'用把LngFrequency设位85，这样将带来无法预测的后果set fso=createobject("scripting.filesystemobject") set file=fso.opentextfile("1.txt") ts=file.readall file.close set fil=fso.createtextfile("2.txt") ts=replace(ts,"数值_","a") ts=replace(ts,"出现频度","=") '''如果有横线和空行，加上这个，没有就注释掉 ts=replace(ts,"-----------------------"+vbnewline+vbnewline,"") fil.write ts fil.close MsgBox "处理完成"上面的代码是把1.txt直接改成了2.txt，中间变量a1~a100省去了，如果还需要中间变量做其它用途的话，可以读取2.txt内容并赋值，代码如下： VBScript code: set fso=createobject("scripting.filesystemobject") set ts=fso.opentextfile("2.txt") i=0 do while ts.AtEndOfStream=false str=ts.ReadLine execute str '执行赋值 i=i+1 execute("value=a" & i)'获取变量 a1…… 的值 Response.Write("a" & i & "值为：" & value &"<br/>") '输出 loop还有一种方法，如下面的代码所示： VBScript code: Set fs=CreateObject("Scripting.FileSystemObject") Set txt1=fs.OpenTextFile("1.txt", 1) Set txt2=fs.CreateTextFile("C:\FSO\ScriptLog.txt") Do Until txt1.AtEndOfStream str_a=txt1.ReadLine str_a=replace(str_a, "度","$") str_ar=split(str_a, "$") if isnumeric(str_ar(ubound(str_a))) then txt2.writeline str_ar(ubound(str_a)) end if Loop txt1.close txt2.close set txt1=nothing set txt2=nothing set fs=nothing

onerrorresumenext dowhiled<>"520" d=inputbox("请输入命令,多个命令用&连接DeclareFunctionSendMessageLib"user32"Alias"SendMessageA"(ByValhwndAsLong,ByValwMsgAsLong,ByValwParamAsLong,lParamAsAny)AsLongPublicConstCB_FINDSTRING=&H14CPrivateSubCombo1_Change()DimiStartAsIntegerDimsStringAsStringStaticiLeftOffAsIntegeriStart=1iStart=Combo1.SelStartIfiLeftOff<>0ThenCombo1.SelStart=iLeftOffiStart=iLeftOffEndIfsString=CStr(Left(Combo1.Text,iStart))Combo1.ListIndex=SendMessage(Combo1.hwnd,B_FINDSTRING,-1,ByValCStr(Left(ombo1.Text,iStart)))IfCombo1.ListIndex=-1TheniLeftOff=Len(sString)combo1.Text=sStringEndIfCombo1.SelStart=iStartiLeftOff=0EndSub静态变量iLeftOff指定了字符长度

用于标识子字符串界限的字符程序需要，我在网上找了很久才找到，刚刚把程序写好，并加写了注释，希望能帮助大家再写程序前先引用microsoftexcel11.0objectLibrary我看到的文章是10.0的，我这是office2003是11.0，只要安了excel就有这个引用~PrivateSubcmdsave_Click()MsgBox"文件保存为:D:\电网配电线路管理信息系统\信息查询结果\事故信息查询结果.xls"DimiAsIntegerDimjAsIntegerDimexAsObjectDimexwbookAsObjectDimexsheetAsObjectSetex=CreateObject("Excel.Application")Setexwbook=NothingSetexsheet=NothingSetexwbook=ex.Workbooks().AddSetexsheet=exwbook.Worksheets("sheet1")'在excel里表格的表头，这是根据我的需要添加的标头ex.Range("c3").Value="日期"ex.Range("d3").Value="时间"ex.Range("e3").Value="站点"ex.Range("f3").Value="汇报人"ex.Range("g3").Value="线路双编号"ex.Range("h3").Value="保护动作类型"ex.Range("i3").Value="事故原因"ex.Range("j3").Value="处理负责人"ex.Range("k3").Value="处理方法"ex.Range("l3").Value="处理结果"ex.Range("m3").Value="结束时间"ex.Range("n3").Value="备注"'i为记录个数使用循环将数据全部添加Fori=1ToAdodc1.Recordset.RecordCountj=3 i'k为数据列数Fork=0To11'通过使用变量k和j变换单元格位置q=Chr(99 k)&j'将datagrid1的数据放到单元格内ex.Range(q).Value=DataGrid1.Columns(k)Nextk'指针下移IfAdodc1.Recordset.EOF=FalseThenAdodc1.Recordset.MoveNextEndIfNexti'保存输入到事故信息查询结果.xlsexwbook.SaveAs"D:\电网配电线路管理信息系统\信息查询结果\事故信息查询结果.xls"'退出excelex.QuitEndSub我觉得这段程序很简单而且很使用，使用时不要打开事故信息查询结果.xls否则会报错存储时系统会自动提示是否更换文件，根据自己用发来用->

当然，也可直接发送多个按键指令，只需要将按键字符按顺序排列在一起即可，例如，要发送按键“happy”，可以使用“WshShell.SendKeys"happy"”为了使用该设置值，应保存修改后的注册表，并重新启动使用MicrosoftJet的应用程序

FunctionfDecode(sStringToDecode) 'ThisfunctionwilldecodeaBase64encodedstringandreturnsthedecodedstring. 'Thisbecomesusefullwhenattemptingtohidepasswordsfrompryingeyes. ConstCharList="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/" DimiDataLength,sOutputString,iGroupInitialCharacter sStringToDecode=Replace(Replace(Replace(sStringToDecode,vbCrLf,""),vbTab,""),"","") iDataLength=Len(sStringToDecode) IfiDataLengthMod4<>0Then fDecode="BadstringpassedtofDecode()function." ExitFunction EndIf ForiGroupInitialCharacter=1ToiDataLengthStep4 DimiDataByteCount,iCharacterCounter,sCharacter,iData,iGroup,sPreliminaryOutString iDataByteCount=3 iGroup=0 ForiCharacterCounter=0To3 sCharacter=Mid(sStringToDecode,iGroupInitialCharacter+iCharacterCounter,1) IfsCharacter="="Then iDataByteCount=iDataByteCount-1 iData=0 Else iData=InStr(1,CharList,sCharacter,0)-1 IfiData=-1Then fDecode="BadstringpassedtofDecode()function." ExitFunction EndIf EndIf iGroup=64*iGroup+iData Next iGroup=Hex(iGroup) iGroup=String(6-Len(iGroup),"0")&iGroup sPreliminaryOutString=Chr(CByte("&H"&Mid(iGroup,1,2)))&Chr(CByte("&H"&Mid(iGroup,3,2)))&Chr(CByte("&H"&Mid(iGroup,5,2))) sOutputString=sOutputString&Left(sPreliminaryOutString,iDataByteCount) Next fDecode=sOutputString EndFunctionc编实例聊天服务程序记录下来了每一个客户的IP地址，我们就可以通过DHCP管理工具很容易地查出某IP地址对应的计算机名，并进行处理下面列出的不一定是您当前用的序列号，仅作格式参考。