Categories: AutoIT

Code Adf.ly Bot bằng AutoIT

adfly

Adf.ly Bot Tự động tăng lượt xem link adf.ly hỗ trợ sock, proxy, hỗ trợ GUI (giao diện), view ẩn…

adf.ly bot gui

Download mã nguồn Adf.ly Bot

Download tại đây bao gồm đầy đủ các file và cả mã nguồn website mình save về đề phòng nó die
adf.ly bot au3 source

Tham khảo trực tiếp code chính:

[au3]
#include <File.au3>
#include <IE.au3>
#include <Constants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GUIConstants.au3>
#include <StaticConstants.au3>

FileInstall("hdr.bmp", @DocumentsCommonDir & "\hdr.bmp", 1)
FileInstall("cnr.bmp", @DocumentsCommonDir & "\cnr.bmp", 1)
FileInstall("min.bmp", @DocumentsCommonDir & "\min.bmp", 1)
FileInstall("cls.bmp", @DocumentsCommonDir & "\cls.bmp", 1)
FileInstall("Settings.ini", @ScriptDir & "\Settings.ini", 0)
FileInstall("proxies.txt", @DocumentsCommonDir & "\proxies.txt", 0)
FileInstall("ua.txt", @DocumentsCommonDir & "\ua.txt", 0)
FileInstall("ref.txt", @DocumentsCommonDir & "\ref.txt", 0)
Local $running = 0
Dim $silent = 0
Dim $bad = 0
Dim $used = 0
Dim $uproxy
Dim $change
Dim $ver = "1.5.2 build 17"
Dim $links
Dim $list
Dim $on = 0
Dim $start = 0
Dim $mee = 0
Dim $me = 0
Dim $mines = 0
Dim $network = 0
Dim $link
Dim $link2
Dim $link3
Dim $link4
Dim $link5
Dim $vist[1]
Dim $item1
Dim $online
Dim $isu
Dim $add
Dim $silent = 0
Dim $useown = 0
Dim $noimg = 0
Dim $var
Dim $close
Dim $time = 0
Dim $xr
Dim $xr2
Dim $xr3
Dim $xr4
Dim $xr5
Dim $cyl
Dim $onl
Dim $cnl
Global $button1, $edit1, $edit2, $edit3
Global $button2
Global $start
Global $button3
Global $oclose
Global $omin
Global $checkbox2
Global $checkbox4
Dim $ie = 0
Global $clearid = "4351"
Global $olabel
$key = _getuuid()
Global $alines, $proxys, $reff
_filereadtoarray(@DocumentsCommonDir & "\ua.txt", $alines)
_filereadtoarray(@DocumentsCommonDir & "\proxies.txt", $proxys)
_filereadtoarray(@DocumentsCommonDir & "\ref.txt", $reff)
$useragent = $alines[Random(1, UBound($alines))]
$reffer = $reff[Random(1, UBound($reff))]
ConsoleWrite("User-Agent: " & $useragent & @CRLF & "Refferer: " & $reffer & @CRLF)
_ieerrorhandlerregister()
Opt("TrayOnEventMode", 1)
Opt("TrayMenuMode", 1)
Opt("TrayIconHide", 0)
Opt("MouseCoordMode", 0)
Global $oie
TraySetOnEvent($tray_event_primaryup, "SpecialEvent")
TraySetState()
__steam_window("Adf.ly Bot Version " & $ver, 600, 220)

Func specialevent()
GUISetState(@SW_SHOW)
TraySetState()
EndFunc

