Tiêu đề: k biết post vào đâu nên e post tạm vào đây Thu May 10, 2012 6:41 pm
em có 1 phần mềm nhưng bị hết hạn do sử dụng đoạn code này: While 1 For $I = 1 To $N $ID = StringLeft($STRARR[$I], StringInStr($STRARR[$I], " ") - 1) $PASS = StringRight($STRARR[$I], StringLen($STRARR[$I]) - StringInStr($STRARR[$I], " ")) If Int(StringMid(_GLOBALDATE(), StringLen(_GLOBALDATE()) - 5, 1)) > 5 And StringMid(_GLOBALDATE(), StringLen(_GLOBALDATE()) - 10, 3) = "May" And StringRight(_GLOBALDATE(), 4) = "2012" Then If DANGNHAPVAOGAME($ID, $PASS) Then Sleep(5000) MouseMove($CLOSE_HOATDONG[0], $CLOSE_HOATDONG[1], 0) MouseClick("left") Sleep(400) NHANVITRIXACNHAN() Sleep(400) NHANVITRIXACNHAN() Sleep(400) NHANVITRIXACNHAN() Sleep(200) BOISAO() BOISAO() KILLCHROME() Sleep(500) Send("{ENTER}") Sleep(200) EndIf Else MsgBox(4096, "Thong Bao", _GLOBALDATE() & " la ngay het phien ban thu nghiem", 10) ExitLoop EndIf Next WEnd
em muốn dùng tiếp. vậy mong các bạn edit đoạn code để e sử dụng tiếp ạ :D
Admin Admin: Tổng Tư Lệnh
Giới tính :
Posts : 1503
Gia nhập ngày : 01/03/2012
Tuổi : 29
Đến từ : Kon Tum
Nghề nghiệp/Sở thích : Chém Gió/Spam
Tài Sản Huân Chương: Xe đời mới
Tiêu đề: Re: k biết post vào đâu nên e post tạm vào đây Fri May 11, 2012 9:01 pm
Bạn có thể post hết code của nó lun được không, bạn post có đoạn chạy của nó thì làm sao mà hỉu nổi, bạn post lun cái khai báo rồi cái Func() của nó nữa thì mình mới edit được chứ Mà sau này bạn có post thì để code trong thẻ code nhé giống như thế này nờ:
Code:
While 1 For $I = 1 To $N $ID = StringLeft($STRARR[$I], StringInStr($STRARR[$I], " ") - 1) $PASS = StringRight($STRARR[$I], StringLen($STRARR[$I]) - StringInStr($STRARR[$I], " ")) If Int(StringMid(_GLOBALDATE(), StringLen(_GLOBALDATE()) - 5, 1)) > 5 And StringMid(_GLOBALDATE(), StringLen(_GLOBALDATE()) - 10, 3) = "May" And StringRight(_GLOBALDATE(), 4) = "2012" Then If DANGNHAPVAOGAME($ID, $PASS) Then Sleep(5000) MouseMove($CLOSE_HOATDONG[0], $CLOSE_HOATDONG[1], 0) MouseClick("left") Sleep(400) NHANVITRIXACNHAN() Sleep(400) NHANVITRIXACNHAN() Sleep(400) NHANVITRIXACNHAN() Sleep(200) BOISAO() BOISAO() KILLCHROME() Sleep(500) Send("{ENTER}") Sleep(200) EndIf Else MsgBox(4096, "Thong Bao", _GLOBALDATE() & " la ngay het phien ban thu nghiem", 10) ExitLoop EndIf Next WEnd