请教编程的同学 用Access取网上的信息并发送Request的方法

DigiPub

RT

朋友来求助，让我开发一个FX自动交易工具。如果接触过用Office上网，或者了解一些情况的。请指教一下。

萝卜

虽然不了解office 上网，但是那个需要FX交易的那个公司提供编成interface ，大部分的网络交易都是需要比较严格的安全认证的，通过Request直接访问不知道是否能成功呢。
（最近形势不好，一直在做网络销售网站的维护，那些地方对安全认证都很重视的，我想FX也一样吧）

DigiPub

我估计也不容易。但是依赖者见过别人提供的用Access实现的工具，说肯定能实现的。

guozi

原帖由 萝卜 于 2009-2-3 23:56 发表 虽然不了解office 上网，但是那个需要FX交易的那个公司提供编成interface ，大部分的网络交易都是需要比较严格的安全认证的，通过Request直接访问不知道是否能成功呢。（最近形势不好，一直在做网络销售网站的维护 ...

> Request直接访问不知道是否能成功呢。应该不会吧。 最近公司认证系统更新，我申请了一个Verisign的Secure Server ID，证明书拿到手装完不好使，萝卜对这东西熟悉吗？

 

[ 本帖最后由 guozi 于 2009-2-4 15:34 编辑 ]

萝卜

我的同事不少都在FX，他们有的人正在研究怎么自己写点东西，有些FX公司提供接口的，关键是自己的分析方法，日本人有不少靠这个发了财，而且不少是写程序来买卖的，但是关键是自己选用的算法（多种算法综合判断），明天我去问问他们有没有知道的。

DigiPub

原帖由 guozi 于 2009-2-4 00:27 发表

> Request直接访问不知道是否能成功呢。
应该不会吧。

最近公司认证系统更新，我申请了一个Verisign的Secure Server ID，证明书拿到手装完不好使，萝卜对这东西熟悉吗？

要自己安装的？现在的浏览器都支持HTTPS（443 port）的呀。几年前Verisign刚普及的时候学习了一下。难道你要开有HTTPS的网站？

DigiPub

确实是这样。他们已经有了自己的算法（アルゴリズム），让我来分别给他们做成自动交易工具。他们说那个网站提供了API文档的。我还没有拿到呢。

DigiPub

Sub PrintHttpDoc()  
    Dim oHttp  As Object  
    Dim strURI As String  
  
    ' 変数を初期化します。   
    strURI = "http://www.asia.microsoft.com/japan/"  
  
    ' オブジェクト変数に参照をセットします。   
On Error Resume Next  
    Set oHttp = CreateObject("MSXML2.XMLHTTP")  
    If (Err.Number <> 0) Then  
        Set oHttp = CreateObject("MSXML.XMLHTTPRequest")  
    End If  
On Error GoTo 0  
    If oHttp Is Nothing Then  
        MsgBox "XMLHTTP オブジェクトを作成できませんでした。" _  
               , vbCritical   
        Exit Sub  
    End If  
  
    With oHttp   
        ' ドメイン認証が必要な場合は、下記の構文になります。   
        ' .Open "GET", strURI, False, "ドメイン名\ユーザーID", "パスワード"   
        .Open "GET", strURI, False  
        .Send   
  
        ' ドキュメントを出力します。   
        ' ソースが Shift-JIS の場合は、下記に変更します。   
        ' Debug.Print StrConv(.responseBody, vbUnicode)   
        Debug.Print .responseText   
  
        ' 結果を表示します。   
        If (.Status >= 200 And .Status < 300) Then  
            MsgBox "成功しました。" & vbCrLf _  
                    & .Status & ": " & .statusText   
        Else  
            MsgBox "失敗しました。" & vbCrLf _  
                    & .Status & ": " & .statusText   
        End If  
    End With  
  
    ' オブジェクト変数の参照を解放します   
    Set oHttp = Nothing  
End Sub

萝卜

今天我刚问了问我同事，说是FX发注确实不难，但是需要计算什么样的情况注文，比如计算移动平均值和现在值的比较，有些公司是通过API 直接从服务器那边取得的，不需要自己计算。不知你朋友的用的那个公司是否提供经典计算理论的API吗？ 如果提供的话，做起来就非常简单了。