www.pudn.com > VB-KAOQINXITONG.zip > frmSQLProcedure.frm
VERSION 5.00
Object = "{544D7BF2-4F24-11D7-910C-00000E55E64F}#9.0#0"; "BNEmuProj.ocx"
Begin VB.Form frmSQLProcedure
Caption = "SQL SERVER 存储过程观察器"
ClientHeight = 7650
ClientLeft = 60
ClientTop = 345
ClientWidth = 9750
Icon = "frmSQLProcedure.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
ScaleHeight = 7650
ScaleWidth = 9750
StartUpPosition = 1 '所有者中心
Begin VB.PictureBox Picture1
Appearance = 0 'Flat
BackColor = &H80000001&
ForeColor = &H80000008&
Height = 7170
Left = 0
ScaleHeight = 7140
ScaleWidth = 9675
TabIndex = 0
Top = 60
Width = 9705
Begin VB.ListBox lstSQLProcedure
Appearance = 0 'Flat
BackColor = &H00E0E0E0&
ForeColor = &H00800000&
Height = 6510
Left = 30
TabIndex = 2
Top = 30
Width = 3135
End
Begin VB.TextBox txtProcedure
Appearance = 0 'Flat
BackColor = &H00E0E0E0&
ForeColor = &H00000040&
Height = 6510
Left = 3210
MultiLine = -1 'True
ScrollBars = 3 'Both
TabIndex = 1
Text = "frmSQLProcedure.frx":030A
Top = 30
Width = 6420
End
Begin EmuMechineProj.BNEmuLED BNEmuLED1
Height = 495
Left = 30
TabIndex = 3
Top = 6585
Width = 7275
_ExtentX = 12832
_ExtentY = 873
BeginProperty LEDFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "黑体"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
LEDSetText = "欢迎使用Binny存储过程观察器"
LEDShowMode = 2
BeginProperty LEDFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "黑体"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
LEDEmuMode = -1 'True
End
Begin VB.Label Label1
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = " About "
BeginProperty Font
Name = "Lucida Sans Unicode"
Size = 10.5
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 285
Index = 0
Left = 7935
TabIndex = 5
Top = 6675
Width = 885
End
Begin VB.Label Label1
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = " Exit "
BeginProperty Font
Name = "Lucida Sans Unicode"
Size = 10.5
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 285
Index = 1
Left = 8940
TabIndex = 4
Top = 6675
Width = 630
End
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "其他作品："
BeginProperty Font
Name = "新宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 90
TabIndex = 9
Top = 7350
Width = 1125
End
Begin VB.Label Label2
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = " 考勤企业版源程序数据库 4.21 "
ForeColor = &H80000008&
Height = 180
Index = 1
Left = 3540
TabIndex = 8
Top = 7380
Width = 2610
End
Begin VB.Label Label2
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = " Access 密码破解终结 V3.01 "
ForeColor = &H80000008&
Height = 180
Index = 2
Left = 6315
TabIndex = 7
Top = 7380
Width = 2430
End
Begin VB.Label Label2
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = " 考勤企业版源程序 4.22 "
ForeColor = &H80000008&
Height = 180
Index = 0
Left = 1305
TabIndex = 6
Top = 7380
Width = 2070
End
End
Attribute VB_Name = "frmSQLProcedure"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'===========================================================================
' Code Name: 演示破解sql server中加密的存储过程
' First Built: 2004-1-7
' Last Modify: 2004-8-18
' Author: 赵斌（Binny）
' Copyright: 本程序代码无版权限制，但因为使用不当等原因 _
对你或社会造成伤害，作者概不负责。
'===========================================================================
Dim mbMove As Boolean
Private Sub Form_Load()
Dim sProcedure() As String
Dim adoTempRS As ADODB.Recordset
Dim sMsg As String
Dim sSpace As String
Dim k As Long
BNEmuLED1.LEDSetText = "欢迎使用Binny存储过程观察器，Email:Binny@vip.163.com"
BNEmuLED1.Enabled = True
If Not gDBRecordConn Is Nothing Then
Set adoTempRS = New ADODB.Recordset
'得到所有的存储过程
With adoTempRS
.Open "SELECT name FROM sysobjects where xtype='P' order by name", gDBRecordConn
If .RecordCount > 0 Then
ReDim sProcedure(adoTempRS.RecordCount - 1)
For k = 0 To UBound(sProcedure)
sProcedure(k) = !Name
.MoveNext
Next k
End If
If .RecordCount > 0 Then
For k = 0 To UBound(sProcedure)
lstSQLProcedure.AddItem sProcedure(k)
Next k
sMsg = "---- 总共有" & .RecordCount & "个存储过程 ----"
Else
sMsg = "---- 本数据库没有定义存储过程 ----"
End If
k = gclsInclude.MyStrLen(sMsg)
sSpace = String(8, " ")
txtProcedure.Text = vbCrLf & vbCrLf & vbCrLf & vbCrLf
txtProcedure.Text = txtProcedure.Text & sSpace & String(k, "-") & vbCrLf
txtProcedure.Text = txtProcedure.Text & sSpace & sMsg & vbCrLf
txtProcedure.Text = txtProcedure.Text & sSpace & String(k, "-")
End With
End If
Me.Show
End Sub
Private Sub Label1_Click(Index As Integer)
If Index = 0 Then
gclsInclude.MyShowAbout gTAppLicInfo
ElseIf Index = 1 Then
Unload Me
End If
End Sub
Private Sub Label1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1(Index).ForeColor = vbRed
Label1(Index).FontUnderline = True
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim k As Long
For k = 0 To Label1.Count - 1
Label1(k).ForeColor = vbBlack
Label1(k).FontUnderline = False
Next k
For k = 0 To Label2.Count - 1
Label2(k).ForeColor = vbBlack
Label2(k).FontUnderline = False
Next k
End Sub
Private Sub Label2_Click(Index As Integer)
If Index = 0 Then
Call ShellExecute(hwnd, "open", "http://nj.onlinedown.net/soft/29233.htm", vbNullString, vbNullString, vbNormalFocus)
ElseIf Index = 1 Then
Call ShellExecute(hwnd, "open", "http://nj.onlinedown.net/soft/26195.htm", vbNullString, vbNullString, vbNormalFocus)
ElseIf Index = 2 Then
Call ShellExecute(hwnd, "open", "http://nj.onlinedown.net/soft/29011.htm", vbNullString, vbNullString, vbNormalFocus)
End If
End Sub
Private Sub Label2_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
Label2(Index).ForeColor = vbRed
Label2(Index).FontUnderline = True
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call Form_MouseMove(Button, Shift, X, Y)
End Sub
Private Sub lstSQLProcedure_Click()
Dim sText As String
Dim lRet As Long
Dim sProcedure As String
sText = lstSQLProcedure.List(lstSQLProcedure.ListIndex)
'返回1=加密且成功，2=无该过程，4=未加密且成功，8=有语法错误，16=未提供有效的连接
lRet = gclsCommon.CBNGetSQLProcedure(sText, sProcedure)
If (lRet And 8) = 0 And (lRet And 16) = 0 Then
sProcedure = gclsInclude.MyTrimSymbol(sProcedure, vbCrLf)
sProcedure = gclsInclude.MyTrimSymbol(sProcedure, Chr(10))
sProcedure = String(40, "-") & vbCrLf & "-- The script was generated by Binny" & vbCrLf & _
"-- Email:Binny@vip.163.com" & vbCrLf & "--" & vbCrLf & _
"-- This Procedure is" & IIf(lRet And 1, "", "n't") & " encrypted" & _
vbCrLf & String(40, "-") & vbCrLf & vbCrLf & _
sProcedure
txtProcedure.Text = sProcedure
End If
End Sub