Go Faster

September 26, 2009 Leave a comment

Go Faster is simple and really useful application write in Basic4ppc. Basic4ppc is cool and smart app to create exe files for windows 6.0 etc.
Go Faster was created to help people who use public transport. If you are one of them maybe you found sth useful. This app showing current train/bus traffic in simple table. You can easy generate your own bus-stop traffic! App use XML files. If you live in Wrocław you can use this source to generate your XML files also if you’re developer you can transform this script. To regenerate app you have to have Basic4ppc created by Anywhere Software.

Download cab files


Generate XML files

 0,1,2
		train - number of train
		time - time in minuts
		*/
		$tab['busstop_id']='24214';
		$tab['train']=$id;
		$xml='';
		$html = file_get_contents($filename);
		//select wariant
		preg_match_all('#(.*?)#si', $html, $przystanek);
		//pobieram kod dni
		preg_match_all('#(.*?)#si', $przystanek[0][0], $dzien);
		/*
			dzien array
			1 - nazwa dnia
			2 - rozkład dla dnia
		*/
		for($i=0;$i<count($dzien[1]);$i++)
		{
			//declare day type
			if($dzien[1][$i] == 'w dni robocze')
			{
				$tab['type_of_day']=0;
			}elseif($dzien[1][$i] == 'Sobota'){
				$tab['type_of_day']=1;
			}else{
				$tab['type_of_day']=2;
			}

			//explode by hour
			preg_match_all('#(.*?)#si', $dzien[2][$i], $godz);
			for($j=0;$j<count($godz[1]);$j++)
			{
				//explode by min
				preg_match_all('##si', $godz[2][$j], $min);
				for($k=0;$k<count($min[1]);$k++)
				{
					//set time - haurs to min
					$tab['time']=$godz[1][$j]*60;
					$tab['show_time']=$godz[1][$j];
					//set time - haurs to min
					$tab['time']+=$min[1][$k];
					$tab['show_time'].=':'.$min[1][$k];
					//generate xml
					$xml.='';
					$xml.=''.$tab['train'].'';
					$xml.=''.$tab['show_time'].'';
					$xml.=''.$tab['type_of_day'].'';
					$xml.=''.$tab['time'].'';
					$xml.='>';
				}
			}
		}
		return $xml;
	}
	//set line number
	$xml='';
	//generate heders
	$xml.='';
	$xml.='';
	$xml.='';
	$xml.='';
	$xml.='';
	$xml.='';
	$xml.='';
	$xml.='';
	$xml.='';
	$xml.='';
	$xml.='';
	$xml.='';
	$xml.='';
	$xml.='';
	$xml.='';
	$xml.='';
	$xml.='';
	$xml.='';
	$xml.='';

	//make lines
	$xml.=doit('line9.xml','9');
	$xml.=doit('line17.xml','17');
	$xml.=doit('line12.xml','12');

	$xml.='';
	//save it!
	$handle = fopen('default.xml', 'w+');
	fwrite($handle, $xml);
	fclose($handle);
?>

Application source (download)

Sub Globals
	constval=False
End Sub

Sub App_Start
	Form1.Show

	If constval = False Then
	Table1.LoadXML("default.xml")
	End If

	today = DateDayOfweek(Now)
	If today = "Monday" Then
		datetype=0
	Else If today = "Tuesday" Then
		datetype=0
	Else If today = "Wednesday" Then
		datetype=0
	Else If today = "Thursday" Then
		datetype=0
	Else If today = "Friday" Then
		datetype=0
	Else If today = "Saturday" Then
		datetype=1
	Else If today = "Sunday" Then
		datetype=2
	End If
	Table1.Filter(Table1.ColName(2) & " = '" & datetype & "'")
	Table1.TableSort(Table1.ColName(3) & " ASC")
	'show sellected current
	timenow=(TimeH*60)+TimeM-1
	'Dim i As Integer
	i = Table1.RowCount-1
	Do While i > 2
		If timenow <= Table1.Cell(Table1.ColName(3),i) Then 			j=i 		End If 		If Table1.Cell(Table1.ColName(3),i)-timenow => 0 Then
			Table1.Cell(Table1.ColName(0),i)=Table1.Cell(Table1.ColName(0),i) & " (" & Table1.Cell(Table1.ColName(3),i)-timenow & ")"
		End If
	i=i-1
	Loop
	Table1.SelectCell(Table1.ColName(0), j)
	constval=True
