- VB.NET質問スレ(Part41)
884 ：デフォルトの名無しさん[sage]：2014/11/22(土) 12:49:12.91 ID:p21jFIU4 - すでに開いているIEを取得して、その上でIEを操作しようと思ってます。
検索した物を真似してこう書いてみたんですが、newObjIEに値が入らないようなんです。
どうしたらいいんでしょうか？
Dim Shell As Object
Dim win As Object
Dim newObjIE As SHDocVw.InternetExplorer
Shell = CreateObject("Shell.Application")
For Each win In Shell.Windows
If TypeName(win.Document) = "HTMLDocument" Then
If InStr(win.Document.Title, "google") <> 0 Then
newObjIE = win
End If
End If
Next
If newObjIE Is Nothing Then
MsgBox("Googleは起動されていません。")
Else
MsgBox(newObjIE.Document.Title & "が起動されています。")
End If
|
- VB.NET質問スレ(Part41)
889 ：デフォルトの名無しさん[sage]：2014/11/22(土) 13:49:36.53 ID:p21jFIU4 - >>888
検索すると似たようなの出てくるんですよ。でも真似してみてもnewObjIEでIE操作的な事が出来なくて。
今CreateObject("InternetExplorer.application")でやってみたけどダメでした・・。
|
- VB.NET質問スレ(Part41)
893 ：デフォルトの名無しさん[sage]：2014/11/22(土) 14:59:25.92 ID:p21jFIU4 - >>891
それは新規にIEを開く動作ですよね。
すでに開いてるIEを取得して、ページタイトルから特定のIEを選択して操作したいんですよ。
|
- VB.NET質問スレ(Part41)
901 ：デフォルトの名無しさん[sage]：2014/11/22(土) 18:46:51.34 ID:p21jFIU4 - >>898
それの前の部分はどうしましたか？
>>884の物を>>898で指摘された部分を変更してみたんですけど、
やはりこう表示されてダメなんですよ。
警告1
変数 'newObjIE' は、値が割り当てられる前に使用されています。Null 参照の例外が実行時に発生する可能性があります。 C:\Users\tko0333\documents\visual studio 2010\Projects\nonke\nonke\Form1.vb 68 12 nonke
|
- VB.NET質問スレ(Part41)
906 ：デフォルトの名無しさん[sage]：2014/11/22(土) 19:50:05.20 ID:p21jFIU4 - >>902
こうですよね？
Dim Shell As Object
Dim win As Object
Dim newObjIE As Object = Nothing ''''''SHDocVw.InternetExplorer
Shell = CreateObject("Shell.Application")
For Each win In Shell.Windows
If TypeName(win.Document) = "HTMLDocumentClass" Then
If InStr(win.Document.Title, "Google") <> 0 Then
newObjIE = win
End If
End If
Next
これで実行してみると
If TypeName(win.Document) = "HTMLDocumentClass" Then
の行が
エラーを特定できません (HRESULT からの例外:0x80004005 (E_FAIL))
ってなるんですよね。
てか教えて君ですみません・・・・。
>>903
大文字、小文字はわかってるんです。
|