.
675 |
--------------------------------------------------------------------------------
/OX163_VB6project_Win32/BrowserW.frm:
--------------------------------------------------------------------------------
1 | VERSION 5.00
2 | Object = "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0"; "ieframe.dll"
3 | Begin VB.Form BrowserW
4 | BorderStyle = 0 'None
5 | Caption = "Browser Windows"
6 | ClientHeight = 1845
7 | ClientLeft = -105
8 | ClientTop = -105
9 | ClientWidth = 2460
10 | Enabled = 0 'False
11 | LinkTopic = "BrowserW"
12 | MaxButton = 0 'False
13 | MinButton = 0 'False
14 | ScaleHeight = 1845
15 | ScaleWidth = 2460
16 | ShowInTaskbar = 0 'False
17 | Begin VB.Timer BrowserW_Timer
18 | Interval = 1
19 | Left = 2040
20 | Top = 1440
21 | End
22 | Begin VB.PictureBox Picture1
23 | BorderStyle = 0 'None
24 | Enabled = 0 'False
25 | Height = 1695
26 | Left = 0
27 | ScaleHeight = 1695
28 | ScaleWidth = 2295
29 | TabIndex = 0
30 | Top = 0
31 | Width = 2295
32 | Begin SHDocVwCtl.WebBrowser WebBrowser
33 | Height = 4575
34 | Left = 0
35 | TabIndex = 1
36 | Top = 0
37 | Width = 10575
38 | ExtentX = 18653
39 | ExtentY = 8070
40 | ViewMode = 0
41 | Offline = 0
42 | Silent = 0
43 | RegisterAsBrowser= 0
44 | RegisterAsDropTarget= 1
45 | AutoArrange = 0 'False
46 | NoClientEdge = 0 'False
47 | AlignLeft = 0 'False
48 | NoWebView = 0 'False
49 | HideFileNames = 0 'False
50 | SingleClick = 0 'False
51 | SingleSelection = 0 'False
52 | NoFolders = 0 'False
53 | Transparent = 0 'False
54 | ViewID = "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
55 | Location = "http:///"
56 | End
57 | End
58 | End
59 | Attribute VB_Name = "BrowserW"
60 | Attribute VB_GlobalNameSpace = False
61 | Attribute VB_Creatable = False
62 | Attribute VB_PredeclaredId = True
63 | Attribute VB_Exposed = False
64 | Private Sub BrowserW_Timer_Timer()
65 | On Error Resume Next
66 |
67 | BrowserW_Timer.Enabled = False
68 |
69 | WebBrowser.Silent = True
70 | WebBrowser.Document.Open
71 | WebBrowser.Document.Write ""
72 | WebBrowser.Document.Close
73 | '
74 | BrowserW_load_ok = True
75 | 'BrowserW.Hide
76 | End Sub
77 |
78 | Private Sub Form_Load()
79 | On Error Resume Next
80 | BrowserW_load_ok = False
81 |
82 | BrowserW.Height = 0
83 | BrowserW.Width = 0
84 | BrowserW.Top = 0
85 | BrowserW.Left = 0
86 | BrowserW.Enabled = False
87 |
88 |
89 | 'BrowserW.Height = 5200
90 | 'BrowserW.Width = 10000
91 | 'Picture1.Height = 5200
92 | 'Picture1.Width = 10000
93 | 'BrowserW.Top = 1
94 | 'BrowserW.Left = 1
95 | 'Picture1.Visible = True
96 | 'Picture1.Enabled = True
97 | 'Me.Enabled = True
98 |
99 | BrowserW_Timer.Enabled = True
100 |
101 | End Sub
102 |
103 |
104 | Private Sub WebBrowser_DownloadComplete()
105 | On Error Resume Next
106 | WebBrowser.Stop
107 | End Sub
108 |
109 |
110 | Private Sub WebBrowser_FileDownload(ByVal ActiveDocument As Boolean, Cancel As Boolean)
111 | On Error Resume Next
112 | Cancel = True
113 | End Sub
114 |
115 | Private Sub WebBrowser_NewWindow2(ppDisp As Object, Cancel As Boolean)
116 | On Error Resume Next
117 | Cancel = True
118 | End Sub
119 |
120 |
121 | Private Sub WebBrowser_StatusTextChange(ByVal Text As String)
122 | On Error Resume Next
123 | Static count_http As Byte
124 | If InStr(Text, "http://") > 0 And InStr(Text, BrowserW_url) <= 0 And count_http > 10 Then
125 | count_http = 0
126 | WebBrowser.Stop
127 | Else
128 | count_http = count_http + 1
129 | End If
130 | End Sub
131 |
--------------------------------------------------------------------------------
/OX163_VB6project_Win32/CMDresult.bas:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/heinsega/OX163/bb0aa56a30144c590cb2408a2b2f48debf96b142/OX163_VB6project_Win32/CMDresult.bas
--------------------------------------------------------------------------------
/OX163_VB6project_Win32/ComDialog.frm:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/heinsega/OX163/bb0aa56a30144c590cb2408a2b2f48debf96b142/OX163_VB6project_Win32/ComDialog.frm
--------------------------------------------------------------------------------
/OX163_VB6project_Win32/Ctrl8dot3name.frm:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/heinsega/OX163/bb0aa56a30144c590cb2408a2b2f48debf96b142/OX163_VB6project_Win32/Ctrl8dot3name.frm
--------------------------------------------------------------------------------
/OX163_VB6project_Win32/Ctrl8dot3name.frx:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/heinsega/OX163/bb0aa56a30144c590cb2408a2b2f48debf96b142/OX163_VB6project_Win32/Ctrl8dot3name.frx
--------------------------------------------------------------------------------
/OX163_VB6project_Win32/Declare_Function.bas:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/heinsega/OX163/bb0aa56a30144c590cb2408a2b2f48debf96b142/OX163_VB6project_Win32/Declare_Function.bas
--------------------------------------------------------------------------------
/OX163_VB6project_Win32/History_Logs.frm:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/heinsega/OX163/bb0aa56a30144c590cb2408a2b2f48debf96b142/OX163_VB6project_Win32/History_Logs.frm
--------------------------------------------------------------------------------
/OX163_VB6project_Win32/History_Logs.frx:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/heinsega/OX163/bb0aa56a30144c590cb2408a2b2f48debf96b142/OX163_VB6project_Win32/History_Logs.frx
--------------------------------------------------------------------------------
/OX163_VB6project_Win32/Module1.bas:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/heinsega/OX163/bb0aa56a30144c590cb2408a2b2f48debf96b142/OX163_VB6project_Win32/Module1.bas
--------------------------------------------------------------------------------
/OX163_VB6project_Win32/OX163.vbp:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/heinsega/OX163/bb0aa56a30144c590cb2408a2b2f48debf96b142/OX163_VB6project_Win32/OX163.vbp
--------------------------------------------------------------------------------
/OX163_VB6project_Win32/OX163_mainfrm.frm:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/heinsega/OX163/bb0aa56a30144c590cb2408a2b2f48debf96b142/OX163_VB6project_Win32/OX163_mainfrm.frm
--------------------------------------------------------------------------------
/OX163_VB6project_Win32/OX163_mainfrm.frx:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/heinsega/OX163/bb0aa56a30144c590cb2408a2b2f48debf96b142/OX163_VB6project_Win32/OX163_mainfrm.frx
--------------------------------------------------------------------------------
/OX163_VB6project_Win32/OX_163_Module.bas:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/heinsega/OX163/bb0aa56a30144c590cb2408a2b2f48debf96b142/OX163_VB6project_Win32/OX_163_Module.bas
--------------------------------------------------------------------------------
/OX163_VB6project_Win32/OX_CookiesCtrl.bas:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/heinsega/OX163/bb0aa56a30144c590cb2408a2b2f48debf96b142/OX163_VB6project_Win32/OX_CookiesCtrl.bas
--------------------------------------------------------------------------------
/OX163_VB6project_Win32/OX_FileSystem.bas:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/heinsega/OX163/bb0aa56a30144c590cb2408a2b2f48debf96b142/OX163_VB6project_Win32/OX_FileSystem.bas
--------------------------------------------------------------------------------
/OX163_VB6project_Win32/OX_Finish_Download.frm:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/heinsega/OX163/bb0aa56a30144c590cb2408a2b2f48debf96b142/OX163_VB6project_Win32/OX_Finish_Download.frm
--------------------------------------------------------------------------------
/OX163_VB6project_Win32/OX_Finish_Download.frx:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/heinsega/OX163/bb0aa56a30144c590cb2408a2b2f48debf96b142/OX163_VB6project_Win32/OX_Finish_Download.frx
--------------------------------------------------------------------------------
/OX163_VB6project_Win32/OX_MouseWheel.bas:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/heinsega/OX163/bb0aa56a30144c590cb2408a2b2f48debf96b142/OX163_VB6project_Win32/OX_MouseWheel.bas
--------------------------------------------------------------------------------
/OX163_VB6project_Win32/OX_function.bas:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/heinsega/OX163/bb0aa56a30144c590cb2408a2b2f48debf96b142/OX163_VB6project_Win32/OX_function.bas
--------------------------------------------------------------------------------
/OX163_VB6project_Win32/OX_manifest.bas:
--------------------------------------------------------------------------------
1 | Attribute VB_Name = "OX_manifest"
2 | '
3 | '
4 | '
10 | ' OX163 Windows Resource Manifest
11 | '
12 | '
13 | '
14 | '
22 | '
23 | '
24 | '
25 | '
26 | '
27 | '
28 | ' true
29 | '
30 | '
31 | '
32 | '
33 | '
34 | '
35 | '
36 | '
40 | '
41 | '
42 | '
43 | '
44 | '
45 |
46 | Public Function Set_OX_manifest(Optional ByVal SetMani_tf1 As Boolean = True, Optional ByVal SetMani_tf2 As Boolean = True, Optional ByVal SetMani_tf3 As Boolean = True) As String
47 | Dim manifest_str As String, manifest_name As String
48 | Set_OX_manifest = ""
49 | manifest_name = App_path & "\" & App.EXEName & ".exe.manifest"
50 | If OX_Dirfile(manifest_name) Then Set_OX_manifest = CInt(OX_DelFile(manifest_name))
51 | If SetMani_tf1 = False And SetMani_tf2 = False And SetMani_tf3 = False Then Exit Function
52 |
53 | manifest_str = "" & vbCrLf
54 | manifest_str = manifest_str & "" & vbCrLf
55 | manifest_str = manifest_str & "" & vbCrLf
56 | manifest_str = manifest_str & "OX163 Windows Resource Manifest" & vbCrLf
57 | If SetMani_tf1 = True Then manifest_str = manifest_str & "" & vbCrLf & "" & vbCrLf
58 | If SetMani_tf2 = True Then manifest_str = manifest_str & "" & vbCrLf & "true" & vbCrLf
59 | If SetMani_tf3 = True Then manifest_str = manifest_str & "" & vbCrLf & "" & vbCrLf
60 | manifest_str = manifest_str & ""
61 |
62 | Set_OX_manifest = CInt(OX_GreatTxtFile(manifest_name, manifest_str, "UTF-8"))
63 | If Set_OX_manifest = 0 Then Set_OX_manifest = manifest_str
64 | End Function
65 |
--------------------------------------------------------------------------------
/OX163_VB6project_Win32/Parsing.bas:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/heinsega/OX163/bb0aa56a30144c590cb2408a2b2f48debf96b142/OX163_VB6project_Win32/Parsing.bas
--------------------------------------------------------------------------------
/OX163_VB6project_Win32/ShutDownWin.frm:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/heinsega/OX163/bb0aa56a30144c590cb2408a2b2f48debf96b142/OX163_VB6project_Win32/ShutDownWin.frm
--------------------------------------------------------------------------------
/OX163_VB6project_Win32/ShutDownWin.frx:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/heinsega/OX163/bb0aa56a30144c590cb2408a2b2f48debf96b142/OX163_VB6project_Win32/ShutDownWin.frx
--------------------------------------------------------------------------------
/OX163_VB6project_Win32/Transcoding.bas:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/heinsega/OX163/bb0aa56a30144c590cb2408a2b2f48debf96b142/OX163_VB6project_Win32/Transcoding.bas
--------------------------------------------------------------------------------
/OX163_VB6project_Win32/gzip.dll:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/heinsega/OX163/bb0aa56a30144c590cb2408a2b2f48debf96b142/OX163_VB6project_Win32/gzip.dll
--------------------------------------------------------------------------------
/OX163_VB6project_Win32/gzip_readme.txt:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/heinsega/OX163/bb0aa56a30144c590cb2408a2b2f48debf96b142/OX163_VB6project_Win32/gzip_readme.txt
--------------------------------------------------------------------------------
/OX163_VB6project_Win32/include/Help-custom文件夹放置用户自定义脚本:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/heinsega/OX163/bb0aa56a30144c590cb2408a2b2f48debf96b142/OX163_VB6project_Win32/include/Help-custom文件夹放置用户自定义脚本
--------------------------------------------------------------------------------
/OX163_VB6project_Win32/include/Help-invalid文件夹放置已失效的外部脚本:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/heinsega/OX163/bb0aa56a30144c590cb2408a2b2f48debf96b142/OX163_VB6project_Win32/include/Help-invalid文件夹放置已失效的外部脚本
--------------------------------------------------------------------------------
/OX163_VB6project_Win32/include/Help-sys文件夹放置程序提供的外部脚本:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/heinsega/OX163/bb0aa56a30144c590cb2408a2b2f48debf96b142/OX163_VB6project_Win32/include/Help-sys文件夹放置程序提供的外部脚本
--------------------------------------------------------------------------------
/OX163_VB6project_Win32/include/invalid/163blog.vbs:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/heinsega/OX163/bb0aa56a30144c590cb2408a2b2f48debf96b142/OX163_VB6project_Win32/include/invalid/163blog.vbs
--------------------------------------------------------------------------------
/OX163_VB6project_Win32/include/invalid/2cat.vbs:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/heinsega/OX163/bb0aa56a30144c590cb2408a2b2f48debf96b142/OX163_VB6project_Win32/include/invalid/2cat.vbs
--------------------------------------------------------------------------------
/OX163_VB6project_Win32/include/invalid/3dm.vbs:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/heinsega/OX163/bb0aa56a30144c590cb2408a2b2f48debf96b142/OX163_VB6project_Win32/include/invalid/3dm.vbs
--------------------------------------------------------------------------------
/OX163_VB6project_Win32/include/invalid/92wy.vbs:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/heinsega/OX163/bb0aa56a30144c590cb2408a2b2f48debf96b142/OX163_VB6project_Win32/include/invalid/92wy.vbs
--------------------------------------------------------------------------------
/OX163_VB6project_Win32/include/invalid/facebook.vbs:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/heinsega/OX163/bb0aa56a30144c590cb2408a2b2f48debf96b142/OX163_VB6project_Win32/include/invalid/facebook.vbs
--------------------------------------------------------------------------------
/OX163_VB6project_Win32/include/invalid/ggyy8.vbs:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/heinsega/OX163/bb0aa56a30144c590cb2408a2b2f48debf96b142/OX163_VB6project_Win32/include/invalid/ggyy8.vbs
--------------------------------------------------------------------------------
/OX163_VB6project_Win32/include/invalid/photobucket.vbs:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/heinsega/OX163/bb0aa56a30144c590cb2408a2b2f48debf96b142/OX163_VB6project_Win32/include/invalid/photobucket.vbs
--------------------------------------------------------------------------------
/OX163_VB6project_Win32/include/invalid/picasa.vbs:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/heinsega/OX163/bb0aa56a30144c590cb2408a2b2f48debf96b142/OX163_VB6project_Win32/include/invalid/picasa.vbs
--------------------------------------------------------------------------------
/OX163_VB6project_Win32/include/invalid/rosiyy.vbs:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/heinsega/OX163/bb0aa56a30144c590cb2408a2b2f48debf96b142/OX163_VB6project_Win32/include/invalid/rosiyy.vbs
--------------------------------------------------------------------------------
/OX163_VB6project_Win32/include/invalid/rosmm.vbs:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/heinsega/OX163/bb0aa56a30144c590cb2408a2b2f48debf96b142/OX163_VB6project_Win32/include/invalid/rosmm.vbs
--------------------------------------------------------------------------------
/OX163_VB6project_Win32/include/invalid/sky-fire.vbs:
--------------------------------------------------------------------------------
1 | '2011-5-22 http://www.shanhaijing.net/163
2 | Dim root_url
3 | Function return_download_url(ByVal url_str)
4 | On Error Resume Next
5 | return_download_url = ""
6 | url_str=replace(url_str,".sky-fire.com",".sfacg.com")
7 | root_url="sfacg"'sfacg comic.sky-fire.com
8 |
9 | If InStr(1, url_str, "http://comic." & root_url & ".com/HTML/", 1) > 0 Then
10 | 'http://comic." & root_url & ".com/HTML/Naruto/
11 | 'http://comic." & root_url & ".com/HTML/Naruto
12 | return_download_url = "inet|10,13|" & url_str
13 | Else
14 | return_download_url = Mid(url_str,1,InStr(LCase(url_str),".com/")+4)
15 | url_str = FixAllComicUrl(url_str)
16 | return_download_url = "inet|10,13|" & return_download_url & "Utility/" & url_str & ".js|" & return_download_url
17 | End If
18 | End Function
19 | '--------------------------------------------------------
20 | Function return_albums_list(ByVal html_str, ByVal url_str)
21 | On Error Resume Next
22 |
23 | return_albums_list = ""
24 |
25 | If InStr(1, html_str, " 0 Then
26 | Dim comic_Name,album_list
27 | comic_Name = Mid(html_str, InStr(LCase(html_str), "") + 7)
28 | comic_Name = Mid(comic_Name, 1, InStr(comic_Name, "") - 1)
29 | comic_Name = Mid(comic_Name, 1, InStr(comic_Name, ",") - 1)
30 |
31 | html_str = Mid(html_str, InStr(LCase(html_str), "")+1)
40 | album_list(i) = comic_Name & "_" & Mid(album_list(i),1, InStr(LCase(album_list(i)), "")-1)
41 |
42 | return_albums_list = return_albums_list & "0||" & html_str & album_list(i) & "|" & album_list(i) & vbcrlf
43 | Next
44 | return_albums_list = return_albums_list & "0"
45 | Else
46 | return_albums_list = "0"
47 | End If
48 | End Function
49 | '----------------------------------------------------------
50 | Function return_download_list(ByVal html_str, ByVal url_str)
51 | On Error Resume Next
52 | return_download_list=""
53 | Dim comic_name
54 | comic_name=""
55 | If InStr(LCase(html_str), "var comicname = """)>0 Then
56 | url_str=FixAllComicUrl(url_str)
57 | comic_name=Mid(html_str,InStr(LCase(html_str), "var comicname = """)+17)
58 | comic_name=Mid(comic_name,1,InStr(comic_name, Chr(34))-1) & "_vol" & url_str & "_"
59 | End If
60 | If InStr(LCase(html_str), ";picay[0] = """) > 0 Then
61 | Dim split_str,pic_name
62 | html_str=Mid(html_str,InStr(LCase(html_str), ";picay[0] = """)+7)
63 | html_str=replace(html_str,""";picAy[",""";picay[")
64 | split_str=split(html_str,""";picay[")
65 |
66 | For i=0 to UBound(split_str)
67 | split_str(i)=Mid(split_str(i),InStr(split_str(i),Chr(34))+1)
68 | split_str(i)=Mid(split_str(i),1,InStr(split_str(i),Chr(34))-1)
69 | pic_name=Mid(split_str(i),instrrev(split_str(i),"/")+1)
70 | return_download_list = return_download_list & "|" & split_str(i) & "|" & comic_name & pic_name & "|" & vbcrlf
71 | Next
72 | return_download_list = return_download_list & "0"
73 | Else
74 | return_download_list = "0"
75 | End If
76 | End Function
77 | '-------------------------------------------------------------------
78 | Function FixAllComicUrl(url_str)
79 | 'http://pic." & root_url & ".com/AllComic/Browser.html?c=4&v=379&p=1
80 | 'http://hotpic." & root_url & ".com/AllComic/Browser.html?c=4&v=379&p=1
81 | 'http://pic." & root_url & ".com/Utility/4/379.js
82 |
83 | 'http://coldpic." & root_url & ".com/AllComic/Browser.html?c=454&v=080&p=1
84 | 'http://coldpic." & root_url & ".com/Utility/454/080.js
85 | 'http://coldpic." & root_url & ".com/AllComic/Browser.html?c=456&v=tbp1&t=TBP&p=1
86 | 'http://coldpic." & root_url & ".com/Utility/456/TBP/tbp1.js
87 |
88 | 'http://pic3." & root_url & ".com/Utility/331/080.js
89 | 'http://pic3." & root_url & ".com/AllComic/331/081/
90 | On Error Resume Next
91 | Dim temp_str,temp_url
92 | url_str = Mid(url_str, InStr(LCase(url_str), "." & root_url & ".com/allcomic/")+Len("." & root_url & ".com/allcomic/"))
93 | If InStr(LCase(url_str),"browser.html")>0 Then
94 | url_str = Mid(url_str, InStr(LCase(url_str), "?c=")+3)
95 | temp_str=Mid(url_str,1, InStr(LCase(url_str), "&v=")-1) & "/"
96 | url_str = Mid(url_str, InStr(1, url_str, "&v=", 1)+3)
97 | If InStr(LCase(url_str),"&t=")>1 Then
98 | temp_str=temp_str & Mid(url_str,InStr(LCase(url_str), "&t=")+3)
99 | temp_str=Mid(temp_str,1,InStr(temp_str, "&")-1) & "/"
100 | End If
101 | url_str = temp_str & Mid(url_str,1, InStr(1, url_str, "&", 1)-1)
102 | Else
103 | temp_url=split(url_str,"/")
104 | temp_str=0
105 | If InStr(temp_url(UBound(temp_url)),"?")>0 or temp_url(UBound(temp_url))="" Then temp_url(UBound(temp_url))="":temp_str=1
106 | If temp_str=0 Then
107 | temp_str=join(temp_url,"/")
108 | url_str=temp_str
109 | Else
110 | temp_str=join(temp_url,"/")
111 | url_str=Mid(temp_str,1,Len(temp_str)-1)
112 | End If
113 | End If
114 | FixAllComicUrl=url_str
115 | End Function
--------------------------------------------------------------------------------
/OX163_VB6project_Win32/include/invalid/sohu.vbs:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/heinsega/OX163/bb0aa56a30144c590cb2408a2b2f48debf96b142/OX163_VB6project_Win32/include/invalid/sohu.vbs
--------------------------------------------------------------------------------
/OX163_VB6project_Win32/include/invalid/sohupp.vbs:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/heinsega/OX163/bb0aa56a30144c590cb2408a2b2f48debf96b142/OX163_VB6project_Win32/include/invalid/sohupp.vbs
--------------------------------------------------------------------------------
/OX163_VB6project_Win32/include/invalid/xunlei.vbs:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/heinsega/OX163/bb0aa56a30144c590cb2408a2b2f48debf96b142/OX163_VB6project_Win32/include/invalid/xunlei.vbs
--------------------------------------------------------------------------------
/OX163_VB6project_Win32/include/invalid/youtube.vbs:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/heinsega/OX163/bb0aa56a30144c590cb2408a2b2f48debf96b142/OX163_VB6project_Win32/include/invalid/youtube.vbs
--------------------------------------------------------------------------------
/OX163_VB6project_Win32/include/invalid/yupoo.vbs:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/heinsega/OX163/bb0aa56a30144c590cb2408a2b2f48debf96b142/OX163_VB6project_Win32/include/invalid/yupoo.vbs
--------------------------------------------------------------------------------
/OX163_VB6project_Win32/include/sys/OX163_Web_Browser_ctrl.vbs:
--------------------------------------------------------------------------------
1 | '2022-5-4 163.shanhaijing.net
2 |
3 | Function OX163_Web_Browser_ctrl(ByVal URL,ByVal Flags,ByVal TargetFrameName,ByVal PostData,ByVal Headers)
4 | On Error Resume Next
5 | OX163_Web_Browser_ctrl="" & vbCrLf & vbCrLf & "" & vbCrLf & vbCrLf & "" & vbCrLf & vbCrLf & "" & vbCrLf & vbCrLf & ""
6 | 'If InStr(LCase(URL),"http://95.211.21.16/s/")=1 Then'95.211.21.16 www.hentaiverse.net
7 | 'If InStr(LCase(URL),"http://g.e-hentai.org")=1 Then
8 | ' If Right(LCase(URL),8)="/1-m-y/0" Then URL=Left(URL,Len(URL)-7)
9 | ' OX163_Web_Browser_ctrl=replace(URL,"http://g.e-hentai.org","http://r.e-hentai.org") & vbCrLf & vbCrLf & "" & vbCrLf & vbCrLf & "" & vbCrLf & vbCrLf & "" & vbCrLf & vbCrLf & ""
10 | If InStr(LCase(URL),"b http://")=1 or InStr(LCase(URL),"b%20http://")=1 Then
11 | URL=Mid(URL,InStrrev(LCase(URL),"http://"))
12 | OX163_Web_Browser_ctrl=URL & vbCrLf & vbCrLf & "" & vbCrLf & vbCrLf & "" & vbCrLf & vbCrLf & "" & vbCrLf & vbCrLf & ""
13 | ElseIf InStr(LCase(URL),"b https://")=1 or InStr(LCase(URL),"b%20https://")=1 Then
14 | URL=Mid(URL,InStrrev(LCase(URL),"https://"))
15 | OX163_Web_Browser_ctrl=URL & vbCrLf & vbCrLf & "" & vbCrLf & vbCrLf & "" & vbCrLf & vbCrLf & "" & vbCrLf & vbCrLf & ""
16 | ElseIf InStr(LCase(URL),"http://b%20http//")=1 or InStr(LCase(URL),"http://b%20https//")=1 Then
17 | If InStr(LCase(URL),"http://b%20http//")=1 Then URL="http://" & Mid(URL,18)
18 | If InStr(LCase(URL),"http://b%20https//")=1 Then URL="https://" & Mid(URL,19)
19 | OX163_Web_Browser_ctrl=URL & vbCrLf & vbCrLf & "" & vbCrLf & vbCrLf & "" & vbCrLf & vbCrLf & "" & vbCrLf & vbCrLf & ""
20 |
21 | ElseIf InStr(LCase(URL),"http://chan.sankakucomplex.com")=1 or InStr(LCase(URL),"http://idol.sankakucomplex.com")=1 Then
22 | URL="https://" & Mid(URL,8)
23 | OX163_Web_Browser_ctrl=URL & vbCrLf & vbCrLf & Flags & vbCrLf & vbCrLf & TargetFrameName & vbCrLf & vbCrLf & PostData & vbCrLf & vbCrLf & Headers
24 |
25 | ElseIf InStr(LCase(URL),"http://picasaweb.google.")=1 or InStr(LCase(URL),"picasaweb.google.")=1 Then
26 | URL="https://picasaweb.google." & Mid(URL,InStr(LCase(URL),"picasaweb.google.")+Len("picasaweb.google."))
27 | OX163_Web_Browser_ctrl=URL & vbCrLf & vbCrLf & Flags & vbCrLf & vbCrLf & TargetFrameName & vbCrLf & vbCrLf & PostData & vbCrLf & vbCrLf & Headers
28 |
29 | ElseIf InStr(LCase(URL),"http://behoimi.org")=1 or InStr(LCase(URL),"http://www.behoimi.org")=1 Then
30 | Headers="User-Agent: QuickTime/7.6.2 (qtver=7.6.2;os=Windows NT 5.1Service Pack 2)"
31 | OX163_Web_Browser_ctrl=URL & vbCrLf & vbCrLf & Flags & vbCrLf & vbCrLf & TargetFrameName & vbCrLf & vbCrLf & PostData & vbCrLf & vbCrLf & Headers
32 |
33 | ElseIf InStr(LCase(URL),"http://exhentai.org")=1 or InStr(LCase(URL),"http://g.e-hentai.org")=1 Then
34 | URL="https://" & Mid(URL,8)
35 | OX163_Web_Browser_ctrl=URL & vbCrLf & vbCrLf & "" & vbCrLf & vbCrLf & "" & vbCrLf & vbCrLf & "" & vbCrLf & vbCrLf & ""
36 | End If
37 | End Function
38 |
39 | Function OX163_Web_Browser_url(ByVal URL)
40 | OX163_Web_Browser_url=URL
41 | 'If InStr(LCase(URL),"http://r.e-hentai.org")=1 Then
42 | ' OX163_Web_Browser_url=replace(LCase(URL),"http://r.e-hentai.org","http://g.e-hentai.org")
43 | If InStr(LCase(URL),"b http://")=1 or InStr(LCase(URL),"b%20http://")=1 or InStr(LCase(URL),"http://b%20http//")=1 Then
44 | URL=Mid(URL,InStr(LCase(URL),"b"))
45 | URL="b http:" & Mid(URL,InStr(LCase(URL),"//"))
46 | OX163_Web_Browser_url=URL
47 | End If
48 |
49 | End Function
--------------------------------------------------------------------------------
/OX163_VB6project_Win32/include/sys/OX163_htmlst_include.vbs:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/heinsega/OX163/bb0aa56a30144c590cb2408a2b2f48debf96b142/OX163_VB6project_Win32/include/sys/OX163_htmlst_include.vbs
--------------------------------------------------------------------------------
/OX163_VB6project_Win32/include/sys/OX163_js_fn.js:
--------------------------------------------------------------------------------
1 | function set_urlpagecookies(set_str){OX163_urlpage_Cookies=set_str;}
--------------------------------------------------------------------------------
/OX163_VB6project_Win32/include/sys/OX163_js_var.js:
--------------------------------------------------------------------------------
1 | var OX163_urlpage_Referer='';
2 | var OX163_urlpage_Cookies='';
3 |
--------------------------------------------------------------------------------
/OX163_VB6project_Win32/include/sys/OX163_vbs_fn.vbs:
--------------------------------------------------------------------------------
1 | Function set_urlpagecookies(byVal set_str)
2 | On Error Resume Next
3 | OX163_urlpage_Cookies=set_str
4 | End Function
5 |
--------------------------------------------------------------------------------
/OX163_VB6project_Win32/include/sys/OX163_vbs_var.vbs:
--------------------------------------------------------------------------------
1 | Dim OX163_urlpage_Referer,OX163_urlpage_Cookies
2 |
3 |
--------------------------------------------------------------------------------
/OX163_VB6project_Win32/include/sys/apple.vbs:
--------------------------------------------------------------------------------
1 | '2016-2-18 163.shanhaijing.net
2 | Dim first_DL, new_trailer_page, new_trailer_large, new_trailer_extralarge, includes_html, trailer_url_split, trailer_url_i, trailer_url_ubound
3 | Function return_download_url(ByVal url_str)
4 | 'http://www.apple.com/trailers/wb/wherethewildthingsare/
5 | 'http://trailers.apple.com/trailers/paramount/wtc/
6 | On Error Resume Next
7 | new_trailer_page=0
8 | new_trailer_large=0
9 | new_trailer_extralarge=0
10 | includes_html=""
11 | return_download_url = "inet|10,13|" & url_str & "|User-Agent: QuickTime/7.7.5 (qtver=7.7.5;os=Windows NT 6.1Service Pack 1)"
12 | first_DL=0
13 | OX163_urlpage_Referer = "User-Agent: QuickTime/7.7.5 (qtver=7.7.5;os=Windows NT 6.1Service Pack 1)"
14 |
15 | End Function
16 |
17 | '--------------------------------------------------------
18 |
19 | Function return_download_list(ByVal html_str, ByVal url_str)
20 | On Error Resume Next
21 |
22 | Dim split_str, end_i, split_i
23 | return_download_list = ""
24 |
25 | If first_DL=0 Then
26 | '>16881-->http://trailers.apple.com/trailers/feeds/data/16882.json
27 | '<16882-->url_str & "/includes/playlists/web.inc"
28 | If InStr(LCase(html_str), LCase("movietrailers://movie/detail/")) > 0 Then
29 | html_str=mid(html_str,InStr(LCase(html_str), LCase("movietrailers://movie/detail/"))+len("movietrailers://movie/detail/"))
30 | html_str=mid(html_str,1,InStr(html_str,"""")-1)
31 | If IsNumeric(html_str) Then first_DL=1
32 | End If
33 | If first_DL=1 Then
34 | return_download_list = "1|inet|10,13|http://trailers.apple.com/trailers/feeds/data/" & int(html_str) & ".json"
35 | Else
36 | first_DL=2
37 | return_download_list = "1|inet|10,13|" & url_str & "/includes/playlists/web.inc"
38 | End If
39 | Exit Function
40 | End If
41 |
42 | If first_DL=1 Then
43 | If InStr(LCase(html_str), LCase(".mov""")) > 0 Then
44 | split_str = Split(html_str, ".mov""", -1, 1)
45 | end_i=UBound(split_str)-1
46 | For split_i = 0 To end_i
47 | 'url
48 | split_str(split_i) = Mid(split_str(split_i), InStrrev(LCase(split_str(split_i)), chr(34))+1)
49 | split_str(split_i) = split_str(split_i) & ".mov"
50 | split_str(split_i) = replace(split_str(split_i),"_480p.mov","_h480p.mov")
51 | split_str(split_i) = replace(split_str(split_i),"_720p.mov","_h720p.mov")
52 | split_str(split_i) = replace(split_str(split_i),"_1080p.mov","_h1080p.mov")
53 | 'name
54 | html_str=Mid(split_str(split_i),InStrrev(split_str(split_i), "/")+1)
55 |
56 | return_download_list = return_download_list & "|" & split_str(split_i) & "|" & html_str & "|" & vbCrLf
57 | Next
58 | return_download_list =return_download_list & "0"
59 | Else
60 | first_DL=2
61 | return_download_list =return_download_list & "1|inet|10,13|" & url_str & "/includes/playlists/web.inc"
62 | End If
63 | Exit Function
64 | End If
65 |
66 | If InStr(LCase(html_str), LCase(".mov""")) > 0 and new_trailer_page=0 Then
67 |
68 | 'old_trailer_list
69 | split_str = Split(html_str, ".mov""", -1, 1)
70 | end_i=UBound(split_str)-1
71 | For split_i = 0 To end_i
72 | 'url
73 | split_str(split_i) = Mid(split_str(split_i), InStrrev(LCase(split_str(split_i)), chr(34))+1)
74 | split_str(split_i) = split_str(split_i) & ".mov"
75 | split_str(split_i) = replace(split_str(split_i),"_480p.mov","_h480p.mov")
76 | split_str(split_i) = replace(split_str(split_i),"_720p.mov","_h720p.mov")
77 | split_str(split_i) = replace(split_str(split_i),"_1080p.mov","_h1080p.mov")
78 | 'name
79 | html_str=Mid(split_str(split_i),InStrrev(split_str(split_i), "/")+1)
80 |
81 | return_download_list = return_download_list & "|" & split_str(split_i) & "|" & html_str & "|" & vbCrLf
82 | Next
83 | return_download_list = return_download_list & "0"
84 | Exit Function
85 |
86 | Else
87 | 'new_trailer_list
88 | 'step1
89 | If new_trailer_page=0 Then
90 | If InStr(LCase(html_str), LCase("includes/large.html")) > 0 Then
91 | new_trailer_large=1
92 | new_trailer_page=1
93 | End If
94 | If InStr(LCase(html_str), LCase("includes/extralarge.html")) > 0 Then
95 | new_trailer_extralarge=1
96 | new_trailer_page=1
97 | End If
98 |
99 | If new_trailer_large=1 Then
100 | new_trailer_large=0
101 | return_download_list = "1|inet|10,13|" & url_str & "/includes/large.html"
102 | Exit Function
103 | ElseIf new_trailer_extralarge=1 Then
104 | new_trailer_extralarge=0
105 | return_download_list = "1|inet|10,13|" & url_str & "/includes/extralarge.html"
106 | Exit Function
107 | Else
108 | return_download_list = 0
109 | Exit Function
110 | End If
111 |
112 | 'ElseIf new_trailer_page=1 and new_trailer_extralarge=1 Then
113 | ' includes_html=return_ncludes_list(html_str)
114 | ' new_trailer_extralarge=0
115 | ' return_download_list = "1|inet|10,13|" & url_str & "/includes/extralarge.html"
116 | ' Exit Function
117 |
118 | 'step2
119 | ElseIf new_trailer_page=1 Then
120 | 'If includes_html="" Then
121 | includes_html=return_ncludes_list(html_str)
122 | 'Else
123 | ' includes_html=includes_html & vbcrlf & return_ncludes_list(html_str)
124 | 'End If
125 |
126 | If includes_html<>"" Then
127 | new_trailer_page=2
128 | trailer_url_split=split(includes_html,vbcrlf)
129 | 'teaser/large.html
130 | 'trailer4/large.html
131 | 'trailer3/extralarge.html
132 | trailer_url_i=0
133 | trailer_url_ubound=UBound(trailer_url_split)
134 | return_download_list = "1|inet|10,13|" & url_str & "/includes/" & trailer_url_split(trailer_url_i)
135 | Exit Function
136 |
137 | Else
138 | return_download_list = 0
139 | Exit Function
140 | End If
141 |
142 | 'step3 list trailer url
143 | ElseIf new_trailer_page=2 Then
144 | If InStr(LCase(html_str), LCase(".mov")) > 0 Then
145 | split_str = Split(html_str, ".mov", -1, 1)
146 | end_i=UBound(split_str)-1
147 | For split_i = 0 To end_i
148 | 'url
149 | split_str(split_i) = Mid(split_str(split_i), InStrrev(LCase(split_str(split_i)), chr(34))+1)
150 | split_str(split_i) = split_str(split_i) & ".mov"
151 | 'split_str(split_i) = replace(split_str(split_i),"_480p.mov","_h480p.mov")
152 | 'split_str(split_i) = replace(split_str(split_i),"_720p.mov","_h720p.mov")
153 | 'split_str(split_i) = replace(split_str(split_i),"_1080p.mov","_h1080p.mov")
154 | split_str(split_i) = Mid(split_str(split_i),1,InStrrev(split_str(split_i), "_"))
155 | 'name
156 | html_str=Mid(split_str(split_i),InStrrev(split_str(split_i), "/")+1)
157 |
158 | return_download_list = return_download_list & "|" & split_str(split_i) & "h480p.mov|" & html_str & "h480p.mov|" & vbCrLf
159 | return_download_list = return_download_list & "|" & split_str(split_i) & "h720p.mov|" & html_str & "h720p.mov|" & vbCrLf
160 | return_download_list = return_download_list & "|" & split_str(split_i) & "h1080p.mov|" & html_str & "h1080p.mov|" & vbCrLf
161 | Next
162 | End If
163 |
164 | If trailer_url_i 0 Then
185 | Dim split_str,split_i
186 | html_str=mid(LCase(html_str),InStr(LCase(html_str), LCase("0.5.8beta(2013.05.19)
2 | - 增加更新服务器设置
3 | - 修正163相册部分图片无法下载问题
4 | - 修正163相册问题密码的无法识别问题
5 | - 修正导出单个列表文件时产生多个0KB列表文件
6 | - 修正下载文件出现错误后,删除文件重新下载的长文件名变为短文件名
7 | - 增加路径选择窗口地址输入栏,无需层层点击选择文件夹
8 | - 调整Shift+C为Alt+C(未完成)
9 | - 修正支持将列表文本转换为Unicode文本到剪贴板(Ctrl+C,Alt+C)
10 |
11 | 0.5.7beta(2012.04.01)
12 | - 修正获取大文件文件尺寸误差的问题
13 | - 修正Unicode字符转换过程中产生不能用于文件名的特殊字符
14 |
15 | 0.5.6 beta2(2011.05.06)
16 | - 更新163相册相关内容
17 | - 增加Unicode操作菜单选择
18 | - 更新OX163_SystemRecovery.exe针对0.5.6 beta2的临时版本
19 |
20 | 0.5.6 beta(2011.04.21)
21 | - 修改程序关键函数结构
22 | - 增加外部脚本调用初始变量函数文件,便于更新修改
23 | - 增加对Unicode文件名、文件目录的支持
24 | - 所有配置文件与url备份文件均在创建和写入时存为Unicode格式
25 | - 修正调用web模式导致主程序不稳定的问题
26 | - 调整文件菜单
27 | - 增加相册列表右键菜单“取消密码相册”选项,可对所有需密码的相册取消选择
28 | - 去除简易笔记功能,是否重新制作该功能,有待考虑
29 | - 停用COMDLG32.OCX,使用COMDLG32.dll
30 | - 整理文件夹内的dll和OCX文件
31 | - 去除不再更新的Search163.exe(建议使用在线搜索,或单独下载该程序放入OX163目录)
32 | - 更新脚本到最新
33 |
34 | 0.5.5 plus(2010.03.21)
35 | - 修正对163相册地址的判断
36 | - 更新脚本到最新
37 |
38 | 0.5.4 plus(2010.03.20)
39 | - 更新主程序支持更新后的163相册
40 | - 跳过163相册验证码
41 | - 启动程序进程为高于标准
42 | - 更新脚本到最新
43 |
44 | 0.5.3 plus(2010.03.07)
45 | - 修正页面gzip压缩模式判断,正确判断和解压Content-Encoding的gzip模式
46 | - 增强脚本页面下载web模式
47 | - 增加浏览器页面下载信息,当底部信息栏没有被禁用,在信息栏上显示
48 |
49 | 0.5.2 plus(2010.02.28)
50 | - 修正程序不定原因非法退出的问题(如果还有请删除目录下OX163.exe.manifest文件)
51 | - 修正调整浏览器内核为IE6,解决IE6下浏览带有脚本控制的页面非法操作的问题
52 | - 修正默认下载文件夹显示方式,直接在我的电脑列表中显示
53 | - 修正下载大尺寸页面(超过5MB)时,程序没有相应的问题
54 | - 修正163相册中文密码无法正确辨别问题(163相册自身bug造成,博客相册合并之前和之后密码规则不统一,程序已增加设定,默认为新规则)
55 | - 添加新开窗口控制,可以直接调用OX163来浏览新页面
56 | - 添加下载页面的进度提示
57 | - 添加大尺寸页面文本转换的时候造成程序假死的提示(尚未解决15MB以上文件无法通过外部脚本运行的问题)
58 | - 删除程序内置系统修复,增加一个独立的系统修复程序
59 |
60 | 0.5.1 plus(2009.10.03)
61 | - 完善下载模块断点续传判断问题
62 | - 由于网易改版,与163博客合并的163相册游客可以保存原图
63 | - 修正163相册和163博客相册的下载判断
64 | - 更新脚本到最新
65 |
66 | 0.5.0 plus(2009.09.06)
67 | - 修正文件夹名过长导致判断文件错误的问题
68 | - 修正搜索页google搜索无法显示搜索结果的问题
69 | - 修正因为网络问题造成启动过慢的问题
70 | - 更新脚本到最新
71 |
72 | 0.4.9 plus(2009.08.21)
73 | - 增加导入LST,HTM,TXT+BAT下载列表功能
74 | - 增加不比较文件信息直接跳过同名文件的模式选择
75 | - 修正htm列表模式引用页和cookies信息输出错误问题
76 | - 完善自动更新脚本include文件判断与排序
77 | - 修正部分文件获取头文件信息有误的问题
78 | - 修正下载模块中文件判断部分的一些细节
79 | - 更新脚本到最新
80 |
81 | 0.4.8 plus(2009.08.09)
82 | - 修正下载某些图片卡死的问题
83 | - 修正页面cookies脚本函数部分问题
84 | - 相册列表为空的一些细节问题
85 | - 修正htm列表模式调用迅雷的图片上限问题(只需要更新脚本)
86 | - 更新脚本到最新
87 |
88 | 0.4.7 plus(2009.08.02)
89 | - 添加启动错误与程序设置两项修复系统功能(慎用)
90 | - 添加脚本文件文本编码方式判断,避免某些系统文本乱码导致脚本无法使用
91 | - 添加浏览器控制脚本,手动定义页面头文件,适用于某些网站浏览,如ght等,支持自动更新扩展
92 | - 修改htm下载列表格式,支持迅雷、flashget等下载软件,支持自动更新扩展
93 | - 修正脚本执行引用页信息和传输模式的判断问题
94 | - 修正js脚本运行问题,以及脚本更新信息的提示错误
95 | - 添加脚本、页面cookies参数
96 | - 完善WebBrowser的引用页和postdata方式
97 | - 针对http 12029错误作了单独处理
98 | - 修正部分文件后缀识别错误
99 | - 增加外部脚本支持网站的伪图检测
100 | - 添加图片列表操作菜单,钩选更方便
101 | - 添加地址填写文本栏的历史纪录下拉菜单的上下选择模式(键盘“上”“下”控制)
102 | - 在相册列表部分,添加排列序号,该序号存在于相册描述一栏,以“0001 - 相册描述”的方式存在
103 | - 添加正在使用代理的提示信息
104 | - 更新脚本到最新
105 |
106 | 0.4.6 plus(2009.04.13)
107 | - 修正163相册内部调整后部分图片无法下载的问题
108 | - 添加代理服务器设置,暂不支持在线代理
109 | - 添加是否使用网址作为下载目录的选项
110 | - 更新脚本到最新
111 |
112 | 0.4.5 plus(2009.03.10)
113 | - 163相册更新,修改主程序
114 | - 添加列表后自动全选的功能,可在系统设置中关闭
115 | - 相册主人下载图片列表比较慢,添加信息提示
116 |
117 | 0.4.4 plus(2009.01.01)
118 | - 二级列表下载完成判断问题
119 |
120 | 0.4.4 plus(2008.12.19)
121 | - 增加页面下载引用页信息
122 | - 修正CPU占用问题
123 | - 修正htm下载列表导出不完整的问题
124 | - 修正脚本运行的一些细节问题
125 | - 修正下载页面信息出错后无限重试
126 |
127 | 0.4.3 plus(2008.11.22)
128 | - 修正新版163相册无法列表的问题
129 | - 修正新版163相册主人模式判断问题
130 | - 修正登陆按钮无法判断新版163相册的问题
131 |
132 | 0.4.2 plus(2008.11.15)
133 | - 修正新版163相册没有被访问过的相册需要随意填写密码才能下载的错误
134 |
135 | 0.4.1 plus(2008.11.9)
136 | - 支持相册主人登陆后下载原始大小图片
137 | - 增加对新163相册验证码专用验证相册的自定义设置
138 | - 增加底部信息提示栏(可以在设定中关闭)
139 | - 修正2个版本163相册同时有效时不能列表相册目录的问题
140 | - 修正错误重试等待时间问题
141 | - 修正shift+C其实是alt+C的问题
142 |
143 | 0.4.0 plus(2008.9.25)
144 | - 修正一处严重bug
145 |
146 | 0.4.0 plus(2008.9.24)
147 | - 支持最新改版后的163相册
148 | - 修改外部脚本部分编译方式
149 | - 增强下载模块的稳定性
150 | - 修改启动错误检测方式
151 | - 修改历史纪录显示方法
152 | - 更新脚本到最新
153 |
154 | 0.3.9 plus(2008.8.15)
155 | - 优化脚本执行(优化POST方式)
156 | - 修正163相册密码输入错误问题
157 | - 增加对所有支持的脚本的相册密码的保存
158 | - 支持顺序或者逆序重命名
159 | - 更新脚本到最新
160 | - 修正下载模块的bug
161 |
162 | 0.3.8 plus(2008.5.20)
163 | - 增加分为多个文件或者合并为一个文件导出下载列表
164 | - 优化脚本执行(支持163blog相册脚本)
165 | - 修正执行相册列表脚本结果为空时,导致无法输入新地址的bug
166 | - 更新脚本到最新
167 |
168 | 0.3.7 plus(2008.4.2)
169 | - 增加自动跳过下载目录中已存在相同图片的功能(可选开启或者关闭)
170 | - 修正某些163相册图片头文件错误,造成反复重试无法下载的问题
171 | - 增加自动保存超链接功能
172 | - 增加自动保存相册密码功能
173 | - 调整搜索按钮
174 | - 更新脚本到最新
175 |
176 | 0.3.6 plus(2008.2.6)
177 | - 增加163相册的验证码输入
178 | - 修正正确输入密码有时传输错误的问题
179 | - 完善对外部脚本的支持
180 | - 修正网速慢的时候下载容易断线的情况
181 | - 修正下载有可能损坏的问题
182 | - 更新脚本到最新
183 |
184 | 0.3.5 plus(2007.12.17)
185 | - 对外部脚本新的支持:支持带有“引用页”的下载
186 | - 修正复制粘贴链接含有换行符或者回车符,会造成外部脚本运行错误的问题
187 | - 改善下载部分代码
188 | - 断点续传的一个bug
189 | - 托拽操作的bug
190 | - 内置浏览器的某些运行错误
191 | - web下载模式的错误(web模式下,由于网页显示关系,个别网页可能不能最小化)
192 | - 添加浏览软件首页按钮,以便更快获得更新信息
193 | - 输入框加入Ctrl+Enter、Shift+Enter的操作
194 |
195 | 0.3.4 plus(2007.11.17)
196 | - 增加导出下载列表模式(LST文件、htm页面、以及TXT文件连接 & BAT重命名)
197 | - 增加自定义伪图判断(默认为RAR, ZIP, 7Z, PNG, BMP),可以添加任意后缀名伪图
198 | - 修正注释说明错误
199 |
200 | 0.3.3 plus(2007.11.08)
201 | - 增强外部脚本功能,完美匹配整个程序,包括相册列表、图片列表、密码输入
202 | - 增加脚本自动更新面板
203 | - 增加Ctrl+C、Alt+C等功能(可以设置复制lst格式和UBB格式)
204 | - 增强搜索功能,可调用本地搜索程序(Search163.exe,版本0.1.0,单独下载后建议存放在OX163程序目录下)
205 | - 增加搜索按钮(Ctrl+F),进行文本搜索
206 | - 修正Unicode编码错误
207 | - 下载运行信息提示增强
208 | - 去除txt和bat的导出,现在仅能导出LST,也就是文本内容为“图片URL?/图片名称”的格式(原因是一个文件夹一大堆文件太乱了)
209 |
210 | 0.3.2(2007.10.4)
211 | - 修改图片列表方式,可以更方便的操作:双击相册列表可以进入单个相册挑选要下载图片
212 | - 增加外部脚本系统,可以自己使用js或者vbs来制作其他下载内容,详细清查看include\Help(about script).txt
213 | - 修改启动界面,第一次启动遇到启动错误时会出现提示
214 | - 请修改OX163setup.ini中的err_report=True或者err_report=False,来开启关闭错误提示
215 | - 修正浏览器速度慢的问题 修正部分bug 修正界面显示
216 |
217 | 0.3.1(2007.9.5)
218 | - 针对9月1日网易更新,进行部分修改
219 | - 添加默认路径设置
220 | - 修改更新下载方式
221 |
222 | 0.3.0(2007.8.31)
223 | - 针对8月31日网易更新,进行部分修改
224 | - 完善特殊字符匹配替换
225 |
226 | 0.2.9(2007.8.23)
227 | - 针对8月23日网易更新,进行部分修改
228 |
229 | 0.2.8(2007.8.10)
230 | - 添加自动关机功能:点击程序菜单(原系统设置按钮)或者最小化系统托盘后右键点击图标,点选“自动关机”,菜单的“自动关机”将被钩选“自动关机√”,程序菜单图标将发生变化
231 | - 修改系统设置按钮,现在点击程序菜单(原系统设置按钮),就弹出菜单(类似最小化系统托盘后的菜单),菜单包括:程序设置;打开相关路径;以及自动关机的选择
232 |
233 | 0.2.8 beta(2007.7.27)
234 | - 修正少数文件名,文件夹识别错位
235 | - 修正低几率从任务栏恢复界面时出错的情况(不能确定是否还有错误,因为自己从来没有遇到过)
236 |
237 | 0.2.7(2007.7.3)
238 | - 针对7月3日网易更新,进行部分修改
239 | - 修正下载列表极低几率出现乱码的情况
240 | - 一个bug未修正,最小化下载完毕后,可能无法还原的情况
241 |
242 | 0.2.6(2007.6.13)
243 | - 针对6月12日网易更新,进行部分修改
244 | - 增加最小化到系统托盘,原始默认为关闭,INI配置已经设置为打开,如果使用遇到问题请关闭
245 | - 最小化到系统托盘后,下载时,图标为绿色指示,完成后,图表变为默认图标
246 | - 增加快速密码输入,无须再打开相应网页输入密码
247 | - 增加系统托盘菜单,开来打开程序目录和最后一次下载目录
248 | - 全相册下载,自动多建立一层唯一文件夹“albums_相应序号”,防止重复文件夹名
249 |
250 | 0.2.5(2007.3.11)
251 | - 修正全相册下载时,新上传的图片后缀不正确
252 | - 修正文件名/文件夹首位未判断“.”的情况
253 | - 修正显示根目录的一个小问题
254 |
255 | 0.2.4(2007.3.3)
256 | - 修正搜索引擎页面再次打开时页面还原问题,现在为保留前一次搜索结果
257 | - 修正开始运行程序,版本侦测导致程序假死
258 | - 修正新的163上传图片后缀不正确的情况
259 | - 增加连接重试(原来为无限重试)和超时设定(原来为60秒)的设定选项
260 | - 增加伪图判断RAR/ZIP自动更名(改善0.2.4beta 总是询问的情况,现在方式可选)
261 | - 增加连接中断后的文件断点续传(改善0.2.4beta ADSL用户断网后再次连接恶意页面“星空互联”的影响)
262 |
263 | 0.2.3beta(2006.10.2)
264 | - 重要更新,适应最新上传的图片新文件名命名方式(可能会有问题,待测试)
265 | - 重要提醒:163相册服务极不稳定,个别相册的个别图片链接很慢,建议使用flashget的工具下载或者改日下载
266 | - 阻止IE错误报告
267 | - 由于服务器和页面的变化,取消单页面存取
268 |
269 | 0.2.2(2006.9.11)
270 | - 整合163相册搜索引擎(感谢www.Stage1st.com提供服务器)
271 | - 修正超过255字符的文件名造成下载中断的问题
272 | - 浏览器弹出窗口阻止(可以设置打开或者关闭)
273 |
274 | 0.2.2 beta(2006.8.26)
275 | - 添加“在最前面/Always on top”
276 | - 特殊相册列表问题,还是只能列单个的相册,不能全部罗列(如:http://photo.163.com/photos/god-osiris/)
277 | - 因为这个原因,进一步完善了相册识别,随意性更大(比如:http://photo.163.com/photos/god-osiris/41231482/1109535027/)
278 |
279 | 0.2.1 beta(2006.8.19)
280 | - 程序结构调整
281 | - 增强列表速度,现在比以前快n倍
282 | - 修正一个在改写结构的时候造成的bug
283 | - 增强输入栏识别、增强鼠标拖拽、增强简易笔记、简化在线推荐、搜索系统制作中
284 | - 非简体用户正常使用Microsoft AppLocale下载(http://www.ugschina.com/tools/apploc.zip)
285 |
286 | 0.2.0(2006.7.30)
287 | - 文本输入框支持拖拽,可以利用鼠标拖动文字、超链接拖入文本框
288 | - 文本输入框支持文件拖拽,含有163相册相关的超链接文件,比如输出给flashget的lst文件等可以自动识别并重新列出最新列表
289 | - 增加简易笔记功能(类似maxthon的简易收集面板),支持拖拽功能,可以导入导出文本文件
290 | - 增加用户相册列表排序方式:按标记下载目录排序
291 | - 简易笔记的功能按钮里,增加最新推荐功能,共享一些不错的相册
292 | - 修正出现少量乱码的问题
293 |
294 | 0.1.9(2006.6.28)
295 | - 恢复多相册下的下载功能
296 | - 完善部分基本功能
297 | - 使用情况:尝试下载大约1000个文件,382MB,用了35分钟左右大概平均180KB/S(2M ADSL)
298 |
299 | 0.1.8(2006.6.7)
300 | - 增加用户相册列表的“生成”、“操作”和“导出”功能
301 | - 增加右键菜单对应选项填写密码等操作
302 | - 可以使用flashget等下载软件倒入下载列表
303 | - 停用在多相册下的下载功能
304 | - 修正了自动更新有时候影响列表的问题
305 | - 修正了网络不通时的一些问题
306 | - 修正了加密相册密码错误会出现一条错误连接的问题
307 |
308 | 0.1.7(2006.5.5)
309 | - 修正163代码
310 |
311 | 0.1.6(2006.5.5)
312 | - 增加程序设置面板,可以调整各种对话框,以及下载区块大小
313 | - 增加配置文件OX163setup.ini
314 | - 修正了一些重命名问题,解决出现连续两个后缀问题
315 | - 单个相册图片上千的时候会比较慢,简化了代码
316 | - 增加输入框的一些基本操作:鼠标双击、ctrl+A (文本全选)
317 | - 压缩主程序
318 |
319 | 0.1.5(2006.4.7)
320 | - 修改对话框,进行相册全部分析的时候不再询问使用那种方式分析,默认使用快速分析
321 | - 分析单仍然使用缓存分析
322 |
323 | 0.1.5(2006.4.3)
324 | - 去处分析自动保存临时flashget列表文件
325 | - 增加列表清单总数统计
326 |
327 | 0.1.4(2006.4.2)
328 | - 修正BUG
329 |
330 | 0.1.3(2006.04.01)
331 | - 加入快取
332 |
333 | 0.1.2(2006.03.31)
334 | - 修正163代码
335 |
336 | 0.1.1(2006.03.29)
337 | - 修正保存目录只读判断未加参数的错误
338 | - 修正bat文件生成带空格文件时的命名问题
339 |
340 | 0.1.0(2006.03.27)
341 | - 程序制作完成
342 |
343 |
--------------------------------------------------------------------------------
/README.md:
--------------------------------------------------------------------------------
1 | 【软件暂停维护】
2 | 
3 | 原程序用于163相册下载(已失效),通过外部脚本扩展,支持下载booru、eht之类网站 在线搜索
4 | download:http://hein.work/163/
5 | forum: http://ugs.hein.work/forum/forumTopicList.asp?id=17
6 | Last release:0.6.1build160616 beta
7 |
8 | 使用教程:简易教程在本站查看, 在STAGE1查看
9 | PCOnline 2009年7月 介绍+教程
10 | 小众软件 2009年4月 介绍
11 | PChome 2008年11月 介绍+教程
12 |
13 | Code License
14 | GNU GPL v3
15 |
16 |
--------------------------------------------------------------------------------
/Support_Files/Win10_1703_Support_Files.7z:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/heinsega/OX163/bb0aa56a30144c590cb2408a2b2f48debf96b142/Support_Files/Win10_1703_Support_Files.7z
--------------------------------------------------------------------------------
/Support_Files/Win10_1909_Support_Files.7z:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/heinsega/OX163/bb0aa56a30144c590cb2408a2b2f48debf96b142/Support_Files/Win10_1909_Support_Files.7z
--------------------------------------------------------------------------------
/Support_Files/Win10_2015-07-29_Support_Files.7z:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/heinsega/OX163/bb0aa56a30144c590cb2408a2b2f48debf96b142/Support_Files/Win10_2015-07-29_Support_Files.7z
--------------------------------------------------------------------------------
/Support_Files/Win10_TechnicalPreview_Support_Files.7z:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/heinsega/OX163/bb0aa56a30144c590cb2408a2b2f48debf96b142/Support_Files/Win10_TechnicalPreview_Support_Files.7z
--------------------------------------------------------------------------------
/Support_Files/Win7-8_x64_Support_Files.7z:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/heinsega/OX163/bb0aa56a30144c590cb2408a2b2f48debf96b142/Support_Files/Win7-8_x64_Support_Files.7z
--------------------------------------------------------------------------------
/Support_Files/msscript_win81_support.7z:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/heinsega/OX163/bb0aa56a30144c590cb2408a2b2f48debf96b142/Support_Files/msscript_win81_support.7z
--------------------------------------------------------------------------------
/Support_Files/win7_x64_LastVer_Support_Files.7z:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/heinsega/OX163/bb0aa56a30144c590cb2408a2b2f48debf96b142/Support_Files/win7_x64_LastVer_Support_Files.7z
--------------------------------------------------------------------------------
/Support_Files/win8.1 advapi32.7z:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/heinsega/OX163/bb0aa56a30144c590cb2408a2b2f48debf96b142/Support_Files/win8.1 advapi32.7z
--------------------------------------------------------------------------------