dck-jp

javascript:(function(){
	var html = document.getElementsByTagName('Body')[0].innerHTML;
	document.getElementsByTagName('Body')[0].innerHTML = html.replace(/<img .*src=\"([^\"\s]+)\"[^>]*>/,"<img id=target src=\"$1\" style=\"-webkit-transform: rotateX(180deg);-moz-transform: rotateX(180deg);transform:rotateX(180deg);\">");
})();

dck-jp

Option Explicit

Sub FileDownloadTest()
    Dim url As String
    Dim savePath As String: savePath = "D:\Test\"
    Dim returnValue As String
    
    url = "http://msdn.microsoft.com/en-us/library/aa385483.aspx"
    returnValue = FileDownload(url, savePath)
    'returnValue is "D:\Test\aa385483.aspx"

dck-jp

#If VBA7 And Win64 Then
Private Sub SaveDownloading(ByVal hCnn As LongPtr, ByVal svPath As String)
#Else
Private Sub SaveDownloading(ByVal hCnn As Long, ByVal svPath As String)
#End If
    Dim strm As Object: Set strm = CreateAdoDbStream(adTypeBinary)
    strm.Open
    
    ' 中略
    

dck-jp

Option Explicit

Sub CdoMailTest()
    Dim mail As New CdoMail
    Call mail.Configure("oreore@mailsagi.com", _
                        "smtp.server.com:25", _
                        cdoBasic, "userName", "pass", _
                        False)
    
    Call mail.NewMail

dck-jp

Private Const uriCdoConf As String = "http://schemas.microsoft.com/cdo/configuration/"
Private Const cdoSendUsingMethod  As String = uriCdoConf & "sendusing"

dck-jp

Public Sub SetAddress( _
    ByVal addrTo As Variant, _
    '省略
    )
    
    xMsg.To = GetAddrList(addrTo)
    '省略
End Sub

Private Function GetAddrList(ByVal addlst As Variant) As String

dck-jp

Option Explicit

Sub ArrayExTest()
    Dim list As New ArrayEx
    list.AddVal (11)
    list.AddVal (21)
    list.AddVal (31)
    Dim arr: arr = list.ToArray
    
    Debug.Print (arr(2)) '"31" displays at ImmediateWindow

dck-jp

Private xItems As Variant
Private xLength As Long
Private xIndex As Long

Private Sub Class_Initialize()
    xIndex = -1
    xLength = 32
    ReDim xItems(xLength - 1)
End Sub

dck-jp

Option Explicit

Private driver As SeleniumWrapper.WebDriver

Private Sub InitializeWebDriver()
  Set driver = New SeleniumWrapper.WebDriver
  Call driver.Start("firefox", "http://192.168.1.1/")
End sub

Private Sub Login()

dck-jp

Public Sub SearchByGoogle()
  Dim driver As New SeleniumWrapper.WebDriver
  driver.Start "firefox", "https://www.google.co.jp/"

  driver.get ("/")
  driver.findElementById("lst-ib").SendKeys "Selenium"
  driver.findElementByName("btnK").Click
End Sub