No Money No Honey

Just Another Beginning

使用WinSCP用指令連線FTP自動收發檔案(SFTP也可以喔，方式GOOGLE一下就有)

建立*.BAT

::/log= 紀錄執行狀態
::/script= 將WinSCP Script 存成*.TXT後呼叫執行用

D:\prog\WinSCPPortable\WinSCP.exe /log=D:\prog\WinSCPPortable\CS0901-outbound.txt /script="D:\prog\WinSCPPortable\CS0901-WINSCP-FTP.txt"

::測試 %errorlevel% 上面ftp連線成功與否成功回傳0 失敗回傳1
echo %errorlevel% >> D:\prog\WinSCPPortable\errorlevel.txt

::如果連線是敗直接跳到connerror 不刪除本地端檔案
if %errorlevel% == 1 goto connerror

::連線上傳成功後刪除本地端檔案
del /f /q D:\cs0901\inbound\*.*

::連線成功mail通知
C:\WINDOWS\system32\WindowsPowerShell\v1.0\powershell.exe -ExecutionPolicy Bypass -File D:\prog\winscpportable\CS0901-conn-SendMail.ps1

exit

:connerror

::FTP連線失敗mail通知
C:\WINDOWS\system32\WindowsPowerShell\v1.0\powershell.exe -ExecutionPolicy Bypass -File D:\prog\winscpportable\CS0901-SendMail.ps1

建立WINSCP SCRIPT擋 *.TXT

option batch abort
option confirm off
open ftp://USER:PASSWORD@DOMAIN
option transfer binary
cd /outbound //變更遠端目錄
lcd D:\cs0901\outbound //變更本地端目錄
get *.* //抓取遠端檔案
rm *.* //刪除遠端檔案
cd /inbound
lcd D:\cs0901\inbound
put D:\cs0901\inbound\*.* //將本地端檔案放上遠端
close
exit

使用PowerShell的Send-Mailmessge來配合指令發信

存檔*.PS1 (最後面是數字1)

Send-MailMessage -Encoding ([System.Text.Encoding]::UTF8) -SmtpServer ‘10.1.1.1’ -From ‘CS0901 <CS0901@t3ex.com>’ -To ‘roger <roger@t3ex.com>’ -Subject WinSCP FTP連線成功’ -Body ‘這是信件內容’

存檔後透過批次擋呼叫方式：

完整路徑\powershell.exe -ExecutionPolicy Bypass -File 完整路徑\檔名.ps1

WINDOWS 批次擋內呼叫 PowerShell 的*.PS1方式

在*.BAT擋內執行方式：

............
完整路徑\powershell.exe -ExecutionPolicy Bypass -File 完整路徑\檔名.ps1

............

呼叫外部程式達成SFTP連線

出處https://dotblogs.com.tw/jean/2013/11/06/126876

有些早期舊程式語言並沒有支援SFTP元件，可透過呼叫外部程式來達成

SFTP使用WinSCP

SFTP使用WinSCP

WinSCP目前是免費的FTP軟體

1. 到WinSCP網站下載WinSCP.exe

http://winscp.net/eng/download.php

2.產生Ftp.bat檔，檔案內容如下：

winscp.exe /console /script="C:\winscp\winscp-script.txt"

3.產生winscp-script.txt檔，檔案內容如下：

option batch abort
option confirm off
option transfer binary
open sftp://LoginID:LogPwd@FTP_Host -hostkey="ssh-rsa 1024 XX:XX:XX:XX:XX:XX:XX:XX:XX:XX:XX:X:XX:XX:XX:XX"
put d:\examplefile.txt
close
exit

說明：open sftp://登入帳號:登入密碼@FTP位址

-hostkey 用WINSCP.EXE連線後，在下圖紅框點兩下即可顯示

put 上傳檔案的本機路徑

另外說明 scp及ftps的語法：

winscp.exe scp://test@example.com:2222 /privatekey=mykey.ppk
winscp.exe ftps://martin@example.com /implicit /certificate="xx:xx:xx:xx:xx:xx:xx:xx:xx:xx:xx:xx:xx:xx:xx:xx:xx:xx:xx:xx"

