當前位置: 首頁 >> VB6
修正「安全通道支援發生錯誤 (an error occurred in the secure channel support)」 Part II

修正「安全通道支援發生錯誤 (an error occurred in the secure channel support)」 Part II

相隔幾個月後,我又遇見了「安全通道支援發生錯誤 (an error occurred in the secure channel support)」的問題。前文,Part One, 改用TLS 1.2已經可以解決的問題,在這次,有新的變化。由於部分網站採用的SSL加密,是更高強度的 RSA 2048 key,而非前文在cloudflare.com所使用的 EC 256bits key。即使同樣是tls 1.2,仍碰到問題。經過研究後,對比了不同網站採用的SSL加密KEY。如下圖,一般cloudf
2018-04-19    web 技術    76    0   
修正「安全通道支援發生錯誤 (an error occurred in the secure channel support)」

修正「安全通道支援發生錯誤 (an error occurred in the secure channel support)」

最近的cloudflare.com改了https的認證為 TLS 1.2,造成 Windows Server 2008 R2 很多機器,因為預設值 DefaultSecureProtocols 並非TLS 1.2,VB6與 classic ASP的winhttp,ServerXMLHTTP 相繼無法正常運作,會有報錯:安全通道支援發生錯誤 (an error occurred in the secure channel support)。

2017-10-30    web 技術    480    0   
class ASP 包含 VB DLL 移植至 Windows Server 2008 R2 64位元系統

class ASP 包含 VB DLL 移植至 Windows Server 2008 R2 64位元系統

傳統的ASP移植到WINDOWS SERVER 2008-2012 系統,網路上已經有很多文件說明。因為傳統ASP是32位元程式,在64位元系統,IIS 7 裡面的 appPool都要調整成允許32位元程式執行運作。ODBC 也得使用 SYSWOW64 裡面的 odbcad32.exe 進行設定。

不過,很少人提到以前的3-tier架構的ASP網站,都還有中間層 middle-tier,一般都是COM DLL,或稱COM元件。

以下就是我的例子,移植一個傳統ASP 3-tier 網站至Windows Server 2008 R2 64位元作業系統:

2016-05-31    web 技術    514    0   
安裝 VB6 在 Windows 7 (WIN7) 64位元系統

安裝 VB6 在 Windows 7 (WIN7) 64位元系統

安裝 VB6 在 Windows 7 (WIN7) 64位元系統


  1. 準備事項:

  • 關閉UAC

  • 建立零長度的 MSJAVA.DLL,放在C:\Windows內。目的是為了讓安裝過程跳過JAVA的安裝。

2015-10-16    web 技術    4309    0   
使用Adodb.Stream判斷文件編碼及進行編碼轉換(Unicode,Utf-8,GB2312等

使用Adodb.Stream判斷文件編碼及進行編碼轉換(Unicode,Utf-8,GB2312等

Sub FileZM(sFile As String, sCode As String, dFile As String, dCode As String)
'參數:源文件,源文件編碼,目標文件,目標文件編碼。編碼舉例----"gb2312"、"UTF-8"等
Dim ObjStream As Object
Set ObjStream = CreateObject("Adodb.Stream")
With ObjStream
    .Mode = 3         'adModeReadWrite = 3 ' 指示讀/寫權限。
    .Type = 1         'adTypeBinary = 1
    .Open
    .LoadFromFile sFile   '源文件
    .Position = 0
    .Type = 2         'adTypeText = 2
    .Charset = sCode
    sCode = .ReadText '讀取文本到sCode
    
    .Position = 0     ' 這只是定位到文件頭,保留
    .SetEOS           ' 完全重寫不要漏了這個,通過使當前 Position 成為流的結尾來更新 EOS 屬性的值。當前位置後面的所有字節或字符都將被截斷
    .Type = 2         'adTypeText = 2
    .Charset = dCode       '指定輸出編碼
    .WriteText sCode       '寫入指定的文本數據到Adodb.Stream
     .SaveToFile dFile, 2
    .Close
End With
Set ObjStream = Nothing
End Sub

ADODB.Stream組件Charset屬性值

2015-04-02    web 技術    1888    0   
VB6 圖形中的文字進行細化 (Thinning)

VB6 圖形中的文字進行細化 (Thinning)

繼上篇文章:VB6 切割圖形中的文字,接著對圖形中的文字進行細化 (Thinning)。

採用9宮格算法,只以9宮格中心點為準,進行消去。

判斷條件如下:

2015-03-06    web 技術    353    0   
VB6 切割圖形中的文字

VB6 切割圖形中的文字

繼上篇大津閥值法分離圖形中的文字後,今天把切割圖形中的文字也寫出來。

用一個不規則矩陣 (jagged array) 儲存切割後的文字排列。

原始驗證碼圖形為, 來自 yunfile.com:

經由OTSU大津法,找出閥值,轉成矩陣 Pix(x,y),如以下所示的數字,準備切割:

2015-03-06    web 技術    459    1   
VB6 otsu 大津演算法 (最大類間方差法)

VB6 otsu 大津演算法 (最大類間方差法)

OTSU, 最大類間方差法是由日本學者大津展之於1979年提出的,是一種自適應的閾值確定的方法,又叫大津法,簡稱OTSU。


用VB6,實作成函數,可隨時叫用。


2015-03-04    web 技術    486    0