Scott090

¦^´_ 35# singo1232001


    ¦¹ÀÉ seleniumdownload v9.zip->seleniumdownload v9.xlsm
   ³Q windows defender ÀË¥X«Â¯Ù Trojan:O97M/Sadoca.C!ml
    ½Ð½T»{¡C

    ÁÂÁÂ

Scott090

¦^´_ 46# singo1232001

ÁÂÁ½T»{´ú¸Õ»P«ü¤Þ

Scott090

¦^´_ 46# singo1232001

  ½Ð°Ý¤j¤j¡A
    ChromeDriver ¦Û115.0ª© °_¡A ´Á§ó·s¤w¤£©ñ¦b
          https://chromedriver.storage.googleapis.com/LATEST_RELEASE_
    ¦Ó©ñ¦b
          https://googlechromelabs.github.io/chrome-for-testing/#stable

   46¼Óªº  µ{¦¡¸Ó¦p¦ó­×¹¢¡G
Sub updataSelenium()  '¦Û°Ê§ó·sselenium
   .........................
    Url = "https://chromedriver.storage.googleapis.com/LATEST_RELEASE_" & dotsarr(0)
Call objHttp.Open("GET", Url, False)
Call objHttp.Send("")
version_number = objHttp.responseText
dotsarr3 = Split(version_number, ".")
leftversion_no = dotsarr3(0) & dotsarr3(1)
download_url = "https://chromedriver.storage.googleapis.com/" + version_number + "/chromedriver_win32.zip"
   
    Call objHttp.Open("GET", download_url, False)
    Call objHttp.Send("")
        

        Set fileStream = CreateObject("ADODB.Stream")
        With fileStream
            .Open
            .Type = 1 'adTypeBinary
            .Write objHttp.responseBody
            .Position = 0
            .SaveToFile foler & "chromedriver.zip", 2 '                   "C:\Program Files\SeleniumBasic\chromedriver.zip", 2  'adSaveCreateOverWrite 'adSaveCreateOverWrite
            .Close
        End With
        
        '¸ÑÀ£ÁY        'C:\Program Files\SeleniumBasic
        On Error GoTo 0
        Set oApp = CreateObject("Shell.Application")
        If Dir(TempDrvFile) <> "" Then Kill TempDrvFile
        oApp.Namespace(foler).CopyHere _
            oApp.Namespace(foler & "chromedriver.zip").items
End sub   

    ·PÁÂ

Scott090

¦^´_ 46# singo1232001

  ½Ð°Ý¤j¤j¡A
    ChromeDriver ¦Û115.0ª© °_¡A ´Á§ó·s¤w¤£©ñ¦b
          https://chromedriver.storage.googleapis.com/LATEST_RELEASE_
    ¦Ó©ñ¦b
          https://googlechromelabs.github.io/chrome-for-testing/#stable

   46¼Óªº  µ{¦¡¸Ó¦p¦ó­×¹¢¡G
Sub updataSelenium()  '¦Û°Ê§ó·sselenium
   .........................
    Url = "https://chromedriver.storage.googleapis.com/LATEST_RELEASE_" & dotsarr(0)
Call objHttp.Open("GET", Url, False)
Call objHttp.Send("")
version_number = objHttp.responseText
dotsarr3 = Split(version_number, ".")
leftversion_no = dotsarr3(0) & dotsarr3(1)
download_url = "https://chromedriver.storage.googleapis.com/" + version_number + "/chromedriver_win32.zip"
   
    Call objHttp.Open("GET", download_url, False)
    Call objHttp.Send("")
        

        Set fileStream = CreateObject("ADODB.Stream")
        With fileStream
            .Open
            .Type = 1 'adTypeBinary
            .Write objHttp.responseBody
            .Position = 0
            .SaveToFile foler & "chromedriver.zip", 2 '                   "C:\Program Files\SeleniumBasic\chromedriver.zip", 2  'adSaveCreateOverWrite 'adSaveCreateOverWrite
            .Close
        End With
        
        '¸ÑÀ£ÁY        'C:\Program Files\SeleniumBasic
        On Error GoTo 0
        Set oApp = CreateObject("Shell.Application")
        If Dir(TempDrvFile) <> "" Then Kill TempDrvFile
        oApp.Namespace(foler).CopyHere _
            oApp.Namespace(foler & "chromedriver.zip").items
End sub   

    ·PÁÂ

Scott090

¦^´_ 50# singo1232001


    ·PÁ¤j¤j¥Î¤ß¦a¨ó§U¡C
    Google Chrome ±`±`¦b§ïª©¥»¹ê ¦b¬O®¹ÂZ¡A¥¦ªº ¶³ºÝµwºÐ ChromeDriveFs ¤]¬O¡C

Scott090

¦^´_ 52# singo1232001

    ÁÂÁ¤j¤jªº²Ó¤ß»P¶K¤ß¡C
       SeleniumBasic ªºª©¥»¦n¤[¨S§ó·s¤F¡A ¤@ª½°±¯d¦b  v2.0.9.0¡C

    ´ú¸Õ¤F #52 ¼Óªºµ{¦¡¡A ½T¹ê¦¨¥\ªº§ó·s¨ì "Stable" ¤ºªº "116.0"ªºª©¥»¡C

Scott090

¦^´_ 52# singo1232001

   ¦A½Ð±Ð ¤j¤j¡A ¤U¤@µ{¦¡¦p¦ó¶ñ¥[¥\¯à¨ú±o "¸ê®Æ®É¶¡ : 2023/08/21 10:44"¡A ÁÂÁÂ
  http://forum.twbts.com/viewthread.php?tid=23777&page=4
   Sub Test()
    Dim Driver As New Selenium.ChromeDriver
    Dim ID0 As Object, UL1
    Dim sp, u2%, ar(), i%, w%
    Dim sh As Worksheet
   
    Cells.ClearContents
   
    Set Driver = CreateObject("Selenium.ChromeDriver")
    If Driver Is Nothing Then opDriver
    Driver.AddArgument ("headless")     '¤£Åã¥ÜWebPage
'    Driver.Start
    Driver.Get "https://tw.stock.yahoo.com/quote/1101.TW"
   
    Set ID0 = Driver.FindElementByID("qsp-overview-realtime-info")
    Set UL1 = ID0.FindElementsByTag("ul")(1)
    '³æ¦C
    sp = Split(UL1.text, Chr(10))
    Cells(1, 1).Resize(UBound(sp) + 1, 1) = Application.Transpose(sp)
   
    'Âù¦C
    u2 = UBound(sp) / 2
    ReDim ar(1 To u2, 1 To 2)
    For i = 0 To UBound(sp) Step 2
        w = w + 1
        ar(w, 1) = sp(i)
        ar(w, 2) = sp(i + 1)
    Next
    Cells(1, 3).Resize(UBound(ar), 2) = ar
End Sub

Scott090

¦^´_ 55# singo1232001

  ¸g´ú¸Õ«á¡A ®É¶¡ÅܼƬOªÅ¥Õ¡A ¤£ª¾°ÝÃD¦b­þ¸Ì
  ½Ð ¤j¤j ¦A¬Ý¬Ý
  ÁÂÁÂ

Scott090

¦^´_ 57# singo1232001


    ¦³±o¨ì¥¿½Tªº¸ê®Æ¤F¡G
         ®É¶¡ =  "¸ê®Æ®É¶¡:2023/08/21 14:30"

    «D±`·P®¦