若寫在winscp-script.txt檔內則為

open scp://test@example.com:2222 /privatekey=mykey.ppk

open ftps://martin@example.com /implicit /certificate="xx:xx:xx:xx:xx:xx:xx:xx:xx:xx:xx:xx:xx:xx:xx:xx:xx:xx:xx:xx"

4.將WinSCP.exe、Ftp.bat、winscp-script.txt放在同一個目錄

5.執行Ftp.bat :將Ftp.bat 點兩下即開始執行

[Delphi 7](2014.3.3改)Indy 10 網路元件安裝-複製文章保留用

感謝作者
出處：http://idlemanhome.blogspot.com/2013/12/delphi-7indy-10.html

Delphi 7](2014.3.3改)Indy 10 網路元件安裝

舊的方法原本是以下這樣，後來我裝新的XP系統時發現無法成功

首先從 http://www.indyproject.org/downloads/10/indy10.0.52_source.zip 下載壓縮檔。
(或是到這個網頁找 http://www.indyproject.org/sockets/download/files/indy10.en.aspx )

Indy 10 安裝步驟：

移除舊版 Indy 9

進 Delphi 後，選擇 Component –> Install Packages…
在 Design Packages 找有 Indy 字樣的選項後，Remove 後離開。
在 Delphi 裡，選擇 Tools –> Environment Options，打開 Library 標籤，刪除有Indy 的路徑。
在系統資料夾找所有 Indy 開頭的 Indy*.bpl 和 Indy*.dcp 檔案，並刪除。

開始安裝：

解壓縮剛下載的 Indy10.0.52_source.zip 檔至您放置 Lib 的目錄 (例：C:\Program Files (x86)\Borland\Delphi7\Source\Indy10)，並將底下四個目錄加入 Delphi 內的 Library 路徑。
打開 \System\IndySystem70.dpk ，Compile
打開 \Core\IndyCore70.dpk ，Compile
打開 \Protocols\IndyProtocols70.dpk ，Compile
打開 \SuperCore\IndySuperCore70.dpk，Compile
打開 \Core\dclIndyCore70.dpk ，Install
打開 \Protocols\dclIndyProtocols70.dpk，Install
打開 \SuperCore\dclIndySuperCore70.dpk，Install

新的方式(成功率大幅提高)

從 http://indy.fulgan.com/ZIP/ 下載開發中的Indy10，(2014.3.3)今日的版本是 Indy10_5099.zip
(下載舊方法的連結 indy10.0.52_source.zip 應該也可以，但我沒試過)

開始進行安裝

先移除原安裝的 Indy (Delphi7之後好像都會自動裝Indy9，大致和舊方式相同，這邊再寫詳細一點)：

進 Delphi 後，選擇上方功能選項「Component」 –> 「Install Packages…」
在「Design Packages」框框裡找有「Indy」字樣的選項，點選後按「Remove」移除(如有安裝過或Delphi7之後版本應該有1,2個)
全部移乾淨後，按「OK」離開
再選擇上方功能選項「Tools」 –> 「Environment Options」，再點開「Library」標籤
在「Directories」框框裡，找「Library path」的最後面，點「…」按鈕
尋找列表內，有任何「Indy」字樣的路徑，點選後按「Delete」刪除掉
刪除完後，點選「OK」離開，關掉 Delphi
再從檔案總管中，搜尋「系統資料夾」(就是Windows目錄)內所有的Indy開頭的檔案，應該都會在 windows/system32 裡面

確定以上步驟都完成，或是您確定沒安裝任何版本的Indy ，就可以開始進行安裝

解壓縮剛下載的壓縮檔到你想參照的目錄位置，我是放在 C:\Program Files (x86)\Borland\Delphi7\Source\Indy10
進入 \Lib 目錄，找Fulld_7.bat，點選執行 (不同版本請自行變通，這步不做應該也可以，10.0.52版沒有這檔案，請自行嘗試)
點擊打開 \System\IndySystem70.dpk ，然後點 Compile
點擊打開 \Core\IndyCore70.dpk ，然後點 Compile
點擊打開 \Protocols\IndyProtocols70.dpk ，然後點 Compile
在 Delphi 上面功能列選擇「Component」 –> 「Install Packages…」 (用點擊檔案打開後Install的方式經常失敗)
點「Add…」按鈕，選擇 \Core\dclIndyCore70.dpk，然後「開啟舊檔」
再點「Add…」按鈕，選擇 \Protocols\dclIndyProtocols70.dpk，然後「開啟舊檔」
P.S. 「SuperCore」可以完全忽視，不用安裝

我照這個步驟的成功率目前是百分百，提供給大家試試看

參照網址 http://www.indyproject.org/Sockets/Docs/Indy10Installation.EN.aspx

2020抗病毒菲律賓限制台灣人入境風波

以第三方觀點來看，我是欣賞杜特蒂的國家政策表裡一致的行為，都真的是為自己國家好

例如美國要賣它武器，它拒絕，回美國說我又打不贏中國為何要買武器?

例如跑去跟中國友好拿了一堆好處回菲律賓

現在為了防疫，因為認為台灣是中國的一個省，所幸一起封鎖，台灣坑都不敢坑一聲，曾幾何時台灣變得如此卑微，只敢欺負自己的島民………..

那些1450 817口口聲聲顧主權的，又鴉雀無聲了，雖然已經是常態，但還是覺得，這些人就是害台灣無法進步的幫兇，這些人就是害台灣社會風氣敗壞的幫兇！

朝令夕改

我們都知道一間朝令夕改的公司或國家，基本上都不會是強盛的公司或是國家…….

===========
台灣口罩故事；
2003年 SARS，台灣73人死亡➡️口罩沒有瘋搶，只有N95缺貨。
2009年 H1N1流感，台灣35人死亡➡️口罩沒有瘋搶。
2015年登革熱，台南＋高雄共224人死亡➡️沒有停班/停課/停活動，亦無防蚊液瘋搶。
2019年肺炎及流感，台灣23,475人死亡➡️沒有停班/停課/停活動，亦無口罩瘋搶。
2020年武漢肺炎(2019-nCoV)，台灣0人死亡➡️延課/停活動，口罩瘋搶
輔仁大學王贊元教授說；政府在胡扯、媒體瘋狂報導、社群瘋狂轉傳，造成焦慮感與恐懼感比病毒更可怕！
2020年一個是不是有為的政府，看「口罩」就能看出來了。
第一天：口罩要戴，沒戴罰錢，每四小時要換一個，口罩隨時隨地都可買。
第二天：口罩不缺貨，是貨運公司慢了，明天就有貨。
第三天：貨運公司放假，開工後就沒問題了。
第四天：口罩都被大陸搶去了，今天開始不准出口，明天就有了，大家放心。
第五天：抓到大陸走私進口，不合法口罩，衞生有問題，政府要嚴格把關，明天台製口罩就有了。
第六天：口罩發送超商，每個八圓，貨品充足，大家都能買到。
第七天：口罩充足，分裝人員不夠，已令超商加派人員分裝。
第八天：下令軍方派員協助生產，每日產量可到一千萬個以上，立刻就可舖貨，一個六圓。
第九天：密閉空間才要戴口罩，開放空間不須戴口罩。
第十天：口罩每天換一次就可以了。
第十一天：口罩可重複使用，用酒精毒就行，三，四天也沒關係。
第十二天：口罩貨品充足，改在藥局賣，藥局還沒準備好，準備好口罩就有了。
第十三天：買口罩要身份證。
第十四天：買口罩要身份證，尾號單數單日買，双數双號買。
第十五天：單，双號分別買，一次只能買兩個，每個五圓。
第十六天：立委質詢國軍代工生產口罩，涉嫌圖利廠商。
第十七天：生產口罩的廠商公司股票，從多天的漲停轉為跌停，尊重市場機制。
還要寫下去嗎？每天一套說詞，現在是政府都沒錯，全是百姓錯，為什麼要用那麼多口罩。

台灣近代社會風氣墮落現象

簡單的說一下以前老國民黨的教育

青年守則
一、忠勇為愛國之本。
二、孝順為齊家之本。
三、仁愛為接物之本。
四、信義為立業之本。
五、和平為處世之本。
六、禮節為治世之本。
七、服從為負責之本。
八、勤儉為服務之本。
九、整潔為強身之本。
十、助人為快樂之本。
十一、學問為濟世之本。
十二、有恆為成功之本。

再來看看四維八德

https://news.ltn.com.tw/news/politics/breakingnews/2936347

這真的是一個行政院長該說的話嗎? 荒腔走板的答覆，自以為幽默重點是種個社會氛圍竟然還滿多人對這無感，我真的對近代台灣人的素養感到匪夷所思，異常的低落，非常誇張的低落，還能期待有什麼好的社會氛圍?

再來看一個商人，整天嘴砲中國，說別人親中的舔共，結果賣中國產品? 台灣現在到處是無恥之徒，因為從上梁就開始……….

一體兩面的與論處理

https://tw.youcard.yahoo.com/cardstack/e3dcb260-497e-11ea-b356-3502a8fff86f/%E6%9D%8E%E6%96%87%E4%BA%AE%E6%AD%A6%E6%BC%A2%E8%82%BA%E7%82%8E%E5%90%B9%E5%93%A8%E8%80%85%E7%97%85%E9%80%9D%EF%BC%81%E3%80%8C%E6%AD%BB%E4%BA%86%E9%82%84%E4%B8%8A%E8%91%89%E5%85%8B%E8%86%9C%E6%90%B6%E6%95%91%E3%80%8D%E7%82%BA%E4%BD%95%E8%AE%93%E4%B8%AD%E5%9C%8B%E7%B6%B2%E5%8F%8B%E6%86%A4%E6%80%92%E7%82%B8%E9%8D%8B

武漢肺炎的吹哨者，很遺憾的在2/6日凌晨病逝

封鎖和諧掉一些資訊，通常讓人聯想到專制，但我覺得要看用在什麼情況上
如果是用在假消息上面，則是正面的，反之亦然。

中共對吹哨者通報病例說是SARS，封鎖當然是怕社會動盪，但後續的處理就真的很糟糕，導致疫情擴散迅速。

其實在台灣這幾年來有些抓住政府弊端的吹哨者，例如最近的口罩政府價格高賣的事件，聲音也是被台灣政府和諧掉，還要被提告。

你說台灣人還在沾沾自喜有言論自由下，其實也慢慢步入中共那套路不是嗎?

經典名言-老祖宗的智慧-只給一堆渾蛋讓你選

想想總統選舉為何門檻這麼高?(不能給平民翻身機會)
怎麼選都只能選別人給的三流貨色
台灣民主自由，哈哈
說穿瞭現在台灣也只是多了幾個 "專制" 的選擇

No Money No Honey

廣告

文章分類

彙整

使用WinSCP用指令連線FTP自動收發檔案(SFTP也可以喔，方式GOOGLE一下就有)

使用PowerShell的Send-Mailmessge來配合指令發信

WINDOWS 批次擋內呼叫 PowerShell 的*.PS1方式

呼叫外部程式達成SFTP連線

[Delphi 7](2014.3.3改)Indy 10 網路元件安裝-複製文章保留用

Delphi 7](2014.3.3改)Indy 10 網路元件安裝

Indy 10 安裝步驟：

移除舊版 Indy 9

開始安裝：

2020抗病毒菲律賓限制台灣人入境風波

朝令夕改

台灣近代社會風氣墮落現象

一體兩面的與論處理

經典名言-老祖宗的智慧-只給一堆渾蛋讓你選

廣告

近期文章

近期留言

鍊結

其他操作

Blogroll

廣告

文章分類

彙整

Delphi 7](2014.3.3改)Indy 10 網路元件安裝

Indy 10 安裝步驟：

移除舊版 Indy 9

開始安裝：

廣告

近期文章

近期留言

鍊結

其他操作

標籤

Blogroll