- 「起動ディスク(Macintosh HDなど)」→「アプリケーション」→「ユーティリティ」と移動し「Boot Campアシスタント」を起動します。
- 次に、「Windowsパーティションを作成または取り除く」を選択して、「続ける」を押します。
- Windowsパーティションがすでに存在していた場合、ディスクを単一ボリュームに復元する機能が使用できます。
- 「復元」を押すとWindowsパーティションの中身は完全に削除され、ハードディスクが単一のボリュームに復元されます。
ネタ元
ネタ元
nugetからインストール可能
Imports Newtonsoft.Json ...
ネタ元
GUIのないブラウザ。なので高速。
以下よりphantomjs.exeを拾ってきて実行ファイルと同じフォルダに置く
http://phantomjs.org/download.html
コードはdriverをPhantomJSに変えるだけ。簡単
Imports OpenQA.Selenium Imports OpenQA.Selenium.PhantomJS ... 'driver = New IE.InternetExplorerDriver() driver = New PhantomJS.PhantomJSDriver()
'aタグを収集 Dim aList As IReadOnlyCollection(Of IWebElement) aList = driver.FindElements(By.TagName("a")) 'aタグを巡る Dim item As IWebElement For Each item In aList Dim href href = item.GetAttribute("href") If IsNothing(href) Then 'no work Else ... Endif Next
Seleniumで、driverインスタンスを通して、特定のDOM要素を取り出して、ボタンのクリックとかをするけど、iframe内のDOMはそのままだとアクセスできない。
先にiframeのDOMを探して、driverのswitch_to_frameを呼び出せば、そのiframeのDOMをいじれる。
'iframeに切り替え Dim iframe As IWebElement iframe = driver.FindElement(By.Name("hoge")) driver.SwitchTo().Frame(iframe)
ネタ元
トップURL直下にある以下をファイル名を指定します。
FC2ブログ
ライブドアブログ
はてなブログ
ネタ元
普通にMsgBoxだと他のウィンドウに隠れちゃったりして不便な時ある。
#If Win64 Then Public Declare PtrSafe Function MessageBox Lib "user32.dll" Alias "MessageBoxA" (ByVal hWnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal uType As Long) As Long #Else Public Declare Function MessageBox Lib "user32.dll" Alias "MessageBoxA" (ByVal hWnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal uType As Long) As Long #End If 'OKボタンを保有するフラグ Public Const MB_OK = &H0 '最前面フラグ Public Const MB_TOPMOST = &H40000 Public Sub FMsgBox(aMess, Optional aCaption = "") MessageBox 0, aMess, aCaption, MB_OK Or MB_TOPMOST End Sub
ネタ元
別シートのセルを参照はExcel2010からの機能で、2007とかでは使えないのでした。
Excel 2007、2013の両方で別シートのデータをドロップダウン リストに反映させるにはどうすればいいか?
この場合は、Excel 2007以前から使われてきた「選択範囲に名前を定義する」機能を使います。
ネタ元
文字列→16進法
Private Function StrToHex(ByVal strData As String) As String '文字列→16進法 Dim strChar As String ReDim strHex(1 To Len(strData)) As String ReDim lngNu(1 To Len(strData)) For i = 1 To Len(strData) strChar = Mid$(strData, i, 1) strHex(i) = HEx$(Asc(strChar)) lngNu(i) = Len(strHex(i)) '16進法の値の桁数を格納 Next StrToHex = Join$(strHex, vbNullString) End Function Dim HexData HexData = StrToHex(ItemName) MsgBox HexData
ネタ元