LoadFirstPic/Frm_Main.frm

VERSION 5.00
Object = "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0"; "ieframe.dll"
Begin VB.Form Frm_Main 
   Caption         =   "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͼ"
   ClientHeight    =   9390
   ClientLeft      =   120
   ClientTop       =   450
   ClientWidth     =   17160
   LinkTopic       =   "Form1"
   ScaleHeight     =   9390
   ScaleWidth      =   17160
   StartUpPosition =   3  '<27><><EFBFBD><EFBFBD>ȱʡ
   Begin VB.TextBox urlT 
      Height          =   270
      Index           =   3
      Left            =   8760
      TabIndex        =   13
      Text            =   "Text1"
      Top             =   405
      Width           =   7710
   End
   Begin VB.TextBox urlT 
      Height          =   270
      Index           =   2
      Left            =   945
      TabIndex        =   12
      Text            =   "Text1"
      Top             =   405
      Width           =   7710
   End
   Begin VB.TextBox urlT 
      Height          =   270
      Index           =   1
      Left            =   8760
      TabIndex        =   10
      Text            =   "Text1"
      Top             =   105
      Width           =   7710
   End
   Begin VB.TextBox urlT 
      Height          =   270
      Index           =   0
      Left            =   945
      TabIndex        =   9
      Text            =   "Text1"
      Top             =   105
      Width           =   7710
   End
   Begin <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʒ<EFBFBD><C6B7>ͼ.TzDownload dl 
      Height          =   195
      Index           =   0
      Left            =   30
      Top             =   1185
      Width           =   17070
      _ExtentX        =   30110
      _ExtentY        =   344
   End
   Begin VB.TextBox folder 
      Height          =   300
      Left            =   13500
      TabIndex        =   6
      Top             =   840
      Width           =   3495
   End
   Begin VB.TextBox itemname 
      Height          =   300
      Left            =   945
      TabIndex        =   4
      Top             =   840
      Width           =   3345
   End
   Begin VB.TextBox itempicurl 
      Height          =   300
      Left            =   5190
      TabIndex        =   2
      Top             =   840
      Width           =   7230
   End
   Begin SHDocVwCtl.WebBrowser web 
      Height          =   7665
      Index           =   0
      Left            =   45
      TabIndex        =   3
      Top             =   1695
      Width           =   8535
      ExtentX         =   15055
      ExtentY         =   13520
      ViewMode        =   0
      Offline         =   0
      Silent          =   0
      RegisterAsBrowser=   1
      RegisterAsDropTarget=   1
      AutoArrange     =   0   'False
      NoClientEdge    =   0   'False
      AlignLeft       =   0   'False
      NoWebView       =   0   'False
      HideFileNames   =   0   'False
      SingleClick     =   0   'False
      SingleSelection =   0   'False
      NoFolders       =   0   'False
      Transparent     =   0   'False
      ViewID          =   "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
      Location        =   "http:///"
   End
   Begin SHDocVwCtl.WebBrowser web 
      Height          =   7665
      Index           =   1
      Left            =   8625
      TabIndex        =   8
      Top             =   1695
      Width           =   8490
      ExtentX         =   14975
      ExtentY         =   13520
      ViewMode        =   0
      Offline         =   0
      Silent          =   0
      RegisterAsBrowser=   1
      RegisterAsDropTarget=   1
      AutoArrange     =   0   'False
      NoClientEdge    =   0   'False
      AlignLeft       =   0   'False
      NoWebView       =   0   'False
      HideFileNames   =   0   'False
      SingleClick     =   0   'False
      SingleSelection =   0   'False
      NoFolders       =   0   'False
      Transparent     =   0   'False
      ViewID          =   "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
      Location        =   "http:///"
   End
   Begin <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʒ<EFBFBD><C6B7>ͼ.TzDownload dl 
      Height          =   195
      Index           =   1
      Left            =   30
      Top             =   1440
      Width           =   17070
      _ExtentX        =   30110
      _ExtentY        =   344
   End
   Begin VB.Label Label5 
      AutoSize        =   -1  'True
      Caption         =   "<22><>ҳ<EFBFBD><D2B3><EFBFBD><EFBFBD>:"
      Height          =   180
      Left            =   120
      TabIndex        =   11
      Top             =   450
      Width           =   810
   End
   Begin VB.Label Label4 
      AutoSize        =   -1  'True
      Caption         =   "<22>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:"
      Height          =   180
      Left            =   12465
      TabIndex        =   7
      Top             =   900
      Width           =   990
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      Caption         =   "<22><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>:"
      Height          =   180
      Left            =   120
      TabIndex        =   5
      Top             =   900
      Width           =   810
   End
   Begin VB.Label Label3 
      AutoSize        =   -1  'True
      Caption         =   "<22><>ͼ<EFBFBD><CDBC><EFBFBD><EFBFBD>:"
      Height          =   180
      Left            =   4365
      TabIndex        =   1
      Top             =   900
      Width           =   810
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "<22><>ҳ<EFBFBD><D2B3><EFBFBD><EFBFBD>:"
      Height          =   180
      Left            =   120
      TabIndex        =   0
      Top             =   150
      Width           =   810
   End
