[FREE] Macro đánh nhiều acc pixprofit

[evorlet]

TÌNH HÌNH LÀ BÁC XUANDUC THU PHÍ SOFT R`, 0.5$/THÁNG => 1 NĂM = 6$ :-< MÌNH PUBLIC FREE BẢN MACRO NÀY ĐỂ GIÚP ANH EM NGHÈO KO CÓ TIỀN MUA HOẶC CẦN SOFT GẤP

UPDATED 28/10/2011

Vừa tạo ra bản mới, đánh y chang như đánh soft
PIX-MACRO II
Chức năng:
-Giống đánh trên soft
-Nhưng thực ra là đánh trực tiêp tên web

Tính năng sẽ phát triển:
- Mời mọi ng` góp ý kiến ý cò..


Cách sử dụng:
-PHẢI RESET MÁY SAU KHI CÀI ĐẶT LẦN ĐẦU (ĐỂ CRACK SANDBOXIE), NẾU KO SẼ BỊ NHƯ VẦY:

-Giống như xài soft, bật macro lên, nhấn "+" để add
-Macro sẽ tự bật các cửa sổ trình duyệt khác nhau , đăng nhập lần lượt vào các trình duyệt đó
DOWNLOAD HERE (mediafire): www.beam.to/pixmacro ,tích hợp browser + Sandboxie pre-cracked

Win 7 thì hên xui, ko xài đc thì đừng quăng gạch mình :|

*còn bug*

Spoiler: Source code - autohotkey

SetBatchLines, -1
SetTimer, TimeG, 60000
ScreenH:=A_ScreenHeight-180
ScreenW:=A_ScreenWidth-50
time:=0
Submitted2:=0
DatabseIndex:=0
COM_AtlAxWinInit()
COM_CoInitialize()
n:=1
accnum:=0
j:=0

Gui, Add, Text, x200 y200 x12 y10 w%ScreenW% h%ScreenH% hwndPixmacro
Gui, Add, Button, x12 y600 h35 w35 gAddacc, +
Gui, Add, Button, x49 y600 h35 w35 gSwitch, >>|
Gui, Add, Button, x86 y600 h35 w35 gPaus, | |
Gui, Add, Button, x165 y600 h66 w40 gByescript, Exit
Gui, add, text, x820 y624 , Type %accnum% accounts
Gui, add, button, x12 y635 gCloseAcc , Exit this account
Gui, Add, Button, x125 y600 h66 w40 gFillLogin, zoom`nand`nalign
Gui, Add, text, x650 y624 w h , Submitted: %Submitted2% _
Gui, Add, text, x650 y642 w h , Time Elapsed: %time% minutes
Gui, Add, Text, x20 y20 cBlue, The program will simulate multiple windows at the same time`n`n-Press + button to add an account to type`n-Don't use Pause (| |) button(not completed yet)`n-Press >>| to switch to next account
Gui, Add, Text, x20 y100 cRed , [email protected]
Guicontrol, Disable, | |
Guicontrol, Disable, >>|
SetTimer, Tooltip

Gui, Show,, Pixmacro
WinMove, Pixmacro ,,0, 0
Gui, +Lastfound
return

