hikhik
10-03-2008, 09:57
Cái này tớ thấy khá hay. Copy qua đây cho các bạn cùng xem. Nhu cầu chat nhiều nick và đăng nhập nhanh gọn chắc nhiều bạn cần. Nhưng tớ lưu ý là nên dùng cái này nếu chỉ mình bạn dùng máy ;)
Tình hình hiện tại là tớ có khá nhiều ID Yahoo và nhu cầu là dùng đầy đủ các nick này. Thành ra, mỗi khi mở máy là lại phải click bật Yahoo, rồi thì nhập Info để login. Mệt quá, vất vả quá.
Thành ra, tớ lại có nhu cầu là tự động login vào YM, với các ID khác nhau.
Code thì tớ chỉ nghĩ đến VBS nhưng mờ ... ứ biết code :( . Thành ra là lại Google thôi :D .
Đây là đoạn code sử dụng VBS để login vào Yahoo Messenger:
Option Explicit
Dim WshShell
Set WshShell=CreateObject("WScript.Shell")
WshShell.Run"""C:\Program Files\Yahoo!\Messenger\YahooMessenger.exe"""
WScript.Sleep 200
WshShell.AppActivate"Sign In"
WScript.Sleep 200
WshShell.SendKeys" hosting.vnnetsoft "
WScript.Sleep 200
WshShell.SendKeys"{TAB}"
WshShell.SendKeys" VNS1@3$ "
WScript.Sleep 200
WshShell.Sendkeys"{Enter}"
Các bạn copy đoạn code trên về. Save lại thành một file bất kỳ có đuôi là VBS (ví dụ: hrockvn.vbs). Mỗi lần muốn đăng nhập, chỉ cần click và chạy file này là nó tự động login cho bạn. Kết hợp cái code này với cái Multi Yahoo Messenger thì thôi rồi, cứ thế mà click login bao nhiêu Yahoo cũng được. Tuy nhiên, điều vô cùng đáng tiếc là cái này nó đếch chạy mí Vista, mà tớ lại đang chạy Vista. Đau lòng quá .
Còn một chương trình nữa, dùng Auto IT, tuy nhiên, cái này nếu ai chạy BKAV là nghỉ lun vì bác BKAV nó sẽ xử lý các code viết bằng AutoIT ngay ^^. Thành muốn chạy code này thì đừng sài BKAV, mà tớ cũng khuyên là không nên dùng BKAV ^^.
; <AUT2EXE VERSION: 3.2.0.1>
; ----------------------------------------------------------------------------
; <AUT2EXE INCLUDE-START: F:\haomd\autoit\Yahoo.au3>
; ----------------------------------------------------------------------------
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.1.1.0
Author: Love_Or_Nothing_Vn
Script Function:
Template AutoIt script.
#ce ----------------------------------------------------------------------------
; Script Start - Add your code below here
MsgBox(0,"Auto Login Yahoo","Login Yahoo")
Run("C:\Program Files\Yahoo!\Messenger\YahooMessenger.exe"); Run file Yahoo
WinWaitActive("Yahoo! Messenger with Voice")
Send("User Name"); Dien User
Send("{tab}")
Send("PassWord"); Dien Password
Send("{enter}")
; ----------------------------------------------------------------------------
; <AUT2EXE INCLUDE-END: F:\haomd\autoit\Yahoo.au3>
; ----------------------------------------------------------------------------
Dưới đây là một bước phát triển thêm.
#cs ----------------------------------------------------------------------------
Script Function:
Template AutoIt script.
#ce ----------------------------------------------------------------------------
; Script Start - Add your code below here
MsgBox(1,"Auto Login Yahoo","Do You Want Auto Login Your Yahoo")
if $cmdline[0] = 0 Then
Run("C:\Program Files\Yahoo!\Messenger\YahooMessenger.exe"); Run file Yahoo
WinWaitActive("Yahoo! Messenger with Voice")
Send("UserName"); Dien User
Send("{tab}")
Send("PassWord"); Dien Password
Send("{enter}")
Else
MsgBox(0,"www.hrockvn.net","Good Luck")
EndIf
Nhìn cái MsgBox là hiểu nó làm gì phải không ^^.
còn AutoIT thì các bạn download tại http://www.autoitscript.com/autoit3/downloads.shtml
Nguồn: http://blog.hrockvn.net/post/160.hro
Tình hình hiện tại là tớ có khá nhiều ID Yahoo và nhu cầu là dùng đầy đủ các nick này. Thành ra, mỗi khi mở máy là lại phải click bật Yahoo, rồi thì nhập Info để login. Mệt quá, vất vả quá.
Thành ra, tớ lại có nhu cầu là tự động login vào YM, với các ID khác nhau.
Code thì tớ chỉ nghĩ đến VBS nhưng mờ ... ứ biết code :( . Thành ra là lại Google thôi :D .
Đây là đoạn code sử dụng VBS để login vào Yahoo Messenger:
Option Explicit
Dim WshShell
Set WshShell=CreateObject("WScript.Shell")
WshShell.Run"""C:\Program Files\Yahoo!\Messenger\YahooMessenger.exe"""
WScript.Sleep 200
WshShell.AppActivate"Sign In"
WScript.Sleep 200
WshShell.SendKeys" hosting.vnnetsoft "
WScript.Sleep 200
WshShell.SendKeys"{TAB}"
WshShell.SendKeys" VNS1@3$ "
WScript.Sleep 200
WshShell.Sendkeys"{Enter}"
Các bạn copy đoạn code trên về. Save lại thành một file bất kỳ có đuôi là VBS (ví dụ: hrockvn.vbs). Mỗi lần muốn đăng nhập, chỉ cần click và chạy file này là nó tự động login cho bạn. Kết hợp cái code này với cái Multi Yahoo Messenger thì thôi rồi, cứ thế mà click login bao nhiêu Yahoo cũng được. Tuy nhiên, điều vô cùng đáng tiếc là cái này nó đếch chạy mí Vista, mà tớ lại đang chạy Vista. Đau lòng quá .
Còn một chương trình nữa, dùng Auto IT, tuy nhiên, cái này nếu ai chạy BKAV là nghỉ lun vì bác BKAV nó sẽ xử lý các code viết bằng AutoIT ngay ^^. Thành muốn chạy code này thì đừng sài BKAV, mà tớ cũng khuyên là không nên dùng BKAV ^^.
; <AUT2EXE VERSION: 3.2.0.1>
; ----------------------------------------------------------------------------
; <AUT2EXE INCLUDE-START: F:\haomd\autoit\Yahoo.au3>
; ----------------------------------------------------------------------------
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.1.1.0
Author: Love_Or_Nothing_Vn
Script Function:
Template AutoIt script.
#ce ----------------------------------------------------------------------------
; Script Start - Add your code below here
MsgBox(0,"Auto Login Yahoo","Login Yahoo")
Run("C:\Program Files\Yahoo!\Messenger\YahooMessenger.exe"); Run file Yahoo
WinWaitActive("Yahoo! Messenger with Voice")
Send("User Name"); Dien User
Send("{tab}")
Send("PassWord"); Dien Password
Send("{enter}")
; ----------------------------------------------------------------------------
; <AUT2EXE INCLUDE-END: F:\haomd\autoit\Yahoo.au3>
; ----------------------------------------------------------------------------
Dưới đây là một bước phát triển thêm.
#cs ----------------------------------------------------------------------------
Script Function:
Template AutoIt script.
#ce ----------------------------------------------------------------------------
; Script Start - Add your code below here
MsgBox(1,"Auto Login Yahoo","Do You Want Auto Login Your Yahoo")
if $cmdline[0] = 0 Then
Run("C:\Program Files\Yahoo!\Messenger\YahooMessenger.exe"); Run file Yahoo
WinWaitActive("Yahoo! Messenger with Voice")
Send("UserName"); Dien User
Send("{tab}")
Send("PassWord"); Dien Password
Send("{enter}")
Else
MsgBox(0,"www.hrockvn.net","Good Luck")
EndIf
Nhìn cái MsgBox là hiểu nó làm gì phải không ^^.
còn AutoIT thì các bạn download tại http://www.autoitscript.com/autoit3/downloads.shtml
Nguồn: http://blog.hrockvn.net/post/160.hro