End
Attribute VB_Name = "Frm_Main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim strUrl As String

Private Sub Form_Load()
 web(0).Navigate2 "http://192.168.0.8:83/"
End Sub

Private Sub Form_Resize()
    On Error Resume Next
    web(0).Width = Me.Width - 50
    web(1).Width = Me.Width - 50
    
    Dim lefthg
    lefthg = Me.Height - web(0).Top
    
    web(0).Height = lefthg / 2 - 350
    web(1).Height = lefthg / 2 - 350
    
    web(0).Top = 1700
    web(1).Top = 1700 + web(0).Height + 20
    
    web(0).Left = 10
    web(1).Left = 10
    
    dl(0).Left = 10
    dl(0).Width = Me.Width - 20
    
    dl(1).Left = 10
    dl(1).Width = Me.Width - 20
End Sub

Private Sub getfp(webb As WebBrowser)
    On Error Resume Next
    Dim i, j, vDoc
    Set vDoc = webb.Document
    itemname = resetfilename(vDoc.getelementsbytagname("input")("subject").Value)
    itempicurl = vDoc.getelementsbytagname("input")("pictureUrl")(0).Value
    If folder = "" Then folder = InputBox("<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>-<2D><>ͼ-<2D><>˾<EFBFBD><CBBE><EFBFBD><EFBFBD>-<2D>ᵥ<EFBFBD><E1B5A5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!", , "<22><><EFBFBD><EFBFBD>-<2D><>ͼ-<2D><>˾<EFBFBD><CBBE><EFBFBD><EFBFBD>-<2D>ᵥ<EFBFBD><E1B5A5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>")
    dl.FileDownload itempicurl, App.Path & "\" & folder & "\" & itemname & ".jpg"
End Sub

Private Function resetfilename(ByVal name As String) As String
    name = clear(name, "/")
    name = clear(name, "\")
    name = clear(name, "*")
    name = clear(name, "?")
    name = clear(name, "<")
    name = clear(name, ">")
    resetfilename = name
End Function

Private Function clear(name As String, p As String) As String
    clear = Replace(name, p, "")
End Function

Private Sub urlT_KeyPress(index As Integer, KeyAscii As Integer)
    If KeyAscii = 13 Then web(index).Navigate2 urlT(index).Text
End Sub

Private Sub web_BeforeNavigate2(index As Integer, ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)
    If URL <> "http:///" And URL <> "" And URL <> "about:blank" Then urlT(index) = URL
End Sub

Private Sub web_DocumentComplete(index As Integer, ByVal pDisp As Object, URL As Variant)
    If InStr(1, URL, "operator=edit") Then Call getfp(web(index))
End Sub

Private Sub web_DownloadBegin(index As Integer)
    web(index).Silent = True
End Sub

Private Sub web_DownloadComplete(index As Integer)
    web(index).Silent = True
End Sub

Private Sub web_NewWindow2(index As Integer, ppDisp As Object, Cancel As Boolean)
    Dim i
    For i = 1 To web.UBound
        If Not web(index).Busy Then Set ppDisp = web(1): Cancel = True
    Next
End Sub