windows自动登录脚本

㈠ 烦请高人编写一个自动登录的vbs脚本，谢了

用VBS可以实现的..

也可以用VB写滑兆个程序来实现,给你个例子吧:
只要将启动桌面属性,换成你的程序的完整路径,后面的动作再按你的要求改成相应的sendkeys就行了..

==================================
'俺写的不闷滚用重启的,模拟键盘操作的改屏保等待时间代码:

'vb:如何一键更改屏蚂让余保的等待时间

'我经常外出，但是又不想关机，于是走之前就设置屏保的等待时间为1分钟，回来后又要设回30钟，请问有没有哪个高手可以给我代码，我只需要2个按钮，一个是设置屏保的等待时间为1分钟，另一个按钮是设置为30分钟，谢谢！'笨方法呵..

'新建工程,放2个按钮.全部代码如下:

Private Sub Command1_Click() '设置为30分钟
Shell "control desk.cpl", 1 '打开显示属性
SendKeys "+{TAB}", True '切换到屏保页
SendKeys "{RIGHT}", True
SendKeys "{RIGHT}", True
SendKeys "{TAB}", True '切换到屏保时间
SendKeys "{TAB}", True
SendKeys "{TAB}", True
SendKeys "{TAB}", True
SendKeys 3, True '输入30并回车
SendKeys 0, True
SendKeys "~", True
End Sub

Private Sub Command2_Click() '设置为1分钟
Shell "control desk.cpl", 1 '打开显示属性
SendKeys "+{TAB}", True '切换到屏保页
SendKeys "{RIGHT}", True
SendKeys "{RIGHT}", True
SendKeys "{TAB}", True '切换到屏保时间
SendKeys "{TAB}", True
SendKeys "{TAB}", True
SendKeys "{TAB}", True
SendKeys 1, True '输入1并回车
SendKeys "~", True
End Sub

Private Sub Form_Load()
Command1.Caption = "设置为30分钟"
Command2.Caption = "设置为1分钟"
End Sub

㈡ 有什么办法可以设定电脑在某一时间自动登录某软件，游戏

如果只是自漏厅动打开某软件或游戏，用计划任务就可以做到。但如果要自动登录的话，需要你的程序有这个自动登冲晌录散搜锋功能，或者自己写脚本执行。

㈢ 如何让win7自动登陆某个账户后立即回到切换用户的界面

1、在控制面板看或肆漏到可以更改的账号。

注意事项：

Windows 7可供家庭及商业工作环境：笔记本电脑 、多媒体中心等使用。和同为雹毁NT6成员的Windows Vista一脉相承，Windows 7继承了包括Aero风格等多项功能，并且在此基础上增添了衫烂些许功能。

㈣ 怎么写一个批处理,能让他自动登录.

批处理汪猜达不到你的要，因为涉及到SOCKS数据传送，或许你可以利用VB来编写这么一个程序困仿型。
另外，你可以看看这个网站是否支持 保存COOKIS 记录，某些论坛，网站登大竖录时可以选择一个登录有效时间，来保存你的登录信息。

㈤ 如何设置远程自动登录电脑的脚本

1、在批处理自动登录远程桌面，需配置一个.rdp的远程桌面参数的可执行文件。但不能自动登录，启动.rdp文件时，需要“询问凭据”。
2、在.rdp参数中有自动执行远程计算机的应用程序，选择“程序”,配置“启动时连接以下程序”，保存即可。

㈥ 按键精灵多账号自动登录

你把账号密码放到一个TXT里中间用 | 隔开。一行一组账号密码
Rem 循环登录
Call 账号密码()
//这里你可以把你的脚本弄好,登录的子程序放在最后面就行。

