AUTOITでの記述依頼
MT5のインジケータからCOMMONファイルに出力
出力されたファイル名:USDJPY_Color_Sniper_Sign.txt
内容:BUY

の状態で下記の記述をコンパイルしたものを
IEモードで作動させたMicrosoft Edge にバイナリーオプションで
USDJPYの画面を表示して使用した時
3156行にFile:「C:\Users¥◯◯¥Disktop¥Autoit\USDJPY.exe」
エラー 変数のタイプは「オブジェクトである必要があります」
となりBOTの実行ができませんでした
そもそも3156行もの記述もなく対策のわかる方に
記述の見直しを依頼
値段交渉には応じる事も可能です

ーーーーーーーーーーーーーーーーーーーーーーーーー
#include

HotKeySet ("s", "stopprogram")

While 1

$sFilePath = "C:\\Users\\"&@UserName&"\\AppData\\Roaming\\MetaQuotes\\Terminal\\Common\\Files\\
USDJPY_Color_Sniper_Sign.txt"
$hFileOpen = FileOpen($sFilePath)
$sFileRead = FileRead($hFileOpen)
FileClose($hFileOpen)
;MsgBox(0,"debug",$sFilePath&$sFileRead)

$oIE = _IEAttach("https://trade.highlow.com/", "URL")
;_IEAction($oIE, "refresh")
_IELoadWait($oIE)
$oIEactive = WinActivate("取引| HighLowバイナリーオプション - Internet Explorer")





if $sFileRead == "BUY" Then
;press high
$oDivs = _IETagNameGetCollection($oIE, "div")
For $oDiv In $oDivs
If StringInStr($oDiv.classname, "up button") > 0 and $oDiv.innertext = "High" Then
_IEAction($oDiv, "click")
ExitLoop
EndIf
Next
ElseIf $sFileRead == "SELL" Then
;press low
$oDivs = _IETagNameGetCollection($oIE, "div")
For $oDiv In $oDivs
If StringInStr($oDiv.classname, "dwn button") > 0 and $oDiv.innertext = "Low" Then
_IEAction($oDiv, "click")
ExitLoop
EndIf
Next
EndIf


Sleep(1000)


if $sFileRead == "BUY" or $sFileRead == "SELL" Then
;press entry
;MsgBox(0,"debug","entory ok?")
_IELinkClickByText ($oIE, "今すぐ購入")

$FileHandle = FileOpen($sFilePath,2)
FileWrite($FileHandle,"entried")
FileClose($FileHandle)

EndIf




If Mod(@MIN,Random(11,19)) == 0 Then
_IELoadWait($oIE)
EndIf
Sleep (1000)
WEnd

Func stopprogram()
Exit
EndFunc
コメント
nix73
2024/05/01 05:49
Copilot を使用したら このスクリプトは、AutoItというスクリプト言語で書かれていますね。#include ディレクティブは、 他のファイルを現在のスクリプトに組み込むために使用されます。 しかし、このスクリプトにはいくつかの問題があります。以下に修正案を示します。 エスケープ文字の追加: $sFilePath の値にエスケープ文字を追加してください。 例えば、C:\\Users\\ のようにします。 ファイルの存在確認: $sFileRead の値が “BUY” または “SELL” である場合、 ファイルが存在するかどうかを確認してください。ファイルが存在しない場合、エラーが発生します。 条件式の修正: $oDiv.innertext の比較には = ではなく == を使用してください。 修正後のスクリプトは以下のようになります: HotKeySet("s", "stopprogram") While 1 $sFilePath = "C:\\Users\\" & @UserName & "\\AppData\\Roaming\\MetaQuotes\\Terminal\\Common\\Files\\ USDJPY_Color_Sniper_Sign.txt" $hFileOpen = FileOpen($sFilePath) $sFileRead = FileRead($hFileOpen) FileClose($hFileOpen) $oIE = _IEAttach("https://trade.highlow.com/", "URL") _IELoadWait($oIE) $oIEactive = WinActivate("取引| HighLowバイナリーオプション - Internet Explorer") If $sFileRead == "BUY" Then ; press high $oDivs = _IETagNameGetCollection($oIE, "div") For $oDiv In $oDivs If StringInStr($oDiv.classname, "up button") > 0 And $oDiv.innertext == "High" Then _IEAction($oDiv, "click") ExitLoop EndIf Next ElseIf $sFileRead == "SELL" Then ; press low $oDivs = _IETagNameGetCollection($oIE, "div") For $oDiv In $oDivs If StringInStr($oDiv.classname, "dwn button") > 0 And $oDiv.innertext == "Low" Then _IEAction($oDiv, "click") ExitLoop EndIf Next EndIf Sleep(1000) If $sFileRead == "BUY" Or $sFileRead == "SELL" Then ; press entry _IELinkClickByText($oIE, "今すぐ購入") $FileHandle = FileOpen($sFilePath, 2) FileWrite($FileHandle, "entried") FileClose($FileHandle) EndIf If Mod(@MIN, Random(11, 19)) == 0 Then _IELoadWait($oIE) EndIf Sleep(1000) WEnd Func stopprogram() Exit EndFunc ---------------------------------------- これを実行すると同時に関数名が不明ですとなりました
nix73
2024/05/01 09:26
IEモードでの作動が問題である事はわかりました =================== #include Local $oIE = _IECreate("https://trade.highlow.com/") _IELoadWait($oIE) While 1 $sFilePath = "C:\Users\" & @UserName & "\AppData\Roaming\MetaQuotes\Terminal\Common\Files\USDJPY_Color_Sniper_Sign.txt" $sFileRead = FileRead($sFilePath) If $sFileRead == "BUY" Then ; press high _IEAction($oIE, "click", "High") ElseIf $sFileRead == "SELL" Then ; press low _IEAction($oIE, "click", "Low") EndIf Sleep(1000) If $sFileRead == "BUY" Or $sFileRead == "SELL" Then ; press entry _IELinkClickByText($oIE, "今すぐ購入") FileWrite($sFilePath, "entried") EndIf If Mod(@MIN, Random(11, 19)) == 0 Then _IELoadWait($oIE) EndIf Sleep(1000) WEnd =================== 上記のように記述すると以下のエラーがでます
募集中の案件です
予算
¥3,000
公開日時
2024/04/30
応募期限
2024/05/03
納品期限
2024/05/06
入札者
0人
案件への申し込みは、投資クラウドソーシングの受注者登録を行った出品者アカウントである必要があります。
依頼者
nix73
商号 株式会社ゴゴジャン
金融商品取引業の登録番号 関東財務局長(金商)第1960号
加入協会 一般社団法人 日本投資顧問業協会
商号 株式会社ゴゴジャン
金融商品取引業の登録番号
関東財務局長(金商)第1960号
加入協会 一般社団法人
日本投資顧問業協会
金融庁日本投資顧問業協会証券・金融商品あっせん相談センター証券取引等監視委員会

Copyright © 2024 GogoJungle Inc. All Rights Reserved.