[VB6]read utf-8 txt file

txt檔案內容
1,安,安安,45483
2,安,安安,45483
3,安,安安,45483




Dim objStream As New ADODB.Stream
Dim txtFile() As String
Dim txtLine() As String
Dim dir As String: dir = "C:\"
Dim fName As String: fName = "test.txt"
Set objStream = CreateObject("ADODB.Stream")
objStream.Charset = "utf-8"
objStream.Open
objStream.LoadFromFile (dir & fName)
Dim strData As String: strData = objStream.ReadText()
Dim count As Integer: count = 0
txtFile = Split(strData, Chr(13) & Chr(10))
For count = 0 To UBound(txtFile) - 1
txtLine = Split(txtFile(count), ",")
Next


no module named sklearn.cross_validation

install the scikit-learn

CentOs 7.X

sudo yum -y install gcc gcc-c++ numpy python-devel scipy

pip install --user --install-option="--prefix=" -U scikit-learn

no module named numpy

sudo yum install numpy scipy python-matplotlib ipython python-pandas sympy python-nose

centOS 7.X install ipython

sudo -E easy_install ipython

新作業系統無法連到舊作業系統的網路磁碟(透過排程)

WIN2012連WIN2003的網路磁碟

如果排程設定用"特定帳號"執行 就要切換到那個帳號登入 才能找到網路磁碟


網路磁碟的權限登入帳號 測試無影響 應可不用特別設定

底下是大部分搜到的另一解決方式

gpedit.msc

電腦設定_Windows設定_安全性設定_本機原則_安全性選項
網路上有說明主機和客戶端都要改

重開機或cmd 執行gpupdate /force

(LM & NTLM 安全性較差 建議如果環境NTLMv2可以跑 就不用改此設定)

WINSERVER2012使用內建FTP的防火牆設定

參考了官方設定
http://technet.microsoft.com/zh-tw/library/dd421710(v=ws.10).aspx
發現透過內建的ftp.exe還是會被擋


最後找到一個辦法 將C:\Windows\system32\ftp.exe
加到允許的應用程式即可(控制台\所有控制台項目\Windows 防火牆\允許的應用程式)

IIS更換元件被佔用(IIS Worker Process)

打開IIS Manager 找應用程式集區(Application pool)，更新的應用程式pool先停止，更換元件後再重新啟動

[Security Onion]找回snorby帳號&密碼重置

--查目前的使用者email
mysql -uroot -B -e 'use snorby; select email from users;'

--把密碼重設為"snorby"

mysql -uroot

use snorby;

UPDATE users SET encrypted_password = "$2a$10$UV6KntR7lkCuDSod7hmD9.MLqQ84lucBVi4kI4AobZx.z7WjySWnm" WHERE name = "Administrator";

無法解析遠端名稱

WebService服務遇到 可嘗試

http://support.microsoft.com/kb/330221/zh-tw

1. 略過 proxy 伺服器，然後設定 [proxy 伺服器接受大型 SOAP 封包。 
2. 增加要求的逾時值。 
3. 限制您要求的資料。

[ASP.Net]ReportViewer Session expired

在webconfig新增設定 timeout單位是分鐘


   
      <sessionState mode="InProc"
                    cookieless="true"
                    timeout="20"/>
      
   

[ASP]不允許操作的錯誤

如果錯誤是出現在Request

需修改iis設定

修改前 停止iis服務
執行services.msc
停用兩個服務
1.IIS Admin Service
2.World Wide Web Publishing Service

 iis server主機
 C:\Windows\System32\Inetsrv\metabase.XML 
找AspMaxRequestEntityAllowed加大此數值 (單位Bytes) 

儲存修改後 重新啟動上述兩個服務即可

[WEB]IE11 document.all移除

在javascript區塊加入

 if (Object.prototype.all == null)  
 {  
  Object.defineProperty  
  (  
   Element.prototype,  
   "all",  
   { get:function() { return this.getElementsByTagName("*"); } }  
  );  
 }  

出處
IE11 中的相容性變更

[MSSQL]DENY 和 REVOKE 的差異

[VB6]WSAStartup未定義問題

Declare Function WSAStartup Lib "ws2_32.dll" _
(ByVal wVersionRequired As Long, lpWSAData As WSAData) As Long

[MSSQL]ssms工具

http://www.ssmstoolspack.com/

[T-SQL]BEGIN TRAN

用來防止下錯指令 有挽救的機會 BEGIN TRAN ROLLBACK

Web Service傳輸大小限制

   
   
   
 <binding name="ServiceSoap" maxBufferSize="2147483647" maxBufferPoolSize="2147483647" maxReceivedMessageSize="2147483647">   
   
   
  

Update卡住問題

這幾天發現之前寫的程式 在遇到update時會卡住 也不會逾時 後面發現是在主查詢階段 table 被鎖住 需透過WITH (NO LOCK)語法 避免鎖定問題 PS: WITH (NO LOCK)使用上需謹慎

[VBNET]TcpClient的Timeout

 Dim tcpClient As New System.Net.Sockets.TcpClient()  
 Dim result = tcpClient.BeginConnect(serverIP, serverPort, Nothing, Nothing)  
 Dim check As Boolean = result.AsyncWaitHandle.WaitOne(TimeSpan.FromSeconds(5))  

[Windows]內建防火牆開放PING

名稱找ICMPv4-In(IPv4) 啟用