Baby

Chương trình đăng nhập tự động Wifi miễn phí của FPT (Auto Login FPT Wifi Free) - Wireless

Sunday, August 19, 2007 8:57:34 AM

[/img]Dạo này chú FPT nhà ta có tung ra chương trình khuyến mãi lắp đặt miễn phí Internet WIFI cho các công sở (Trường học, ngân hàng,....) thật là tuyệt

. Mấy cái Bank của bên em, em cũng cho lắp đặt hết

(Hàng miễn phí mà ! tội gì không lắp) Nhưng chú nó cũng khống chế một số cái như đường truyền thấp + phân session cho mỗi lần truy cập In tờ nét ,... Mà bực nhất là cái vụ cứ vài phút là nó lại bắt mình đăng nhập lại thì mới được. Vừa Rảnh tay rảnh chân với lại tập tành cái Auto IT nên em viết ra cái chương trình đăng nhập tự động cho chú nó hết quậy. Anh em cứ chạy rùi lôi shorcut cho nó vào trong Statup để tự động Run ha. Cái này em cho cứ 10s là lại click dùm mình 1 lần nên khỏe ru à. Hệch hệch, anh em đừng truyền miệng lung tung nha, cứ im lặng mà dùng. Chứ đến tai ổng thì ổng lại viết lại trang đăng nhập thì nhọc lắm đó

.
Link download nó đây:
http://files.myopera.com/ITbaby/files/AutoLoginFPT-Wifi.exe

Nếu anh em nào có VB6 ở đó thì có thể dùng đoạn code đăng nhập sau cũng được nè .

Cái này em bỏ trong sự kiện Timer (10 giây)

Private Sub Timer1_Timer()
        Dim strwebsite, strRedirect As String
    Timer1.Enabled = AutoLogin
    Dim strName, StrPassword As String
    Dim LinkLoginRight As Boolean
    Label3.Caption = "Status: Log in...."
    LinkLoginRight = False
    strRedirect = "http%3A%2F%2F"
    strwebsite = "http://192.168.200.13:8080/home?confirmed=true&CPURL=" & strRedirect
    strName = "fpt"
    StrPassword = "telecom"
    WebBrowser1.Navigate strwebsite
    Do While WebBrowser1.ReadyState <> READYSTATE_COMPLETE
        DoEvents
    Loop
    Label3.Caption = "Status: Normal"
   If WebBrowser1.Document.Title = "FPT WIRELESS INTERNET ACCESS" Then
        Dim iItem As HTMLImg
        Dim INP As HTMLInputElement
         For Each iItem In WebBrowser1.Document.All.tags("input")
                'Debug.Print iItem.Name
                If iItem.Name = "username" Then
                    LinkLoginRight = True
                    WebBrowser1.Document.getElementById("username").Value = "fpt"
                    WebBrowser1.Document.getElementById("password").Value = "telecom"
                End If
         Next iItem
         If LinkLoginRight Then
            For Each iItem In WebBrowser1.Document.All.tags("img")
                'Debug.Print iItem.src
                If iItem.src = "http://192.168.200.13:8080/images_fpt/Icon6.gif" Then
                    iItem.Click
                End If
            Next
        End If
    End If

End Sub

Do trang đăng nhập của chú FPT nhà ta không dùng Method Post mà bắt ta phải click nào nút đăng nhập nên mình phải dùng chiu Click thui.
hì hì, bữa trước có gắn thêm cho 1 phòng giao dịch nữa. Có 1 chú đến mình giả bộ than FPT miễn phí nên cứ bắt đăng nhập hoài à, bất tiện quá anh ơi. Hệch hệch, chú nó xổ ra 1 tràng nào là session này session nọ rùi lung tung cả lên ^_^. Mình cười muốn vỡ cái bụng ra lun

Chào mọi ngườiTìm kiếm trong Google cho NewBie

Comments

