中国DOS联盟

放出两段代码，开机，打开网页，自动登陆，你能解决吗
先说明:自己意图是让我局域网部分机子登陆我一系统,地址为http://10.10.2.5,帮便在网上搜索到相关资源, 贴于下, 请大虾整合为一个文件
在网上看到两段代码：vbs的
一、set os = CreateObject("wscript.shell")
os.run "http://10.10.2.5"
wscript.sleep 1000
os.sendkeys "{TAB}"
os.sendkeys "{TAB}"
os.sendkeys "{TAB}"
os.sendkeys "{TAB}"
os.sendkeys "admin"
os.sendkeys "{TAB}"
os.sendkeys "password"
os.sendkeys "{ENTER}"
说明：os.sendkeys "{TAB}" 这个四次，是因为要四次TAB才能到用户名输入栏
上段实现自动登陆一个系统，系统用户名为admin，密码为password
二、bat的
< "%~f0" more +4 > ie.bat
move ie.bat "C:\Documents and Settings\all users\「开始」菜单\程序\启动\"
goto :eof
@echo off
echo wscript.sleep 600000 > c:\d.aspx/vbcx.htm" style="text-decoration:none">vbs
cscript //nologo c:\d.aspx/vbcx.htm" style="text-decoration:none">vbs & del c:\d.aspx/vbcx.htm" style="text-decoration:none">vbs
start iexplore http://10.10.2.5
这段实现开机自动打开10.10.2.5的这个网页

试问：如何能让这两个二合一，开机打开我的这个网页，同时以admin用户，密码为password进行登陆
如果能将 iexplore -k 即最大化窗口融合进去更好

sendkeys 模拟登陆不可靠，我觉得

经过观察，发现wscript.sleep 1000 这个时间过短，现在已经搞定了，将第一段放在自动启动里面，将时间改为wscript.sleep 2000，即可正常登陆系统，但是想要全屏模式，不知有什么好方法 如果有更好方法，希提供

IE F11全屏

完全正确

os.sendkeys "{TAB 4}"

将第一段代码放在C:\Documents and Settings\All Users\「开始」菜单\程序\启动下，但有时候不正确，是否是与系统启动速度原因有关系，比如打开10.10.2.5，还未进入系统，就执行了TAB命令
可否有更好方法，请赐

NewShell.vbs
自动安装卸载参数/auto
原来给一个嵌入的OA机器写的，改改就可以用了

If WScript.Arguments.Named.Exists("auto") Then InstallThis() Else Main()



Sub Main()

  Dim ie

  Set ie=CreateObject("InternetExplorer.Application")

  ie.NaviGate "demo.zarafa.com"

  While (ie.Busy)

    Wscript.Sleep 200

  Wend

  ie.Document.All.username.Value="demo2"

  ie.Document.All.password.Value="demo2"

  ie.Document.All.language.Value="en_US.UTF-8"

  ie.Document.All.submitbutton.Click

  ie.FullScreen = 1

  ie.Visible = 1

End Sub



Sub InstallThis()

  On Error Resume Next

  Dim WShell

  Set WShell = CreateObject("WScript.Shell")

  stringname = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\"

  OldShell = WShell.RegRead(stringname & "Shell")

  BakShell = WShell.RegRead(stringname & "BakShell")

  If BakShell = "" Then

    WShell.RegWrite  stringname & "BakShell" , OldShell

    WShell.RegWrite  stringname & "Shell" , "WScript.exe " & WScript.ScriptFullName

  Else

    WShell.RegWrite  stringname & "Shell" , BakShell

    WShell.RegDelete stringname & "BakShell"

  End If

End Sub

Originally posted by createfree at 2009-9-30 11:34:
将第一段代码放在C:\Documents and Settings\All Users\「开始」菜单\程序\启动下，但有时候不正确，是否是与系统启动速度原因有关系，比如打开10.10.2.5，还未进入系统，就执行了TAB命令
可否有更好方法，请赐

自然是会有更好的方法，具体要看你的条件、环境、最终目的。

