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!
Wybierz Styl: Aktywuj czarny styl Aktywuj jasny styl Aktywuj mobilny styl
Forum o zarabianiu przez Internet !
praca w domu Witaj serdecznie forum o zarabianiu Zarabiam.com
forum o zarabianiu przez internet

Witaj! Nie bez powodu trafiłeś na największe w Polsce Forum o Zarabianiu przez internet! Tutaj gromadzimy pasjonatów zdobywania pieniędzy online i dajemy możliwość poznania tajników pracy w domu. Coraz więcej osób poszukuje sposobów na zarabianie w sieci, co sprawia, że praca w domu przez internet staje się atrakcyjnym źródłem dochodu. W dzisiejszych czasach, zarabianie online to nie tylko alternatywa, ale często również znakomita opcja do tradycyjnej pracy na etacie. Czy zastanawiasz się, jak łatwo zarobić pieniądze? Jeśli tak, to właściwe miejsce! Internet jest pełen możliwości, a my jesteśmy tutaj, aby Ci pomóc, dzieląc się wiedzą i doświadczeniami.

Rejestracja na naszym forum jest całkowicie darmowa i niesie ze sobą wiele korzyści:

  • Zakładaj nowe wątki i bierz udział w dyskusjach,
  • Odblokuj dostęp do czatu (Shoutbox),
  • Ogranicz liczbę wyświetlanych reklam,
  • Zdobywaj odznaczenia i reputację,
  • Zyskaj dostęp do ukrytych działów, tematów i linków,
  • Przeglądaj galerię zdjęć i filmów z wygranymi nagrodami,
  • Dostosuj swój prywatny profil,
  • Weź udział w konkursach organizowanych na forum,
  • Skorzystaj z doświadczenia społeczności zarabiającej online od lat,
  • Porównaj stopy procentowe na kontach oszczędnościowych,
  • Wykorzystaj merytoryczną wiedzę naszych użytkowników, by zarabianie w domu stało się łatwiejsze niż kiedykolwiek,
  • Dowiedz się, gdzie zdobyć darmowe upominki, gadżety i próbki.
  • Pamiętaj to nic nie kosztuje, zarabiam.com to darmowe forum internetowe w którym zasięgniesz informacji "jak zarabiać przez internet".
I co najważniejsze, wszystko to jest zupełnie za darmo! Zarabiam.com to internetowe forum, które udzieli Ci odpowiedzi na pytanie "jak zarabiać przez internet". Teraz praca w domu staje się możliwa! Zarejestruj się już teraz, a dowiesz się wszystkiego o zarabianiu przez internet!

praca w domu


Zapraszamy na Nasze Serwery Minecraft oraz Serwer Minecraft



Wątek zamknięty 
 
Ocena wątku:
  • 0 Głosów - 0 Średnio
  • 1
  • 2
  • 3
  • 4
  • 5
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
Znajdź wszystkie posty użytkownika
Ania Online
Forumowy Maniak


Liczba postów: 1241
Dolaczyl: Jan 2012
Reputacja: 1712

Poziom ostrzezen: 0%
Forum Gold: 215.61 [Dotacja]

Warto sprawdzić:
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
Znajdź wszystkie posty użytkownika
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
Znajdź wszystkie posty użytkownika
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
Znajdź wszystkie posty użytkownika
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
Znajdź wszystkie posty użytkownika
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
Znajdź wszystkie posty użytkownika
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 6,886 20-10-2019 18:22
Ostatni post: Hybrid1990
Photo [BOT ASK.FM] Bot do ask.fm kvrolek 2 2,750 15-09-2019 07:58
Ostatni post: Hybrid1990
  [BOT] Darmowy bot ask.fm! VoreCC 5 3,357 07-09-2019 12:02
Ostatni post: Hybrid1990
  [BOT] Mail Bot TechByte 7 3,712 03-09-2019 10:03
Ostatni post: Hybrid1990
Exclamation [BOT] EasyHits4U działający bot! Szakallt 21 9,523 26-02-2018 23:02
Ostatni post: Artinesse

Skocz do:


Użytkownicy przeglądający ten wątek: