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 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

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 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

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

Private Function GetAddrList(ByVal addlst As Variant) As String

dck-jp

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

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

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

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

dck-jp

Sub CreateMailByThunderbird(address As String, _
                         subject As String, body As String)
    Dim sPath, encodedSubject

    With CreateObject("ScriptControl")
        .Language = "JScript"
        encodedSubject = .CodeObject.encodeURI(subject)
    End With

    sPath = "D:\Hogehoge\Thunderbird.exe -osint -compose "