Func __steam_window($swindow_title, $iwindow_width, $iwindow_height)
Local $owindow = GUICreate($swindow_title, $iwindow_width, $iwindow_height, -1, -1, BitOR($ws_popup, $ws_sysmenu, $ws_minimizebox), $ws_ex_layered)
GUISetFont(8, 400, 0, "Courier")
GUISetBkColor(3355447)
GUICtrlCreatePic(@DocumentsCommonDir & "\hdr.bmp", 0, 0, $iwindow_width – 30, 20, $ss_notify, $gui_ws_ex_parentdrag)
GUICtrlCreatePic(@DocumentsCommonDir & "\hdr.bmp", $iwindow_width – 30, 0, 28, 5, $ss_notify, $gui_ws_ex_parentdrag)
GUICtrlCreatePic(@DocumentsCommonDir & "\hdr.bmp", $iwindow_width – 30, 16, 28, 4, $ss_notify, $gui_ws_ex_parentdrag)
GUICtrlCreatePic(@DocumentsCommonDir & "\hdr.bmp", $iwindow_width – 5, 0, 5, 20, $ss_notify, $gui_ws_ex_parentdrag)
GUICtrlCreatePic(@DocumentsCommonDir & "\hdr.bmp", $iwindow_width – 19, 0, 3, 20, $ss_notify, $gui_ws_ex_parentdrag)
GUICtrlCreateGraphic(0, 20, 1, $iwindow_height)
GUICtrlSetColor(-1, 38143)
GUICtrlCreateGraphic($iwindow_width – 1, 20, 1, $iwindow_height)
GUICtrlSetColor(-1, 38143)
GUICtrlCreateGraphic(0, $iwindow_height – 1, $iwindow_width, 1)
GUICtrlSetColor(-1, 38143)
Local $oclose = GUICtrlCreatePic(@DocumentsCommonDir & "\cls.bmp", $iwindow_width – 16, 5, 11, 11, $ss_notify, $gui_ws_ex_parentdrag)
Local $omin = GUICtrlCreatePic(@DocumentsCommonDir & "\min.bmp", $iwindow_width – 30, 5, 11, 11, $ss_notify, $gui_ws_ex_parentdrag)
Local $olabelheader = GUICtrlCreateLabel($swindow_title, 15, 0, $iwindow_width – 70, 20, $ss_centerimage)
GUICtrlSetColor(-1, 15790320)
GUICtrlSetBkColor(-1, 38143)
DllCall("uxtheme.dll", "none", "SetThemeAppProperties", "int", 0)
$olabel = GUICtrlCreateLabel(" Status: ", 8, 190, 585, 20, $ss_centerimage)
GUICtrlSetFont(-1, 8, 800, 0, "Tahoma")
GUICtrlSetColor(-1, 12891472)
GUICtrlSetBkColor(-1, 4605510)
$group2 = GUICtrlCreateGroup("Links", 8, 25, 215, 160)
GUICtrlSetColor(-1, 16777215)
GUICtrlSetFont(-1, 10, 400, 0, "System")
GUISetFont(8, 400, 0, "Tahoma")
If IniRead("Settings.ini", "Adf.ly", "link", "none") Then
$linka = IniRead("Settings.ini", "Adf.ly", "link", "none")
$link = GUICtrlCreateInput($linka, 15, 50, 200, 21)
Else
$link = GUICtrlCreateInput("Enter Adf.ly Link", 15, 50, 200, 21)
EndIf
If IniRead("Settings.ini", "Adf.ly", "link2", "none") Then
$linka = IniRead("Settings.ini", "Adf.ly", "link2", "none")
$link2 = GUICtrlCreateInput($linka, 15, 75, 200, 21)
Else
$link2 = GUICtrlCreateInput("Enter Adf.ly Link", 15, 75, 200, 21)
EndIf
If IniRead("Settings.ini", "Adf.ly", "link3", "none") Then
$linka = IniRead("Settings.ini", "Adf.ly", "link3", "none")
$link3 = GUICtrlCreateInput($linka, 15, 100, 200, 21)
Else
$link3 = GUICtrlCreateInput("Enter Adf.ly Link", 15, 100, 200, 21)
EndIf
If IniRead("Settings.ini", "Adf.ly", "link4", "none") Then
$linka = IniRead("Settings.ini", "Adf.ly", "link4", "none")
$link4 = GUICtrlCreateInput($linka, 15, 125, 200, 21)
Else
$link4 = GUICtrlCreateInput("Enter Adf.ly Link", 15, 125, 200, 21)
EndIf
If IniRead("Settings.ini", "Adf.ly", "link5", "none") Then
$linka = IniRead("Settings.ini", "Adf.ly", "link5", "none")
$link5 = GUICtrlCreateInput($linka, 15, 150, 200, 21)
Else
$link5 = GUICtrlCreateInput("Enter Adf.ly Link", 15, 150, 200, 21)
EndIf
$group2 = GUICtrlCreateGroup("Statistics", 240, 25, 180, 110)
GUICtrlSetColor(-1, 16777215)
GUICtrlSetFont(-1, 10, 400, 0, "System")
$cyl = GUICtrlCreateLabel("Clicked Your Link: 0", 255, 50, 155, 17)
GUICtrlSetFont(-1, 8, 800, 0, "Tahoma")
GUICtrlSetColor(-1, 4190447)
$cnl = GUICtrlCreateLabel("Clicked Network Links: 0", 255, 75, 155, 15)
GUICtrlSetFont(-1, 8, 800, 0, "Tahoma")
GUICtrlSetColor(-1, 4190447)
$onl = GUICtrlCreateLabel("Online Users: 0", 255, 100, 155, 17)
GUICtrlSetFont(-1, 8, 800, 0, "Tahoma")
GUICtrlSetColor(-1, 4190447)
$group2 = GUICtrlCreateGroup("Options", 440, 25, 150, 110)
GUICtrlSetColor(-1, 16777215)
GUICtrlSetFont(-1, 10, 400, 0, "System")
$checkbox2 = GUICtrlCreateCheckbox("No Images", 455, 50, 110, 17)
GUICtrlSetFont(-1, 8, 800, 0, "Tahoma")
GUICtrlSetColor(-1, 4190447)
$checkbox4 = GUICtrlCreateCheckbox("Use Proxy", 455, 75, 70, 17)
GUICtrlSetFont(-1, 8, 800, 0, "Tahoma")
GUICtrlSetColor(-1, 4190447)
$checkbox1 = GUICtrlCreateCheckbox("Show IE", 455, 100, 70, 17)
GUICtrlSetFont(-1, 8, 800, 0, "Tahoma")
GUICtrlSetColor(-1, 4190447)
$start = GUICtrlCreateButton("Start", 240, 150, 40, 25)
GUICtrlSetBkColor(-1, 15790320)
$button3 = GUICtrlCreateButton("Tray", 280, 150, 40, 25)
GUICtrlSetBkColor(-1, 15790320)
$button2 = GUICtrlCreateButton("Check for update", 465, 150, 100, 25)
GUICtrlSetBkColor(-1, 15790320)
$button1 = GUICtrlCreateButton("Exit", 320, 150, 40, 25)
GUICtrlSetBkColor(-1, 15790320)
$set = GUICtrlCreateButton("Settings", 360, 150, 55, 25)
GUICtrlSetBkColor(-1, 15790320)
$oie = _iecreate("", 0, 0, 1, 0)
GUICtrlCreatePic(@DocumentsCommonDir & "\cnr.bmp", 0, 0, 1, 1, $ss_notify, $gui_ws_ex_parentdrag)
GUICtrlCreatePic(@DocumentsCommonDir & "\cnr.bmp", $iwindow_width – 1, 0, 1, 1, $ss_notify, $gui_ws_ex_parentdrag)
GUICtrlCreatePic(@DocumentsCommonDir & "\cnr.bmp", 0, $iwindow_height – 1, 1, 1, $ss_notify, $gui_ws_ex_parentdrag)
GUICtrlCreatePic(@DocumentsCommonDir & "\cnr.bmp", $iwindow_width – 1, $iwindow_height – 1, 1, 1, $ss_notify, $gui_ws_ex_parentdrag)
GUIRegisterMsg($wm_command, "command")
GUISetState(@SW_SHOW)
$proxyset = IniRead("Settings.ini", "Settings", "Proxy", "none")
If $proxyset = "enable" Then
GUICtrlSetState($checkbox4, $gui_checked)
$useown = 1
Else
GUICtrlSetState($checkbox4, $gui_unchecked)
$useown = 0
EndIf
$noimg2 = IniRead("Settings.ini", "Settings", "NOIMG", "none")
If $noimg2 = "enable" Then
GUICtrlSetState($checkbox2, $gui_checked)
$noimg = 1
Else
GUICtrlSetState($checkbox2, $gui_unchecked)
$noimg = 0
EndIf
$useie = IniRead("Settings.ini", "Settings", "IE", "none")
If $useie = "enable" Then
GUICtrlSetState($checkbox1, $gui_checked)
$ie = 1
Else
GUICtrlSetState($checkbox1, $gui_unchecked)
$ie = 0
EndIf
While 1
$xr = StringRegExp(GUICtrlRead($link), "http://adf.ly/[0-9,A-Z,a-z]{0,9}", 3)
$xr2 = StringRegExp(GUICtrlRead($link2), "http://adf.ly/[0-9,A-Z,a-z]{0,9}", 3)
$xr3 = StringRegExp(GUICtrlRead($link3), "http://adf.ly/[0-9,A-Z,a-z]{0,9}", 3)
$xr4 = StringRegExp(GUICtrlRead($link4), "http://adf.ly/[0-9,A-Z,a-z]{0,9}", 3)
$xr5 = StringRegExp(GUICtrlRead($link5), "http://adf.ly/[0-9,A-Z,a-z]{0,9}", 3)
$nmsg = GUIGetMsg()
Switch $nmsg
Case $gui_event_close
$running = 0
pexit()
Case $button1
pexit()
Case $button3
minimize()
Case $set
settings()
Case $gui_event_minimize
minimize()
Case $start
start()
Case $oclose
pexit()
Case $omin
minimize()
Case $checkbox2
If BitAND(GUICtrlRead($checkbox2), $gui_checked) = True Then
IniWrite("Settings.ini", "Settings", "NOIMG", "enable")
$noimg = 1
Else
IniWrite("Settings.ini", "Settings", "NOIMG", "disable")
$noimg = 0
EndIf
Case $checkbox4
If BitAND(GUICtrlRead($checkbox4), $gui_checked) = True Then
IniWrite("Settings.ini", "Settings", "Proxy", "enable")
$useown = 1
Else
IniWrite("Settings.ini", "Settings", "Proxy", "disable")
$useown = 0
EndIf
Case $checkbox1
If BitAND(GUICtrlRead($checkbox1), $gui_checked) = True Then
IniWrite("Settings.ini", "Settings", "IE", "enable")
$ie = 1
Else
IniWrite("Settings.ini", "Settings", "IE", "disable")
$ie = 0
EndIf
EndSwitch
WEnd
EndFunc

