004_comission/armandarmand
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

update,

Browse Source
This commit is contained in:
louiscklaw
2025-02-01 01:59:56 +08:00
parent b3da7aaef5
commit 8719fe58b8
310 changed files with 6332 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

74
task1/task1-ticket1/helloworld/browser/hello-aastock-draft1/Helloworld.bas Normal file
View File

@@ -0,0 +1,74 @@
Option Explicit
Dim rowc, cc, columnC As Integer
Sub helloworld()
' On Error GoTo eh
Config.init
Dim temp as Variant
' Debug.print ReadStockCode.run(11)
temp = FetchAaStock.run(268)
' Debug.print temp(IDX_STOCK_PRICE)
Debug.print temp(IDX_STOCK_NAME)
Write_10DayMovingAverage.run 11, CStr(temp(IDX_10_DAY_MOVING_AVERAGE))
Write_50DayMovingAverage.run 11, CStr(temp(IDX_50_DAY_MOVING_AVERAGE))
Write_100DayMovingAverage.run 11, CStr(temp(IDX_100_DAY_MOVING_AVERAGE))
Write_250DayMovingAverage.run 11, CStr(temp(IDX_250_DAY_MOVING_AVERAGE))
WriteRsi_10.run 11, CStr(temp(IDX_10_DAY_MOVING_AVERAGE))
WriteRsi_14.run 11, CStr(temp(IDX_50_DAY_MOVING_AVERAGE))
WriteRsi_20.run 11, CStr(temp(IDX_50_DAY_MOVING_AVERAGE))
WriteMACD_8_17Days.run 11, CStr(temp(IDX_MACD_8_17_DAYS))
WriteMACD_12_25Days.run 11, CStr(temp(IDX_MACD_12_25_DAYS))
WriteEarningsPerShare.run 11, CStr(temp(IDX_EARNINGS_PER_SHARE))
WriteFundFlow.run 11, CStr(temp(IDX_FUND_FLOW))
WritePERatioExpected.run 11, CStr(temp(IDX_P_E_RATIO_EXPECTED))
WriteShortSellingAmountRatio.run 11, CStr(temp(IDX_SHORT_SELLING_AMOUNT_RATIO_))
' WriteStockCode.run 11, CStr(temp(IDX_STOCK_CODE))
WriteStockName.run 11, CStr(temp(IDX_STOCK_NAME))
WriteStockPrice.run 11, CStr(temp(IDX_STOCK_PRICE))
WriteYield.run 11, CStr(temp(IDX_YIELD))
' driver.SetBinary ChromiumBinaryPath
' driver.Start
' driver.AddArgument "--disable-blink-features=AutomationControlled"
' ' driver.execute_script("Object.defineProperty(navigator, 'webdriver', {get: () => undefined})")
' ' driver.ExecuteScript "alert('helloworld')"
' ' driver.ExecuteScript "Object.defineProperty(navigator, 'webdriver', {get: () => undefined})"
' ' driver.Get "http://localhost:8080/navigator_webdriver_test.html"
' ' https://intoli.com/blog/not-possible-to-block-chrome-headless/chrome-headless-test.html
' ' driver.Get "https://intoli.com/blog/not-possible-to-block-chrome-headless/chrome-headless-test.html"
' driver.ExecuteScript "Object.defineProperty(navigator, 'webdriver', {get: () => undefined})"
' driver.Get "http://www.aastocks.com"
' driver.ExecuteScript "console.log('hello excel')"
' driver.ExecuteScript "document.querySelector('#sb-txtSymbol-aa').value = '939'"
' driver.ExecuteScript "document.querySelector('#sb-btnSubmit').click()"
' Debug.Print driver.ExecuteScript("return 'helloworld'")
Application.Wait Now + TimeValue("00:00:01")
Done:
Debug.Print "hello done"
Exit Sub
eh:
Debug.Print "hello error"
End Sub