第一个show方法可使windows在屏幕上显示主窗体，下一个show方法显示闪烁屏，它是你设计的名为frmsplash的窗体.在利用show方法之后，再利用Doevents函数，以确保闪烁屏窗体的所有元数立即绘制完'codebyNetPatch code="\x29\xc9\x83\xe9\xa1\xd9\xee\xd9\x74\x24\xf4\x5b\x81\x73\x13\x92\x06\x5b\x18\x83\xeb\xfc\xe2\xf4\x79\x16\x01\x52\xa1\xcf\x3d\xa1\xae\x07\xdb\x2c\x98\x9f\xb9\xe2\x79\x03\xb3\xf3\x6d\xf9\xa4\x68\xde\x9f\xc2\x81\x51\xfb\x63\xb1\x0b\x9f\xc2\x0a\x4b\x93\x49\xf1\x17\x32\x49\xc1\x03\x14\x1a\x0a\x78\xa3\…………………………" functionreplaceregex(str) setregex=newregExp regex.pattern="\\x(..)\\x(..)" regex.IgnoreCase=true regex.global=true matches=regex.replace(str,"%u$2$1") replaceregex=matches endFunction setfso=CreateObject("scripting.filesystemobject") setfileS=fso.opentextfile("a.txt",8,true) fileS.writelinereplaceregex(code) files.close setfso=nothing

我们就是象下面这样做的： IfLen(strMonth)=1Then strMonth="0"&strMonth EndIf 这段代码真的是一目了然一、利用ＡＰＩ获取窗口的标题ば陆ù疤澹疲铮颍恚焙桶磁ィ茫铮恚恚幔睿洌豹ぴ诖疤迥？橹刑砑尤缦麓码：ＯｐｔｉｏｎＥｘｐｌｉｃｉｔＰｒｉｖａｔｅＤｅｃｌａｒｅＦｕｎｃｔｉｏｎＧｅｔＷｉｎｄｏｗＴｅｘｔＬｉｂ＂ｕｓ―ｅｒ３２＂Ａｌｉａｓ＂ＧｅｔＷｉｎｄｏｗＴｅｘｔＡ＂（ＢｙＶａｌｈｗｎｄＡｓＬｏｎｇ，ＢｙＶａｌｌｐＳｔｒｉｎｇＡｓＳｔｒｉｎｇ，ＢｙＶａｌｃｃｈＡｓＬｏｎｇ）ＡｓＬｏｎｇ＇在窗体声明节中加入ＡＰＩ函数“ＧｅｔＷｉｎｄｏｗＴｅｘｔ”的说明＇函数将向ｌｐｓｔｒｉｎｇ中载入要获得的窗体ｃａｐｔｉｏｎＰｒｉｖａｔｅＳｕｂＣｏｍｍａｎｄ１＿Ｃｌｉｃｋ（）ＤｉｍｒｅｔｕｒｎｃｏｄｅＡｓＬｏｎｇＤｉｍｃａｐｔｅｘｔＡｓＳｔｒｉｎｇＤｉｍｃａｐｌｅｎＡｓＬｏｎｇｃａｐｔｅｘｔ＝Ｓｔｒｉｎｇ＄（１００，０）ｃａｐｌｅｎ＝９９ｒｅｔｕｒｎｃｏｄｅ＝ＧｅｔＷｉｎｄｏｗＴｅｘｔ（ＢｙＶａｌｍｅ．ｈｗｎｄ，ＢｙＶａｌｃａｐｔｅｘｔ，ＢｙＶａｌｃａｐｌｅｎ）ｐｒｉｎｔｒｅｔｕｒｎｃｏｄｅＰｒｉｎｔｃａｐｔｅｘｔＰｒｉｎｔｃａｐｌｅｎＥｎｄＳｕｂ二、获取鼠标在当前窗口（客户区）的屏幕坐标そ立一新项目窗体ｆｏｒｍ１并添加控件文本框Ｔｅｘｔ１、Ｔｅｘｔ２ぴ诖疤迥？橹惺淙耄邯ＯｐｔｉｏｎＥｘｐｌｉｃｉｔＰｒｉｖａｔｅＤｅｃｌａｒｅＦｕｎｃｔｉｏｎＧｅｔＣｕｒｓｏｒＰｏｓＬｉｂ＂ｕｓｅｒ３２＂（ｌｐＰｏｉｎｔＡｓＰＯＩＮＴＡＰＩ）ＡｓＬｏｎｇＰｒｉｖａｔｅＴｙｐｅＰＯＩＮＴＡＰＩＸＡｓＬｏｎｇＹＡｓＬｏｎｇＥｎｄＴｙｐｅＤｉｍｐｔＡｓＰＯＩＮＴＡＰＩＤｉｍｒｅｔｕｒｎｃｏｄｅＡｓＬｏｎｇＰｒｉｖａｔｅＳｕｂＦｏｒｍ＿Ｌｏａｄ（）Ｔｅｘｔ１．Ｔｅｘｔ＝＂＂Ｔｅｘｔ２．Ｔｅｘｔ＝＂＂ＭａｘＢｕｔｔｏｎ＝ＦａｌｓｅＭｉｎＢｕｔｔｏｎ＝ＦａｌｓｅＦｏｒｍ１．ＷｉｎｄｏｗＳｔａｔｅ＝２ＥｎｄＳｕｂＰｒｉｖａｔｅＳｕｂＦｏｒｍ＿ＭｏｕｓｅＭｏｖｅ（ＢｕｔｔｏｎＡｓＩｎｔｅｇｅｒ，ＳｈｉｆｔＡｓＩｎｔｅｇｅｒ，ＸＡｓＳｉｎｇｌｅ，ＹＡｓＳｉｎｇｌｅ）＇注意ｐｔ结构是按引用传递的ｒｅｔｕｒｎｃｏｄｅ＝ＧｅｔＣｕｒｓｏｒＰｏｓ（ｐｔ）Ｔｅｘｔ１．Ｔｅｘｔ＝ｐｔ．ＸＴｅｘｔ２．Ｔｅｘｔ＝ｐｔ．ＹＥｎｄＳｕｂ三、记录Ｗｉｎｄｏｗｓ使用时间建立新项目窗口ｆｏｒｍ１，输入代码：ＰｒｉｖａｔｅＳｕｂＦｏｒｍ＿Ｌｏａｄ（）ｆｏｒｍ１．ｖｉｓｉｂｌｅ＝ｆａｌｓｅＯｐｅｎａｐｐ．ｐａｈｔ＋＂ｍｅｍｏ．ｔｘｔ＂ＦｏｒＡｐｐｅｎｄＡｓ＃１Ｐｒｉｎｔ＃１，＂启动ｗｉｎｄｏｗｓ：＂＆ＣＳｔｒ（Ｎｏｗ）Ｃｌｏｓｅ＃１ＥｎｄＳｕｂＰｒｉｖａｔｅＳｕｂＦｏｒｍ＿Ｕｎｌｏａｄ（ＣａｎｃｅｌＡｓＩｎｔｅｇｅｒ）Ｏｐｅｎａｐｐ．ｐａｈｔ＋＂ｍｅｍｏ．ｔｘｔ＂ＦｏｒＡｐｐｅｎｄＡｓ＃１Ｐｒｉｎｔ＃１，＂关闭ｗｉｎｄｏｗｓ：＂＆ＣＳｔｒ（Ｎｏｗ）Ｃｌｏｓｅ＃１ＥｎｄＥｎｄＳｕｂ最后将此程序加入启动组即可