=::
return
\::
return
`;::
return
,::
return
[::
return
]::
return
'::
return
Esc::
Sendinput ^a
Sendinput dontsee
Sendinput {Enter}
gosub PressEnter
return

+Ctrl::
goto switch
return

^Shift::
goto switch
return

~Enter::
Critical
Wingetclass, CurClass, A
IfnotInstring, CurClass, th:Chrome_WidgetWin_0
return
else
{
sleep 30
GuiControl, Text, Submitted: %Submitted2% , % "Submitted: "(Submitted2:=Submitted2+1)" "
Clipboard:=""
n:=n+1
if(n > accnum)
{
n:=1
}
switch_id:=ID%n%
WinActivate, ahk_id %switch_id%
Sleep 40
MouseGetPos, xm, ym,,ClassNN
Ifnotinstring, ClassNN, Chrome_RenderWidgetHostHWND1
{
WinGetPos, Xw, Yw, Ww, Hw, Pixmacro
AvgW:= (Xw+Ww)/2
AvgH:= (Yw+Hw)/2
MouseMove, AvgW, AvgH, 1
MouseGetPos, xm, ym,,ClassNN
}
sleep 20
var1:=A_Cursor
Loop, 5
{
If (Instr(var1, "IBeam") or Instr(var1, "Unknown"))
{
MouseMove, -20, -20, 1, R
MouseGetPos, xm, ym
var1:=A_Cursor
}
Else
Break
}
sleep 50
Sendinput ^a
Sleep 50
Sendinput ^c
Sleep 60
Loop
{
If (Instr(clipboard, "wait") or InStr(var1, "AppStarting"))
{
n:=n+1
if(n > accnum)
{
n:=1
}
switch_id:=ID%n%
WinActivate, ahk_id %switch_id%
Sleep 40
Clipboard:=""
Sleep 20
Sendinput ^a
Sleep 30
Sendinput ^c
Sleep 50
var1:=A_Cursor
Sleep 20
}
Else
Break
Sleep 20
}
}
exit
return

Login:
controlSetText, Type %accnum% accounts, % "Type "(accnum:=accnum+1)" accounts", Pixmacro
sleep 10
SplashTextOn, 250, 80, Opening web browsers...,Opening web browsers...
Run, %A_WorkingDir%\Coms\chrome%accnum%
winwait, ahk_class Sandbox:%accnum%th:Chrome_WidgetWin_0
sleep 10
winactivate, ahk_class Sandbox:%accnum%th:Chrome_WidgetWin_0
child%accnum% := WinExist()
sleep 100
Winget, ID%accnum%, id, ahk_class Sandbox:%accnum%th:Chrome_WidgetWin_0
DllCall("SetParent", "UInt", child%accnum%, "Uint", Pixmacro)
cur_id:=ID%accnum%
winmaximize, ahk_id %cur_id%
switch_id:=cur_id
Sleep 100
pausnum:=accnum-1
SplashTextOff
if accnum > 0
{
Guicontrol, Enable, Exit this account
}
if accnum > 1
{
Guicontrol, Enable, | |
Guicontrol, Enable, >>|
}
return

Switch:
n:=n+1
if(n > accnum)
{
n:=1
}
switch_id:=ID%n%
WinActivate, ahk_id %switch_id%
return

TimeG:
GuiControl, Text, Time Elapsed: %time% minutes , % "Time Elapsed: "(time:=time+1)" minutes "
return

CloseAcc:
controlSetText, Type %accnum% accounts, % "Type "(accnum:=accnum-1)" accounts", Pixmacro
WinClose, ahk_id %switch_id%
WinActivate, ahk_id %switch_id%
If accnum <= 0
{
Guicontrol, Disable, | |
Guicontrol, Disable, Exit this account
Guicontrol, Disable, >>|
}
return

Paus:
if (A_IsSuspended)
{
Guicontrol, , >', | |
}
else
{
Guicontrol, , | |, >'
pausnum:=0
pausnum:=accnum-1
}
Suspend, Toggle
return

Byescript:
msgbox, 4,, Exit ?
ifmsgbox, Yes
{
Loop, %accnum%
{
x:=ID%A_Index%
winclose, ahk_id %x%
}
Exitapp
}

return

GuiClose:
msgbox, 4,, Exit ?
ifmsgbox, Yes
{
Loop, %accnum%
{
x:=ID%A_Index%
winclose, ahk_id %x%
}
Exitapp
}
return

Addacc:
gosub Login
return

Submit:
Gui, Submit, Hide
gosub Login
return

PressEnter: ;Main key~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~################################
Wingetclass, CurClass, A
IfnotInstring, CurClass, th:Chrome_WidgetWin_0
return
else
{
sleep 30
GuiControl, Text, Submitted: %Submitted2% , % "Submitted: "(Submitted2:=Submitted2+1)" "
Clipboard:=""
Critical
gosub Switch
Sleep 30
Sendinput ^a
Sleep 30
Sendinput ^c
MouseGetPos, xm, ym,,ClassNN
Ifnotinstring, ClassNN, Chrome_RenderWidgetHostHWND1
{
WinGetPos, Xw, Yw, Ww, Hw, Pixmacro
AvgW:= (Xw+Ww)/2
AvgH:= (Yw+Hw)/2
MouseMove, AvgW, AvgH, 1
MouseGetPos, xm, ym,,ClassNN
}
sleep 20
var1:=A_Cursor
Loop, 5
{
If (Instr(var1, "IBeam") or Instr(var1, "Unknown"))
{
MouseMove, -20, -20, 1, R
MouseGetPos, xm, ym
var1:=A_Cursor
}
Else
Break
}
sleep 20
Loop
{
If ((Instr(Clipboard, "wait")) or (InStr(var1, "AppStarting")))
{
gosub switch
Sleep 20
Clipboard:=""
Sleep 20
Sendinput ^a
Sleep 20
Sendinput ^c
Sleep 20
var1:=A_Cursor
Sleep 20
}
Else
Break
Sleep 20
}
}
return

Showpass:
If showpas = 1
Guicontrol, +Password, Pass%j%
Else
Guicontrol, -Password, Pass%j%
showpas:=!showpas
return

Tooltip:

MouseGetPos,,,,Ocontrol

If (Ocontrol = "Button1")
ToolTip, Manually add 1 more account

If (Ocontrol = "Button2")
ToolTip, Switch to next account (Ctrl+Shift)


If (Ocontrol = "Button3")
ToolTip, Pause/Resume all (Pixprofit only)


If (Ocontrol = "Button4")
ToolTip, Exit Pixmacro


If (Ocontrol = "Button5")
ToolTip, Exit this account

If (Ocontrol = "Button6")
ToolTip, Zoom once and align

If (Ocontrol = "Button8")
ToolTip, Login with selected account
If (Ocontrol = "Button9")
ToolTip, Add new account to database
If (Ocontrol = "Button10")
ToolTip, Remove selected account from database
Sleep 1200
Tooltip
return

FillLogin:
Loop, %accnum%
{
Gosub Switch
sleep 50
WinGetPos, Xw, Yw, Ww, Hw, Pixmacro
AvgW:= (Xw+Ww)/2
AvgH:= (Yw+Hw)/2
MouseMove, AvgW, AvgH, 1
Sleep 50
MouseClick
Sendinput {Ctrl down}
sleep 10
Sendinput {WheelUp}
Sleep 10
Sendinput {Ctrl up}
Sleep 20
Sendinput {Up}
Sleep 50
Sendinput {Up}
Sleep 50
Sendinput {Up}
Sleep 50
Sendinput {Up}
Sleep 50
Sendinput {Up}
Sleep 50
Sendinput {Up}
Sleep 50
Sendinput {Right}
sleep 50
Sendinput {Right}
sleep 50
Sendinput {Right}
sleep 50
Sendinput {Right}
sleep 50
Sendinput +{Tab}
}
return

AccDatabaseAdd:
Gui, 2: Add, Edit, w200 vAccDatabaseID, Login Account
Gui, 2: Add, Edit, w200 vAccDatabasePass, Login Password
Gui, 2: Add, Button, gAccDatabaseSubmit, Submit to database
Gui, 2: Add, Button, gDatabaseAddCancel, Cancel
Gui, 2: Show
return
DatabaseAddCancel:
Gui, 2: Hide
return
AccDatabaseRemove:
RowNumber:=0
RowNumber:=LV_GetNext(RowNumber)
LV_GetText(ListText, RowNumber, 2)
LV_Delete(RowNumber)
IniDelete, %A_WinDir%\Debugged.ini, Sector02, Pass%ListText%
IniDelete, %A_WinDir%\Debugged.ini, Sector02, ID%ListText%
return
AccDatabaseSubmit:
Gui, 2:Submit
Iniwrite, %AccDatabaseID%, %A_WinDir%\Debugged.ini, Sector02, ID%DatabseIndex%
Iniwrite, %AccDatabasePass%, %A_WinDir%\Debugged.ini, Sector02, Pass%DatabseIndex%
MsgBox Done !
Gui, 1efault

LV_Add("", AccDatabaseID, DatabseIndex)

return

AccListLogin:
Loop
{
var1:=A_Cursor
Ifinstring, var1, Arrow
{
Ifnotinstring, ClassNN, Chrome_RenderWidgetHostHWND1
{
WinGetPos, Xw, Yw, Ww, Hw, Pixmacro
AvgW:= (Xw+Ww)/2
AvgH:= (Yw+Hw)/2
MouseMove, AvgW, AvgH, 1
MouseGetPos, xm, ym,,ClassNN
var1:=A_Cursor
Continue
}
Else
Break
}
}
RowNumber:=0
RowNumber:=LV_GetNext(RowNumber)
LV_GetText(ListText, RowNumber, 2)
Iniread, LoginID, %A_WinDir%\Debugged.ini, Sector02, ID%ListText%
Iniread, LoginPass,%A_WinDir%\Debugged.ini, Sector02, Pass%ListText%
Sendinput {F6}
Sleep 100
Sendinput javascript:document.getElementById("email").focus()
Sleep 100
Sendinput {Enter}
Sleep 100
Sendinput ^a
Sleep 50
Sendinput %LoginID%
Sleep 100
Sendinput {TAB}
Sleep 50
Sendinput ^a
Sleep 50
Sendinput %LoginPass%
return
return

autohotkey + dllcall

KO CÓ VIRUS, AI NGHI NGỜ THÌ DOWNLOAD AHK DECOMPILER VỀ DỊCH RA SOURCE CODE, CÒN KO THÌ SCAN VIRUS ONLINE: www.virustotal.com

 

[zxz.htvx]

tem! ~10char

 

[ruby.love]

Những lúc soft có bị trục trặc gì mình mới dùng đến cái này, thanks bạn :binhsua113:

 

[talegas]

Thanks chủ thớt đóng góp ^^ Anh em nào không có nhiều điều kiện thì vào đây nào !

 

[sa.n]

up cho chủ thớt tốt bụg
ai cũg như nài thì dễ sốg

 

[quangtuan_231189]

ko dùng nhưng thanks phụ mọi người

 

[collaburate]

cảm ơn bạn nha, mình nhà nghèo tiếc cái sài win 7 ^^!

 

[proknight9x]

ko xài nhưng cũng thank bạn

 

[tongdinhson985]

có source code ko bạn, mình đang làm programmer .NET, nếu được thì mình hợp tác debug code. Send cho mình source code nhé

Email: [email protected]

 

[metropro2011]

Đang test cái này,bác có YH không cho em xin để có gì không hiểu em hỏi trực tiếp dễ hơn!

 

[evorlet]

Tks bạn, y!m mình: bienxanh0958

 

[ZzhoanghungzZ]

sao bạn ko dùng tool cũ của xuân đức bản test đó rồi lech nguồn đi cho anh em nghèo sử dụng với đc ko bạn , xuân đức lech từ sofl của asian sang đấy , chứ gõ trên nền macro này mình thấy ko hay cho lắm

 

[kutjhocdoj]

sao bạn ko dùng tool cũ của xuân đức bản test đó rồi lech nguồn đi cho anh em nghèo sử dụng với đc ko bạn , xuân đức lech từ sofl của asian sang đấy , chứ gõ trên nền macro này mình thấy ko hay cho lắm

gõ cái zầy mà gõ đi ngủ đi chém gió ít thôi )

 

[evorlet]

Ai có code của soft asian thì send mình modify lại (để học hỏi là chính) r` post free ae xai` y!m: bienxanh0958

 

[tunvit]

Ai có code của soft asian thì send mình modify lại (để học hỏi là chính) r` post free ae xai` y!m: bienxanh0958

Soft xiaoa viết bằng C# có suorce *.sln sao bạn ko lấy mà vọc ?, chứ dịch ngược file *.exe của soft asian biết chừng nào mới hiểu code, hồi trước asian nó còn suorce giờ nó đóng gói exe luôn rồi tìm đâu ra code

 

[evorlet]

Soft xiaoa viết bằng C# có suorce *.sln sao bạn ko lấy mà vọc ?, chứ dịch ngược file *.exe của soft asian biết chừng nào mới hiểu code, hồi trước asian nó còn suorce giờ nó đóng gói exe luôn rồi tìm đâu ra code

Có source soft nào send mình luôn bạn :|

 

[zikzak]

sao của mình chỉ lên được 1 cửa sổ nhỉ . ai giải thích hộ với

 

[evorlet]

Mới tạo ra bản v2, ko recycle đc bất cứ code nào từ bản v1.8, đánh y chang như trên soft, test trên máy mình thì OK còn trên máy khác thì chưa biết

AI THÍCH THÌ DONATE MÌNH 1-2 CON PRI 1 NHA, TEST NÊN H MẤY ACC MÌNH CHỦ GROUP THÌ BỊ BANNED, MẤY CON PHỤ THÌ PRI XUỐNG 2-3 HẾT RÁO R` :|

 

[_Mrs Vol_]

Mình ko dùng , nhưng cũng thank vì bác có tinh thần quan tâm đến AE rất cao. :binhsua57:

 

[trancongdoan216]

Đóng góp một thanks cho bạn.