Hacking  
  Luty 18 2018 10:05:06  
 
Nawigacja
folder Portal
. Artykuły
. Download
. Forum
. Szukaj
. FAQ
. Regulamin
folder Hacking
. Gry Hakerskie
. Filmy
folder Delphi
. Kursy
. Faq
. Źródła
. Komponenty
. Artykuły
folderWebmaster
. JavaScripts
. Skrypty PHP
folderRóżne
. Kontakt
. Zlokalizuj ip
Aktualnie online
. Gości online: 4

. Użytkowników online: 0

. Łącznie użytkowników: 154,338
. Najnowszy użytkownik: Essay Online
Ostatnie artykuły
. Metoda ataku symlin...
. Asembler x86 w pigułce
. Binder plików z komp...
. [Asembler/MASM] Pobi...
. Braifuck 4 fun
Nawigacja
Artykuły » Delphi artykuły » Auto-odpowiadacz na GG
Auto-odpowiadacz na GG

Auto odpowiadacz na GG



1. Napisze jak napisać prosty program, który automatycznie odpowiada osobom na gg i powiadamia ich o naszej nieobecności. Będzie pełnił rolę swoistej automatycznej sekretarki.

2. Z komponentów ściągnąć trzeba będzie tylko THGG, ponieważ reszta jest w systemie.

3. Najpierw zróbmy, żeby nasz program łączył się z serwerem Gadu-Gadu. W tym celu wrzucamy komponent THHG na formę. Zmieńmy mu nazwę (name) na 'gg'.

Teraz wstawmy dwa komponenty Edit, który nadajemy kolejno nazwy 'numer' i 'pass'. W Object Inspector editu 'pass' wartość PasswordChar ustawiamy na '*', co zagwiazdkuje nam hasło. Teraz musimy wstawić na formę przycisk (button), który za pomocą danych wprowadzonych z poprzednio wspomnianych pól połączy nas z serwerem GG. Klikamy dwukrotnie na przycisk i piszemy w nim:

---
gg.Number:=strtoint(numer.text); //Pobiera z pola edit numer gg
gg.Password:=strtoint(pass.text); //Pobiera z pola edit hasło do numeru gg
gg.Connect(500); //Łączy z serwerem
---

Jeszcze można dodać przycisk rozłączający nas z serwera podpinającą pod onClick:

---
gg.status:=0; //Ustawia status na Niedostępny
---

4. Teraz zajmiemy się tym, jak wstawić tą auto odpowiedź :D Wrzucamy na formę pole tekstowe (memo) i nazywamy je 'odpowiedz'. Następnie zaznaczamy komponent THHG i w zakładce Events dodajemy do OnMesage kod:

---
gg.SendMessage(ggnumber, odpowiedz.text);
---

5. Dobrym pomysłem byłoby też wiedzieć co i kto do nas pisze, żebyśmy mogli potem odpowiedzieć ;)
Żeby to osiągnąć wstawiamy kolejne Pole tekstowe (memo) i nazywamy je 'wiadomosci'. Wygodnie byłoby wstawić w nie scroolbar :P Teraz, żeby zadziałało do komponentu THHG akcji OnMessage dopisujemy następujący kod:

wiadomosci.Lines.Add('[' +inttostr(ggnumber) +']: ' +MessageContent);

6. Nie głupie byłoby zapisanie tych wiadomości do pliku podczas zamykania programu. To wcale nie jest trudne w wykonaniu. Wystarczy wybrać formę, przejść do zakładki Events i do procedury OnClose dopisać kod:

---
wiadomosci.Lines.SaveToFile('c:\\logi.txt');
---

7. No dobrze, a jeżeli byśmy chcieli ustawić konkretny status, albo opis? Nie ma sprawy. Żeby mieć opis wystarczy znowu wstawić pole tekstowe i nazwać je 'opis' Teraz wstawić przycisk potwierdzający tę operację i do OnClick podpiąć:

---
gg.Description:=opis.Text;
---

Żeby zmieniać status należy wstawić komponent ComboBox, w Object Inspector do items przypisać po kolei statusy i do procedury OnChange podpiąć kod:

---
case ComboBox1.ItemIndex of
0: hgg1.Status:=1; //Dosępny
1: hgg1.Status:=2; //Zaraz Wracam
2: hgg1.Status:=3; //Niewidoczny
3: hgg1.Status:=0; //Niedostępny
end;
---

Teraz wystarczy, że dodasz jakieś elementy graficzne i masz wyjechaną Automatyczną sekretarkę na GG ;)
Logowanie
Nazwa użytkownika

Hasło



Nie masz jeszcze konta?
Zarejestruj się

Nie możesz się zalogować?
Poproś o nowe hasło
Shoutbox
Musisz zalogować się, aby móc dodać wiadomość.

18-02-2018 09:19
http://images.goog
le.co.ve/url?q=htt
p://slotswall.ru http://maps.google
.com.vn/url?q=http
://ninjaslots.ru http://eezzoo.net/
__media__/js/netso
ltrademark.php?d=s
lotswall.ru http://www.safethi
tch.net/__

18-02-2018 07:34
http://nemi.pw/?ht
tp://slotsmotion.r
u http://egorlykraio
n.ru/go.php?url=ht
tp://ninjaslots.gq
https://trueproxy.
net/?https://slots
trust.ru http://ads.macdesk
tops.com/openads/a
dclick.php?banneri
d=59&

18-02-2018 05:54
http://www.shankwh
olesalers.com/admi
n/Portal/LinkClick
.aspx?tabid=39&link
=http://trislots.r
u http://paranoid.co
m/__media__/js/net
soltrademark.php?d
=slotshappy.ru http://www.courtne
ythornesmith.com

18-02-2018 04:16
http://143offroad.
com/__media__/js/n
etsoltrademark.php
?d=ninjaslots.ml http://maps.google
.so/url?q=http://s
lotsplus.ru http://www.altener
gy-pro.com/__media
__/js/netsoltradem
ark.php?d=trislots
.ru http:

18-02-2018 00:12
http://www.salonwa
nd.net/__media__/j
s/netsoltrademark.
php?d=insurtopusa.
com http://jobsmain.co
m/__media__/js/net
soltrademark.php?d
=ninjaslots.ru http://cewekmontok
.com/__media__/js/
netsoltrademark.ph
p

Licznik
32,343,291 unikalne wizyty