//下面是登录的子程序了。
Sub 账号密码()
Text = Plugin.File.ReadFileEx("E:\QQ.txt")//读取帐号密码，存到text.（那个路径你自己改）
arr = Split(Text, "|")
A=arr(i)//这里定义账号变量
B=arr(i+1)//这里定义密码变量
MoveTo 724, 320//这里是输入账号的对话框的坐标，你自己改
Delay 200
LeftDoubleClick 1//这里我用的双击，有些可能双击不能选中以前的账号，你就改成单击然后删除
Delay 200
SayString A //这里就是输入账号了。
Delay 200
MoveTo 724, 371//这里是输入密码的对话框的坐标
Delay 200
LeftClick 1//这个跟账号一样。我用的那个网页不保存密码 所以我单击的。
Delay 200
SayString B//这里是输入账号。
i = i + 2
End Sub
我也是刚学这个。从网上找了好多才弄了这么一个。还不知道怎么让这个账号密码的循环断掉。。有空多交流一下。

㈦ QQ批量登陆脚本

功能：从指定的QQ号码和密码文件中读取信息，分别登录，也就是批量QQ号码自动登录。

操作：

1、把QQ号和密码写在一个叫QQ.ini的文件中，格式为QQ号码|密码，如88480666|12345678，其中|为号码和密码的分隔符。

2、把下面的脚本拷贝放到一个文本文件中，改名了XXX.vbs，XXX你自己任意定。

3、修改你的QQ所在的绝对路径，本例为T:/QQ2009/bin/QQ.exe。

4、双击XXX.vbs，开始自动登录。

说明：如果你有上百个QQ，恐怕开这么多QQ实例你的机器吃不消，就把'Close_Process("QQ.exe")前的'去掉。也就是说，每登录一个退出再登录另一个。

存在的问题：目前登录一个退出一个采用的是结束QQ进程的方法，这样不好，每次都要重新启动QQ实例，浪费时间，如果能注销刚才登录的QQ，再选择另一个号码登录最佳，但本人没有解决这个问题，也没时间。

VBS脚本代码如下：

'Option Explicit
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile("QQ.ini",1)

Do Until objTextFile.AtEndOfStream
Dim strNextLine
Dim spIndex,qqnumber,pwd
Dim WshShell, QQPath, QQselect

strNextLine = objTextFile.Readline

spIndex=InStr(strNextLine,"|")
qqnumber=Mid(strNextLine,1,spIndex-1)
pwd=Mid(strNextLine,spIndex+1,Len(strNextLine))
'MsgBox qqnumber&":"&pwd

QQPath="T:/QQ2009/bin/QQ.exe"
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.Run QQPath
WScript.Sleep 2000
WshShell.AppActivate "Q登录"
WshShell.SendKeys "+{TAB}"
WshShell.SendKeys qqnumber
WScript.Sleep 200
WshShell.SendKeys "{TAB}"
WshShell.SendKeys pwd
WScript.Sleep 200
WshShell.SendKeys "{ENTER}"

WScript.Sleep 5000 '等5秒再换下一个号码登录

'如果QQ太多，机器吃不消，就用这种方法，登录一个，然后下线换另一个
'Close_Process("QQ.exe")
Loop

objTextFile.Close

'下面是关闭某个进程的过程
sub Close_Process(ProcessName)
On Error Resume Next
for each ps in getobject("winmgmts:\\.\root\cimv2:win32_process").instances_ '循环进程
'MsgBox ps.name
if Ucase(ps.name)=Ucase(ProcessName) then '关闭QQ,也可以改成其它的程序
ps.terminate
end if
next
end Sub

VBS取QQ或TM自动登录代码并防止关闭的脚本

