将EP网址加入IE右键菜单

HYY514 · 发表于 2010-8-16 22:31

本帖最后由爱疯于 2012-7-5 10:45 编辑

加载后可以在IE任何界面右键菜单打开EP等网址,并自动登录!

可以卸载!

RoM7RqLE.rar (11.12 KB, 下载次数: 16)

单车代步 · 发表于 2010-8-16 22:47

[em02][em02]

单车代步 · 发表于 2010-8-16 23:10

谢谢，已安装并体验了。

单车代步 · 发表于 2010-8-16 23:16

要是能像右键复制菜单一样加入这三个网址菜单更好了哈

hhzjxss · 发表于 2010-8-16 23:31

飞翔版又研究出新成果！

[em17]

chensir · 发表于 2010-8-17 08:27

[em01]

单车代步 · 发表于 2010-8-17 12:44

PX总是在加载中，其他两个跳这个出来

[原创]将EP网址加入IE右键菜单

HYY514 · 发表于 2010-8-18 19:49

你的IE是什么版本，是否关闭了脚本运行？替换几个函数试试

Function EpHTML(sUser As String, sPsw As String)
Dim sHtm As String
sHtm = "<html><head><meta http-equiv=" & Chr(34) & "Content-Type" & Chr(34) & " content=" & _
        Chr(34) & "text/html; charset=gb2312" & Chr(34) & " /></head><body onload=" & _
        Chr(34) & "abc.submit();" & Chr(34) & "><form name=" & Chr(34) & "abc" & _
        Chr(34) & " action=" & Chr(34) & "http://www.excelpx.com/login.asp?action=chk" & _
        Chr(34) & " method=" & Chr(34) & "post" & Chr(34) & " ><input style=" & _
        Chr(34) & "width: 0px;height: 0px;" & Chr(34) & " name=" & Chr(34) & "username" & _
        Chr(34) & " type=" & Chr(34) & "text" & Chr(34) & " value=" & Chr(34) & "" & sUser & "" & _
        Chr(34) & "/><input style=" & Chr(34) & "width: 0px;height: 0px;" & Chr(34) & " name=" & _
        Chr(34) & "password" & Chr(34) & " type=" & Chr(34) & "password" & Chr(34) & " value=" & _
        Chr(34) & "" & sPsw & "" & Chr(34) & " /></form></body></html>"
EpHTML = sHtm
End Function
Function EjHTML()
EjHTML = "<script>window.open(" & Chr(34) & "http://exceljy.com" & Chr(34) & ");</script>"
End Function
Function EhmHTML()
EhmHTML = "<script>window.open(" & Chr(34) & "http://club.excelhome.net" & Chr(34) & ");</script>"
End Function

vnEh67jZ.rar (14.24 KB, 下载次数: 4)

		自动登录	找回密码
密码			注册

[分享] 将EP网址加入IE右键菜单