VB.netでSelenium

準備編

• Seleniumモジュールダウンロード
  • http://www.seleniumhq.org/download/　から　C#のをダウンロード
  • いまならNugetからでもいけるみたい。

• IEとEdgeとChrome自動化する場合に実行ファイルと同じフォルダにおくものダウンロード
  • chromedriver
  • ここからThe Internet Explorer Driver Serverをダウンロード
  • EdgeDriver

プロジェクトでの準備

• 参照の追加をする
  • ダウンロードしたSeleniumのモジュールの中を解凍して、プロジェクトのフォルダのどこかに置く
  • Visual Studio のメニューから「プロジェクト → 参照の追加」を選択します。
  • 「参照マネージャ」ダイアログが開くので、展開したファイルのうち、以下をまとめて参照します。
    • Selenium.WebDriverBackedSelenium.dll
    • ThoughtWorks.Selenium.Core.dll
    • WebDriver.dll
    • WebDriver.Support.dll

サンプルコード

Imports OpenQA.Selenium
Imports OpenQA.Selenium.PhantomJS

Module Module1

    Sub Main()

        Dim WebD As IWebDriver

        WebD = New IE.InternetExplorerDriver()

        SearchGoogle(WebD) 

        WebD.Close()
        WebD.Quit()
        WebD = Nothing

    End Sub

   Sub SearchGoogle(aObj As IWebDriver)

        aObj.Url = "https://www.google.co.jp"

        Dim element As IWebElement
        element = aObj.FindElement(By.Name("q"))

        element.SendKeys("Cheese!")
        element.Submit()

    End Sub
End Module

IE で「NoSuchElementException」エラーになってしまう場合

IEDriverServer を正しい位置に配置し、サンプルコードにも問題が無いのに IE でのみ、「NoSuchElementException」が発生する場合があります。この場合は IE のインターネットオプションからセキュリティタブを選択し、全てのセキュリティゾーンに対して「保護モードを有効にする」へチェックしておきます。

ネタ元

• http://sig9.hatenablog.com/entry/2015/01/13/010335

ExcelVBAでIEを全部閉じる

Dim objShell As Object
Dim objWin As Object
Set objShell = CreateObject("Shell.Application")
For Each objWin In objShell.Windows
If TypeName(objWin) = "IWebBrowser2" Then
　Set objIE = objWin
　objIE.Quit
End If
Next

ネタ元

• http://loveparin.blog.fc2.com/blog-entry-5.html

Excelで残り日数計算

="2014/10/1"-"2014/3/3"

日付を引き算すればOK

 Nokori = KinenbiDate - Now

とかね

ネタ元

• https://kokodane.com/kan20.htm

Excelで期限過ぎそうなセルに色をつける

「書式」　－　「条件付き書式」　で　数式が　を選び

=$B2-1<=TODAY()　

という感じで作る

ネタ元

• http://www.newcom07.jp/EXCEL-database/blog/excel_coffee_break/2011/10/today-1.html

ExcelVBAでJSONを扱うためのモジュール「VBA-JSON」

https://github.com/VBA-tools/VBA-JSON

使い方のサンプル

連想配列 Dictionary と、可変配列 Collection を使って　JSONオブジェクトにデータをセットする

 '---------------------------------
 '　リクエストパラメタ生成
 '---------------------------------
 Dim JsonObject As Object
 Set JsonObject = New Dictionary

 JsonObject.Add "id", 1

 JsonObject.Add "name", "John Smith"

 JsonObject.Add "friend_ids", New Collection
 JsonObject("friend_ids").Add 10
 JsonObject("friend_ids").Add 20
 JsonObject("friend_ids").Add 30

 JsonObject.Add "shipTo", New Dictionary
 JsonObject("shipTo").Add "name", "Appirits Inc."
 JsonObject("shipTo").Add "address", "5F Kyocera-Harajuku Bldg. 6-27-8, Jingumae, Shibuya-ku"
 JsonObject("shipTo").Add "city", "Tokyo"
 JsonObject("shipTo").Add "state", "Japan"
 JsonObject("shipTo").Add "zip", "150-0001"

 ' イミディエイトウィンドウで確認（デバック用）
 Debug.Print JsonConverter.ConvertToJson(JsonObject, Whitespace:=2)

Dictionary を使うには参照設定で「Microsoft Scripting Runtime」をONにする

ネタ元

• https://doruby.jp/users/ookouchi/entries/201708-EXCEL-VBA-JSON-API-MSXML2-XMLHTTP
• https://tonari-it.com/excel-vba-dictionary-object/

jsonの構文チェックツール

オンライン上で、JSONの整形と構文チェックすることができるwebサービスです。処理は全てJavaScript(ローカル環境)で行なっているため、当サーバーにデータを送る必要がありません。

URL

https://syncer.jp/json-prettyprint

HTC Viveが認識しなくなった際の対応方法

USB3.1接続からUSB2.0接続へ変更する
HTC ViveのUSBドライバを削除する
ドライバを再インストールする
ダイレクトモードになっているか確認する
ケーブルをディスプレイポートケーブルからHDMIに変更する
CPU内蔵のGPU（マザーボードから出力）を利用しない
OSをWindows10にクリーンインストールする
Windowsのユーザー名を半角英数に変更する
デュアル（マルチ）モニタを利用しない
グラフィックドライバを最新にする、SLIを一時的に無効にする
ASUS　AI Suiteを無効化する

ネタ元

• http://indiegame-japan.com/2016/05/26/post-369/

WordpressテーマTwenty Seventeenで投稿日と投稿者の欄を非表示する方法

外観＞カスタマイズ
「追加 CSS」に以下を追記

.entry-meta{
	display: none;
}

IEがinput type=imageのvalueを無視する件

はまった・・・。まさかIE限定とは。

inputタグにおいて、type="image"の場合、IEでは、先ほどの「back=戻る」や「send=送信」がパラメータとして渡されないからです。。（valueの値が無視される）

これはわりとメジャーなIEのバグ？とはいえ、最初に出くわしたときは、気がつくまで結構なハマりどころだと思います。

ネタ元

• http://type74org.blog14.fc2.com/blog-entry-1109.html

動画ゲッター

動画ファイルを自動的に検知して、ダウンロードすることが出来るGoogleChrome拡張です。
閲覧しているサイトに動画ファイルが存在している場合に、お知らせをしてくれます。
リファラーとユーザーエージェントの書き換えを行いダウンロードすることもできます。
さまざまな動画形式に対応しています。

動画を含むページを閲覧すると

アクションボタンに通知されます

ネタ元

• http://www.douga-getter.com/