End Sub

Sub mnuLoadXML_Click
	OpenXML.Filter = "XML Files|*.xml"
	If OpenXML.Show = cCancel Then Return
	Table1.Clear
	Table1.LoadXML(OpenXML.File)
	App_Start
End Sub

Sub btnPrevious_Click
'priev
If Table1.SelectedRow = -1 Then
	Table1.SelectCell(Table1.ColName(0),0)
Else
	If Table1.SelectedRow-10 >= 0 Then
	Table1.SelectCell(Table1.ColName(0),Table1.SelectedRow-10)
	Else
	Table1.SelectCell(Table1.ColName(0),0)
	End If
End If
End Sub

Sub btnNext_Click
'next
If Table1.SelectedRow = -1 Then
	Table1.SelectCell(Table1.ColName(0),11)
Else
	If Table1.SelectedRow+11 <= Table1.RowCount-1 Then
	Table1.SelectCell(Table1.ColName(0),Table1.SelectedRow+11)
	Else
	Table1.SelectCell(Table1.ColName(0),Table1.RowCount-1)
	End If
End If
End Sub

Sub Menu2_Click
	Table1.Clear
	Table1.LoadXML("default.xml")
	App_Start
End Sub

Sub btnNow_Click
Menu2_Click
End Sub
Categories: application Tags: ,

Proxy Machine

August 24, 2009 Leave a comment

proxy_machineProxy Machine is smart, lite and portable application. Using this app you can generate artificial traffic. It’s rally good machine for all gamers who play via www games. For example you’re bitefight player and you earn money (of course in game ;) ) because sb opens your link, also you can use it to many different things. So if you want generate traffic you have to download this app. Next click at “GET PROXY” button (you can use three different proxy servers with many pages) and after “Let’s ROCK!”. Proxy Machine doing all automatically.

Download:
Proxy Machine (rar)

Categories: application Tags:

Molehill Empire / Zielone Imperium BOT

August 11, 2009 10 comments
Categories: application Tags: , ,

RockYou Pets – automatic driver

August 10, 2009 1 comment

RockYou Pets’s very popular game on facebook.com. Now you can earning money easier, run application and watch how your pet will earn money and exp. If you want build this app you need delphi 7 or older.

Pobierz z www.giedek-blog.teampm.net
Source and build application
276 KB

Categories: application Tags: , , ,

MP3 Finder 1.5

mp3_finder_1.5

Szukasz ulubionej muzyki? Lepiej trafić nie mogłeś!

Dzięki aplikacji MP3 Finder będziesz mógł szybko wyszukać interesujący Cię utwór muzyczny, odsłuchać go za pomocą wbudowanego odtwarzacza, a następnie pobrać w formacie mp3. To takie proste – wystarczy kilka kliknięć!
Zmiany w programie:

  • nowa szata graficzna programu,
  • okno dopasowuje się do rozdzielczości ekranu, co pozwala używać programu przez użytkowników z niestandardowymi rozdzielczościami ekranu,
  • usługa “TOP10 MP3 Finder” zintegrowana w karcie głównej programu pozwala jeszcze szybciej słuchać aktualnie najpopularniejszą muzykę,
  • pełna integracja TAG EDYTORA, tagi wprowadzone w programie są zgodne ze standardem tagowania plików mp3,
  • możliwość pobrania utworów “TOP10 MP3 Finder” jako playlista,
  • większy wybór skinów dostępny na stronie programu,
  • dwujęzyczna strona oraz forum,
  • rozbudowana pomoc techniczna.


Pobierz z FTP
Windows XP/Vista/7
2.00 MB

Simple CMS – php portal

logoSimple CMS – php portal to prosty cms napisany w php oraz mysql. Do jego prawidłowego działania wymagane jest php w werji 5.x oraz mysql.  System został napisany na potrzeby pewnego projektu, jego jądro zostało trochę rozbudowane. Wydaje mi się, że napisałem go wmiare czytęlnię i jego przekształacanie, rozkładanie i rozbudowywanie sprawi Wam samą przyjemność.

Konfiguracja
1) uzupełnij dane w pliku include/config.php

DB_HOST = "localhost" //adres host
DB_USER = "username" //nazwa użytkownika bazy
DB_PASS = "password" //hasło do bazy
DB_NAME = "dbname" //nazwa bazy
PAGE_DIR = "http://adresstrony.pl/" //dokładny adres strony

