75 lines
2.6 KiB
QBasic
75 lines
2.6 KiB
QBasic
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
|