标题: 放出两段代码，开机，打开网页，自动登陆，你能解决吗 [打印本页]
作者: createfree 时间: 2009-9-29 14:56 标题: 放出两段代码，开机，打开网页，自动登陆，你能解决吗
放出两段代码，开机，打开网页，自动登陆，你能解决吗
先说明:自己意图是让我局域网部分机子登陆我一系统,地址为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 即最大化窗口融合进去更好
作者: yishanju 时间: 2009-9-29 16:09
sendkeys 模拟登陆不可靠，我觉得
作者: createfree 时间: 2009-9-29 17:41
经过观察，发现wscript.sleep 1000 这个时间过短，现在已经搞定了，将第一段放在自动启动里面，将时间改为wscript.sleep 2000，即可正常登陆系统，但是想要全屏模式，不知有什么好方法 如果有更好方法，希提供
作者: yishanju 时间: 2009-9-29 18:31
IE F11全屏
作者: createfree 时间: 2009-9-29 22:09
完全正确
作者: zh159 时间: 2009-9-30 11:24
os.sendkeys "{TAB 4}"
作者: createfree 时间: 2009-9-30 11:34
将第一段代码放在C:\Documents and Settings\All Users\「开始」菜单\程序\启动下，但有时候不正确，是否是与系统启动速度原因有关系，比如打开10.10.2.5，还未进入系统，就执行了TAB命令
可否有更好方法，请赐
作者: everest79 时间: 2009-9-30 15:41
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
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
作者: yishanju 时间: 2009-10-2 04:46
| Quote: | |
|
自然是会有更好的方法，具体要看你的条件、环境、最终目的。
作者: yishanju 时间: 2009-10-2 04:53
比如你的网站支持接受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
作者: yishanju 时间: 2009-10-2 05:07
自动登陆艾维网：
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
作者: yishanju 时间: 2009-10-2 05:09
打开以下网址，可以唤醒电脑，远程开机用的：
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
作者: yishanju 时间: 2009-10-2 05:20
简单的说，以上几个网址都是把POST方式提交数据改成GET方式提交数据的样子。
另外URL长度有限制：http://support.microsoft.com/kb/208427