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…
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("about:blank", 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]
