LuaLoader 0.1 - 精易论坛 - Powered by Discuz!

local dm = CreateDm()

MessageBox(0,dm:Ver(),"Version",0)

hwnd = dm:FindWindowByProcess("iexplore.exe","IEFrame","")

local classList = {
      "WorkerW",
      "ReBarWindow32",
      "Address Band Root",
      "Edit"
}

local hwnds = {
      0,
      0,
      0,
      0
}

if hwnd > 0 then
      for i = 1, #classList
      do
            hwnd = dm:FindWindowEx(hwnd,classList,"")
            --MessageBox(0,string.format("%#x",hwnd),"windows",0)
            if hwnd > 0 then
                     hwnds = hwnd
            else
                     break
            end
      end

      if hwnd > 0 then
            dm_ret = dm:BindWindowEx(hwnd,"normal","normal","normal","",0)

            dm:SetWindowState(hwnd,12)

            dm:KeyPressChar("back")
            dm:KeyPressStr("http://125.confly.eu.org/forum.php",50)
            dm:KeyPressChar("enter")

            dm:UnBindWindow()
      end
else
      MessageBox(0,"未找到IE进程","错误",0)
end