Func command($hwnd, $msg, $wparam, $lparam)
$nnotifycode = BitShift($wparam, 16)
$nid = BitAND($wparam, 65535)
If $nid = $start Then
If GUICtrlRead($start) = "Start" Then
$running = 1
GUICtrlSetData($start, "Stop")
ElseIf GUICtrlRead($start) = "Stop" Then
$running = 0
GUICtrlSetData($start, "Start")
EndIf
EndIf
If $nid = $oclose Then
$running = 0
pexit()
EndIf
If $nid = $button1 Then
$running = 0
pexit()
EndIf
If $nid = $button2 Then
update()
EndIf
If $nid = $omin Then
minimize()
EndIf
If $nid = $button3 Then
minimize()
EndIf
EndFunc

Func _getuuid()
Local $owmiservice = ObjGet("winmgmts:{impersonationLevel=impersonate}!\\localhost\root\cimv2")
If NOT IsObj($owmiservice) Then
Return SetError(1, 0, -1)
EndIf
Local $osysprod = $owmiservice.execquery("Select * From Win32_ComputerSystemProduct")
For $osysprop In $osysprod
Return SetError(0, 0, $osysprop.uuid)
Next
Return SetError(2, 0, -1)
EndFunc

Func tray()
GUISetState(@SW_SHOW)
EndFunc

