nh0xGabONG
Banned
ngồi hóng video hướng dẫn:x mong là nhanh hơn:binhsua17:
Đã fix.. $tip = "Chọn công việc cần làm" chứ ko ph "<>"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)![]()
bác cho em xin code autoupdate để em nghịch với nha :xĐể làm cái autoupdate rồi up luôn thể
Phải có 1 host, sau đó up 1 file txt lên đó quy định bản mới nhấtbác cho em xin code autoupdate để em nghịch với nha :x
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 _ _!
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