Tool hỗ trợ cho Web-ip

[nh0xGabONG]

ngồi hóng video hướng dẫn:x mong là nhanh hơn:binhsua17:

 

[NjGhtMaRe]

sau khi mình tạo file 1.txt và copy các link cần thiết, save lại nhưng auto nó ko nhận và vẫn thông báo bạn chưa chọn công việc ( mình đã chọn số 1 ở phần trên rồi)

 

[evorlet]

sau khi mình tạo file 1.txt và copy các link cần thiết, save lại nhưng auto nó ko nhận và vẫn thông báo bạn chưa chọn công việc ( mình đã chọn số 1 ở phần trên rồi)

Đã fix.. $tip = "Chọn công việc cần làm" chứ ko ph "<>"

 

[NjGhtMaRe]

vậy là mình phải down bản update à bác

 

[evorlet]

Để làm cái autoupdate rồi up luôn thể

 

[Loading]

Mở công việc làm sao vậy bác , hướng dẫn rõ coi

 

[kanni]

Để làm cái autoupdate rồi up luôn thể

bác cho em xin code autoupdate để em nghịch với nha :x

 

[evorlet]

Có bản mới r`, fix cái chọn công việc + add autoupdate
http://www.mediafire.com/?887nym1m53ms8

 

[lehongphongvt]

code này em có chú thích hết rồi mà ta??? chỉ còn lỗi mỗi phần chọn job là chưa kịp fix thôi _ _!
Code viết hơi dài nhưng với trình của bác evorlet chắc ko có gì là khó để build lại cả _ _!

Bỏ cái func active() đí bác ơi _ _!

 

[evorlet]

bác cho em xin code autoupdate để em nghịch với nha :x

Phải có 1 host, sau đó up 1 file txt lên đó quy định bản mới nhất
Client Software Download file txt đó về , FileGetTime file .exe

---------- Post added at 10:41 PM ---------- Previous post was at 10:40 PM ----------

code này em có chú thích hết rồi mà ta??? chỉ còn lỗi mỗi phần chọn job là chưa kịp fix thôi _ _!
Code viết hơi dài nhưng với trình của bác evorlet chắc ko có gì là khó để build lại cả _ _!

Bỏ cái func active() đí bác ơi _ _!

Cái func đó khỏi bỏ, chỉ edit if $activated = 1 thành = 0 thôi (ko nhớ tên var)^^

 

[ToGo]

Mai test thử xem thank lhp trước

 

[evorlet]

Mấy file txt mình phải tự tạo hết hả =.=' , ko thì nó sẽ báo lỗi ko mở đc file

 

[lehongphongvt]

Func active()
Local $ie = _IECreate("http://vnmoney.info/active.html",1,@SW_HIDE) <-- mở IE ẩn
Local $sText = _IEBodyReadText($ie) <-- đọc các dòng text trong trang Ie vừa mở
Local $var = DriveGetSerial( "c:" ) <-- Lấy serial của Dir
Local $find = StringInStr($sText,$var) <-- Tìm kiếm text serial trong trang vừa mở
IF $find <> 0 Then <--- So sanh nếu kết quả đúng thì thôi
Else <-- nếu kết quả sai thì hiện thông báo
Local $erro = InputBox($name, "Hiện bạn chưa được kích hoạt để sử dụng tool. Vui lòng copy serial dưới đây gửi cho tác giả quá yahoo:"&@CRLF&"Yahoo: onha_kiemtien",$var)
If $erro = - 1 Then
_IEQuit($ie) <--------------|
_IEAction($ie,"quit")<-------| Tắt IE đã mở
Exit <-- thoát chương trình


Else
_IEQuit($ie)
WinClose("- Windows Internet Explorer")
_IEAction($ie,"quit")
Exit

EndIf
Endif
_IEQuit($ie)
_IEAction($ie,"quit")
EndFunc

Bác xóa nguyên cái func này hoặc edit lại host active là dc rồi _ _!
------------------
Do đột ngột ra đi qua nên em ko build kịp source tự tạo file txt mong các bác thông cảm _ _!

 

[galaxyxxz]

Sao đăng nhập hoài ko đc dù đã nhập IP nhỉ?

 

[evorlet]

ok xóa r`
...........

 

[lehongphongvt]

source em giao bác rồi! Nhờ bác hết đấy _ _! Em ra đi đây bb all!

 

[evorlet]

Gà trống nuôi con r`.. giao tool web-ip cho người ko biết j` về web-ip.. rành autoit mà web-ip ko biết j` cũng vậy àh :-w

 

[galaxyxxz]

Sao nó cứ bắt nhập IP hoài vậy trời? @@

 

[NjGhtMaRe]

Bạn mở file Ga.txt, xóa toàn bộ trong đó rùi copy IP lại là đc

 

[evorlet]

Fix gần xong 1 phần r`.. vật vã )