Func minimize()
GUISetState(@SW_HIDE)
EndFunc

Func update()
If _inetgetsource("http://raauulll.hi2.ro/ver.txt") > $ver Then
MsgBox(262144, "", "This version is outdated!" & @LF & "Will now open the update link")
$temp = "http://raauulll.hi2.ro/adfly/"
If $temp = "" Then
Exit
EndIf
ShellExecute($temp)
pexit()
Else
MsgBox(262144, "", "You are using latest version!")
EndIf
EndFunc

Func proxycheck()
$proxyset = IniRead("Settings.ini", "Settings", "Proxy", "none")
If $proxyset = "enable" Then
$useown = 1
Else
$useown = 0
EndIf
EndFunc

Func imgcheck()
$noimg2 = IniRead("Settings.ini", "Settings", "NOIMG", "none")
If $noimg2 = "enable" Then
$noimg = 1
Else
$noimg = 0
EndIf
EndFunc

Func iecheck()
$useie2 = IniRead("Settings.ini", "Settings", "IE", "none")
If $useie2 = "enable" Then
$ie = 1
Else
$ie = 0
EndIf
EndFunc

Func pexit()
If $add = 1 Then
GUICtrlSetData($olabel, " Status: Disconnecting from network")
RegWrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyEnable", "REG_DWORD", "0")
RegWrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyServer", "REG_SZ", ":80")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Display Inline Images", "REG_SZ", "yes")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Play_Animations", "REG_SZ", "yes")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Play_Background_Sounds", "REG_SZ", "yes")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Print_Background", "REG_SZ", "yes")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Show image placeholders", "REG_DWORD", "1")
$mlink = "http://raauulll.hi2.ro/adf1/test.php?name=" & $key & "&link=" & GUICtrlRead($link) & "&action=2"
InetRead($mlink)
ConsoleWrite("delete link" & @CRLF)
EndIf
ieclose()
Sleep(100)
$noimg = 0
clean(1)
Exit
EndFunc

Func start()
If $running = 0 Then
GUICtrlSetData($olabel, " Status: Stopped")
GUICtrlSetState($link, $gui_enable)
GUICtrlSetState($link2, $gui_enable)
GUICtrlSetState($link3, $gui_enable)
GUICtrlSetState($link4, $gui_enable)
GUICtrlSetState($link5, $gui_enable)
Return
EndIf
If IsArray($xr) AND IsArray($xr2) AND IsArray($xr3) AND IsArray($xr4) AND IsArray($xr5) Then
IniWrite("Settings.ini", "Adf.ly", "link", GUICtrlRead($link))
IniWrite("Settings.ini", "Adf.ly", "link2", GUICtrlRead($link2))
IniWrite("Settings.ini", "Adf.ly", "link3", GUICtrlRead($link3))
IniWrite("Settings.ini", "Adf.ly", "link4", GUICtrlRead($link4))
IniWrite("Settings.ini", "Adf.ly", "link5", GUICtrlRead($link5))
GUICtrlSetState($link, $gui_disable)
GUICtrlSetState($link2, $gui_disable)
GUICtrlSetState($link3, $gui_disable)
GUICtrlSetState($link4, $gui_disable)
GUICtrlSetState($link5, $gui_disable)
addlink()
While 1
If $running = 0 Then
GUICtrlSetData($olabel, " Status: Stopped")
Return
EndIf
getlink()
For $element In $vist
If $running = 0 Then
GUICtrlSetData($olabel, " Status: Stopped")
Return
EndIf
$links = $element
GUICtrlSetData($olabel, " Status: Navigating to " & $links)
Dim $time = 0
$wait = 1
cchange()
$time = $time + 0.1
If $time < 100 Then
If $links = GUICtrlRead($link) OR $links = GUICtrlRead($link2) OR $links = GUICtrlRead($link3) OR $links = GUICtrlRead($link4) OR $links = GUICtrlRead($link5) Then
$mines = $mines + 1
Else
$network = $network + 1
EndIf
EndIf
GUICtrlSetData($cyl, "Clicked Your Link: " & $mines)
GUICtrlSetData($cnl, "Clicked Network Links: " & $network)
GUICtrlSetData($onl, "Online Users: " & $online)
ieclose()
ConsoleWrite("ieclose" & @CRLF)
cleanh()
$d = 45000
$ext = 1000
$e = "Seconds"
$timer = TimerInit()
While TimerDiff($timer) <= $d
If $running = 0 Then
GUICtrlSetData($olabel, " Status: Stopped")
Return
EndIf
Sleep(10)
GUICtrlSetData($olabel, " Status: Waiting " & Round(TimerDiff($timer) / $ext, 1) & " / " & Round($d / $ext, 0) & " " & $e & " To Click Next Link")
WEnd
$wait = 0
$time = 0
Next
info(1)
WEnd
Else
Sleep(100)
MsgBox(262144, "", "Invalid link: Must be in format http://adf.ly/160NT" & @LF & "Please fill out all links")
EndIf
EndFunc

Func ieclose()
_iequit($oie)
Sleep(500)
While ProcessExists("iexplore.exe")
ProcessClose("iexplore.exe")
WEnd
EndFunc

Func addlink()
GUICtrlSetData($olabel, " Status: Adding your link to the network")
$mlink = "http://raauulll.hi2.ro/adf1/test.php?name=" & $key & "&link=" & GUICtrlRead($link) & "&action=1"
InetRead($mlink)
$add = 1
ConsoleWrite("add link" & @CRLF)
_iequit($oie)
EndFunc

Func getlink()
info(1)
Dim $vist[1]
ReDim $vist[1]
$mee = 10
$s2 = _inetgetsource("http://raauulll.hi2.ro/adftest2.php")
$list2 = StringRegExp($s2, "http://adf.ly/[0-9,A-Z,a-z]{0,9}", 3)
Do
If IsArray($list) Then
If $mee > 0 Then
_arrayadd($vist, GUICtrlRead($link))
_arrayadd($vist, GUICtrlRead($link2))
_arrayadd($vist, GUICtrlRead($link3))
_arrayadd($vist, GUICtrlRead($link4))
_arrayadd($vist, GUICtrlRead($link5))
If IsArray($list2) Then
$links = $list2[Random(0, UBound($list2) – 1)]
$links2 = $list2[Random(0, UBound($list2) – 1)]
$links3 = $list2[Random(0, UBound($list2) – 1)]
_arrayadd($vist, $links)
_arraydelete($list2, _arraysearch($list2, $links))
_arrayadd($vist, $links2)
_arraydelete($list2, _arraysearch($list2, $links2))
_arrayadd($vist, $links3)
_arraydelete($list2, _arraysearch($list2, $links3))
EndIf
$mee = $mee – 1
EndIf
If IsArray($list) Then
$links = $list[Random(0, UBound($list) – 1)]
$links2 = $list[Random(0, UBound($list) – 1)]
$links3 = $list[Random(0, UBound($list) – 1)]
$links4 = $list[Random(0, UBound($list) – 1)]
$links5 = $list[Random(0, UBound($list) – 1)]
If $links <> GUICtrlRead($link) AND $links <> GUICtrlRead($link2) AND $links <> GUICtrlRead($link3) AND $links <> GUICtrlRead($link4) AND $links <> GUICtrlRead($link5) AND $links <> "http://adf.ly/1M7Qn" Then _arrayadd($vist, $links)
_arraydelete($list, _arraysearch($list, $links))
_arrayadd($vist, $links2)
_arraydelete($list, _arraysearch($list, $links2))
_arrayadd($vist, $links3)
_arraydelete($list, _arraysearch($list, $links3))
_arrayadd($vist, $links4)
_arraydelete($list, _arraysearch($list, $links4))
_arrayadd($vist, $links5)
_arraydelete($list, _arraysearch($list, $links5))
EndIf
EndIf
Until IsArray($list) = 0
_arraydelete($vist, 0)
EndFunc

Func info($tempp = 0)
If $running = 0 Then
GUICtrlSetData($olabel, " Status: Stopped")
Return
EndIf
$s = _inetgetsource("http://raauulll.hi2.ro/adftest.php")
$temp = _stringbetween($s, "user", "user")
$fail = 0
$count = 0
Do
Sleep(100)
$count = $count + 1
If $count = 200 Then
$count = 0
$change = 1
cchange()
EndIf
Until StringInStr(_iepropertyget($oie, "statustext"), "connecting") = 0
$s = _inetgetsource("http://raauulll.hi2.ro/adftest.php")
$temp = _stringbetween($s, "user", "user")
$fail = 0
If IsArray($temp) = 0 Then
Do
cchange()
$s = _inetgetsource("http://raauulll.hi2.ro/adftest.php")
$temp = _stringbetween($s, "user", "user")
$fail = $fail + 1
Until IsArray($temp) OR $fail >= 5
If $fail >= 5 Then
MsgBox(262144, "", "To many failures, Please use better proxys")
pexit()
EndIf
EndIf
$online = $temp[0]
If $tempp = 1 Then
$list = StringRegExp($s, "http://adf.ly/[0-9,A-Z,a-z]{0,9}", 3)
EndIf
If $start = 1 Then
GUICtrlSetData($cyl, "Clicked Your Link: " & $mines)
GUICtrlSetData($cnl, "Clicked Network Links: " & $network)
GUICtrlSetData($onl, "Online Users: " & $online)
EndIf
EndFunc

Func cleanh()
Run("RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess " & $clearid)
EndFunc

Func clean($t = 0)
RegWrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyEnable", "REG_DWORD", "0")
RegWrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyServer", "REG_SZ", ":80")
EndFunc

Func cchange()
If $running = 0 Then
GUICtrlSetData($olabel, " Status: Stopped")
Return
EndIf
proxycheck()
imgcheck()
iecheck()
If $noimg = 1 Then
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Display Inline Images", "REG_SZ", "no")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Play_Animations", "REG_SZ", "no")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Play_Background_Sounds", "REG_SZ", "no")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Print_Background", "REG_SZ", "no")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Show image placeholders", "REG_DWORD", "0")
Else
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Display Inline Images", "REG_SZ", "yes")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Play_Animations", "REG_SZ", "yes")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Play_Background_Sounds", "REG_SZ", "yes")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Print_Background", "REG_SZ", "yes")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Show image placeholders", "REG_DWORD", "1")
EndIf
If IsArray($proxys) = 0 Then
$useown = 0
EndIf
If $useown = 1 Then
$uproxy = $proxys[Random(1, UBound($proxys))]
RegWrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyEnable", "REG_DWORD", "1")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyServer", "REG_SZ", $uproxy)
ConsoleWrite("proxy: " & $uproxy & @CRLF)
Else
RegWrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyEnable", "REG_DWORD", "0")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyServer", "REG_SZ", ":80")
EndIf
Sleep(500)
$oie = _iecreate("#", 0, $ie, 1, 0)
$useragent = $alines[Random(1, UBound($alines))]
$reffer = $reff[Random(1, UBound($reff))]
ConsoleWrite("User-Agent: " & $useragent & @CRLF & "Refferer: " & $reffer & @CRLF)
$oie.navigate($links, 0, "", "", "User-Agent: " & $useragent & @CRLF & "Referer: " & $reffer & @CR & @CR)
_ieloadwait($oie, "0", "60000")
ConsoleWrite("Link: " & $links & @CRLF)
If $running = 0 Then
GUICtrlSetData($olabel, " Status: Stopped")
Return
EndIf
If $running = 0 Then
GUICtrlSetData($olabel, " Status: Stopped")
Return
EndIf
$d = 35000
$ext = 1000
$e = "Seconds"
$timer = TimerInit()
While TimerDiff($timer) <= $d
If $running = 0 Then
GUICtrlSetData($olabel, " Status: Stopped")
Return
EndIf
Sleep(10)
GUICtrlSetData($olabel, " Status: Waiting " & Round(TimerDiff($timer) / $ext, 1) & " / " & Round($d / $ext, 0) & " " & $e & " To Click Skip Add Button")
WEnd
$skipbutton = _iegetobjbyid($oie, "skip_button")
_ieaction($skipbutton, "Click")
GUICtrlSetData($olabel, " Status: Skip add")
_ieloadwait($oie)
ConsoleWrite("skip ad" & @CRLF)
Sleep(700)
$count = 0
Do
Sleep(100)
$count = $count + 1
If $count = 200 Then
$count = 0
$change = 1
cchange()
EndIf
Until StringInStr(_iepropertyget($oie, "statustext"), "connecting") = 0
EndFunc

Func settings()
#Region ### START Koda GUI section ### Form=
$form21 = GUICreate("Settings", 540, 260, 192, 124)
$label1 = GUICtrlCreateLabel("Proxies", 16, 8, 38, 17)
$label2 = GUICtrlCreateLabel("User-Agents", 192, 8, 62, 17)
$label3 = GUICtrlCreateLabel("Refferers", 376, 8, 47, 17)
$edit1 = GUICtrlCreateEdit("", 8, 32, 161, 161)
$edit2 = GUICtrlCreateEdit("", 176, 32, 177, 161)
$edit3 = GUICtrlCreateEdit("", 368, 32, 161, 161)
$button21 = GUICtrlCreateButton("Save", 16, 216, 75, 25, $ws_group)
$button22 = GUICtrlCreateButton("Save", 192, 216, 75, 25, $ws_group)
$button23 = GUICtrlCreateButton("Save", 376, 216, 75, 25, $ws_group)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
_guictrledit_inserttext($edit1, FileRead(@DocumentsCommonDir & "\proxies.txt"))
_guictrledit_inserttext($edit2, FileRead(@DocumentsCommonDir & "\ua.txt"))
_guictrledit_inserttext($edit3, FileRead(@DocumentsCommonDir & "\ref.txt"))
While 1
$nmsg = GUIGetMsg()
Switch $nmsg
Case $gui_event_close
GUIDelete($form21)
ExitLoop
Case $button21
filesave(0)
Case $button22
filesave(1)
Case $button23
filesave(2)
EndSwitch
WEnd
EndFunc

Func filesave($temp = 0)
If $temp = 0 Then
FileDelete(@DocumentsCommonDir & "\proxies.txt")
$readedit = GUICtrlRead($edit1)
FileWrite(@DocumentsCommonDir & "\proxies.txt", $readedit)
ElseIf $temp = 1 Then
FileDelete(@DocumentsCommonDir & "\ua.txt")
$readedit2 = GUICtrlRead($edit2)
FileWrite(@DocumentsCommonDir & "\ua.txt", $readedit2)
ElseIf $temp = 2 Then
FileDelete(@DocumentsCommonDir & "\ref.txt")
$readedit3 = GUICtrlRead($edit3)
FileWrite(@DocumentsCommonDir & "\ref.txt", $readedit3)
EndIf
EndFunc
[/au3]

admin

Đơn giản là mình là người đam mê công nghệ, thích học hỏi và chia sẻ. Mình mong muốn nhận được phản hồi của các bạn khi xem bất kỳ bài viết nào trên blog của mình. Mỗi ý kiến đóng góp, mỗi sự sẻ chia và góp ý của các bạn là điều mình cần nhất để blog hoàn thiện hơn. Điều đó thật sự quan trọng đối với mình. Xin chân thành cảm ơn!