'Dim QQUIN
Set objWMIService = GetObject _
("winmgmts:\\" & "." & "\root\cimv2")
Set ps = objWMIService.ExecQuery _
("SELECT * FROM Win32_process")
For Each ps in ps '列出系统中所有正在运行的程序
'for each ps in getobject("winmgmts:\\\\.\\root\\cimv2:win32_process").instances_ '列出系统中所有正在运行的程序
If LCase(ps.Name) = "qq.exe" Or LCase(ps.Name) = "tm.exe" Then '检测是否QQ或TM
AppPath = ps.commandline '提取QQ程序的命行
tmp = Replace(AppPath, Chr(34), Space(1))
UIN1 = InStr(tmp, "QQUIN:") + 6
QQUIN = Mid(tmp, UIN1, InStr(UIN1, tmp, Space(1)) - UIN1) '取QQ号码.
End If
Next
If Len(QQUIN) = 0 Then
MsgBox "系统中没有运行QQ或TM程序,请重新启动QQ或TM,登陆后再使用一键换切换一下QQ或TM程序,再运行本脚本"
Else
Do '循环检测
myqqin = chkuin(QQUIN) '检测上面提取出来的QQ号码是否有在本机打开
If Not myqqin Then '如果没有运行则,重新运行QQ程序并登录
runapp(AppPath) '
wscript.sleep 10000 '等待10秒
Else
wscript.sleep 5000 '等待5秒
End If
Loop '返回继续检测
End If
Function RunApp(AppPath)
Dim obj
Set obj = CreateObject("WScript.Shell")
obj.exec(AppPath)
End Function
Function chkuin(QQUIN)
Set objWMIService = GetObject _
("winmgmts:\\" & "." & "\root\cimv2")
Set ps = objWMIService.ExecQuery _
("SELECT * FROM Win32_process")
For Each ps in ps '列出系统中所有正在运行的程序
'for each ps in getobject("winmgmts:\\\\.\\root\\cimv2:win32_process").instances_
If LCase(ps.Name) = "qq.exe" Or LCase(ps.Name) = "tm.exe" Then
AppPatht = ps.commandline
'by chenall qq 368178720
tmp = Replace(AppPatht, Chr(34), Space(1))
UIN1 = InStr(tmp, "QQUIN:") + 6
QQUINTMP = Mid(tmp, UIN1, InStr(UIN1, tmp, Space(1)) - UIN1)
If QQUINTMP = QQUIN Then chkuin = True End If
End If
Next
End Function

VBS脚本实现QQ自动登录的方法（旧）

dim WshShell
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.run "D:\Progra~1\Tencent\QQ.exe"
'QQ路径名，请按照自己QQ的路径修改
WScript.Sleep 1000
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "号码"
WScript.Sleep 1000
WshShell.SendKeys "{TAB}"
WScript.Sleep 1000
WshShell.SendKeys "密码"
WScript.Sleep 1000
WshShell.SendKeys "{ENTER}"
把上面这些复制到记事本中，保存，后缀名为.vbs就可以了.

隐身登陆

隐身登陆你的QQ，PWDHASH值我不会算，只知道VBS-Fans的L0Pk0zxjb6Zn87W/2PjWpg

dim QQ,A,C,OX
C=MSGBOX("请首先把你的QQ密码改为:VBS-Fans" & CHR(13) & "注意大小写然后点确定!" & chr(13) & "因为QQ密码经过MD5，XOR，循环加密所以不提供算法，我也不会！",4097,"密码要求")
if C=1 then
qq=inputbox("请输入你的QQ号码","QQ","767913294")
QQ=trim(qq)
ox=1
else
ox=0
end if
if ox=1 then
set ws=createobject("wscript.shell")
a="cmd /c ""D:\Program Files\Tencent\QQ\QQ.exe"" /START QQUIN:" & QQ & " PWDHASH:L0Pk0zxjb6Zn87W/2PjWpg== /STAT:40 eixt"
ws.run a,0
else
end if
'复制以上代码另存成*.vbs,运行就可以了!

㈧ secureCRT中如何用 vbscript脚本实现SSH自动登录