RockcAonguyeNrockcaonguyen # Tuesday, August 21, 2007 5:47:46 AM

Ku nì chắc học rỏi IT lém .. bài nì tự viết ????
Blog bạn ko hiển thị đc tiếng việt trên trình duyệt internet explorer rồi .. chỉ hiện trên Fire Fox .. ko biết bồ có mún khắc phục ko ?

Baby ITbaby # Thursday, August 23, 2007 5:56:17 AM

Ủa trên IE của tui cũng thể hiện vèo vèo muh. Hay là cái IE của cậu bị ...

RockcAonguyeNrockcaonguyen # Thursday, August 23, 2007 2:48:28 PM

nhưng chỉ một số phiên bản mới .. chứ những cái cũ thì ko đọc được .. toàn là ô vuông ...

Unregistered user # Monday, August 27, 2007 2:06:22 AM

Anonymous writes: mình test rồi chương trình của bạn không có tác dụng gì cả. vẫn phải login bạn kiểm tra lại nhé

Baby ITbaby # Monday, August 27, 2007 4:45:17 AM

hắc hắc ^_^ Tùy U thui, tui dùng cái này xài phè phè, à mà nhớ Up cho ên IE7 nha vì chú FPT nhà ta làm cái trang Login có script bị lỗi nên nếu mà dùng Component Webbrowser của IE6 thì sẽ bị lỗi chương trình. Lười tìm hiểu thêm nên đành thôi

Unregistered user # Tuesday, November 6, 2007 10:44:49 AM

Anonymous writes: có down dc nưa đâu...

Baby ITbaby # Tuesday, November 6, 2007 11:22:52 AM

Cái pé Opera này suốt ngày error 500 zới lại sửa lỗi . Pà con cứ chờ phát coi. Em vào thấy vẫn có nhưng em cũng download deck được luôn. Hè hè, cái file này được 200 lượt download rùi . Cố lên cố lên

Unregistered user # Wednesday, November 7, 2007 2:47:21 PM

Anonymous writes: Sao không còn down được nữa vậy bạn ơi ??????????????????????????

Baby ITbaby # Wednesday, November 7, 2007 3:51:13 PM

Có ai làm bên FPT biết cái đăng nhập dạng này chia session ra bao lâu không ? để em làm cho nó đúng ngon luôn đi

. Đôi khi chơi vê lờ tê ka nó vẫn bị out ra . Hu hu hu

Unregistered user # Thursday, November 8, 2007 1:23:12 AM

Anonymous writes: link hư

Baby ITbaby # Thursday, November 8, 2007 5:43:05 AM

Thế thì đành cho nó lên nơi # zậy . Anh em download nhé :
http://www.uploading.com/files/1003UCMQ/AutoLoginFPT_Wifi.exe.html

Hoặc đêy : http://ultrashare.net/hosting/fl/edfefb1561

Hoặc đêy : http://rapidshare.com/files/68222994/AutoLoginFPT-Wifi.exe.html

và đêy : http://alphaupload.com/hosting/fl/4afaa5e243/

Nhớ suỵt suỵt ha

Unregistered user # Saturday, March 1, 2008 5:40:15 AM

Anonymous writes: Bác ơi , em xài Mac OS . Bác có viết chương trình này thành JavaScript chạy trên trình duyệt cho tiện đc hok , để em down torrent cho sướng :D. Thx bác

Baby ITbaby # Monday, May 26, 2008 7:35:56 AM

Dạo này chẳng hỉu bị chi mà không login tự động được, nên em làm típ cái sau, login ngon lành, Link này anh em : http://www.mediafire.com/?djxvyabznyz . Lưu ý: cái này máy ai mà dùng BKAV thì nó sẽ thịt cái này của em luôn (vì dùng thằng auto-IT viết) hix, có mấy dòng lệnh auto IT mà thằng BKAV dốt thế. cứ nhận ra là virus chỉa account games online . Grrrrrrrr

Code Auto-IT của nó đây nè anh em :

#include <IE.au3>

$oIE = _IECreate ("http://192.168.200.13:8080/home?confirmed=true&CPURL=",0,1,0)

_IEAction($oIE, "invisible")

while 1
	_IENavigate ($oIE,"http://192.168.200.13:8080/home?confirmed=true&CPURL=")
	$o_form = _IEFormGetObjByName ($oIE, "authenticateForm")
	$o_login = _IEFormElementGetObjByName ($o_form, "username")
	$o_password = _IEFormElementGetObjByName ($o_form, "password")

	$username = "fpt"
	$password = "telecom"
	_IEFormElementSetValue ($o_login, $username)
	_IEFormElementSetValue ($o_password, $password)

	_IEImgClick ($oIE, "http://192.168.200.13:8080/images_fpt/Icon6.gif")

	sleep(3000) ;
wend

Đơn giản thế mà BKAV cũng nhận ra là Virus thì đúng là chuối cả bọn ^_^

Sẵn tiện anh em nào mà có nghi ngờ file nào bị Virus thì cứ Up lên Virustotal.com hoặc Virscan.org cho nó scan (Có nhiều engine của nhiều hãng nổi tiếng) để scan online nhá

Baby ITbaby # Friday, May 30, 2008 10:23:05 AM

Có một số anh em vẫn phoái dùng chú BKAV. Nên em compile lại cái code viết bằng VB (Có chỉnh sửa tí chút cho đăng nhập được). Anh em download về mà dùng nha . Em cũng bận quá, nên ít có thời gian tinh chỉnh Code lại nên nó chiếm CPU cũng hơi nhiều ^_^ . Mún ít chiếm CPU thì anh em cứ dùng cái Auto login bằng Auto-IT bên trên nhá
Link download cái viết bằng VB đây :
http://www.mediafire.com/?z0j2jj9veyz

Chúc anh em ngon miệng ^_^ hê hê hê

Unregistered user # Friday, May 30, 2008 10:31:00 AM

quangtrungnetco writes: thanks admin đẹp trai, hihihi

Baby ITbaby # Friday, May 30, 2008 10:35:47 AM

Hông có chi ^_^ . Ngại quá . ke ke ke ke

Unregistered user # Saturday, May 31, 2008 2:04:11 AM

quangtrungnetco writes: hôm nay mới remove thằng bkav bị khìn đi rồi, mình cài symantec antivirus nhưng vẫn ko cách nào down, down về xong nó kill luôn, huhuhu

dthtrunghau # Friday, June 20, 2008 2:05:50 AM

line download chuong trinh auto login wifi fpt moi bi loi roi ban oi
Ban co the up lai cho minh voi . Cam on ban truoc nha!
Trung Hau
Mail: 1800108@yahoo.com

Unregistered user # Saturday, July 12, 2008 5:24:10 PM

Thanh Quang writes: bác nào có sources VB cho mình xin với, tại mỗi nơi cái ip address nó khác nhau, rất cám ơn !

Baby ITbaby # Tuesday, July 15, 2008 5:44:35 AM

Đã có Auto Login FPT Wifi phiên bản Web (Dùng cho tất cả hệ điều hành)
Link nó nè anh em http://my.opera.com/ITbaby/blog/show.dml/2345194

Unregistered user # Sunday, July 20, 2008 6:50:45 AM

Anonymous writes: link http://my.opera.com/ITbaby/blog/show.dml/2345194 ko down duoc bac oi.

Unregistered user # Thursday, July 24, 2008 6:04:24 AM

nguoi thich hoi writes: bac oi thang fpt no doi thanh iD:nokia pass:ovi chuong trinh bac ko dung duoc nua

Baby ITbaby # Monday, July 28, 2008 4:09:32 PM

Xem cách xử tại đây nè ! Ngọt lịm kòn hơn kả mía lùi