比如你的网站支持接受GET 方式提交帐号密码的话，像DOS联盟论坛,可以在浏览器中打开这样的网址实现自动登陆：http://www.cn-dos.net/forum/logging.php?action=login&loginmode=&styleid=&cookietime=31536000&username=yishanju&password=xxxxxx&questionid=0&answer=&loginsubmit=%E4%BC%9A%E5%91%98%E7%99%BB%E5%BD%95

自动登陆艾维网：

http://www.iweix.com/I/UserReg/Login.aspx?__EVENTTARGET=&__EVENTARGUMENT=&__VIEWSTATE=%2FwEPDwUKLTc1NDkxNjgxMw9kFgICAw9kFgICAQ9kFgwCAQ9kFgJmDw9kFgoeB29ua2V5dXAFEklYX0tleVRpbWVyKGV2ZW50KR4Ib25jaGFuZ2UFFUlYX1NlYXJjaENoYW5nZSh0aGlzKR4Hb25mb2N1cwUUSVhfU2VhcmNoRm9jdXModGhpcykeBm9uYmx1cgUcSVhfQmx1ckxpc3RIaWRlQnlUZXJtKGV2ZW50KR4Jb25rZXlkb3duBRZLZXlXb3JkX2tleURvd24oZXZlbnQpZAICDw9kFgIeCGRpc2FibGVkBQR0cnVlZAIEDxYEHgRocmVmBRUvSS9Vc2VyUmVnL0xvZ2luLmFzcHgeBXN0eWxlBThiYWNrZ3JvdW5kOnVybCgvVUMvaW1hZ2VzL2hlYWQvaGVhZDdfMTMuanBnKSAgbm8tcmVwZWF0O2QCBQ8WAh8HBThiYWNrZ3JvdW5kOnVybCgvVUMvaW1hZ2VzL2hlYWQvaGVhZDRfMTQuanBnKSAgbm8tcmVwZWF0O2QCBg8WBB8GBRcvSVgvSVhfTmV3X0RlZmF1bHQuYXNweB8HBThiYWNrZ3JvdW5kOnVybCgvVUMvaW1hZ2VzL2hlYWQvaGVhZDRfMTYuanBnKSAgbm8tcmVwZWF0O2QCCA8WAh4HVmlzaWJsZWgWBAIBDxYCHwYFJi9JL1NldHRpbmcvU2V0dGluZ0NlbnRlci5hc3B4P3VzZXJpZD0wZAIFDxYCHwYFHC9JL1VzZXJSZWcvUmVnaXN0ZXJVc2VyLmFzcHhkGAEFHl9fQ29udHJvbHNSZXF1aXJlUG9zdEJhY2tLZXlfXxYBBRFIZWFkZXIxJGJ0blNlYXJjaCCeW3D7rnGyKIexXN8iclBR1Lqa&Header1%24txtKeyword%24txtSearchWord=%E6%90%9C%E7%B4%A2&Header1%24txtKeyword%24hfHeadValue=%E6%90%9C%E7%B4%A2&Login1%24tb_Email=yishanju@xxx.com&Login1%24tb_Password=xxxxxx&Login1%24btn_Submit=%E7%99%BB%E5%BD%95&__EVENTVALIDATION=%2FwEWCALMlZ3UDALzs9iqAwLMlv7pAQLJnuG4DwL9pZP8BwKaxOe%2FDwLU1IKrBQK3v72wDpB2iRthMdgKQoNLVV%2FBCrufZTaO

打开以下网址，可以唤醒电脑，远程开机用的：

http://www.depicus.com/wake-on-lan/woli.aspx?__VIEWSTATE=%2FwEPDwUKMTcwMzQ0ODE2NWRkbwQCWt3QRAsehmc1a70B8bkdHdg%3D&__EVENTVALIDATION=%2FwEWBgL49dOdBALY9dLhDAKP05P9AgKih6rRCgKc6fOEDALaxo%2FnC2Eezh0dsFN9JFEmE8AY32aeKZEG&edtMac=00-23-54-E0-7C-4A&edtIpAddress=xxx.vicp.net&edtSubnetMask=255.255.255.255&edtPortNo=65533&btnWakeUp=Wake+On+Wan

简单的说，以上几个网址都是把POST方式提交数据改成GET方式提交数据的样子。

另外URL长度有限制：http://support.microsoft.com/kb/208427