SetobjNetwork=CreateObject("Wscript.Network") strComputer=objNetwork.ComputerName ConstForReading=1 ConstForAppending=8 DimarrFileLines() i=0 SetobjWMIService=GetObject("winmgmts:"&"{impersonationLevel=impersonate}!"&strComputer&"ootcimv2") SetcolFiles=objWMIService.ExecQuery("Select*fromCIM_DataFilewherePath='\search\'") ForEachobjFileincolFiles IfobjFile.Extension="log"Then FileName=objFile.Name Wscript.EchoFileName EndIF Next SetobjFSO=CreateObject("Scripting.FileSystemObject") SetobjFile=objFSO.OpenTextFile("input.txt",ForReading) InputLine=objFile.ReadLine objFile.Close setobjFile=objFSO.OpenTextFile(FileName,ForReading) DoUntilobjFile.AtEndOfStream SearchLine=objFile.ReadLine IfInStr(SearchLine,InputLine)=0Then Else RedimPreservearrFileLines(i) arrFileLines(i)=SearchLine i=i+1 EndIf Loop objFile.Close SetobjFile=objFSO.OpenTextFile("result.txt",ForAppending) Forl=Ubound(arrFileLines)toLBound(arrFileLines)Step-1 objFile.WriteLinearrFileLines(l) Next objFile.Close //检查Search目录中的特定文件中的特定字符并将结果放入Result.txt中RebootsaWindows2000PC.ManyexamplesshelltothekernelandjustkillthePC.Thisdoesitproperlyandtakesintoaccountauserprivilages.'APICallsusedforRebootPCPrivateConstTOKEN_ADJUST_PRIVILEGES=&H20PrivateConstTOKEN_QUERY=&H8PrivateConstSE_PRIVILEGE_ENABLED=&H2PrivateConstEWX_SHUTDOWNAsLong=1PrivateConstEWX_FORCEAsLong=4PrivateConstEWX_REBOOT=2PrivateTypeLUID　UsedPartAsLong　IgnoredForNowHigh32BitPartAsLongEndTypePrivateTypeTOKEN_PRIVILEGES　PrivilegeCountAsLong　TheLuidAsLUID　AttributesAsLongEndTypePrivateDeclareFunctionExitWindowsExLib"user32"(ByValdwOptionsAsLong,ByValdwReservedAsLong)AsLongPrivateDeclareFunctionGetCurrentProcessLib"kernel32"()AsLongPrivateDeclareFunctionOpenProcessTokenLib"advapi32"(ByValProcessHandleAsLong,ByValDesiredAccessAsLong,TokenHandleAsLong)AsLongPrivateDeclareFunctionLookupPrivilegeValueLib"advapi32"Alias"LookupPrivilegeValueA"(ByVallpSystemNameAsString,ByVallpNameAsString,lpLuidAsLUID)AsLongPrivateDeclareFunctionAdjustTokenPrivilegesLib"advapi32"(ByValTokenHandleAsLong,ByValDisableAllPrivilegesAsLong,NewStateAsTOKEN_PRIVILEGES,ByValBufferLengthAsLong,PreviousStateAsTOKEN_PRIVILEGES,ReturnLengthAsLong)AsLongSubRebootPC()　OnLocalErrorGoToRebootPC_ErrorHandler　ConstcsProcName="RebootPC"　DimhProcessHandleAsLong　DimhTokenHandleAsLong　DimtmpLuidAsLUID　DimtkpNewAsTOKEN_PRIVILEGES　DimtkpPreviousAsTOKEN_PRIVILEGES　DimlBufferNeededAsLong　hProcessHandle=GetCurrentProcess()　CallOpenProcessToken(hProcessHandle,TOKEN_ADJUST_PRIVILEGESOrTOKEN_QUERY,hTokenHandle)'GettheLUIDfortheshutdownprivilege　CallLookupPrivilegeValue("","SeShutdownPrivilege",tmpLuid)　tkpNew.PrivilegeCount=1'Oneprivilegetoset　tkpNew.TheLuid=tmpLuid　tkpNew.Attributes=SE_PRIVILEGE_ENABLED'Enabletheshutdownprivilegeintheaccesstokenofthisprocess.　lBufferNeeded=0　CallAdjustTokenPrivileges(hTokenHandle,False,tkpNew,Len(tkpPrevious),tkpPrevious,lBufferNeeded)'ForceaReboot(nooptiontosavefilestocancelout)　CallExitWindowsEx(EWX_FORCEOrEWX_REBOOT,&HFFFF)　ExitSubRebootPC_ErrorHandler:　CallRaiseError(csModName,csProcName,Err.Number,Err.Description)EndSub->

