Rãnh rỗi build cái tool..tốn hết 1 tiếng đồng hồ & 0.5$ thuê soft XD 1 month 
|
Tính năng
-Có chatbox update tình hình pix
-Có thể xem đc tình hình trên thread update tình hình pix
-Tính số captcha đã đánh ra VND, đổi tiêu đề soft captcha thành số tiền đã đánh đc (1000 code=20k VND)
-Tổng kết số captcha đã đánh trong ngày, trong tháng
-Có thể vô hiệu hóa các ký tự đặc biệt như ;',.[]=\-` v.v..
+Chỉ hỗ trợ soft Asian & XD
Download here
bản cuối cùng, từ nay có auto update r`
http://www.mediafire.com/?u6959o60c1od0 (ver 21/1) :|
upload file để scan virus online : www.virustotal.com
|Tính năng
-Có chatbox update tình hình pix
-Có thể xem đc tình hình trên thread update tình hình pix
-Tính số captcha đã đánh ra VND, đổi tiêu đề soft captcha thành số tiền đã đánh đc (1000 code=20k VND)
-Tổng kết số captcha đã đánh trong ngày, trong tháng
-Có thể vô hiệu hóa các ký tự đặc biệt như ;',.[]=\-` v.v..
+Chỉ hỗ trợ soft Asian & XD
Download here
bản cuối cùng, từ nay có auto update r`
http://www.mediafire.com/?u6959o60c1od0 (ver 21/1) :|
upload file để scan virus online : www.virustotal.com
#NoTrayIcon
#region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=offers\Roboform filter 1.2.ahk_1.ico
#AutoIt3Wrapper_Outfile=PixSup.exe
#AutoIt3Wrapper_Compression=0
#AutoIt3Wrapper_Res_Comment=evorlet - [email protected]
#AutoIt3Wrapper_Res_Description=evorlet - [email protected]
#AutoIt3Wrapper_Res_Fileversion=1.0.0.0
#AutoIt3Wrapper_Res_LegalCopyright=evorlet - [email protected]
#AutoIt3Wrapper_Res_Language=1066
#AutoIt3Wrapper_Res_requestedExecutionLevel=highestAvailable
#AutoIt3Wrapper_Run_Tidy=y
#endregion ;**** Directives created by AutoIt3Wrapper_GUI ****
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.8.0
Author: myName
Script Function:
Template AutoIt script.
#ce ----------------------------------------------------------------------------
#include <GuiConstantsEx.au3>
#include <ie.au3>
#include <inet.au3>
Opt("Expandvarstrings", 1)
Opt("TrayMenuMode", 1)
HotKeySet("{Enter}", "VNDCount")
TraySetState()
Global $OldTyped = IniRead("Records.ini", @MON & "/" & @MDAY, "Typed", 0)
Global $Text = 0
Global $TextWrite = 0
Global $Disabled = 0
Global $soft
Global $Class
Global $OldTypedT = 0
$View = TrayCreateItem("Xem số lượng captcha đã nhập")
$Disable = TrayCreateItem("Vô hiệu hóa ký tự đặc biệt")
$Update = TrayCreateItem("Chatbox update tình hình pix !")
$Exit = TrayCreateItem("Exit")
FileInstall("C:\a.html", "a.html", 1)
$gui = GUICreate("Update tinh hinh pix", 765, 390)
$btnSwitchforum = GUICtrlCreateButton("Xem tình hình pix trên forum mmo4vn (mmo4me)", 8, 360, 755, 30)
$btnSwitchchatbox = GUICtrlCreateButton("Xem tình hình pix trên chatbox", 8, 360, 755, 30)
GUICtrlSetState($btnSwitchchatbox, $GUI_HIDE)
$oIE = _IECreateEmbedded()
GUICtrlCreateObj($oIE, 10, 10, 745, 345)
GUISetState()
_IENavigate($oIE, @ScriptDir & "\a.html")
Global $var = WinList()
For $i = 1 To $var[0][0]
If StringInStr($var[$i][0], "ASIANDATASERVICE") Or StringInStr($var[$i][0], "VND") Then
MsgBox(0, "", $var[$i][0])
$Title = $var[$i][0]
$Class = _WinGetClass($Title)
$soft = "cwork"
ElseIf StringInStr($var[$i][0], "aptchaPro") Or StringInStr($var[$i][0], "VND") Then
$Title = $var[$i][0]
$Class = _WinGetClass($Title)
$soft = "xd"
EndIf
Next
While 1
$msg = GUIGetMsg()
Select
Case $msg = $btnSwitchforum
btnSwitchforum()
Case $msg = $btnSwitchchatbox
btnSwitchchatbox()
EndSelect
$traymsg = TrayGetMsg()
Select
Case $traymsg = $View
ViewTyped()
Case $traymsg = $Exit
OnExit()
Case $traymsg = $Disable
Disable()
Case $traymsg = $Update
GUISetState()
EndSelect
If Not (WinExists("[CLASS:$Class$]")) Then
$Msgbox = MsgBox(0, "Soft captcha khong ton tai", "Soft captcha ko tồn tại @CRLF@Vui lòng chạy soft captcha trước khi chạy tool")
Exit
EndIf
WEnd
Func N()
EndFunc ;==>N
Func _WinGetClass($hWnd)
If IsHWnd($hWnd) = 0 And WinExists($hWnd) Then $hWnd = WinGetHandle($hWnd)
Local $aGCNDLL = DllCall('User32.dll', 'int', 'GetClassName', 'hwnd', $hWnd, 'str', '', 'int', 4095)
If @error = 0 Then Return $aGCNDLL[2]
Return SetError(1, 0, '')
EndFunc ;==>_WinGetClass
Func VNDCount()
HotKeySet("{Enter}")
Send("{Enter}")
If $soft = "cwork" Then
Global $Text = ControlGetText("[CLASS:$Class$]", "", "WindowsForms10.STATIC.app.0.2004eee6")
Global $NewText = ($Text * 20)
WinSetTitle("[CLASS:$Class$]", "", $NewText & " VND")
Else
Global $Text = ControlGetText("[CLASS:$Class$]", "", "WindowsForms10.STATIC.app.0.202c6668")
Global $NewText = ($Text * 20)
WinSetTitle("[CLASS:$Class$]", "", $NewText & " VND")
EndIf
HotKeySet("{Enter}", "VNDCount")
EndFunc ;==>VNDCount
Func Disable()
If $Disabled = 0 Then
Global $Disabled = 1
HotKeySet(";", "N")
HotKeySet("'", "N")
HotKeySet(",", "N")
HotKeySet(".", "N")
HotKeySet("/", "N")
HotKeySet("[", "N")
HotKeySet("]", "N")
HotKeySet("\", "N")
HotKeySet("-", "N")
HotKeySet("`", "N")
Else
Global $Disabled = 0
HotKeySet(";")
HotKeySet("'")
HotKeySet(",")
HotKeySet(".")
HotKeySet("/")
HotKeySet("[")
HotKeySet("]")
HotKeySet("\")
HotKeySet("-")
HotKeySet("`")
EndIf
EndFunc ;==>Disable
Func OnExit()
Global $TextWrite = $Text + $OldTyped
IniWrite("Records.ini", @MON & "/" & @MDAY, "Typed", $TextWrite)
FileDelete("a.html")
Exit
EndFunc ;==>OnExit
Func ViewTyped()
For $i = 1 To 31
$OldTypedM = IniRead("Records.ini", @MON & "/" & $i, "Typed", 0)
$OldTypedT = $OldTypedT + $OldTypedM
Next
MsgBox(0, "", "Tháng " & @MON & " này bạn đã nhập " & ($OldTypedT + $Text) & " captcha" & @CRLF & "Hôm nay bạn đã nhập " & (IniRead("Records.ini", @MON & "/" & @MDAY, "Typed", 0) + $Text) & " captcha")
EndFunc ;==>ViewTyped
Func btnSwitchforum()
GUICtrlSetData($btnSwitchforum, "Loading forum...")
$HTML = _INetGetSource("http://mmo4me.com/forumdisplay.php?93-Captcha")
$Parse = StringRegExp($HTML, "(?i:mmo4me)(?i:\x2E)(?i:com)(?i:\x2F)(?i:showthread)(?i:\x2E)(?i
hp)(?i:\x3F)(?i:42487)(?i:\x2D)(?i:Update)(?i:\x2D)(?i:tinh)(?i:\x2D)(?i:hinh)(?i:\x2D)(?i:load)(?i:\x2D)(?i:cua)(?i:\x2D)(?iix)(?i:\x2D)(?i:moi)(?i:\x2D)(?i:van)(?i:\x2D)(?i:de)(?i:\x2D)(?i:qua)(?i:\x2D)(?i:topic)(?i:\x2D)(?i:ver23)(?i:\x2D)(?i:\x2F)(?iage)([0-9]{1,})(?i:\x22)(?i:\x3E)", 3)
$link = $Parse[2]
_IENavigate($oIE, "http://mmo4me.com/showthread.php?42487-Update-tinh-hinh-load-cua-Pix-moi-van-de-qua-topic-ver23-/page" & $link, 0)
Sleep(2000)
GUICtrlSetState($btnSwitchforum, $GUI_HIDE)
GUICtrlSetState($btnSwitchchatbox, $GUI_SHOW)
GUICtrlSetData($btnSwitchforum, "Xem tình hình pix trên forum")
EndFunc ;==>btnSwitchforum
Func btnSwitchchatbox()
_IENavigate($oIE, @ScriptDir & "\a.html")
GUICtrlSetState($btnSwitchforum, $GUI_SHOW)
GUICtrlSetState($btnSwitchchatbox, $GUI_HIDE)
EndFunc ;==>btnSwitchchatbox
#region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=offers\Roboform filter 1.2.ahk_1.ico
#AutoIt3Wrapper_Outfile=PixSup.exe
#AutoIt3Wrapper_Compression=0
#AutoIt3Wrapper_Res_Comment=evorlet - [email protected]
#AutoIt3Wrapper_Res_Description=evorlet - [email protected]
#AutoIt3Wrapper_Res_Fileversion=1.0.0.0
#AutoIt3Wrapper_Res_LegalCopyright=evorlet - [email protected]
#AutoIt3Wrapper_Res_Language=1066
#AutoIt3Wrapper_Res_requestedExecutionLevel=highestAvailable
#AutoIt3Wrapper_Run_Tidy=y
#endregion ;**** Directives created by AutoIt3Wrapper_GUI ****
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.8.0
Author: myName
Script Function:
Template AutoIt script.
#ce ----------------------------------------------------------------------------
#include <GuiConstantsEx.au3>
#include <ie.au3>
#include <inet.au3>
Opt("Expandvarstrings", 1)
Opt("TrayMenuMode", 1)
HotKeySet("{Enter}", "VNDCount")
TraySetState()
Global $OldTyped = IniRead("Records.ini", @MON & "/" & @MDAY, "Typed", 0)
Global $Text = 0
Global $TextWrite = 0
Global $Disabled = 0
Global $soft
Global $Class
Global $OldTypedT = 0
$View = TrayCreateItem("Xem số lượng captcha đã nhập")
$Disable = TrayCreateItem("Vô hiệu hóa ký tự đặc biệt")
$Update = TrayCreateItem("Chatbox update tình hình pix !")
$Exit = TrayCreateItem("Exit")
FileInstall("C:\a.html", "a.html", 1)
$gui = GUICreate("Update tinh hinh pix", 765, 390)
$btnSwitchforum = GUICtrlCreateButton("Xem tình hình pix trên forum mmo4vn (mmo4me)", 8, 360, 755, 30)
$btnSwitchchatbox = GUICtrlCreateButton("Xem tình hình pix trên chatbox", 8, 360, 755, 30)
GUICtrlSetState($btnSwitchchatbox, $GUI_HIDE)
$oIE = _IECreateEmbedded()
GUICtrlCreateObj($oIE, 10, 10, 745, 345)
GUISetState()
_IENavigate($oIE, @ScriptDir & "\a.html")
Global $var = WinList()
For $i = 1 To $var[0][0]
If StringInStr($var[$i][0], "ASIANDATASERVICE") Or StringInStr($var[$i][0], "VND") Then
MsgBox(0, "", $var[$i][0])
$Title = $var[$i][0]
$Class = _WinGetClass($Title)
$soft = "cwork"
ElseIf StringInStr($var[$i][0], "aptchaPro") Or StringInStr($var[$i][0], "VND") Then
$Title = $var[$i][0]
$Class = _WinGetClass($Title)
$soft = "xd"
EndIf
Next
While 1
$msg = GUIGetMsg()
Select
Case $msg = $btnSwitchforum
btnSwitchforum()
Case $msg = $btnSwitchchatbox
btnSwitchchatbox()
EndSelect
$traymsg = TrayGetMsg()
Select
Case $traymsg = $View
ViewTyped()
Case $traymsg = $Exit
OnExit()
Case $traymsg = $Disable
Disable()
Case $traymsg = $Update
GUISetState()
EndSelect
If Not (WinExists("[CLASS:$Class$]")) Then
$Msgbox = MsgBox(0, "Soft captcha khong ton tai", "Soft captcha ko tồn tại @CRLF@Vui lòng chạy soft captcha trước khi chạy tool")
Exit
EndIf
WEnd
Func N()
EndFunc ;==>N
Func _WinGetClass($hWnd)
If IsHWnd($hWnd) = 0 And WinExists($hWnd) Then $hWnd = WinGetHandle($hWnd)
Local $aGCNDLL = DllCall('User32.dll', 'int', 'GetClassName', 'hwnd', $hWnd, 'str', '', 'int', 4095)
If @error = 0 Then Return $aGCNDLL[2]
Return SetError(1, 0, '')
EndFunc ;==>_WinGetClass
Func VNDCount()
HotKeySet("{Enter}")
Send("{Enter}")
If $soft = "cwork" Then
Global $Text = ControlGetText("[CLASS:$Class$]", "", "WindowsForms10.STATIC.app.0.2004eee6")
Global $NewText = ($Text * 20)
WinSetTitle("[CLASS:$Class$]", "", $NewText & " VND")
Else
Global $Text = ControlGetText("[CLASS:$Class$]", "", "WindowsForms10.STATIC.app.0.202c6668")
Global $NewText = ($Text * 20)
WinSetTitle("[CLASS:$Class$]", "", $NewText & " VND")
EndIf
HotKeySet("{Enter}", "VNDCount")
EndFunc ;==>VNDCount
Func Disable()
If $Disabled = 0 Then
Global $Disabled = 1
HotKeySet(";", "N")
HotKeySet("'", "N")
HotKeySet(",", "N")
HotKeySet(".", "N")
HotKeySet("/", "N")
HotKeySet("[", "N")
HotKeySet("]", "N")
HotKeySet("\", "N")
HotKeySet("-", "N")
HotKeySet("`", "N")
Else
Global $Disabled = 0
HotKeySet(";")
HotKeySet("'")
HotKeySet(",")
HotKeySet(".")
HotKeySet("/")
HotKeySet("[")
HotKeySet("]")
HotKeySet("\")
HotKeySet("-")
HotKeySet("`")
EndIf
EndFunc ;==>Disable
Func OnExit()
Global $TextWrite = $Text + $OldTyped
IniWrite("Records.ini", @MON & "/" & @MDAY, "Typed", $TextWrite)
FileDelete("a.html")
Exit
EndFunc ;==>OnExit
Func ViewTyped()
For $i = 1 To 31
$OldTypedM = IniRead("Records.ini", @MON & "/" & $i, "Typed", 0)
$OldTypedT = $OldTypedT + $OldTypedM
Next
MsgBox(0, "", "Tháng " & @MON & " này bạn đã nhập " & ($OldTypedT + $Text) & " captcha" & @CRLF & "Hôm nay bạn đã nhập " & (IniRead("Records.ini", @MON & "/" & @MDAY, "Typed", 0) + $Text) & " captcha")
EndFunc ;==>ViewTyped
Func btnSwitchforum()
GUICtrlSetData($btnSwitchforum, "Loading forum...")
$HTML = _INetGetSource("http://mmo4me.com/forumdisplay.php?93-Captcha")
$Parse = StringRegExp($HTML, "(?i:mmo4me)(?i:\x2E)(?i:com)(?i:\x2F)(?i:showthread)(?i:\x2E)(?i
hp)(?i:\x3F)(?i:42487)(?i:\x2D)(?i:Update)(?i:\x2D)(?i:tinh)(?i:\x2D)(?i:hinh)(?i:\x2D)(?i:load)(?i:\x2D)(?i:cua)(?i:\x2D)(?iix)(?i:\x2D)(?i:moi)(?i:\x2D)(?i:van)(?i:\x2D)(?i:de)(?i:\x2D)(?i:qua)(?i:\x2D)(?i:topic)(?i:\x2D)(?i:ver23)(?i:\x2D)(?i:\x2F)(?iage)([0-9]{1,})(?i:\x22)(?i:\x3E)", 3)$link = $Parse[2]
_IENavigate($oIE, "http://mmo4me.com/showthread.php?42487-Update-tinh-hinh-load-cua-Pix-moi-van-de-qua-topic-ver23-/page" & $link, 0)
Sleep(2000)
GUICtrlSetState($btnSwitchforum, $GUI_HIDE)
GUICtrlSetState($btnSwitchchatbox, $GUI_SHOW)
GUICtrlSetData($btnSwitchforum, "Xem tình hình pix trên forum")
EndFunc ;==>btnSwitchforum
Func btnSwitchchatbox()
_IENavigate($oIE, @ScriptDir & "\a.html")
GUICtrlSetState($btnSwitchforum, $GUI_SHOW)
GUICtrlSetState($btnSwitchchatbox, $GUI_HIDE)
EndFunc ;==>btnSwitchchatbox
Last edited by a moderator:
)