http://my.opera.com/ITbaby/blog/show.dml/2345194?cid=5740132#comment5740132

Unregistered user # Tuesday, September 9, 2008 10:19:47 AM

cuong writes: vui qua di

Unregistered user # Thursday, October 2, 2008 11:43:21 PM

than chet la ta writes: cui bap qua an cap ban quyen nguoi khac ma noi la viet sac noi khong biet nguong

Baby ITbaby # Tuesday, October 14, 2008 4:15:41 PM

éc! Có mấy dòng code vớ vỉnh này nếu iem đêy chôm của người khác thì em nói là chôm

. Em vít thì em nói em vít. Chứ có gì mà pác lóng tính thế ! Thế pác nói là của ai vít cho em koi cái nào .

Unregistered user # Saturday, December 6, 2008 12:58:47 PM

Sand Desert (^_^) writes: Cái nì hình như dùng Đối tượng webrowser để hiển thị website sau đó duyệt qua mã nguồn của nó tìm các id ( chẳng hạn..(^_^)...khi tìm được thì Fill dữ liệu vào đấy ! sau đó tự động Click để đặng nhập đó hỉ ! ...

Unregistered user # Saturday, December 6, 2008 1:07:32 PM

Sand Desert writes: Cũng như phần Comment này của bạn chẳng hạn ! Tìm đúng cái trường (^_^) + regx để lấy Security code + webrowser + ...v....v....thì có thể Post Comment lên Blog của bạn liên tục theo 1 cách nào đó chẳng hạn !. Mình đang nghiên cứu về cái vụ này ! nhưng đang vướng phần CaptchaImage (^_^)...

Unregistered user # Sunday, January 17, 2010 3:31:03 AM

Anonymous writes: Đồng chí cho hỏi cục phát sóng Wifi nhà mình muốn làm hiện ra trang Login giống FPT thì làm thế nào ? Mình làm đề thỉnh thoảng cho mấy ông hàng xóm dùng nhờ !

KimberleyeNOliviamO # Thursday, February 18, 2010 9:38:49 PM

I do truly like your great data! Could you compose the term paper format for example? Because I do really know that an experienced custom writing service would create custom research papers of superior quality.

Unregistered user # Saturday, April 10, 2010 10:07:08 PM

ÐÐ½Ð¾Ð½Ð¸Ð¼ writes: Don't have a lot of cash to buy a building? Worry not, just because that's available to receive the loan to work out such problems. So take a financial loan to buy everything you want.

Unregistered user # Tuesday, November 9, 2010 4:11:05 PM

Анонімний writes: Только здесь аренда авто по приемлемой цене

Unregistered user # Tuesday, January 25, 2011 6:07:41 PM

black louboutins writes: Well , the view of the passage is totally correct ,your details is really reasonable and you guy give us valuable informative post, I totally agree the standpoint of upstairs. I often surfing on this forum when I m free and I find there are so much good information we can learn in this forumchristian louboutins pumps for sale

Unregistered user # Tuesday, June 7, 2011 6:24:32 PM

Анонімний writes: I think that to receive the loans from creditors you must have a firm motivation. However, one time I have received a short term loan, because I wanted to buy a building.

Unregistered user # Sunday, August 28, 2011 5:42:54 AM

Анонімний writes: Set your life time more simple get the mortgage loans and everything you require.

Unregistered user # Friday, September 2, 2011 10:55:30 PM

Анонімний writes: Various people all over the world get the mortgage loans in various banks, just because this is easy and fast.

Unregistered user # Sunday, September 4, 2011 10:32:55 AM

Анонімний writes: I took my first loan when I was 20 and it helped me a lot. However, I need the auto loan also.

Unregistered user # Friday, September 9, 2011 12:40:55 AM

Анонімний writes: Buildings are quite expensive and not every person can buy it. However, loans are invented to aid people in such kind of hard situations.