金の生る樹

プログラム・ソースの先頭に必ず、御自身のKEYを設定した共通関数を組み込んでください。

#共通処理
Function Get-Header($Query){...}    ☜  共通関数を組み込んで下さい。

#
#        *** クリック売り注文をする樹 ***
#
function Convert-UnixTimeToDateTime($unixTimestamp){
 # $origin = New-Object -Type DateTime -ArgumentList 1970, 1, 1, 0, 0, 0, 0
 # $origin.AddSeconds($unixTime)

#  $unixTimestamp = <unix timestampの値></p>
    $utcDate = ([DateTime]::Parse("1970/01/01 00:00:00")).addSeconds($unixTimestamp);
    $localDate = [TimeZoneInfo]::ConvertTimeFromUtc($utcDate, [TimezoneInfo]::Local);
    return $localDate
}

#現物公開API

#現在の終値を取得
Function last_price($pair){
    $Url = "https://api.zaif.jp/api/1/last_price/$pair"
    $res = Invoke-RestMethod $Url -Method GET
    return $res
}

#板情報の取得
Function depth($pair){
    $Url = "https://api.zaif.jp/api/1/depth/$pair"
    $res = Invoke-RestMethod $Url -Method GET
    return $res
}

# 現物取引API関数

#残高情報（軽量）の取得
Function get_info2($AssetName){
    $Url = "https://api.zaif.jp/tapi"
    $Nonce = ([System.DateTime]::UtcNow - (Get-Date("1970, 1, 1"))).TotalSeconds
    $Body = New-Object "System.Collections.Generic.Dictionary[[String],[String]]"
    $Body.Add("nonce", "$Nonce")
    $Body.Add("method", "get_info2")
    $Header = Get-Header $Body
    Try{      
        $res = Invoke-RestMethod $Url -Method POST -Headers $Header -Body $Body
        If($res.success -eq 0){
            Write-Host "Oder Error! " $res.error -ForegroundColor Red >> $logfile
            Return "error"
        }Else{
            Return $res
        }
    }Catch{
        Write-Host "Oder Error! " $_.ErrorDetails.Message -ForegroundColor Red >> $logfile
        #Start-Sleep -Milliseconds 5000
        $startdate = (Get-Date).AddSeconds(5)
        Return "error"
    }
}
Function Get-Asset2($AssetName){
    $res = get_info2
    If($AssetName -eq "deposit"){
        Return $res.return.deposit
    }ElseIf($AssetName -eq "jpy"){
        $Asset = $res.return.funds.($AssetName)
        Return $Asset.ToString("#,0")
    }Else{
        $Asset = $res.return.funds.($AssetName)
        Return $Asset.ToString("#,0.00000000")
    }
}

#ユーザー自身の取引履歴を取得
Function trade_history($pair){
    $Url = "https://api.zaif.jp/tapi"
    $Nonce = ([System.DateTime]::UtcNow - (Get-Date("1970, 1, 1"))).TotalSeconds
    $Body = New-Object "System.Collections.Generic.Dictionary[[String],[String]]"
    $Body.Add("nonce", "$Nonce")
    $Body.Add("method", "trade_history")  
    $Body.Add("count", 500)  
    $Body.Add("currency_pair", $pair)  
    $Header = Get-Header $Body    
    Try{      
        $res = Invoke-RestMethod $Url -Method POST -Headers $Header -Body $Body
        If($res.success -eq 0){
            if ($log -ne "nop") { Write-Host "Oder Error! " $res.error -ForegroundColor Red >> $logfile }
            Start-Sleep -Milliseconds 1000
            Return "error"
        }Else{
            Return $res
        }
    }Catch{
        if ($log -ne "nop") { Write-Host "Oder Error! " $_.ErrorDetails.Message -ForegroundColor Red >> $logfile }
        Start-Sleep -Milliseconds 1000
        Return "error"
    }
}
Function own_history($pair){
    $res = trade_history $pair
    return $res.return
}