uzupełnienie tych danych jest niezbędne do funkcjonowania systemu.

2) Import bazy danych z pliku sql.sql z głównego katalogu
3) Wgraj zawartość głównego katalogu na serwer
4) Standardowe konto administracyjne (login: admin, hasło:admin) powinno zostać zedytowane, tak aby hasło było inne niż standardowe.
(zapis hasła w md5)

Przykładowe zastosowania

Download:
Archiwum WinRAR, 624 KB

OTS Restarter

July 24, 2009 1 comment

ots_restarter
OTS Restarter to program do restartowania serwera OTS. Źródło w paczce.

Download:
OTS Restarter (Open Source)

Przykładowy skrypt

close|ServerWindowName
sleep|40
getip
setip|c:\ots\config.lua
open|c:\ots\server.exe

Funkcje:

sleep - czeka podaną liczbę sekund
(np. sleep|10),
mouseset - ustawia kursor na podane współrzędne o zapisnie x,y
(np. mouseset|100,90),
mouseclick - kliknięcie myszki, bez parametru,
terminate - zabija proces o nazwie podanej w parametrze
(np. terminate|explorer),
close - zamyka aplikacje o podanym w parametrze uchwycie (nazwa okna)
(np. close|Bez tytułu - Notatnik),
open - otwiera ścieżkę podaną w parametrze
(np. open|c:\windows\system32\calc.exe),
getip - pobiera aktualny zewnętrzny adres ip, bez parametru,
setip - ustawia pobrane ip w pliku config.lua, parametr to ścieżka do pliku config.lua
(np. setip|c:\ots\config.lua)
Categories: application Tags: ,

LastFm Launcher 1.0

June 19, 2009 1 comment

LastFm Launcher LastFM Launcher
Program pozwalający słuchać LastFM za darmo! Dzięki prostej obsłudze każdy łatwo i przyjemnie może skonfigurować proxy swojego odtwarzacza. Aplikacja posiada wbudowaną, na bieżąco uzupełnianą bazę sprawdzonych proxy, synchronizacia odbywa się przy uruchomieniu programu. Każdy użytkownik może podzielić się swoją opinią odnośnie jakości transferu używanego proxy dzięki możliwości oceniania oraz zaproponować nowy adres w zakładce Add proxy. Każdy indywidualnie może przechowywać w aplikacji własne adresy, konfigurowane w zakładce Add proxy. Status adresów sprawdzany jest przy każdym uruchomieniu programu. Miłego użytkowania!
Download: LastFM Launher

Categories: application Tags: ,

MP3 Finder 1.4

April 15, 2009 7 comments

mp3finder_14W nowej wersji dodatkowo:

  • obsługa serwisu tagoo.ru – serwis jest wielką bazą indeksującą pliki z innych serwisów, do jego zalet należy bardzo duża baza utworów (niestety mało polskich), pobierane utwory automatycznie są tagowane!, przy nazwie utworu znajduje się jego jakość z zakresu od 128 Kbitów/sek do 320 Kb/s (najwyższa jakość mp3).
  • tagi – popularne frazy wyszukiwane w porgramie
  • nowy system tagów (sortowanie, ocenianie, itp)
  • możliwość wyłączenia potwierdzenia zamykania okien (inicjatywa użytkownika)



Download for free
Windows Vista/XP
1.42 MB

Oficjalna strona programu:
http://mp3finder.n48.eu/index.html
Lista dostępnych skinów:
http://mp3finder.n48.eu/skin-mp3-finder/

Categories: application, news Tags: , ,

mTesty – mobilna wersja programu Prawo jazdy B – Testy

April 11, 2009 1 comment

mobilescreenmTesty - mobilna wersja napisana została w javie (dokładniej J2ME). Wersja dostosowana jest do urządzeń moblinych (telefony, pocket pc itp.) o wyświetlaczu 240 x 320. Niezbędna do działania jest obsługa javy przez urządzenie, na którym chcemy uruchomić aplikację.
Testowany na HTC TyTn II oraz Nokia N95.  Aplikacja standardowo udostępniona jest na licencji opensource. Materiał merytoryczny dotyczy części teoretycznej testu na prawo jazdy, kategoria B.

Download:
mTesty (jar)
mTesty (jad)

Screeny:

Categories: application, news Tags: ,
Follow

Get every new post delivered to your Inbox.