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

remove aliassist...

Browse Source 
Signed-off-by: j502647092 <jtb1@163.com>
This commit is contained in:
j502647092
2015-06-15 20:26:09 +08:00
parent 6126278ec4
commit 1d2c318121
2 changed files with 17 additions and 166 deletions
Download Patch File Download Diff File Expand all files Collapse all files

180
Frm_Main.frm
View File

@@ -10,52 +10,6 @@ Begin VB.Form Frm_Main
ScaleHeight = 9390 ScaleHeight = 9390
ScaleWidth = 19035 ScaleWidth = 19035
StartUpPosition = 3 '<27><><EFBFBD><EFBFBD>ȱʡ StartUpPosition = 3 '<27><><EFBFBD><EFBFBD>ȱʡ
Begin VB.CommandButton lg
Caption = "login"
Height = 270
Left = 12660
TabIndex = 17
Top = 105
Width = 735
End
Begin VB.Timer getcb
Enabled = 0 'False
Interval = 100
Left = 8910
Top = 4455
End
Begin SHDocVwCtl.WebBrowser mm
Height = 720
Left = 10920
TabIndex = 16
Top = 1335
Visible = 0 'False
Width = 4530
ExtentX = 7990
ExtentY = 1270
ViewMode = 0
Offline = 0
Silent = 0
RegisterAsBrowser= 0
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 VB.Timer getass
Enabled = 0 'False
Interval = 1000
Left = 8910
Top = 4455
End
Begin <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʒ<EFBFBD><C6B7>ͼ.Frm_Tols Frm Begin <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʒ<EFBFBD><C6B7>ͼ.Frm_Tols Frm
Height = 240 Height = 240
Left = 9390 Left = 9390
@@ -65,14 +19,6 @@ Begin VB.Form Frm_Main
_ExtentX = 423 _ExtentX = 423
_ExtentY = 423 _ExtentY = 423
End End
Begin VB.CommandButton loginassist
Caption = "<22>̻<EFBFBD><CCBB><EFBFBD><EFBFBD><EFBFBD>"
Height = 300
Left = 13455
TabIndex = 15
Top = 90
Width = 930
End
Begin VB.CommandButton pic Begin VB.CommandButton pic
Caption = "ͼƬ" Caption = "ͼƬ"
Height = 300 Height = 300
@@ -229,7 +175,7 @@ Begin VB.Form Frm_Main
AutoSize = -1 'True AutoSize = -1 'True
Caption = "ҳ<><D2B3>" Caption = "ҳ<><D2B3>"
Height = 180 Height = 180
Left = 14550 Left = 12720
TabIndex = 8 TabIndex = 8
Top = 150 Top = 150
Width = 360 Width = 360
@@ -323,18 +269,18 @@ End Sub
Private Function resetfilename(ByVal name As String) As String Private Function resetfilename(ByVal name As String) As String
On Error Resume Next On Error Resume Next
name = clear(name, "/") name = pclear(name, "/")
name = clear(name, "\") name = pclear(name, "\")
name = clear(name, "*") name = pclear(name, "*")
name = clear(name, "?") name = pclear(name, "?")
name = clear(name, "<") name = pclear(name, "<")
name = clear(name, ">") name = pclear(name, ">")
name = clear(name, ":") name = pclear(name, ":")
resetfilename = name resetfilename = name
End Function End Function
Private Function clear(name As String, P As String) As String Private Function pclear(name As String, P As String) As String
clear = Replace(name, P, "") pclear = Replace(name, P, "")
End Function End Function
Private Sub Form_Unload(Cancel As Integer) Private Sub Form_Unload(Cancel As Integer)
@@ -342,71 +288,11 @@ Private Sub Form_Unload(Cancel As Integer)
End End
End Sub End Sub
Private Sub getass_Timer()
On Error Resume Next
Dim Cname As String
assisthWnd = Frm.GethWndByClass("#32770")
'"<22><><EFBFBD><EFBFBD><EFBFBD>Ͱ<EFBFBD><CDB0>̻<EFBFBD><CCBB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>¼"
If assisthWnd <> 0 Then
Debug.Print hWnd
Cname = Frm.GetTitle(assisthWnd)
Debug.Print Cname
Frm.SetFedWnd assisthWnd
assistpid = Frm.GetPidByhWnd(assisthWnd)
getass.Enabled = False
getcb.Enabled = True
End If
End Sub
Private Sub getcb_Timer()
On Error Resume Next
Dim hWnd As Long
Dim mcname As String
hWnd = Frm.GetMouseWindowhWnd
If Frm.GetPidByhWnd(hWnd) = assistpid Then
mcname = Frm.GetClassName(hWnd)
If mcname = "ComboBox" Then
Frm.SetFedWnd hWnd
Debug.Print "<22>ѻ<EFBFBD>ȡ<EFBFBD><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>" & hWnd
Frm.hWndKeyPress hWnd, vbKeyLButton, System
Frm.hWndKeyPress assisthWnd, vbKeyTab, System
SendKeys "123"
Frm.hWndKeyPress assisthWnd, vbKeyTab, System
SendKeys "123"
getcb.Enabled = False
End If
End If
End Sub
Private Sub Label1_Click() Private Sub Label1_Click()
web(0).Visible = Not web(0).Visible web(0).Visible = Not web(0).Visible
showweb (0) showweb (0)
End Sub End Sub
Private Sub Label2_Click()
'A A A DIV DIV
Dim vDoc, vTag_2, vTag_1, vTag, vTag1, vTag2, vTXT
Dim i As Integer
Set vDoc = web(0).Document
On Error Resume Next
For i = 0 To vDoc.All.length - 1
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 "A"
If UCase(vTag_2.TagName) = "A" And _
UCase(vTag_1.TagName) = "A" And _
UCase(vTag1.TagName) = "DIV" And _
UCase(vTag2.TagName) = "DIV" Then
If vTag.Class = "next" Then vTag.Click
End If
End Select
Next
End Sub
Private Sub Label5_Click() Private Sub Label5_Click()
On Error Resume Next On Error Resume Next
Dim i As Long Dim i As Long
@@ -416,32 +302,6 @@ Private Sub Label5_Click()
Next Next
End Sub End Sub
Private Sub lg_Click()
getass.Enabled = True
End Sub
Private Sub loginassist_Click()
On Error Resume Next
Dim jj
'If InStr(1, mm.LocationURL, "alilogin.aspx") Then
If uid <> "" And username <> "" Then
mm.Navigate "http://192.168.0.8:83/"
pages.Caption = "<22><>ȡ<EFBFBD><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>..."
jj = MsgBox("<22><>˾<EFBFBD><CBBE><EFBFBD><EFBFBD>: " & gsmc & vbCrLf & vbCrLf & "<22><>ǰ<EFBFBD>û<EFBFBD>UID: " & uid & vbCrLf & "<22><>ǰ<EFBFBD>û<EFBFBD><C3BB><EFBFBD><EFBFBD><EFBFBD>: " & username & vbCrLf _
& "<22><>ǰ<EFBFBD>û<EFBFBD><C3BB><EFBFBD><EFBFBD><EFBFBD>: ********" & vbCrLf & vbCrLf & "<22>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>¼?", vbExclamation + vbYesNo)
If jj = vbYes Then
Do Until Not mm.Busy
Sleep 10
Loop
mm.Navigate "javascript:document.getElementById('sixiAX').GetPW('" + uid + "','192.168.0.8:83')"
Dim password
showmsg = True
End If
Else
MsgBox "<22><><EFBFBD>ȴ<EFBFBD><C8B4><EFBFBD>һ<EFBFBD>ΰ<EFBFBD><CEB0><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!"
End If
End Sub
Private Sub lookitem_Click() Private Sub lookitem_Click()
Frm_Download.Show Frm_Download.Show
End Sub End Sub
@@ -450,18 +310,6 @@ Private Sub manager_Click()
web(0).Navigate2 "http://offer.1688.com/offer/manage.htm?show_type=valid&tracelog=work_1_m_orderManage" web(0).Navigate2 "http://offer.1688.com/offer/manage.htm?show_type=valid&tracelog=work_1_m_orderManage"
End Sub End Sub
Private Sub mm_DocumentComplete(ByVal pDisp As Object, url As Variant)
On Error Resume Next
If showmsg Then
password = mm.Document.body.innerhtml
Clipboard.clear
Clipboard.SetText password
MsgBox "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ȡ<EFBFBD>ɹ<EFBFBD>,<2C><><EFBFBD><EFBFBD>1<EFBFBD><31><EFBFBD>Ӵ<EFBFBD><D3B4><EFBFBD><EFBFBD>̻<EFBFBD><CCBB><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD>Զ<EFBFBD><D4B6><EFBFBD>¼!", vbInformation, "<22>̻<EFBFBD><CCBB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>¼"
getass.Enabled = True
End If
showmsg = False
End Sub
'http://picman.1688.com/album/album_list.htm?tracelog=work_1_m_albumManage 'http://picman.1688.com/album/album_list.htm?tracelog=work_1_m_albumManage
'http://offer.1688.com/offer/manage.htm?show_type=valid&tracelog=work_1_m_orderManage 'http://offer.1688.com/offer/manage.htm?show_type=valid&tracelog=work_1_m_orderManage
'http://login.1688.com/member/signout.htm 'http://login.1688.com/member/signout.htm
@@ -503,7 +351,7 @@ End Sub
'End Sub 'End Sub
Private Sub web_DownloadComplete(index As Integer) Private Sub web_DownloadComplete(index As Integer)
'On Error Resume Next 'On Error Resume Next
Dim target, Title, Class Dim target, Title, Class
Dim itemurl As String Dim itemurl As String
Dim itemname As String Dim itemname As String
@@ -521,7 +369,11 @@ Private Sub web_DownloadComplete(index As Integer)
uid = Mid(web(index).LocationURL, InStr(1, web(index).LocationURL, "?id=") + 4) uid = Mid(web(index).LocationURL, InStr(1, web(index).LocationURL, "?id=") + 4)
username = vDoc.getelementsbytagname("input")("TPL_username").Value username = vDoc.getelementsbytagname("input")("TPL_username").Value
End If End If
For i = 2 To vDoc.All.length - 1 On Error Resume Next
Dim alll As Long
alll = vDoc.All.length
On Error GoTo 0
For i = 2 To alll - 1
On Error Resume Next On Error Resume Next
Set vTag_2 = vDoc.All(i - 2) Set vTag_2 = vDoc.All(i - 2)
Set vTag_1 = vDoc.All(i - 1) Set vTag_1 = vDoc.All(i - 1)

3
首图导出工具.vbw
View File

@@ -1,8 +1,7 @@
Frm_Main = 22, 22, 1006, 396, Z, 44, 44, 1028, 418, C Frm_Main = 22, 22, 1006, 396, Z, 44, 44, 1143, 418, C
TzDownload = 0, 0, 0, 0, C, 0, 0, 984, 374, C TzDownload = 0, 0, 0, 0, C, 0, 0, 984, 374, C
TzListBox = 0, 0, 0, 0, C, 22, 22, 1006, 396, C TzListBox = 0, 0, 0, 0, C, 22, 22, 1006, 396, C
Frm_Download = 0, 0, 984, 374, , 110, 110, 1094, 484, C Frm_Download = 0, 0, 984, 374, , 110, 110, 1094, 484, C
TzProgressBar = 0, 0, 0, 0, C, 44, 44, 1028, 418, C TzProgressBar = 0, 0, 0, 0, C, 44, 44, 1028, 418, C
Frm_WebList = 176, 176, 1160, 550, , 154, 154, 1138, 528, C
MainBas = 88, 88, 1139, 462, MainBas = 88, 88, 1139, 462,
Frm_Tols = 66, 66, 1050, 440, , 132, 132, 1116, 506, C Frm_Tols = 66, 66, 1050, 440, , 132, 132, 1116, 506, C