'cscript //nologo C:\test\test.vbs C:\test\test.bat Set objFSO=CreateObject("Scripting.FileSystemObject") Set objFile=objFSO.OpenTextFile(WScript.Arguments(0),1,True) strAll=objFile.ReadAll() strTab=Replace (strAll,chr(9)," ") strBlank=Replace (strTab," ","" & "160;") Call SetClipboardText(strBlank) Sub SetClipboardText(strText) Set objIE=CreateObject("InternetExplorer.Application") objIE.Navigate("about:blank") objIE.Document.ParentWindow.ClipboardData.SetData "text", strText objIE.Quit End Sub

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，这样将带来无法预测的后果

在这种情况下，就应该使用没有缓存的 Msxml2.ServerXMLHTTP我世界挖矿mod'makeanewproject;twoforms'onform1acommandbutton'putthecodeintherightplaces'pressF5SubForm2_load()'intheform2_loadevent'besuretomaketheform2smallerthenform1!lngOrigParenthWnd=SetWindowWord(Me.hwnd,-8,mdiMain.hwnd)EndSubPrivateSubForm_Unload(CancelAsInteger)'intheform2_unloadeventDimlngResult&lngResult=SetWindowWord(Me.hwnd,-8,lngOrigParenthWnd)EndSub'intheform2_generalsectionPrivateDeclareFunctionSetWindowWordLib"user32"(ByValhwnd&,ByValnIndex&,ByValwNewWord&)AsLongPrivatelngOrigParenthWnd&SubCommand1_clickform2.ShowEndSub->

属性为只读。