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