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 文件路徑即可實現文件傳輸