Hatena::Groupnadesiko

なでしこ開発日記 このページをアンテナに追加 RSSフィード

 | 

2009-07-28 このエントリーを含むブックマーク このエントリーのブックマークコメント

luacom でIEの自動ログインを試そうと努力するものの、IE7 の動きがよく分からなくて挫折。最近は、IE7 使ってログインスクリプト作る人いないのかな?あまり資料がありませんでした。

LUA(`
startURL = "http://google.com"
-- IE7 の場合
require "luacom"
Shell   = luacom.CreateObject("Shell.Application")
WScript = luacom.CreateObject("WScript.Shell")
sleep   = function() nako_eval("0.5秒待つ") end
-- IE オブジェクトを取得する
win = Shell:Windows()
-- 既存のオブジェクトがなければ作る
print("win.Count="..win.Count)
if win.Count <= 0 then
  item = win.Item
  item:Navigate2(startURL)
else
  item = win.Item(win.Count - 1)
  item:Navigate2(startURL)
end
-- Windows のアイテム状態を表示:ここで
for i = 0, win.Count-1 do
  item = win.Item(i)
  -- print(i..":"..item.FullName)
  print(i..":"..item.LocationURL)
  print(i..":"..item.HWND)
end
ie = win.Item(win.Count - 1)

-- 読み込み完了まで待機
for i = 1, 60 do
  if (ie.Busy == false) then break end
  sleep()  
end
print "ok---"
print(type(ie))
print(ie.Path)
print(ie.LocationURL)
`)

参考にしたのは、以下のページ。

う~む。

 |