O co chodzi? A o to, że dla lepsiejszej organizacji (^^) pracy potworzyłem sobie parę dysków wirtualnych za pomocą komendy subst. (instrukcje użycia otrzymać można po wpisaniu w cmd „subst /?„).

Pomyślałem, że szybciej i fajniej będzie robić to za pomocą jakiegoś GUI a nie z poziomu cmd. Odpaliłem więc delphi, zakodziłem co trzeba, bez zbędnych bajerów i wyszło na to (bo ja nie myślę, zanim zrobię), że szybciej jest jednak wspisać komendę w cmd, o ile oczywiście ścieżka do folderu to nie jakieś poskręcane i dziwne ciągi znaków.

Tak czy inaczej, wrzucę to tutaj, niech sobie leży.
Pobierz plik. (206 kb), .rar

Dzisiaj zacznę pisać jak taką aplikację stworzyć – krok po kroku.

Zanim zaczniesz zapoznaj się z użytym tu językiem programowania – delphi.
Linki do stron z kursami:
Pascal:
http://www.pascal.eu.org/
http://turbopascal.skryptoteka.pl/index-noflash.html
Delphi:
http://4programmers.net/Delphi/Kompendium
http://swiatinformatyki.ovh.org/delphi.php

Do tego będą nam potrzebne ClientSocket i ServerSocket – do ściągnięcia tutaj: http://members.multimania.co.uk/marekblck/socks.zip

Zacznijmy!

Odpalamy Delphi (ja korzystam z wersji 7), powinna pojawić się nam już gotowa forma
Wrzucamy na nią:
Memo (nazwa msgs) – do wyświetlania wiadomości
ClientSocket – nasze gniazdo do łączenia się z serwerem
XpManifest – dla nadania „xpkowego” wyglądu
ListView (nazwa ppl) – dla wyświetlenia innych użytkowników
2xEdit (nazwy odpowiednio: ip oraz msg) – do wpisania IP serwera oraz wiadomości
2xbutton (nazwy odpowiednio: ipbtn oraz msgbtn) – połączenie z serwerem / wysłanie wiadomości

Ustawiamy sobie komponenty według uznania, u mnie wygląda to teraz tak:

Zmieniamy w ListViev – viewstyle na vsReport, klikamy na [...] przy columns i dodajemy kolumny: # oraz nick

Przechodzimy do ClientSocket i ustawiamy: name na klient i port na port na którym ma działać chat (ja ustawiłem na 666).

Zmieniamy w msgs ReadOnly na true.

Dwuklikiem na ipbtn tworzymy procedurę ipbtnClick o zawartości:

klient.address:=ip.text; //ustawiamy IP w socketcie
klient.active:=true; //aktywujemy go
ipbtn.Enabled:=false; //dezaktywujemy przycisk

Oraz tworzymy procedurę klientError o treści:

ErrorCode:=0; //przecież sami zajmiemy się błędem :)
msgs.Lines.Add('Błąd - nie ma połączenia z serwerem ('+ip.text+':'+inttostr(klient.port)+')'); //dodajemy do memo ładną informację

To był tylko wstępniak, tak naprawdę jeszcze nie zaczęliśmy tego pisać, ale to był tylko przedsmak, kolejna, już pełnoprawna część niedługo

Chwilka węszenia używając jakiegoś starego launchera z dysku i regedit – i już wiem

Więc tak – ustawienia gry znajdują się w kluczu HKEY_CURRENT_USER\Software\Webzen\Mu\Config, są to kolejno:

1. ColorDepth  (DWORD) – wartość 0/1, oznacza głębie kolorów gdzie:
   • 0 – 16bit
   • 1 – 32bity
2. ConnectIP (STRING) – tak właściwie to chyba IP do którego się podłączy, ale przy hacku używam innego klucza (opisane na muhacku w tym temacie)
3. ID (STRING) – zapamiętany login
4. MusicOnOff (DWORD) muzyka włączona/wyłączona, gdzie:
   • 0 – wył.
   • 1 – wł.
5. Resolution (DWORD) – rozdzielczość gdzie:
   • 0 – 640×480
   • 1 – 800×600
   • 2 – 1024×768
   • 3 – 1280×1024
6. ResolutionA (DWORD) – tutaj ciekawe, bo nie wiem tak naprawdę do czego służy, ale zaobserwowałem, że jest na 1 jeśli Resolution jest na 3, inaczej jest ustawione na 0
7. SoundOnOf (DWORD) – dźwięk włączony/wyłączony, przyjmuje takie same wartości jak MusicOnOff
8. Volumelevel (DWORD) – głośność, przyjmuje wartości od 0 do 10
9. WindowMode (DWORD) – gra w oknie, gdzie:
   • 0 – wył. (pełny ekran)
   • 1 – wł. (okno)

Do odczytu poszczególnych wartości w delphi służą funkcje:

ReadString(const Name:string):string
ReadBool(const Name:string):Boolean //można też użyć readinteger, ale po co? ;-)

Dokładniej jest to opisane tutaj: http://4programmers.net/Delphi/Artyku%C5%82y/Rejestry_systemu_Windows oraz tu: http://4programmers.net/Delphi/Kompendium/Rozdzia%C5%82_6