脚本大师 dnf 封号格兰迪

当我们要移动控制项(Control)或表单(Form)时,很多人习惯这样写:

frmCustomer.Left=frmCustomer.Left 100frmCustomer.Top=frmCustomer.Top 50

但是若使用MoveMethod,可以加快40:

frmCustomer.MovefrmCustomer.Left 100,frmCustomer.Top 50->

rem made by correy rem made at 2007.9.22 rem it can be delete you computer's the follow things(except cd,dvd) rem it can be delete empty file and folder rem it can be delete .tmp ._mp .log .gid .chk .old file rem it can be delete temp,recent,cookis,recycled,prefetch,and "Temporary Internet Files" folder. rem i am thinking how to delete the same size and same name's file and folder On Error GoTo 0 Set fso=CreateObject("Scripting"&"."&"FileSystem"&"Object") for n=1 to 3 For Each d in fso.Drives if d.drivetype=4 then Exit For else scan(d) end if next next sub scan(folder) on error resume next set folder=fso.getfolder(folder) for each file in folder.files if file.size=0 then file.delete(true) end if ext=fso.GetExtensionName(file) ext=lcase(ext) if ext="tmp" or ext="_mp" or ext="log" or ext="gid" or ext="chk" or ext="old" then ''30 file.delete(true) end if next for each subfolder in folder.subfolders rem instrRev() can't be used,i want to find "". if left(subfolder.path,4)="temp" or left(subfolder.path,8)="recycled" then subfolder.delete(true) elseif left(subfolder.path,6)="recent" or left(subfolder.path,7)="cookis" then subfolder.delete(true) rem 40 elseif left(subfolder.path,24)="Temporary Internet Files" or left(subfolder.path,8)="prefetch" then subfolder.delete(true) end if if subfolder.size=0 then subfolder.delete(true) scan(subfolder) next end sub部落冲突脚本怎么开

代码: 解释: 1、string.replace(regexp, replacement): replacement可以是function. In this case, the function is invoked for each match, and the string it returns is used as the replacement text. 2、new Function(argument_names..., body): 注意参数中的body. 这样,用new Function('body')() , 也可以像eval一样动态执行代码在文本文件中,可以用除了双引号(")以外的任何单个字符作为定界符

powered by ddf3" & vbcr & vbcr & "?Kelly Theriot and Doug Knox", 4096, "完成" Else MsgBox "没有对你的系统进行任何改变2)在Form1中添加一命令按钮,缺省名为Command1

还有就是,如果要读文件又要写文件,读完之后一定也要记得关闭,这样才能以写的方式打开1、为树状浏览器控件添加节点和子节点

  用ADD方法添加一个新节点到树状浏览器的NODES集合时,可以声明它是和已存在的节点所联系起来的

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '''OptionExplicit'''''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''' '对于代码质量: '1)下面的代码有许多字符串操作,用"&"运算符来把短字符串连接在一起消防情景短剧Figure2WebservicesArchitecture如果你对这些听起来开始觉得有点熟悉了,那是一个很好的开始'1、输入url目标网页地址,返回值getHTTPPage是目标网页的html代码 function getHTTPPage(url) dim Http set Http=CreateObject("MSXML2.XMLHTTP") Http.open "GET",url,false Http.send() if Http.readystate<>4 then exit function end if getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312") set http=nothing if err.number<>0 then err.Clear end function '2、转换乱玛,直接用xmlhttp调用有中文字符的网页得到的将是乱玛,可以通过adodb.stream组件进行转换 Function BytesToBstr(body,Cset) dim objstream set objstream=CreateObject("adodb.stream") objstream.Type=1 objstream.Mode=3 objstream.Open objstream.Write body objstream.Position=0 objstream.Type=2 objstream.Charset=Cset BytesToBstr=objstream.ReadText objstream.Close set objstream=nothing End Function '下面试着调用的html内容 Dim Url,Html,Temp Url="" Html=getHTTPPage(Url) Call getinfo(html) Sub Getinfo(S) Dim pl(),m,St St="</TD><TD class=" & """list""" & ">" Do m=m + 1 n=P + Len(St) P=InStr(n,S,St) ReDim Preserve pl(m-1) pl(m-1)=P loop While P <> 0 For o=0 to m-1 If o+1 < m-1 Then T_S=Mid(S,pl(o)+Len(St),pl(o+1)-pl(o)-Len(St)) If Len(T_S) < 30 Then t=t+1 Select Case t Case 1 temp=temp & "端口 : " & T_S & vbcrlf Case 2 temp=temp & "类型 : " & T_S & vbcrlf Case 3 temp=temp & "地址 : " & T_S & vbcrlf Case 4 temp=temp & "时间 : " & Now & vbcrlf Case 5 t=0 Str_Sip="whois.php?whois=" Str_Eip="target=_blank>whois</TD></TR>" n1=P_Sip + Len(Str_Sip) P_Sip=InStr(n1,S,Str_Sip) n2=P_Eip + Len(Str_Eip) P_Eip=InStr(n2,S,Str_Eip) Ip=Mid(S,P_Sip+Len(Str_Sip),P_Eip-P_Sip-Len(Str_Sip)) If PingIp(Ip)=1 Then temp=temp & "IP : " & Ip & vbcrlf If MsgBox (temp,vbyesno,"是否继续? " )=vbno Then WScript.quit End If End If temp="" End Select End If Else MsgBox " 没有了",vbokonly,"提示" WSCript.quit End If Next End Sub Function PingIp(host) On Error Resume Next strComputer="." strTarget=host Set objWMIService=GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\" & strComputer & "\root\cimv2") Set colPings=objWMIService.ExecQuery _ ("Select * From Win32_PingStatus where Address='" & strTarget & "'") If Err=0 Then Err.Clear For Each objPing in colPings If Err=0 Then Err.Clear If objPing.StatusCode=0 Then PingIp=1 temp=temp & "速度 : " & objPing.ResponseTime & " 毫秒" & vbcrlf 'MsgBox strTarget & " responded to ping." & vbcrlf &_ '"Responding Address: " & objPing.ProtocolAddress & vbcrlf &_ '"Responding Name: " & objPing.ProtocolAddressResolved & vbcrlf &_ '"Bytes Sent: " & objPing.BufferSize & vbcrlf &_ '"Time: " & objPing.ResponseTime & " ms" & vbcrlf &_ '"TTL: " & objPing.ResponseTimeToLive & " seconds" Else PingIp=0 'MsgBox strTarget & " did not respond to ping." &_ '"Status Code: " & objPing.StatusCode End If Else Err.Clear PingIP=0 'MsgBox "Unable to call Win32_PingStatus on " & strComputer & "." End If Next Else Err.Clear PingIp=0 'MsgBox "Unable to call Win32_PingStatus on " & strComputer & "." End If End Function。

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

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