竹蜻蜓。布利的攝影格子

好幾年不見了~ 今天 又一次遇到破百了~~
唉~ 自己立個碑~ 紀念一下~

股海浮沉~散戶輓歌~ 唱給自己聽~ 

2011/7/12  13:21 淨損益 -1,008,898


觀看全文...

觀看全文...

增加了國外期的選項~
不過這只是sample程式~ 所以只做了單一商品的連動下單~
DDE收的標的是歐元


下單機收到訊號後連動下單結果:



觀看全文...

好像沒有看到人家討論~ 不知道有沒有人用環球通B2CAPI來做程式下單的~
我把寶來官方提供的測試程式拿來改~
已經可以接到訊號了!!
以下是測試程式跑出來的畫面~ 為了讓它的訊號多一點 所以我拿TS現成的策略KD(5,30,70)來跑~



執行步驟:
1.開啟寶來環球通
2.開啟meta server & 執行DDE行情連線3.開TS 2000i & 叫出策略
4.開B2CAPI 下單機
5.Click [建立環球通連線]
6.Click [建立TS2000i連線]

觀看全文...

引用 using Microsoft.Win32;

///

/// 讀取 Regedit
///

/// 機碼路徑
/// key name
/// string
public static string ReadReg(string SubKeyPath, string keyName)
{
string strkeyValue = "";

try
{
RegistryKey rootkey = Registry.CurrentUser; //Registry參數
RegistryKey subKey = rootkey.OpenSubKey(SubKeyPath);
strkeyValue = subKey.GetValue(keyName).ToString();
subKey.Close();
rootkey.Close();

}
catch (Exception)
{
//throw;
}
return strkeyValue;
}

///

/// 判斷 Regedit 是否存在
///

/// 機碼路徑
/// bool
public static bool HaveReg(string SubKeyPath)
{
bool bolReturnValue = false;
try
{
RegistryKey rootKey = Registry.CurrentUser;
RegistryKey subKey = rootKey.OpenSubKey(@SubKeyPath);

//不存在
if (subKey == null)
{
bolReturnValue = false;
}
else
{
bolReturnValue = true;
}
subKey.Close();
rootKey.Close();

}
catch (Exception)
{
//throw;
}
return bolReturnValue;
}

///

/// 寫入 Regedit
///

/// 機碼路徑
/// key名稱
/// key值
/// bool
public static bool WriteReg(string SubKeyPath, string keyName, string keyValue)
{
bool bolReturnValue = false;
try
{
RegistryKey rootKey = Registry.CurrentUser;
RegistryKey subKey = rootKey.OpenSubKey(@SubKeyPath);

//不存在,Create
if (subKey == null)
{
rootKey.CreateSubKey(SubKeyPath);
}

//寫入資料
subKey = rootKey.OpenSubKey(SubKeyPath, true);
subKey.SetValue(keyName, keyValue);
bolReturnValue = true;
subKey.Close();
rootKey.Close();


}
catch (Exception)
{
//throw;
}
return bolReturnValue;

}
------------------------------------------------------------------------------------------------------------------------------
測試讀取:
private void button2_Click(object sender, EventArgs e)
{
string strSubKeyPath = "SOFTWARE\\Polaris\\B2CAPI_Pulli";
string strKeyName = "Test";
if (HaveReg(strSubKeyPath))
{
MessageBox.Show(ReadReg(strSubKeyPath, strKeyName));
}
else
{
MessageBox.Show(strSubKeyPath +" -> 路徑不存在!!");
}
}
------------------------------------------------------------------------------------------------------------------------------
測試寫入:
private void button1_Click(object sender, EventArgs e)
{
string strSubKeyPath = "SOFTWARE\\Polaris\\B2CAPI_Pulli";
string strKeyName="Test";
string strKeyValue="Hello";
if (WriteReg(strSubKeyPath,strKeyName,strKeyValue ))
MessageBox.Show("Success");
else
MessageBox.Show("fail");

}