#未約定注文一覧の取得
Function active_orders($pair){
    $Url = "https://api.zaif.jp/tapi"
    $Nonce = ([System.DateTime]::UtcNow - (Get-Date("1970, 1, 1"))).TotalSeconds
    $Body = New-Object "System.Collections.Generic.Dictionary[[String],[String]]"
    $Body.Add("nonce", "$Nonce")
    $Body.Add("method", "active_orders")  
    $Body.Add("currency_pair", $pair)  
    $Header = Get-Header $Body    
    #   $res = Invoke-RestMethod $Url -Method POST -Headers $Header -Body $Body
    Try{      
        $res = Invoke-RestMethod $Url -Method POST -Headers $Header -Body $Body
        If($res.success -eq 0){
            if ($log -ne "nop") { Write-Host "Oder Error! " $res.error -ForegroundColor Red  >> $logfile }
            Start-Sleep -Milliseconds 1000
            Return "error"
        }Else{
            Return $res
        }
    }Catch{
        if ($log -ne "nop") { Write-Host "Oder Error! " $_.ErrorDetails.Message -ForegroundColor Red  >> $logfile }
        Start-Sleep -Milliseconds 1000
        Return "error"
    }
}
Function own_Order($pair){
    $res = active_orders $pair
    return $res.return
}

#注文
Function trade($pair, $Side, $Price, $Amount){
    $Url = "https://api.zaif.jp/tapi"
    $Nonce = ([System.DateTime]::UtcNow - (Get-Date("1970, 1, 1"))).TotalSeconds
    $Body = New-Object "System.Collections.Generic.Dictionary[[String],[String]]"
    $Body.Add("nonce",   "$Nonce")
    $Body.Add("method",  "trade")            
    $Body.Add("currency_pair", $pair)
    $Body.Add("action",  "$action")
    $Body.Add("price",   "$Price")
    $Body.Add("amount",  "$Amount")
    $Body.Add("comment", "buy2self")
    $Header = Get-Header $Body
    Try{      
        $res = Invoke-RestMethod $Url -Method POST -Headers $Header -Body $Body
        If($res.success -eq 0){
            Write-Host "Oder Error! " $res.error -ForegroundColor Red
            Return "error"
        }Else{
            Return $res
        }
    }Catch{
        Write-Host "Oder Error! " $_.ErrorDetails.Message -ForegroundColor Red
        Return "error"
    }
}
Function Set-trade($pair, $action, $Price, $Amount){
    $res = trade $pair $action $Price $Amount
    if($res -eq "error") {
        exit
    }
    return $res.return
}

#買い気配＆売り気配
Function output_depth($pair,$limit){
    $res = depth $pair 
    $ask_length    = $res.asks.length
    echo "ask_length = $ask_length"
    $bid_length    = $res.bids.length
    echo "bid_length = $bid_length"
    $minAskPrice = 0
    $minAskSize  = 0
    $maxBidPrice = 0
    $maxBidSize  = 0
  # for ($i = 0; $i -lt $ask_length; $i++) {
        $minAskPrice = $res.asks[0][0]
        $minAskSize  = $res.asks[0][1]
  # }
  # for ($i = 0; $i -lt $bid_length; $i++) {
        $maxBidPrice = $res.bids[0][0]
        $maxBidSize  = $res.bids[0][1]
  # }
    $wide  = $minAskPrice - $maxBidPrice

$objPs = New-Object PSCustomObject
    $objPs | Add-Member -NotePropertyMembers @{pair        = $pair}
    $objPs | Add-Member -NotePropertyMembers @{minAskPrice = $minAskPrice}
    $objPs | Add-Member -NotePropertyMembers @{minAskSize  = $minAskSize.ToString("0.####")}
    $objPs | Add-Member -NotePropertyMembers @{maxBidPrice = $maxBidPrice}
    $objPs | Add-Member -NotePropertyMembers @{maxBidSize  = $maxBidSize.ToString("0.####")}
    $objPs | Add-Member -NotePropertyMembers @{wide        = $wide}
    #$objPs | FT
    return $objPs 
}

#取引き履歴チェック

