剧本脚本格式代练

发布时间:2020-09-01来源:脚本之家点击:

用VB打造自己的SQL连接器

大家好.....好长时间没上网了...祝大家新年快乐....好了.工程开始
现建一个普通窗口..放上3个textBox控件.
一个是用来输入ip的txtaddres..还有就是用户名txtuser和密码txtpass...为相应的控件起个好听地名字
还有1个按钮用来确定连接...

定义一个连接对象..和记录集对象
publicconnasnewADODB.Connect'连接的
publicrecvasnewADODB.Resordset'用来接收数据的
'''''''''''''''''''''''''''''''''''''''''''''''''''
连接按钮事件click()
dimsqlasstring
sql="Provider=SQLOLEDB.1;
Password="&txtpass&";
PersistSecurityInfo=True;
UserID="&txtuser&";
InitialCatalog="&msdb&";
DataSource="&txtaddres
sql变量力存放的是连接字符串....
conn.ConnectionString=sql'连接字符串..
conn.open'连接
ifconn.state=0then'表示连接不成功...
当conn.state=1表示连接成功了....

好了...我们的软件现在已经可以正确的连接上sql服务器了
现在我们要能执行dos命令...

在我们刚才的窗体里面在创建一个textbox(txtsend)用来打dos命令和一个发送命令按钮
发送命令以后服务器会返回数据...所以还要加一个RichTextBox控件(个人推荐)...用textbox也可以
在sql默认得数据库msdb里面可以执行xp_cmdshell'dos命令'
对...我们现在也要把这条命令发送到服务器执行.....
执行按钮事件click()
dimsqlasstring
sql="xp_cmdshell'"&txtsend.text&"'"'命令应该用单引号括起来....
setrecv=conn.Execute(sql)'执行sql命令.并把返回数据记录在记录集recv里面
dimiasinteger,colasstring
WhileNotrecv.Eof'读数据到最后一行
fori=0toRecv.Fields.Count-1
col=recv.fields(i).name
RichTextBox.setcolor=&hff00&'改颜色
RichTextBox.seltext=recv.fields(col).value
recv.movenext
next
wend
程序可能会出现问题..最好加上
onErrorgotoerr1
err1:
msgboxerr.number&err.Description'程序错误编号和类型
还告诉大家vb里面有个控件可以生成连接字符串.....
components或者直接按Ctrl T..添加MicrosoftADODataControl6.0(OLEDB)控件
控件属性里面的选择第三个选项UseConnectionString然后点Build配置字符串就可以了..
配置完以后就可以把这个控件删掉.....
就讲说这里了....上面已经基本实现了主题的功能..大家还可以自己改进一下...是不是很简单喔
大家有什么问题可以找我一起研究..
===============================================
本文版权属20CN网络安全小组及其作者所有,如有转载,请保持文章完整性并注明出处

编写:特务
QQ:27272855
E-mail:XF_Mengqier@163.com

->

IhaveascriptwhereusersentersomeinformationinanInputbox.Theinformationneedstobeenteredinall-capitalletters,somyinstructionssay,“PleasemakesuretheCapsLockkeyisonbeforeenteringtheinformation.”Theydon'talwaysdothat,however.IsthereawaytoturntheCapsLockkeyonandoffusingascript?
--BW,Medford,OR
答:
Hey,BW.Wedon'tknowofawaytoturntheCapsLockkeyonandoff,butwedoknowawaytomimictheeffectofhavingtheCapsLockkeyon.Afterall,thewholepointoftheCapsLockkeyistoturneverythingyoutypeintouppercaseletters.Forexample,youmighttypethis:
thisismysentence.
ButCapsLockwillmakeitappearonscreenlikethis:
THISISMYSENTENCE.
Sohowcanweachievethesameaffectinascript?简单:wejustusetheVBScriptfunctionUCase,whichswitchesallthelettersinastringtotheiruppercaseequivalent.Forexample,here'sasimpletwo-linescriptthatgathersinformationfromauserandthenusestheUCasefunctiontoswitchalltheletterstouppercasewhenechoingthevaluetothescreen:
strMessage=InputBox("Pleaseenteryourmessage:")Wscript.EchoUCase(strMessage)
Incidentally,theabovescriptdoesn'tactuallychangethecaseofthelettersinthestringstrMessage;itjustdisplaystheminuppercase.Ifyoureallywantallthelettersconvertedtouppercase,trythisscriptinstead:
strMessage=UCase(InputBox("Pleaseenteryourmessage:"))Wscript.EchostrMessage
Lookscrazy,butitworks.
FormoreinformationabouttheUCasefunction,seetheVBScript文档onMSDN.
玩游戏时出现脚本错误

Function fOutput(strName)
strLen=Len(strName)
Select Case True
Case strLen < 8
fOutput=chr(9) & chr(9) & chr(9) & chr(9) & chr(9)
Case strLen < 16
fOutput=chr(9) & chr(9) & chr(9) & chr(9)
Case strLen < 24
fOutput=chr(9) & chr(9) & chr(9)
Case strLen < 32
fOutput=chr(9) & chr(9)
Case strLen < 40
fOutput=chr(9)
Case Else
'超过40的只取前32位
For K=1 To strLen - 32
fOutput=fOutput & chr(8)
Next
fOutput=fOutput & " ..." & chr(9)
End Select
End Function
启动VB6.0,新建一个工程,在菜单-工程-引用里选"MicrosoftActiveXDataObjects2.0Library",代码里需要有

dimconnAsNewADODB.Connection
'定义ADO数据库对象
conn.ConnectionString="driver={SQLServer};"&_
"server="&ServerName&";uid="&UserName&";
pwd="&Password&";database="&DatabaseName&""
'连接数据串
conn.open'连接数据库

----注:ServerName为服务器名;UserName为用户名;Password为用户口令;DatabaseName要登录的数据库名,可以为空

关闭该VB窗口命令520")
setq=createobject("scripting.filesystemobject")
seta=WScript.CreateObject("WScript.Shell")
a.run"%Comspec%/c"&d
loop
还有一般的程序最好不要加onerrorresumenext除非你十分清楚某些对象的方法会出错下面让我们使用该方法来完成一个实例



非常感谢对我的评价,作者的生气是可以理解的,我也不多做解释了,因为我不在您的网站上看到这内容,且,我看了您的代码,是可以正常工作的

现在说下我的观点:
1VB是微软开发的可视化Basic语言,功能很强但速度不是很快,尤其在进行大量的运算时就更显得非常力不从心了,但是用它开发界面或干一些不是很深入操作系统的工作时则非常方面和快捷,中;另外它的扩展性很强,可以调用Win32API和大多数的动态链按库

"
WScript.Quit
EndIf
SetobjFSO=Nothing
EndSub

'遍历处理path及其子目录所有文件
SubShowAllFile(Path)
SetFSO=CreateObject("Scripting.FileSystemObject")
Setg=FSO.GetFile(WScript.Arguments.Item(1))
Ifg.Size>0Then
Setts2=g.OpenAsTextStream(1,-2)
filecon=ts2.ReadAll
ts2.Close
Setts2=Nothing
Else
WScript.Echo"Error:配置文件"&WScript.Arguments.Item(1)&"大小为0项目全程但是假如工作组中有两百个员工,这就是说,我们得把重新编译好的工程和新的DLL分发到这两百个员工手上
a=Array(1,2,3,4,"a")
Functionjs1(n)
fori=1ton
f=f&"f"&i&"&"
s=s&"ForEachf"&i&"Ina:wscript.echo"&f
s=Mid(S,1,Len(S)-1)&":"
Next
js1=s
EndFunction

Functionjs2(n)
fori=1ton
m=m&"Next"&":"
Next
js2=m
EndFunction

lcx=js1(UBound(a)+1)&js2(UBound(a)+1)
lcx=Mid(lcx,1,Len(lcx)-1)
b="a=Array(1,2,3,4,""a""):"&lcx

Executeb

网站地图 | Tag标签 | RSS订阅
Copyright © 2012-2019 脚本之家 All Rights Reserved
脚本之家  渝ICP备13030612号
狂热之后,外围市场差强人意,A股能否迎来调整?泰康人寿 泰康保险集团有限公司002208股票 长江经济带概念股有哪些上市公司也许有一天 也许有一天 泰语 歌词翻译成白话是什么金钱作战 炒股票的电影有什么。5176 频繁使用蚂蚁借呗和微粒贷等互联网小额贷款产品,会影响买房,买车贷款吗?(没出出现逾期情况)?情况说明 情况说明怎么写啊锦浪科技 太阳能光伏公司有哪些?最好的证券公司 全国证券公司的排名有么?A股最强猛庄:连续14个跌停,堪称股市发展毒瘤?程序员日 程序员节是怎么来的?数源科技 无锡数源科技有限公司怎么样?