Witaj gościu! Zaloguj się lub Zarejestruj aby móc korzystać ze wszystkich funkcjonalności jakie oferuje to forum! Rozpocznij zarabianie przez internet, poznaj korzysci pracy w domu! Rejestracja i korzystanie z forum jest całkowicie darmowe!
Polska społeczność o zarabianiu przez internet, pracy w domu i dodatkowej pracy online Zobacz dzisiejsze dyskusje →
Praca w domu - Dodatkowa Praca - Zarabianie przez Internet / Off-Topic / Kosz/Spam/Archiwum v / techPOSTER - Bot do rozsyłania postó na DW
Wątek zamknięty 
techPOSTER - Bot do rozsyłania postó na DW » Darmowy!

Autor Wiadomość
tehix Offline
Świeżak
*
Liczba postów: 9
Dołączył: Jun 2011
Reputacja: 2 +
Forum Gold: 0.00
Post: #1
techPOSTER - Bot do rozsyłania postó na DW
Sprawdź:
Cześć wszystkim do zaprezentowania nowy darmowy poster narazie tylko obsługujący darkwarez.
[Obrazek: 81340110818631098467.png]


Kod:
BEDA POTRZEBNE:
http://www.mozilla.org/pl/firefox/fx/ - Przeglądarka internetowa firefox
https://addons.mozilla.org/pl/firefox/addon/mozrepl/ - Dodatek do firefox'a
https://addons.mozilla.org/pl/firefox/addon/adblock-plus/ - Blokowanie reklam
-------------------------------------------------------------------------------------------------------------
Omówienie:
a)Zakladka: Szukanie
-'szukaj...' W to miejsce trzeba wklepac nazwe porządanego przez nas tematu, poczym zaznaczyc w checkboxie i kliknąc dalej.
b)Zakladka: Wysyłanie
-Combobox, tutaj można zapisać lub wczytać plik. (plik zapisuje wczytując dane z inputu link i edita)Wszystkie dane znajdują się w folderze Dane
c)Zakladka: Szablony
-Zostało wyjaśnione na zdjęciu.
-------------------------------------------------------------------------------------------------------------
Instrukcja:
-Odpalamy firefoxa wchodzimy w zakładke zaloguj, wpisujemy nickname i password poczym, zaznaczamy auto logowanie i logujemy się.
-Podczas działania skryptów PROSZĘ WAS O NIE SURFOWANIE LUB JAKIKOLWIEK INNYCH DZIAŁAŃ W FIREFOXIE jeśli koniecznie chcecie korzystać z przeglądarki prosze o krzystanie z niej np. z chrome
link: http://www.google.de/chrome/?hl=pl
-------------------------------------------------------------------------------------------------------------
Link:
http://speedy.sh/j4K9H/techpost.7z
Kod:
CHANGELOG:
1.0.3; http://speedy.sh/j4K9H/techpost.7z
b)ogólne:
-Ulepszono wysyłanie.
1.0.2; http://speedy.sh/u2ue5/techPOST.7z
a)Wysyłanie:
-Poprawiono progressbar'a, teraz nie blokuje całego skryptu | ;ładowanie progressa trwa tyle ile potrzebuję użytkownik 'Legendarny' na wysłanie kolejnego postu
więc proszę was o podesłanie mi ile wynosi czas w innych rangach.
b)ogólne
-kosmetyczne sprawy rzędu paru pikseli
1.0.1; http://speedy.sh/8RXSe/techPOST.7z
a)Szukanie:
-Naprawiono polskie znaki w inpudzie szukaj.
-Poprawiono polskie znaki w wyszukiwarce.
b)wysyłanie
-Naprawiono wczytanie szablonów przy starcie skryptu
-Naprawiono funkcje wyjścia/wejścia szablonów
c)ogólne:
-Zmieniono położenia buttonów


Program będzię roziwjany przezemnie jeśli macie jakieś pomysły, uwagi, bugi lub cokolwiek co by mogło wpłynąć na prace skryptu - proszę się z nimi podzielić tu lub na pw.
enjoy
(Ten post był ostatnio modyfikowany: 06-03-2012 22:47 przez tehix.)
19-02-2012 12:20
energy95 Offline
Świeżak
*
Liczba postów: 41
Dołączył: Dec 2010
Reputacja: 2 +
Forum Gold: 0.00
Post: #2
RE: techPOSTER - Bot do rozsyłania postó na DW
ciekawe kiedy go zbanują Tongue
24-02-2012 11:48
Qwik Offline
Lojalny Forumowicz
*
Liczba postów: 2,446
Dołączył: Jan 2011
Reputacja: 1234 +
Galeria Wygranych: Tutaj
Odznaczenia:

(Zobacz Odznaczenia)
Poziom:
Forum Gold: 0.00
Post: #3
RE: techPOSTER - Bot do rozsyłania postó na DW
(24-02-2012 11:48)energy95 napisał(a):  ciekawe kiedy go zbanują Tongue

Dlaczego?
24-02-2012 14:48
barteek_93 Offline
Bywalec
*
Liczba postów: 252
Dołączył: Aug 2010
Reputacja: 90 +
Galeria Wygranych: Tutaj
Forum Gold: 0.00
Post: #4
RE: techPOSTER - Bot do rozsyłania postó na DW
Mógłbyś nagrać jakiś tutorial jak obsługiwać czy coś w tym stylu?
24-02-2012 17:37
tehix Offline
Świeżak
*
Liczba postów: 9
Dołączył: Jun 2011
Reputacja: 2 +
Forum Gold: 0.00
Post: #5
RE: techPOSTER - Bot do rozsyłania postó na DW
(24-02-2012 17:37)barteek_93 napisał(a):  Mógłbyś nagrać jakiś tutorial jak obsługiwać czy coś w tym stylu?

Hmm, wydaję mi się, że program jest do łatwy w obsłudze, ale postaram się go nakręcić.

@energy, dlaczego miałbym dostać bana??


@@@@temat:

ładowanie progressa trwa tyle ile potrzebuję użytkownik 'Legendarny' na wysłanie kolejnego postu
więc proszę was o podesłanie mi ile wynosi czas w innych rangach.
24-02-2012 23:13
tehix Offline
Świeżak
*
Liczba postów: 9
Dołączył: Jun 2011
Reputacja: 2 +
Forum Gold: 0.00
Post: #6
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.
07-04-2012 08:14
Wątek zamknięty 


Podobne wątki
Wątek: Autor Odpowiedzi: Wyświetleń: Ostatni post
  sfgame bot najnowszej generacji oraz bot na grzyby makubas 2 7,563 20-10-2019 18:22
Ostatni post: Hybrid1990
Photo [BOT ASK.FM] Bot do ask.fm kvrolek 2 3,250 15-09-2019 07:58
Ostatni post: Hybrid1990
  [BOT] Darmowy bot ask.fm! VoreCC 5 4,172 07-09-2019 12:02
Ostatni post: Hybrid1990
  [BOT] Mail Bot TechByte 7 4,918 03-09-2019 10:03
Ostatni post: Hybrid1990
Exclamation [BOT] EasyHits4U działający bot! Szakallt 21 11,736 26-02-2018 23:02
Ostatni post: Artinesse

Skocz do:


Użytkownicy przeglądający ten wątek:
SOHO Partners reklama