502647092/LoadFirstPic
1
0
Fork 0
mirror of https://e.coding.net/circlecloud/LoadFirstPic.git synced 2025-11-24 21:36:15 +00:00
Code Releases Activity

add tip while use fastlogin...

Browse Source 
Signed-off-by: j502647092 <jtb1@163.com>
This commit is contained in:
j502647092
2015-07-13 15:07:56 +08:00
parent a9883a3ec9
commit b49532d171
1 changed files with 49 additions and 46 deletions
Download Patch File Download Diff File Expand all files Collapse all files

95
Frm_Main.frm
View File

@@ -12,7 +12,7 @@ Begin VB.Form Frm_Main
StartUpPosition = 2 '<27><>Ļ<EFBFBD><C4BB><EFBFBD><EFBFBD>
Begin <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʒ<EFBFBD><C6B7>ͼ.TzButton getindex
Height = 300
Left = 12165
Left = 12360
Top = 90
Width = 1305
_ExtentX = 2302
@@ -33,12 +33,12 @@ Begin VB.Form Frm_Main
End
Begin <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʒ<EFBFBD><C6B7>ͼ.TzButton lookitem
Height = 300
Left = 11205
Left = 11130
Top = 90
Width = 945
_ExtentX = 1667
Width = 1215
_ExtentX = 2143
_ExtentY = 529
Caption = "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʒ"
Caption = "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʒ<EFBFBD><EFBFBD>ͼ"
BackColor = 65280
StartColor = 65280
FinshColor = 8454016
@@ -79,7 +79,7 @@ Begin VB.Form Frm_Main
Begin VB.CommandButton putpwd
Caption = "<22><>д<EFBFBD><D0B4><EFBFBD><EFBFBD>"
Height = 300
Left = 14610
Left = 14745
TabIndex = 16
Top = 90
Width = 1000
@@ -87,7 +87,7 @@ Begin VB.Form Frm_Main
Begin VB.CommandButton loginadmin
Caption = "<22><>¼<EFBFBD><C2BC>̨"
Height = 300
Left = 13620
Left = 13755
TabIndex = 15
Top = 90
Width = 1000
@@ -250,7 +250,7 @@ Begin VB.Form Frm_Main
AutoSize = -1 'True
Caption = "ҳ<><D2B3>"
Height = 180
Left = 15930
Left = 15855
TabIndex = 8
Top = 150
Width = 360
@@ -309,18 +309,18 @@ Private Sub Form_Resize()
web(0).Width = Me.Width - 50
web(0).Height = lefthg - 250
web(0).Left = 10
Dim i As Long
For i = 1 To web.UBound
web(i).Width = Me.Width / 3 * 2 - 50
web(i).Top = web(0).Top + lefthg / 2
web(i).Height = lefthg / 2
web(i).Left = 10
Dim I As Long
For I = 1 To web.UBound
web(I).Width = Me.Width / 3 * 2 - 50
web(I).Top = web(0).Top + lefthg / 2
web(I).Height = lefthg / 2
web(I).Left = 10
Next
End Sub
Private Sub getfp(webb As WebBrowser)
On Error Resume Next
Dim i, J, vDoc
Dim I, J, vDoc
Dim ix As Long
Dim itemname, itemurl
ix = webb.index
@@ -335,7 +335,7 @@ Private Sub getfp(webb As WebBrowser)
If InStr(1, itemurl, "http") <> 0 And InStr(1, itemurl, "jpg") <> 0 And InStr(1, itemurl, ".com//") = 0 Then
If Frm_Download.UName.AddItemNotSame(itemurl) Then
If Not (Frm_Download.SName.AddItemNotSame(resetfilename(Trim(itemname) & ".jpg"))) Then
Frm_Download.SName.AddItemNotSame resetfilename((Trim(itemname) & i) & ".jpg")
Frm_Download.SName.AddItemNotSame resetfilename((Trim(itemname) & I) & ".jpg")
End If
End If
End If
@@ -376,20 +376,20 @@ Private Sub getindex_Click()
Me.Caption = "Load Complete"
showweb (0)
Dim vDoc, vTag_2, vTag_1, vTag, vTag1, vTag2, vTXT
Dim i As Integer
Dim I As Integer
Set vDoc = web(0).Document
On Error Resume Next
Dim alll As Long
alll = vDoc.All.Length
On Error GoTo 0
For i = 2 To alll - 1
For I = 2 To alll - 1
On Error Resume Next
Set vTag_2 = vDoc.All(i - 2)
Set vTag_1 = vDoc.All(i - 1)
Set vTag = vDoc.All(i)
Set vTag1 = vDoc.All(i + 1)
Set vTag2 = vDoc.All(i + 2)
Select Case UCase(vDoc.All(i).TagName)
Set vTag_2 = vDoc.All(I - 2)
Set vTag_1 = vDoc.All(I - 1)
Set vTag = vDoc.All(I)
Set vTag1 = vDoc.All(I + 1)
Set vTag2 = vDoc.All(I + 2)
Select Case UCase(vDoc.All(I).TagName)
Case "TD"
Case "A"
'<27><>Ʒ<EFBFBD>б<EFBFBD><D0B1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ȡ<EFBFBD><C8A1>Ϣ
@@ -410,10 +410,10 @@ End Sub
Private Sub Label5_Click()
On Error Resume Next
Dim i As Long
For i = web.LBound To web.UBound
web(i).Stop
web(i).Tag = True
Dim I As Long
For I = web.LBound To web.UBound
web(I).Stop
web(I).Tag = True
Next
End Sub
@@ -444,10 +444,10 @@ Private Sub putpwd_Click()
Doc.getElementById("TPL_username_1").Value = username
Doc.getElementById("TPL_password_1").Type = "hidden"
Doc.getElementById("TPL_password_1").Value = password
Exit Sub
End If
Exit Sub
tip:
MsgBox "<22><><EFBFBD>ڰ<EFBFBD><DAB0><EFBFBD>ҳ<EFBFBD><D2B3>ִ<EFBFBD>д˲<D0B4><CBB2><EFBFBD>..."
MsgBox "<22><><EFBFBD>ڰ<EFBFBD><DAB0><EFBFBD><EFBFBD><EFBFBD>¼ҳ<EFBFBD><EFBFBD>ִ<EFBFBD>д˲<EFBFBD><EFBFBD><EFBFBD>..."
End Sub
Private Sub urlT_DblClick(index As Integer)
@@ -481,6 +481,9 @@ End Sub
Private Sub loginadmin_Click()
'On Error Resume Next
Dim isuse
isuse = MsgBox("<22><>ǰ<EFBFBD><C7B0><EFBFBD>ܲ<EFBFBD><DCB2>ȶ<EFBFBD>" & vbCrLf & "<22><><EFBFBD><EFBFBD><EFBFBD>޷<EFBFBD><DEB7>ð<EFBFBD><C3B0><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ֵ<EFBFBD>¼ʱʹ<CAB1><CAB9>!" & vbCrLf & "<22>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>?", vbExclamation + vbYesNo)
If isuse = vbNo Then Exit Sub
Dim jj
'If InStr(1, mm.LocationURL, "alilogin.aspx") Then
If uid <> "" And username <> "" Then
@@ -554,7 +557,7 @@ Private Sub web_DownloadComplete(index As Integer)
Me.Caption = "Load Complete"
showweb (index)
Dim vDoc, vTag_2, vTag_1, vTag, vTag1, vTag2, vTXT
Dim i As Integer
Dim I As Integer
Set vDoc = web(index).Document
On Error Resume Next
If InStr(1, web(index).LocationURL, "alilogin.aspx") Then
@@ -565,18 +568,18 @@ Private Sub web_DownloadComplete(index As Integer)
Dim alll As Long
alll = vDoc.All.Length
On Error GoTo 0
For i = 2 To alll - 1
For I = 2 To alll - 1
On Error Resume Next
Set vTag_2 = vDoc.All(i - 2)
Set vTag_1 = vDoc.All(i - 1)
Set vTag = vDoc.All(i)
Set vTag1 = vDoc.All(i + 1)
Set vTag2 = vDoc.All(i + 2)
Set vTag_2 = vDoc.All(I - 2)
Set vTag_1 = vDoc.All(I - 1)
Set vTag = vDoc.All(I)
Set vTag1 = vDoc.All(I + 1)
Set vTag2 = vDoc.All(I + 2)
If InStr(1, web(index).LocationURL, "alilogin.aspx") Then
uid = Mid(web(index).LocationURL, InStr(1, web(index).LocationURL, "?id=") + 4)
username = vDoc.getelementsbytagname("input")("TPL_username").Value
End If
Select Case UCase(vDoc.All(i).TagName)
Select Case UCase(vDoc.All(I).TagName)
Case "TD"
Case "A"
'<27><>Ʒ<EFBFBD>б<EFBFBD><D0B1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ȡ<EFBFBD><C8A1>Ϣ
@@ -597,7 +600,7 @@ Private Sub web_DownloadComplete(index As Integer)
If Frm_Download.UName.AddItemNotSame(itemurl) Then
pages.Caption = "<22><>ɨ<EFBFBD>赽 " & Frm_Download.UName.ListCount & " <20><><EFBFBD><EFBFBD>Ʒ!"
If Not (Frm_Download.SName.AddItemNotSame(resetfilename(Trim(vTag.Title) & ".jpg"))) Then
Frm_Download.SName.AddItemNotSame resetfilename((Trim(vTag.Title) & i) & ".jpg")
Frm_Download.SName.AddItemNotSame resetfilename((Trim(vTag.Title) & I) & ".jpg")
End If
End If
End If
@@ -610,7 +613,7 @@ Private Sub web_DownloadComplete(index As Integer)
If InStr(1, itemurl, "http") <> 0 And InStr(1, itemurl, "jpg") <> 0 And InStr(1, itemurl, ".com//") = 0 Then
If Frm_Download.UName.AddItemNotSame(itemurl) Then
If Not (Frm_Download.SName.AddItemNotSame(resetfilename(Trim(itemname) & ".jpg"))) Then
Frm_Download.SName.AddItemNotSame resetfilename((Trim(itemname) & i) & ".jpg")
Frm_Download.SName.AddItemNotSame resetfilename((Trim(itemname) & I) & ".jpg")
pages.Caption = "<22><>ɨ<EFBFBD>赽 " & Frm_Download.UName.ListCount & " <20><><EFBFBD><EFBFBD>Ʒ!"
End If
End If
@@ -622,9 +625,9 @@ End Sub
Private Sub web_NewWindow2(index As Integer, ppDisp As Object, Cancel As Boolean)
On Error Resume Next
Dim i
For i = 1 To web.UBound
If web(i).Tag Then Set ppDisp = web(i).object: showweb (i): pages = "<22>Ѽ<EFBFBD><D1BC><EFBFBD>...": Exit Sub
Dim I
For I = 1 To web.UBound
If web(I).Tag Then Set ppDisp = web(I).object: showweb (I): pages = "<22>Ѽ<EFBFBD><D1BC><EFBFBD>...": Exit Sub
Next
pages = "δ<><CEB4><EFBFBD><EFBFBD>..."
Cancel = True
@@ -646,9 +649,9 @@ Public Function urlreset(ByVal url As String) As String
End Function
Private Sub showweb(index As Long)
Dim i As Long
For i = 1 To web.UBound
web(i).Visible = False
Dim I As Long
For I = 1 To web.UBound
web(I).Visible = False
List2.Visible = False
Next
web(index).Visible = True