SSH的英文全称是SecureShell传统的网络服务程序，如：ftp和telnet在本质上都是不安全的，因为它们在网络上用明文传送口令和数据，别有用心的人非常容易就可以截获这些口令和数据。而通过使用SSH客户端与服务器端通讯时，用户名及口令均进行了加密，有效防止了对口令的窃听。同时通过SSH的数据传输是经过压缩的，所以可以提高数据的传输速度，既然如此我们为什么不使用它呢。SSH是由客户端和服务端的软件组成的，有两个不兼容的版本分别是：1.x和2.x。至于具体如何安装服务器端，普通用户就不需要关心了。一、安装1、安装首先要下载SecureCRT，目前最新的版本为6.1.3（截止到2008年2月，其破解版本TBE或AGAiN），我们以5.53版为例进行介绍，下载安装文件scrt553.exe和破解文件keygen.exe。安装过程很简单，运行scrt553.exe，只要“下一步”即可，安装过程中可以看到SecureCRT支持以下协议：SecureCRT使用说明-脚本之家安装完成后，第一次启动SecureCRT会有如下提示：SecureCRT使用说明-脚本之家用户需要指定一个目录，用来存放SecureCRT的配置信息。此目录默认为C:\DocumentsandSettings\用户名\ApplicationData\VanDyke\Config，如果是升级SecureCRT需要保持此文件夹与旧版本一致，如果重装系统，一定要备份此目录。如果需要更改，启动SecureCRT后点击Options=>Globalptions=>General修改Configurationfolder即可。2、破解未破解版本，只有30天的使用期。关闭SecureCRT，将keygen.exe拷贝到安装目录C:\ProgramFiles\SecureCRT中，运行它，填写Name，Company后点击Generate得到Serial,Date,LicenseKey信息，点击Patch按钮，破解并备份SecureCRT主程序。运行SecureCRT，点击Help=>EnterLicenseData…，填写从keygen得到的注册信息即可。一般AGAiN破解版本期限一年。二、基本设置修改设置为了SecureCRT用起来更方便，需要做一些设置，需要修改的有如下几处：1、退出主机自动关闭窗口Options=>Globalptions=>General=>DefaultSession=>EditDefaultSettingsSecureCRT使用说明-脚本之家Terminal中将Closeondisconnect选上，当用户从主机中退出后可以自动关闭当前连接的窗口。SecureCRT使用说明-脚本之家2、修改默认卷屏行数当你做一个操作，屏幕输出有上百行，当需要将屏幕回翻时，这个设置会有很大帮助，默认为500行，可以改为10000行，不用担心找不到了。Terminal=>Emulation=>Scrollback修改为10000。SecureCRT使用说明-脚本之家3、修改SFTP默认下载路径（可选）：对于使用SSH的连接中，可以使用SFTP下载文件，在这里可以设置文件的下载目录（默认为下载到“我的文档”中）Connection=>SSH2=>SFTPTab=>Initialdirectories=>LocaldirectorySecureCRT使用说明-脚本之家4、修改Xmodem/Zmodem上传下载路径（可选）SecureCRT可以使用Xmodem/Zmodem方便的上传和下载文件。在Sessionoptions=>Xmodem/Zmodem=>Directories中设置5、拷贝与粘贴的设置通过鼠标操作即可拷贝或粘贴所需内容是一个非常方便的设置Options=>Globalptions=>Terminal=>Mouse选中Copyonselect和Pasteonmiddlebutton这样设置后，只要用鼠标选中所需内容，则将内容拷贝到剪切板中，点击鼠标中键即可粘贴内容。SecureCRT使用说明-脚本之家另外可以设置使用Windows下的拷贝粘贴快捷键，Options=>Globalptions=>General=>DefaultSession=>EditDefaultSettings=>Terminal=>Mappedkeys=>使用说明-脚本之家6、Tabs设置从Secure5.0以后，增加了Tabs（标签）选项，多个连接可以在同一个窗口下打开，类似IE7.0的风格。将Double-click选项修改为CloseTab，双击标签可关闭连接窗口。SecureCRT使用说明-脚本之家三、界面介绍1、菜单1）File文件Connect连接，打开一个连接或者编辑已有的连接，创建新连接。QuickConnect快速连接，快速连接对话框，快速连接主机的最便捷方式。ConnectinTab在Tab中打开一个新的会话窗口。CloneSession克隆当前会话窗口。ConnectSFTPTab打开SFTP窗口，对于SSH连接，此选项可用。在此会话窗口中可使用SFTP命令传输文件。Reconnect重新连接Disconnect中断当前会话窗口的连接LogSession把当前窗口的会话记录到log文件中。RawLogSession将更详细的会话记录到log文件中，包括服务器更详细的响应信息。TraceOptions在log文件中记录协议会话信息选项。（包括客户端与主机互相连接时的一些信息内容）2）Edit编辑拷贝粘贴等3)View视图显示各种工具条4)Options选项包括全局选项和Session选项5)Transfer传递文件使用Xmodem/Zmodem上传下载文件6)Script.脚本运行一个脚本文件，或记录一个新的脚本。（类似Word中的宏功能）7)Tools工具键盘映射编辑，密钥生成工具等8)Help帮助2、对话框和按钮点击File=>Connect可出现Connect对话框。从左至右按钮依次为：连接（激活选中的连接条目）；快速连接（快捷连接新的主机）；新建连接（在对话框中新增一个连接条目）；剪切；复制；粘贴；删除（对话框中的条目）；新建文件夹，属性（显示选中条目的属性），创建条目的桌面快捷方式，帮助。SecureCRT使用说明-脚本之家Connect对话框下方有两个选项：Showdialogonstart(启动SecureCRT时显示Connect对话框)；Openinatab(以新标签卡的形式打开一个会话)，选中此选项，新的会话窗口如下图所示：在linux主机下，可以使用Xmodem/Zmodem方便的上传和下载文件基本命令：sz下载文件到本地；rz上传本地文件到主机。5、其它技巧1）使用脚本来进行重复性工作可以像word的宏一样，把你的重复性操作记录为一个脚本文件Script.=>StartRecordingScript，开始记录Script.=>StopRecordingScript，停止记录，Saveas…保存成script文件。下次调用时Script.=>Run=>SelectScript.torun…SecureCRT使用说明-脚本之家2）使用Mapkey来进行重复输入工作可以设置为全局选项（对所有连接都有效），也可以只设置为Session选项，如下图Options=>Sessionptions=>Terminal=>Mappedkeys=>Mapakey，出现MapKey对话框SecureCRT使用说明-脚本之家SecureCRT使用说明-脚本之家例如，单击F12键，在SendString输入你要经常重复使用的命令，okSecureCRT使用说明-脚本之家则下次在会话窗口中点击F12键将直接输入df–m3）自动登录以登录一个Telnet的主机为例，Sessionptions=>Connection=>LogonScripts=>Automatelogon,在login后的send中输入用户名，在Password后的send中输入密码。则可实现自动登录。SecureCRT使用说明-脚本之家用SecureCRT来上传和下载数据SecureCRT可以使用linux下的zmodem协议来快速的传送文件，只要设置一下上传和下载的默认目录就行options-->sessionoptions-->filetransfer下可以设置上传和下载的目录剩下的只要在用SecureCRT登陆linux终端的时候：发送文件到客户端：szfilenamezmodem接收可以自行启动.从客户端上传文件到linux服务端：只要服务端执行，rz然后在SecureCRT里选文件发送，协议zmodem。

㈨ windows 下如何使用sftp自动登录上传文件

1首先打开linux客户端工具，新建一个连接

2IP地址填写我们本机的IP地址

3创建完毕，打开刚才创建的连接进行连接

4连接打开，在命令行输入 sfpt 服务器IP地址

5进入用户名填写处，填写我们需要传输文件的服务器用户名

6接着填写登录密码

7显示如下标志表明，已经登录成功，使用put 文件路径即可实现文件传输