Function coin-check($pair,$base_price,$debug,$numpin){
    if ($debug -ne "nop") { echo "coin-check 取引き履歴チェック 開始" >> $global:logfile };
    if ($debug -ne "nop") { echo "coin-check base_price = $base_price" >> $global:logfile };

$check_price = $base_price;
    if ($numpin -eq "numpin") {
        $check_price = 0;
    };

Switch ($pair) {
        "btc_jpy"  { $asset = "btc";  [float]$unit = 0.0001; $column = "#,0"};  <# 売却時#>
        "xym_jpy"  { $asset = "XYM";  [float]$unit = 0.1;    $column = "#,0.0000"};
        "xem_jpy"  { $asset = "xem";  [float]$unit = 0.1;    $column = "#,0.0000"};
        "cicc_jpy" { $asset = "CICC"; [float]$unit = 0.1;    $column = "#,0.0000"}; 
        "zaif_jpy" { $asset = "ZAIF"; [float]$unit = 0.1;    $column = "#,0.0000"}; 
        "mona_jpy" { $asset = "mona"; [float]$unit = 1;      $column = "#,0.0000"}; 
    };
    
    $res = get_info2 ;                        <#保有コイン枚数を取得#>
    $stock = $res.return.funds.($asset);

$res = own_history $pair ;    <#ユーザー自身の取引履歴の取得#>
    $Keys2 = $res -split ";";
    $counter = $Keys2.length;
    $coin_count = $stock;
    $table      = @();

$disp = $Keys2.length;
 <# echo "Keys2.length = $disp" #>
     
    for ($i = 0; $i -le $Keys2.length -1; $i++) {    <#有効データのテーブル作成#>
        <#Write-Host $i#>
        $cheng = $Keys2[$i];
        $cheng = $cheng -replace " ","";
        $cheng = $cheng -replace "=","";
        $cheng = $cheng -replace "@","";
        $cheng = $cheng -replace "{","";
        $cheng = $cheng -replace "}","";
    <#   echo "$i $cheng" #>
        $objPs = New-Object PSCustomObject;
    <#   $objPs | Add-Member -NotePropertyMembers @{No            = $i}#>
    <#   $objPs | Add-Member -NotePropertyMembers @{currency_pair = $res.$cheng.currency_pair}#>
    <#   $objPs | Add-Member -NotePropertyMembers @{action        = $res.$cheng.action}#>
        $objPs | Add-Member -NotePropertyMembers @{amount        = $res.$cheng.amount};
        $objPs | Add-Member -NotePropertyMembers @{price         = $res.$cheng.price};
        $objPs | Add-Member -NotePropertyMembers @{fee           = $res.$cheng.fee};
        $objPs | Add-Member -NotePropertyMembers @{fee_amount    = $res.$cheng.fee_amount};
        $objPs | Add-Member -NotePropertyMembers @{your_action   = $res.$cheng.your_action};
    <#   $objPs | Add-Member -NotePropertyMembers @{bonus         = $res.$cheng.bonus}#>
        $res.$cheng.timestamp = Convert-UnixTimeToDateTime($res.$cheng.timestamp);
        $objPs | Add-Member -NotePropertyMembers @{timestamp     = $res.$cheng.timestamp};
        $objPs | Add-Member -NotePropertyMembers @{comment       = $res.$cheng.comment};

$work_date = $res.$cheng.timestamp;
        $check_date = $work_date.ToString("yyyy-MM-dd");

<#   Write-Host "check_date = $check_date : base_date = $base_date  "#>
        if ($res.$cheng.your_action -eq "ask") {
            $coin_count = $coin_count + $res.$cheng.amount;
        };
        if ($res.$cheng.your_action -eq "bid") {
            $coin_count = $coin_count - $res.$cheng.amount + $res.$cheng.fee_amount;
        };
        $table += $objPs;
    <#   echo "coin_count = $coin_count"#>
    <#   if ($coin_count -le 0.000001) { break }#>
        if ($coin_count -le 0.00001) { break };
    };
<#  Write-Host $table[0] #>
    $counter2 = 0;
     
    $coins  = 0;
    $moneys = 0;
    $hi_bid  = 0;
    $hi_ask  = 0;
    $low_bid = 0;
    $low_ask = 0;
    $max_price = 0;
    $hi_money = 0;
    $last_action = $null;
    $counter = $table.length;
    if ($debug -ne "nop") { echo "coin-check ユーザー自身の取引件数 = $counter" >> $global:logfile };
    if ($param.debug -eq "debug") {$table | Ft * -AutoSize  > $global:coincheck  };
    if ($table.length -gt 0) {                             <# 有効テーブルは有るか？#>
        for ($j = 0; $j -le $table.length - 1; $j++) {
            switch ($table[$j].your_action) {
                "bid" {           <# Pb * amount / (amount - fee_amount) * 1.001#>
                    $limit_line = $table[$j].price * $table[$j].amount / ($table[$j].amount * 0.999) * 1.001;
                <#   if ($table[$j].price * 1.001 -le $check_price) {#>
                    if ($limit_line -le $check_price) {
                        $low_bid  = $low_bid  +  $table[$j].amount - $table[$j].fee_amount;
                    }else{
                        $hi_bid   = $hi_bid   +  $table[$j].amount - $table[$j].fee_amount;
                        $hi_money = $hi_money + ($table[$j].amount - $table[$j].fee_amount) * $table[$j].price;
                    };
                };
                "ask" {
                <#   if ($table[$j].price + $table[$j].fee_amount -gt $check_price) {#>
                    if ($table[$j].price -gt $check_price) {
                    <#   $check_price = $table[$j].price + $table[$j].fee_amount#>
                        $check_price = $table[$j].price;
                    }else{
                      <# $check_price = $base_price        戻さない。#>
                    };
                <#   if ($table[$j].price + $table[$j].fee_amount -le $check_price) {#>
                    if ($table[$j].price -le $check_price) {
                        $low_ask = $low_ask + $table[$j].amount;
                    }else{
                        $hi_ask  = $hi_ask  + $table[$j].amount;
                    };
                };
            };
        };
        $hi_clear    = $hi_money / $hi_bid ;          <# ナンピン対応#>
    <#   Write-Host "hi_clear($hi_clear) = hi_money($hi_money) / hi_bid($hi_bid)"#>
    };

$security = "safe"
    for ($j = $table.length - 1; $j -ge 0; $j--) {
        switch ($table[$j].your_action) {
            "bid" {
                $coins  = $coins  +  $table[$j].amount - $table[$j].fee_amount;
                $moneys = $moneys + ($table[$j].amount - $table[$j].fee_amount) * $table[$j].price;
                if ($table[$j].price -gt $max_price) {
                    $max_price = $table[$j].price;
                };
            };
            "ask" {
                if(($table[$j].comment -eq $null) -or ($table[$j].comment -eq "")){$security = "out"}
                $coins  = $coins - $table[$j].amount;
            <#   $moneys = $moneys - $table[$j].amount * $table[$j].price - $table[$j].fee#>
                $moneys = $moneys - $table[$j].amount * $table[$j].price - $table[$j].fee_amount;
            };
        };
    };

$last_action = $table[0].your_action;
    $last_order  = $table[0].price;
<#  Write-Host "last_action($last_action) : last_order($last_order)" #>

if ($debug -ne "nop") { echo "coin-check moneys = $moneys  and  coins = $coins" >> $global:logfile };
    if (($moneys -gt 0) -and ($coins -gt 0)) {
        $coin_average = $moneys / $coins;
    }else{
        $coin_average = 0;
    };
    if ($debug -ne "nop") { echo "coin-check coin_average = $coin_average" >> $global:logfile };
    $global:avera_price = $coin_average;
    if ($base_price * 1.001 -lt $max_price) {
        if ($debug -ne "nop") { echo "coin-check 購入最高単価 より　低価格です。"  >> $global:logfile };
        if ($debug -ne "nop") { echo "coin-check 部分売却" >> $global:logfile };
        if ($stock -lt $coins) {
            $sells = $stock;
        }else{
            $sells = $coins;
        };
        if ($debug -ne "nop") { echo "coin-check sells   = $sells " >> $global:logfile };
        if ($debug -ne "nop") { echo "coin-check hi_bid  = $hi_bid  : hi_ask  = $hi_ask" >> $global:logfile };
        if ($debug -ne "nop") { echo "coin-check low_bid = $low_bid : low_ask = $low_ask" >> $global:logfile };
        $work = $hi_bid - $hi_ask;
        if ($debug -ne "nop") { echo "coin-check 売れないコイン数 = $work 枚" >> $global:logfile };
        $counter2 = $sells - ($hi_bid - $hi_ask) ;      <#  売却可能コイン数#>
        if ($debug -ne "nop") { echo "coin-check 売却可能コイン数 = $counter2" >> $global:logfile };
        if (($counter2 -ge 0) -and ($counter2 -lt $stock)) { 
            $seller = $counter2;
            if (($seller -lt 0.001) -and ($seller -gt 0.0009) -and ($stock -ge 0.001)) { $seller = 0.001 };
        }else{
            $seller = 0;
        };
    }else{
        if ($base_price -gt $max_price) {
            if ($debug -ne "nop") { echo  "coin-check 全部売却" >> $global:logfile };
            $seller = $stock;
        <#
        }else{
            if ($debug -ne "nop") { echo  "coin-check 購入平均単価 より　高価格です。" >> $global:logfile }
            $seller = $stock / 2
        #>
        };
    };
    $objPs = New-Object PSCustomObject;
    $objPs | Add-Member -NotePropertyMembers @{table       = $table};
    $objPs | Add-Member -NotePropertyMembers @{can_coins   = $seller};
    $objPs | Add-Member -NotePropertyMembers @{max_price   = $max_price} ;
    $objPs | Add-Member -NotePropertyMembers @{moneys      = $moneys};
    $objPs | Add-Member -NotePropertyMembers @{coins       = $coins} ;
    $objPs | Add-Member -NotePropertyMembers @{average     = $coin_average} ;
    $objPs | Add-Member -NotePropertyMembers @{last_action = $last_action};
    $objPs | Add-Member -NotePropertyMembers @{last_order  = $last_order};
    $objPs | Add-Member -NotePropertyMembers @{hi_bid      = $hi_bid};
    $objPs | Add-Member -NotePropertyMembers @{hi_ask      = $hi_ask} ;
    $objPs | Add-Member -NotePropertyMembers @{low_bid     = $low_bid};
    $objPs | Add-Member -NotePropertyMembers @{low_ask     = $low_ask} ;
    $objPs | Add-Member -NotePropertyMembers @{hi_clear    = $hi_clear} ;
    $objPs | Add-Member -NotePropertyMembers @{security    = $security} ;

if ($debug -ne "nop") { echo "coin-check 取引き履歴チェック 終了" >> $global:logfile };
    return $objPs;
};
     
     #売却処理

