相信大家如果同花順臨時授權(quán)很多,手動更新非常麻煩,重復(fù)勞動太多,可采用如下powershell腳本downkey.ps1實現(xiàn)自動更新,主要實現(xiàn)判斷pauth.ini中證書在一周內(nèi),執(zhí)行則會去自動更新授權(quán),如把腳本放置在計劃任務(wù)中,定義晚上8點更新,則可做到自動更新授權(quán)(前提是同花順已經(jīng)重新授權(quán))。
具體腳本如下:
#同花順更新委托主站證書,注意key有特殊字符+-等要轉(zhuǎn)義,無轉(zhuǎn)義情況下authcodes-authcode1
$AuthCodes='E22-LHjT-4Itu-A7sg-Hnyi-H0U+'
$AuthCodes1='E22-LHjT-4Itu-A7sg-Hnyi-H0U%2B'
$AuthPath='d:\thssj\wtserver\'
$NetFile='http://services.myhexin.com/produser/downloadcert?libver=20030506&authcode='+$AuthCodes1+'&Submit=%CF%C2%D4%D8%D6%A4%CA%E9'
$SaveFile=$AuthPath+$AuthCodes.Substring(0,3)+'.dat'
#加載winapi
$ini = Add-Type -memberDefinition @"
[DllImport("Kernel32")]
public static extern int GetPrivateProfileString (
string section ,
string key ,
string def ,
StringBuilder retVal ,
int size ,
string filePath );
"@ -passthru -name MyPrivateProfileString -UsingNamespace System.Text
#定義配置
$section=$AuthCodes
$filePath=$AuthPath+"pauth.ini"
$key="證書截止時間"
$retVal=New-Object System.Text.StringBuilder(200)
#查看配置文件key值
$null=$ini::GetPrivateProfileString($section,$key,"",$retVal,200,$filePath)
$dateStr = $retVal.tostring()
#格式化字符串為日期
$dateVal = get-date $dateStr
#找到提前七天日期
$dateLast = $dateVal.AddDays(-7)
#獲取當前日期
$dateNow = get-date
#key值與當前日期比較,lt是小于,ge是大于
if($dateLast -le $dateNow) {
#開始執(zhí)行下載授權(quán)文件
$client = new-object System.Net.WebClient
$client.DownloadFile($NetFile,$SaveFile)
#重啟委托主站
taskkill /im hxwt.exe /f
Start-Sleep -s 3
cd $AuthPath
start hxwt.exe
}
################################################################################################
#同花順更新委托網(wǎng)關(guān)證書,注意key有特殊字符+-等要轉(zhuǎn)義,無轉(zhuǎn)義情況下authcodes-authcode1
$AuthCodes='E19-LHjT-4Itu-A7sg-Hnyi-H0U+'
$AuthCodes1='E19-LHjT-4Itu-A7sg-Hnyi-H0U%2B'
$AuthPath='d:\thssj\WTGateWay\'
$NetFile='http://services.myhexin.com/produser/downloadcert?libver=20030506&authcode='+$AuthCodes1+'&Submit=%CF%C2%D4%D8%D6%A4%CA%E9'
$SaveFile=$AuthPath+$AuthCodes.Substring(0,3)+'.dat'
#加載winapi
$ini = Add-Type -memberDefinition @"
[DllImport("Kernel32")]
public static extern int GetPrivateProfileString (
string section ,
string key ,
string def ,
StringBuilder retVal ,
int size ,
string filePath );
"@ -passthru -name MyPrivateProfileString -UsingNamespace System.Text
#定義配置
$section=$AuthCodes
$filePath=$AuthPath+"pauth.ini"
$key="證書截止時間"
$retVal=New-Object System.Text.StringBuilder(200)
#查看配置文件key值
$null=$ini::GetPrivateProfileString($section,$key,"",$retVal,200,$filePath)
$dateStr = $retVal.tostring()
#格式化字符串為日期
$dateVal = get-date $dateStr
#找到提前七天日期
$dateLast = $dateVal.AddDays(-7)
#獲取當前日期
$dateNow = get-date
#key值與當前日期比較,lt是小于,ge是大于
if($dateLast -le $dateNow) {
#開始執(zhí)行下載授權(quán)文件
$client = new-object System.Net.WebClient
$client.DownloadFile($NetFile,$SaveFile)
#重啟委托網(wǎng)關(guān)
taskkill /im WTMonitor.exe /f
Start-Sleep -s 3
cd $AuthPath
start WTMonitor.exe
}
另外有需要云服務(wù)器可以了解下創(chuàng)新互聯(lián)scvps.cn,海內(nèi)外云服務(wù)器15元起步,三天無理由+7*72小時售后在線,公司持有idc許可證,提供“云服務(wù)器、裸金屬服務(wù)器、高防服務(wù)器、香港服務(wù)器、美國服務(wù)器、虛擬主機、免備案服務(wù)器”等云主機租用服務(wù)以及企業(yè)上云的綜合解決方案,具有“安全穩(wěn)定、簡單易用、服務(wù)可用性高、性價比高”等特點與優(yōu)勢,專為企業(yè)上云打造定制,能夠滿足用戶豐富、多元化的應(yīng)用場景需求。
本文標題:同花順授權(quán)自動更新腳本-創(chuàng)新互聯(lián)
網(wǎng)頁路徑:http://www.rwnh.cn/article10/ceihgo.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供網(wǎng)站收錄、面包屑導(dǎo)航、網(wǎng)站策劃、域名注冊、微信小程序、服務(wù)器托管
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時需注明來源: 創(chuàng)新互聯(lián)
猜你還喜歡下面的內(nèi)容