?? form1.frm
字號:
VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 3780
ClientLeft = 60
ClientTop = 345
ClientWidth = 6420
LinkTopic = "Form1"
ScaleHeight = 3780
ScaleWidth = 6420
StartUpPosition = 3 '窗口缺省
Begin VB.TextBox Text2
Height = 375
Left = 2520
TabIndex = 3
Text = "Text2"
Top = 240
Width = 2415
End
Begin VB.Timer Timer1
Interval = 1000
Left = 240
Top = 3120
End
Begin VB.TextBox Text1
Height = 495
Left = 2520
TabIndex = 1
Text = "Text1"
Top = 1080
Width = 3015
End
Begin VB.CommandButton Command1
Caption = "Command1"
Height = 495
Left = 960
TabIndex = 0
Top = 1080
Width = 1215
End
Begin VB.Label Label2
Caption = "文件名:"
Height = 255
Left = 1440
TabIndex = 4
Top = 360
Width = 855
End
Begin VB.Label Label1
Caption = "Label1"
Height = 495
Left = 3120
TabIndex = 2
Top = 2520
Width = 2055
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim miao As Long
Private Sub Command1_Click()
Dim SQLtable As String
Dim Password As String
Dim zPass As String
Dim strPass As String
Dim ws As Long
Dim ascII() As Long
Dim asc2 As Long
Dim strP As String
Dim i As Long
Dim j As Long
ws = 1
ReDim ascII(ws)
ascII(1) = 32
Set CN = New ADODB.Connection
Text1.Text = Chr(763)
Password = ""
On Error GoTo uncovePass
'CN.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\fs\CopySys\db2.mdb;Persist Security Info=False;Jet OLEDB:Database Password=" & Password
CN.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\" & Trim(Text2.Text) & ";Persist Security Info=False;Jet OLEDB:Database Password=" & Password
zPass = Password
GoTo continue
uncovePass:
Password = ""
'If ascII(ws) >= 127 Then Exit Sub '單個字符
If ascII(ws) > 127 Then
ws = ws + 1
ReDim ascII(ws)
For j = 1 To ws
ascII(j) = 32
Next j
End If
For j = 1 To ws
If ascII(j) > 127 Then
ascII(j) = 32
If j + 1 <= ws Then
ascII(j + 1) = ascII(j + 1) + 1
If ascII(ws) > 127 Then Exit For
End If
End If
Password = Chr(ascII(j)) & Password
'Password = "03" & Chr(ascII(j)) & "10913012"
If j = 1 Then ascII(1) = ascII(1) + 1
Next j
Resume
continue:
Text1.Text = zPass
End Sub
Private Sub Timer1_Timer()
'miao = miao + 1
'Label1.Caption = miao
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -