Liczba postów: 9
Dołączył: Jun 2011
Reputacja:
2 Forum Gold: 0.00
RE: techPOSTER - Bot do rozsyłania postó na DW
Kod:
#NoTrayIcon
#region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=..\ikona.ico
#AutoIt3Wrapper_Outfile=..\techPOST.exe
#AutoIt3Wrapper_Outfile_x64=..\techPOSTx64.exe
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_Res_requestedExecutionLevel=asInvoker
#AutoIt3Wrapper_Run_Tidy=y
#AutoIt3Wrapper_Tidy_Stop_OnError=n
#endregion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <GDIPlus.au3>
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <FF.au3>
#include <string.au3>
#include <GUIListBox.au3>
#include <GUIListView.au3>
#include <guitab.au3>
#include <guicombobox.au3>
Local $crew[100], $no[100], $gui[100], $pod[100], $odp[100], $wys[100], $wyslij[7], $hCombo ; darkwarez
$dll = DllOpen("user32.dll")
_GDIPlus_Startup()
#region gui
$gGUI = GUICreate("techPOSTER 1.0.1a - ALPHA, ", 940, 483, 224, 228)
GUISetState(@SW_SHOW)
$tlo = GUICtrlCreatePic(@ScriptDir & "\img\tlo.jpg", 0, 0, 940, 483)
GUICtrlSetState($tlo, $GUI_DISABLE)
;, BitOR($WS_MAXIMIZEBOX, $WS_MINIMIZEBOX, $WS_SIZEBOX, $WS_THICKFRAME, $WS_DLGFRAME, $WS_GROUP, $WS_TABSTOP))
$edit = GUICtrlCreateListView("Check|Dzial |Nazwa|Wys. |Odp.", 60, 181, 820, 200, BitOR($GUI_SS_DEFAULT_LISTVIEW, $LVS_NOLABELWRAP), BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE, $LVS_EX_CHECKBOXES, $LVS_EX_FULLROWSELECT))
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 50)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 150)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 2, 350)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 3, 50)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 4, 50)
GUICtrlSetFont(-1, 9, 400, 0, "M+ 1c")
GUICtrlSetBkColor(-1, 0xFFFBF0)
_GUICtrlListView_JustifyColumn(GUICtrlGetHandle($edit), 1, 2)
_GUICtrlListView_JustifyColumn(GUICtrlGetHandle($edit), 2, 2)
GUISetState(@SW_SHOW)
GUICtrlSetState($edit, $GUI_HIDE)
$Input1 = GUICtrlCreateInput("szukaj...", 60, 159, 433, 22)
GUICtrlSetState($Input1, $GUI_HIDE)
$Button1 = GUICtrlCreateButton("Szukaj!", 493, 159, 145, 22)
GUICtrlSetState($Button1, $GUI_HIDE)
$Button2 = GUICtrlCreateButton("Dalej!", 60, 383, 210, 49)
GUICtrlSetState($Button2, $GUI_HIDE)
$progressbar2 = GUICtrlCreateProgress(508, 156, 272, 22)
GUICtrlSetState($progressbar2, $GUI_HIDE)
$Input2 = GUICtrlCreateInput("link", 56, 156, 449, 22)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetState($Input2, $GUI_HIDE)
$Edit1 = GUICtrlCreateEdit("", 56, 187, 729, 281)
GUICtrlSetData(-1, "")
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetState($Edit1, $GUI_HIDE)
$Button3 = GUICtrlCreateButton("Zapisz", 360, 122, 81, 28)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetState($Button3, $GUI_HIDE)
$Button4 = GUICtrlCreateButton("Wyslij", 784, 185, 113, 289)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetState($Button4, $GUI_HIDE)
$hCombo = GUICtrlCreateCombo("", 54, 124, 294, 280)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetState($hCombo, $GUI_HIDE)
$wyslij[0] = GUICtrlCreateInput("", 152, 120, 289, 22)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$wyslij[1] = GUICtrlCreateInput("", 160, 152, 289, 22)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$wyslij[2] = GUICtrlCreateEdit("", 152, 184, 273, 113)
GUICtrlSetData(-1, "Info")
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$wyslij[3] = GUICtrlCreateInput("", 160, 304, 289, 22)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$wyslij[4] = GUICtrlCreateInput("", 160, 336, 289, 22)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$wyslij[5] = GUICtrlCreateInput("", 160, 368, 289, 22)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$wyslij[6] = GUICtrlCreateEdit("", 152, 400, 673, 65)
GUICtrlSetData(-1, "Download")
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Generuj = GUICtrlCreateButton("Generuj", 507, 249, 263, 49)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Nazwa = GUICtrlCreateInput("Nazwa", 505, 182, 263, 22)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Input3 = GUICtrlCreateInput("Link", 504, 216, 265, 22)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
For $c = 0 To 6
GUICtrlSetState($wyslij[$c], $GUI_HIDE)
Next
GUICtrlSetState($Generuj, $GUI_HIDE)
GUICtrlSetState($Nazwa, $GUI_HIDE)
GUICtrlSetState($Input3, $GUI_HIDE)
#endregion ### END Koda GUI section ###
#region graficzne buttony
;resize img
$hImage = _GDIPlus_ImageLoadFromFile(@ScriptDir & "\img\wysylanie.png")
$hImage1 = _GDIPlus_ImageLoadFromFile(@ScriptDir & "\img\wysylanie.png")
;sam button
$hImage2 = _GDIPlus_ImageLoadFromFile(@ScriptDir & "\img\wysylanie.png")
;------------------
$1hImage = _GDIPlus_ImageLoadFromFile(@ScriptDir & "\img\szukanie.png")
$1hImage1 = _GDIPlus_ImageLoadFromFile(@ScriptDir & "\img\szukanie.png")
;sam button
$1hImage2 = _GDIPlus_ImageLoadFromFile(@ScriptDir & "\img\szukanie.png")
;-----------------
$2hImage = _GDIPlus_ImageLoadFromFile(@ScriptDir & "\img\szablony.png")
$2hImage1 = _GDIPlus_ImageLoadFromFile(@ScriptDir & "\img\szablony.png")
;sam button
$2hImage2 = _GDIPlus_ImageLoadFromFile(@ScriptDir & "\img\szablony.png")
$buttonh1 = GUICreate("Form1", 0, 0, 395, 25, $WS_POPUP, BitOR($WS_EX_LAYERED, $WS_EX_MDICHILD), $gGUI)
GUISetState(@SW_SHOW)
$buttonh3 = GUICreate("button3", 0, 0, 540, -3, $WS_POPUP, BitOR($WS_EX_LAYERED, $WS_EX_MDICHILD), $gGUI)
GUISetState(@SW_SHOW)
$buttonh2 = GUICreate("button2", 0, 0, 248, -3, $WS_POPUP, BitOR($WS_EX_LAYERED, $WS_EX_MDICHILD), $gGUI)
GUISetState(@SW_SHOW)
SetBitmap($buttonh1, $hImage, 255)
GUISetState(@SW_SHOW)
SetBitmap($buttonh2, $1hImage, 255)
GUISetState(@SW_SHOW)
SetBitmap($buttonh3, $2hImage, 255)
GUISetState(@SW_SHOW)
#endregion graficzne buttony
_GUICtrlComboBox_ResetContent($hCombo)
_GUICtrlComboBox_BeginUpdate($hCombo)
_GUICtrlComboBox_EndUpdate($hCombo)
; EndIf
_GUICtrlComboBox_ResetContent($hCombo)
_GUICtrlComboBox_BeginUpdate($hCombo)
$reka = _GUICtrlComboBox_AddDir($hCombo, @WorkingDir & "\szablony\*.txt")
_GUICtrlComboBox_EndUpdate($hCombo)
While 1
button1($buttonh1, $hImage, $hImage1, $hImage2)
button2($buttonh2, $1hImage, $1hImage1, $1hImage2)
button3($buttonh3, $2hImage, $2hImage1, $2hImage2)
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
sdw()
Case $Button2
For $c = 0 To 6
GUICtrlSetState($wyslij[$c], $GUI_HIDE)
Next
Global $dw1
For $X = 0 To _GUICtrlListView_GetItemCount($edit) - 1
If _GUICtrlListView_GetItemChecked($edit, $X) Then
$dw1 = "darkwarez.pl/forum/" & $crew[$X]
EndIf
Next
GUICtrlSetData($Input2, $dw1)
Case $Generuj
generic()
Case $Button3
save()
Case $hCombo
wczytaj()
Case $Button4
wyslij()
EndSwitch
WEnd
#region png
Func SetBitmap($hGUI, $hImage, $iOpacity)
Local $hScrDC, $hMemDC, $hBitmap, $hOld, $pSize, $tSize, $pSource, $tSource, $pBlend, $tBlend
$hScrDC = _WinAPI_GetDC(0)
$hMemDC = _WinAPI_CreateCompatibleDC($hScrDC)
$hBitmap = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hImage)
$hOld = _WinAPI_SelectObject($hMemDC, $hBitmap)
$tSize = DllStructCreate($tagSIZE)
$pSize = DllStructGetPtr($tSize)
DllStructSetData($tSize, "X", _GDIPlus_ImageGetWidth($hImage))
DllStructSetData($tSize, "Y", _GDIPlus_ImageGetHeight($hImage))
$tSource = DllStructCreate($tagPOINT)
$pSource = DllStructGetPtr($tSource)
$tBlend = DllStructCreate($tagBLENDFUNCTION)
$pBlend = DllStructGetPtr($tBlend)
DllStructSetData($tBlend, "Alpha", $iOpacity)
DllStructSetData($tBlend, "Format", 1)
_WinAPI_UpdateLayeredWindow($hGUI, $hScrDC, 0, $pSize, $hMemDC, $pSource, 0, $pBlend, $ULW_ALPHA)
_WinAPI_ReleaseDC(0, $hScrDC)
_WinAPI_SelectObject($hMemDC, $hOld)
_WinAPI_DeleteObject($hBitmap)
_WinAPI_DeleteDC($hMemDC)
EndFunc ;==>SetBitmap
Func hander()
Local $iRet = DllCall("user32.dll", "int", "WindowFromPoint", "long", MouseGetPos(0), "long", MouseGetPos(1))
If IsArray($iRet) Then Return HWnd($iRet[0])
Return SetError(1, 0, 0)
EndFunc ;==>hander
Func event($sHexKey = "01", $vDLL = $dll)
; $hexKey must be the value of one of the keys.
; _Is_Key_Pressed will return 0 if the key is not pressed, 1 if it is.
Local $a_R = DllCall($vDLL, "short", "GetAsyncKeyState", "int", '0x' & $sHexKey)
If @error Then Return SetError(@error, @extended, False)
Return BitAND($a_R[0], 0x8000) <> 0
EndFunc ;==>event
#endregion png
#region buttony
Func button1($guicanset, $anh1, $anh2, $anh3) ; wysylanie
If hander() = $guicanset Then
SetBitmap($guicanset, $anh2, 255)
Do
If event() Then
Do
If hander() <> $guicanset Then
SetBitmap($guicanset, $anh1, 255)
Else
SetBitmap($guicanset, $anh3, 255)
EndIf
Until Not event()
If hander() = $guicanset Then
SetBitmap($guicanset, $anh2, 255)
;--
;--
For $c = 0 To 6
GUICtrlSetState($wyslij[$c], $GUI_HIDE)
Next
GUICtrlSetState($Generuj, $GUI_HIDE)
GUICtrlSetState($Nazwa, $GUI_HIDE)
GUICtrlSetState($Input3, $GUI_HIDE)
;--
GUICtrlSetState($edit, $GUI_HIDE)
GUICtrlSetState($Input1, $GUI_HIDE)
GUICtrlSetState($Button1, $GUI_HIDE)
GUICtrlSetState($Button2, $GUI_HIDE)
;--
GUICtrlSetState($Input2, $gui_show)
GUICtrlSetState($Edit1, $gui_show)
GUICtrlSetState($Button3, $gui_show)
GUICtrlSetState($Button4, $gui_show)
GUICtrlSetState($hCombo, $gui_show)
GUICtrlSetState($progressbar2, $gui_show)
EndIf
EndIf
Until hander() <> $guicanset
SetBitmap($guicanset, $anh1, 255)
EndIf
EndFunc ;==>button1
Func button2($guicanset, $anh1, $anh2, $anh3) ; szukanie
If hander() = $guicanset Then
SetBitmap($guicanset, $anh2, 255)
Do
If event() Then
Do
If hander() <> $guicanset Then
SetBitmap($guicanset, $anh1, 255)
Else
SetBitmap($guicanset, $anh3, 255)
EndIf
Until Not event()
If hander() = $guicanset Then
SetBitmap($guicanset, $anh2, 255)
GUICtrlSetState($progressbar2, $GUI_HIDE)
;--
GUICtrlSetState($Input2, $GUI_HIDE)
GUICtrlSetState($Edit1, $GUI_HIDE)
GUICtrlSetState($Button3, $GUI_HIDE)
GUICtrlSetState($Button4, $GUI_HIDE)
GUICtrlSetState($hCombo, $GUI_HIDE)
;--
For $c = 0 To 6
GUICtrlSetState($wyslij[$c], $GUI_HIDE)
Next
GUICtrlSetState($Generuj, $GUI_HIDE)
GUICtrlSetState($Nazwa, $GUI_HIDE)
GUICtrlSetState($Input3, $GUI_HIDE)
;--
GUICtrlSetState($edit, $gui_show)
GUICtrlSetState($Input1, $gui_show)
GUICtrlSetState($Button1, $gui_show)
GUICtrlSetState($Button2, $gui_show)
EndIf
EndIf
Until hander() <> $guicanset
SetBitmap($guicanset, $anh1, 255)
EndIf
EndFunc ;==>button2
Func button3($guicanset, $anh1, $anh2, $anh3) ; szablony
If hander() = $guicanset Then
SetBitmap($guicanset, $anh2, 255)
Do
If event() Then
Do
If hander() <> $guicanset Then
SetBitmap($guicanset, $anh1, 255)
Else
SetBitmap($guicanset, $anh3, 255)
EndIf
Until Not event()
If hander() = $guicanset Then
SetBitmap($guicanset, $anh2, 255)
GUICtrlSetState($progressbar2, $GUI_HIDE)
GUICtrlSetState($edit, $GUI_HIDE)
GUICtrlSetState($Input1, $GUI_HIDE)
GUICtrlSetState($Button1, $GUI_HIDE)
GUICtrlSetState($Button2, $GUI_HIDE)
;--
GUICtrlSetState($Input2, $GUI_HIDE)
GUICtrlSetState($Edit1, $GUI_HIDE)
GUICtrlSetState($Button3, $GUI_HIDE)
GUICtrlSetState($Button4, $GUI_HIDE)
GUICtrlSetState($hCombo, $GUI_HIDE)
;--
For $c = 0 To 6
GUICtrlSetState($wyslij[$c], $gui_show)
Next
GUICtrlSetState($Generuj, $gui_show)
GUICtrlSetState($Nazwa, $gui_show)
GUICtrlSetState($Input3, $gui_show)
EndIf
EndIf
Until hander() <> $guicanset
SetBitmap($guicanset, $anh1, 255)
EndIf
EndFunc ;==>button3
#endregion buttony
#region skrypt
Func sdw()
;szukanie;
_GUICtrlListView_DeleteAllItems(GUICtrlGetHandle($edit))
$szukaj = GUICtrlRead($Input1)
_FFstart("http://darkwarez.pl/forum/search.php", 2, True)
$wysz = _FFXPath("/html/body/table/tbody/tr/td/form/table[2]/tbody/tr[2]/td[2]/span/input", "", 9)
_FFSetValue($szukaj, $wysz)
$obj = _FFXPath("/html/body/table/tbody/tr/td/form/table[2]/tbody/tr[8]/td/input", "", 9)
_FFClick($obj)
;-----------------------------------------------
Local $lable
$lable = _FFreadhtml("body", 16)
$lable = StringReplace($lable, "[", "s")
$lable = StringReplace($lable, "|", "z")
$lable = StringReplace($lable, "ó", "o")
$lable = StringReplace($lable, "", "e")
$lable = StringReplace($lable, "", "A")
$lable = StringReplace($lable, "", "C")
$lable = StringReplace($lable, "", "E")
$lable = StringReplace($lable, "{", "Z")
$lable = StringReplace($lable, "", "a")
$lable = StringReplace($lable, "", "c")
$tekst2 = $lable
$slowo2 = '" class="topictitle">'
StringReplace($tekst2, $slowo2, $slowo2)
$ile2 = @extended ;'nazwy tematow'
;------------------------------------------------
$szukajka = _StringBetween($lable, '<td class="row2"><span class="topictitle"><a href="', '"')
For $c = 0 To $ile2 - 1
$crew[$c] = $szukajka[$c]
Next
$coznaczy = _StringBetween($lable, '" class="topictitle">', '</a>') ; nazwa
For $c = 0 To $ile2 - 1
$no[$c] = $coznaczy[$c]
Next
$podzial = _StringBetween($lable, '" class="forumlink">', '</a></span></td>')
For $c = 0 To $ile2 - 1
$pod[$c] = $podzial[$c]
Next
For $c = 0 To $ile2 - 1
$gui[$c] = GUICtrlCreateListViewItem("|" & $pod[$c] & "|" & $no[$c] & "|", $edit)
Next
EndFunc ;==>sdw
Func generic()
Local $przypisanie[7], $napisz[7]
For $c = 0 To 6
$przypisanie[$c] = GUICtrlRead($wyslij[$c])
Next
If $przypisanie[0] <> "" Then
$napisz[0] = "[size=24][color=#ffb300]" & $przypisanie[0] & "[/color][/size]" & @CRLF
EndIf
If $przypisanie[1] <> "" Then
$napisz[1] = @CRLF & "[img]" & $przypisanie[1] & "[/img]" & @CRLF
EndIf
If $przypisanie[2] <> "" Then
$napisz[2] = @CRLF & "[code]" & $przypisanie[2] & "[/code" & @CRLF & @CRLF
EndIf
If $przypisanie[3] <> "" Then
$napisz[3] = "[img]" & $przypisanie[3] & "[/img]" & @CRLF
EndIf
If $przypisanie[4] <> "" Then
$napisz[4] = "[img]" & $przypisanie[4] & "[/img]" & @CRLF
EndIf
If $przypisanie[5] <> "" Then
$napisz[5] = "[img]" & $przypisanie[5] & "[/img]" & @CRLF
EndIf
If $przypisanie[6] <> "" Then
$napisz[6] = @CRLF & "[code]" & $przypisanie[6] & "[/code" & @CRLF
EndIf
$laczenie = $napisz[0] & $napisz[1] & $napisz[2] & $napisz[3] & $napisz[4] & $napisz[5] & $napisz[6]
$nazwa1 = GUICtrlRead($Nazwa)
$handle = FileOpen(@WorkingDir & "/data/" & $nazwa1 & ".txt", 9)
FileWrite($handle, $laczenie)
;ShellExecute(@WorkingDir&"/data/"&$nazwa1&".txt")
GUICtrlSetData($Edit1, $laczenie)
FileClose($handle)
For $c = 0 To 6
GUICtrlSetState($wyslij[$c], $GUI_HIDE)
Next
GUICtrlSetState($Generuj, $GUI_HIDE)
GUICtrlSetState($Nazwa, $GUI_HIDE)
GUICtrlSetState($Input3, $GUI_HIDE)
;--
GUICtrlSetState($edit, $GUI_HIDE)
GUICtrlSetState($Input1, $GUI_HIDE)
GUICtrlSetState($Button1, $GUI_HIDE)
GUICtrlSetState($Button2, $GUI_HIDE)
;--
GUICtrlSetState($Input2, $gui_show)
GUICtrlSetState($Edit1, $gui_show)
GUICtrlSetState($Button3, $gui_show)
GUICtrlSetState($Button4, $gui_show)
GUICtrlSetState($hCombo, $gui_show)
GUICtrlSetState($progressbar2, $gui_show)
_GUICtrlComboBox_BeginUpdate($hCombo)
_GUICtrlComboBox_AddDir($hCombo, @WorkingDir & "\szablony\*.txt")
_GUICtrlComboBox_EndUpdate($hCombo)
EndFunc ;==>generic
Func save()
$nazwa1 = GUICtrlRead($hCombo)
$nom = GUICtrlRead($Input2)
$nom123 = GUICtrlRead($Edit1)
$handle = FileOpen(@WorkingDir & "/szablony/" & $nazwa1 & ".txt", 10)
$wcz = FileRead(@WorkingDir & "/szablony/" & $nazwa1 & ".txt")
FileWrite($handle, $nom & " " & @LF & $nom123)
FileClose($handle)
_GUICtrlComboBox_ResetContent($hCombo)
_GUICtrlComboBox_BeginUpdate($hCombo)
_GUICtrlComboBox_EndUpdate($hCombo)
_GUICtrlComboBox_ResetContent($hCombo)
_GUICtrlComboBox_BeginUpdate($hCombo)
$reka = _GUICtrlComboBox_AddDir($hCombo, @WorkingDir & "\szablony\*.txt")
_GUICtrlComboBox_EndUpdate($hCombo)
EndFunc ;==>save
Func wczytaj()
$nazwa12 = GUICtrlRead($hCombo)
$zmiana = $nazwa12
$handle1 = FileOpen(@WorkingDir & "\szablony\" & $zmiana)
$loading = FileRead($handle1)
$linia1 = FileReadLine($handle1, 1)
GUICtrlSetData($Input2, $linia1)
$doedita = StringReplace($loading, $linia1, "")
$doedita = StringTrimLeft($doedita, 1)
GUICtrlSetData($Edit1, $doedita)
_GUICtrlComboBox_ResetContent($hCombo)
_GUICtrlComboBox_BeginUpdate($hCombo)
_GUICtrlComboBox_AddDir($hCombo, @WorkingDir & "\szablony\*.txt")
_GUICtrlComboBox_EndUpdate($hCombo)
FileClose($handle1)
EndFunc ;==>wczytaj
Func wyslij()
$link = GUICtrlRead($Input2)
$text = GUICtrlRead($Edit1)
_FFstart($link, 2, True)
If @error Then
MsgBox(0, "", "NIE MASZ FIREFOXA ALBO PODALES NIEPRAWIDLOWY LINK")
Return
EndIf
$obj = _FFXPath("/html/body/table/tbody/tr/td/table[4]/tbody/tr/td/span/a", "", 9)
_FFClick($obj)
If @error Then
MsgBox(0, "", "PODAJ LINK!")
Return
EndIf
_FFSetValue($text, "message", "name")
$asd = _FFreadhtml()
$tekst = '<script type="text/javascript" src="http://api.solvemedia.com/papi/challenge.script?k'
$asd1 = StringInStr($asd, $tekst)
If $asd1 Then
MsgBox(0, "", "Wpisz CAPTCHE, ZAZNACZ KURSOREM NA BOXA OD WPISANIA TEMATU POCZYM ZWIN PRZEGLADARKE I ZAMKNIJ TO OKIENKO")
ControlSend("[CLASS:MozillaWindowClass]", "", "", "{TAB}{TAB}{TAB}{ENTER}", 0)
Else
ControlSend("[CLASS:MozillaWindowClass]", "", "", "{TAB}{TAB}{TAB}{TAB}{ENTER}", 0)
EndIf
MsgBox(0, "", "POCZEKAJ")
Global $iasd
For $iasd = 0 To 100
GUICtrlSetData($progressbar2, $iasd)
Sleep(460)
Next
If $iasd = 100 Then MsgBox(0, "", "ZALADOWANE")
$iasd = 0
GUICtrlSetData($progressbar2, $iasd)
EndFunc ;==>wyslij
#endregion skrypt
projekt upadł, nie mam czasu ani chęci tego aktualniać dziękuje dobranoc.
techPOSTER - Bot do rozsyłania postó na DW
Post: #1![[Obrazek: 81340110818631098467.png]](http://iv.pl/images/81340110818631098467.png)
![[Obrazek: 41217918659522704233.png]](http://iv.pl/images/41217918659522704233.png)
![[Obrazek: 38440325388936297507.png]](http://iv.pl/images/38440325388936297507.png)
![[Obrazek: 89070704427784788759.png]](http://iv.pl/images/89070704427784788759.png)
![[Obrazek: 80436154966308104858.png]](http://iv.pl/images/80436154966308104858.png)
[/spoiler]