Function sell-quick($pair,$sell_price){
    echo "コインを売却する 開始"
        
    $res = last_price  $pair                #現在の終値を取得
    $act_price = $res.last_price
    $res = output_depth "btc_jpy" $null
    $bid_price = $res.maxBidPrice           #買い要求指値 買い気配を売り指値とする。

if ($sell_price -eq $null) {
        $sell_price = $bid_price
    }else{
        $sell_price = $sell_price
    }

Switch ($pair) {
        "btc_jpy"  { $asset = "btc";  [float]$unit = 0.0001; $column = "#,0"}
        "xym_jpy"  { $asset = "XYM";  [float]$unit = 0.1;    $column = "#,0.0000"}
        "xem_jpy"  { $asset = "xem";  [float]$unit = 0.1;    $column = "#,0.0000"}
        "cicc_jpy" { $asset = "CICC"; [float]$unit = 0.1;    $column = "#,0.0000"} 
        "zaif_jpy" { $asset = "ZAIF"; [float]$unit = 0.1;    $column = "#,0.0000"} 
        "mona_jpy" { $asset = "mona"; [float]$unit = 1;      $column = "#,0.0000"} 
    }

$res = Get-Asset2 $asset                        #保有コイン枚数を取得
    $stock = [float]$res                          #
    Write-Host -NoNewline "保有枚数 = $stock"; echo "枚"

$base_price = $sell_price
    $res = coin-check $pair $base_price "nop" "normal"
    
#   $table  = $res.table       # 
#   $table2 = @()
#   $table2 = $table | Sort-Object -property timestamp 
#   $table2 | Ft * -AutoSize

$can_coins   = $res.can_coins   # 
    $max_price   = $res.max_price   # 
    $moneys      = $res.moneys      # 
    $coins       = $res.coins       # 
    $security    = $res.security    # 
    <#   
    echo "base_price  = $base_price  " # 
    echo "can_coins   = $can_coins   " # 
    echo "max_price   = $max_price   " # 
    echo "moneys      = $moneys      " # 
    echo "coins       = $coins       " # 
    #>
    if ($max_price -eq 0)                       {Write-Host "error"; exit}
    if (($moneys -eq 0)  -and ($coins -eq 0))   {Write-Host "error"; exit}
    if ($security -eq "out") {
        Write-Host "ZaifのWEBページからの売りがあります。";
        $x = New-Object -ComObject SAPI.SpVoice
        $x.Speak("ザイフのウエブページからの売りが行なわれています。")
        exit;
    }
#   Write-Host " can_coins = $can_coins" 
    $counter2 = $can_coins * 0.999    #　
#   Write-Host " counter2 = $counter2" 
    if (($counter2 -ge 0) -and ($counter2 -lt $stock)) {        # ０　＜　売却枚数　＜　API保有コイン
        $seller = $counter2
    }else{
        $seller = 0
    }
    if ($seller -gt $unit) {
        switch($unit) {
            1      { $seller = [Math]::Truncate($seller * 1) / 1 }
            0.1    { $seller = [Math]::Truncate($seller * 10) / 10 }
            0.01   { $seller = [Math]::Truncate($seller * 100) / 100 }
            0.001  { $seller = [Math]::Truncate($seller * 1000) / 1000 }
            0.0001 { $seller = [Math]::Truncate($seller * 10000) / 10000 }
        }
        $today = (Get-Date).ToString("HH:mm:ss")                          #現在日時を取得する
        $objPs = New-Object PSCustomObject
        $objPs | Add-Member -NotePropertyMembers @{time  = "$today ,"}
        $objPs | Add-Member -NotePropertyMembers @{pair  = "$pair ,"}
        $objPs | Add-Member -NotePropertyMembers @{order = "ask ,"}
        $objPs | Add-Member -NotePropertyMembers @{place = "$sell_price ,"}
        $objPs | Add-Member -NotePropertyMembers @{size  = "$seller ,"}
        $objPs | FT

[string]$ok_exec = Read-Host "売りを実行しますか？[ok/no]"
        if ($ok_exec -ne "ok") {echo "在庫を売却する 終了"; exit}

$res = Set-trade  $pair "ask" $sell_price  $seller
        $received   = $res.received
        $remains    = $res.remains
        $down_order = $res.order_id  
        $funds      = $res.funds.$asset
        Write-Host "約定量   = $received"
        Write-Host "未約定量 = $remains"
        Write-Host "未注文ID = $down_order"
        Write-Host "残高     = $funds"
    }else{
        Write-Host "利益が出るコインがありません。 "
        $x = New-Object -ComObject SAPI.SpVoice
        $x.Speak("利益が出るコインがありません。")
    }
    echo "コインを売却する 終了"
}
    cls    #         仮想通貨  売り値($null:買い気配値)
           sell-quick "btc_jpy" $null           #自動換金システム（改）
<#Function sell-quick($pair,    $sell_price) #>

実行結果です。

プログラム・ソースは画面左上のファイル(F)をクリックし、任意の名前を付けて保存して下さい。

クイック売り注文をする樹

仕様

留意事項

プログラム・ソース

ページ切り替え