[Program] Napisier

[C.J]

Witam,

Prezentuję Wam pracę na konkurs, z której jestem bardzo dumny, że otrzymała tak dużo punktów

 

Program służy do wyszukiwania napisów do filmów, które przechowywane są na takim serwisie, że nigdy nie wygasną ;d

 

 

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <File.au3>
#include <Date.au3>

$GUI = GUICreate("Napisier 0.1", 290, 388, 322, 168,0,0)
$lista = GUICtrlCreateList("", 0, 8, 137, 253,BitOR($ES_AUTOVSCROLL,$LBS_SORT,$ES_AUTOHSCROLL))
$grupa_1 = GUICtrlCreateGroup("Menu", 144, 0, 137, 265, BitOR($GUI_SS_DEFAULT_GROUP,$BS_CENTER))
$pobieranie = GUICtrlCreateButton("Pobierz Napisy", 152, 16, 123, 25)
$wyjscie = GUICtrlCreateButton("Wyjście", 152, 208, 123, 25)
$autor = GUICtrlCreateLabel("Stworzony przez MrDeska", 152, 240, 127, 17)
$instrukcja = GUICtrlCreateButton("Instrukcja", 152, 100, 123, 25)
$ladowanie_listy = GUICtrlCreateButton("Załaduj Listę", 152, 144, 123, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$grupa_aktualizacje = GUICtrlCreateGroup("Aktualizacje", 0, 272, 281, 81, BitOR($GUI_SS_DEFAULT_GROUP,$BS_CENTER))
$aktualizacja_napisow = GUICtrlCreateButton("Aktualizuj spis napisów", 8, 288, 123, 25)
$aktualizacja_programu = GUICtrlCreateButton("Aktualizuj program", 8, 320, 123, 25)
$data_napisy = GUICtrlCreateLabel("brak informacji", 160, 296, 58, 17)
$data_program = GUICtrlCreateLabel("brak informacji", 160, 328, 58, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
sprawdzanie()
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
	Case $wyjscie
		Exit
	Case $ladowanie_listy
		ladowanie()
	Case $aktualizacja_napisow
		aktulizacja_spis()
	Case $aktualizacja_programu
		aktulizacja_program()
	Case $pobieranie
		pobierz()
	Case $instrukcja
MsgBox(0,"Instrukcja","Napisier - Program, dzięki któremu można pobierać polskie napisy do filmów." & @CRLF & @CRLF & "Jak ściągać ?" & @CRLF & "1.Uruchamiamy program." & @CRLF & "2.Aktualizujemy listę napisów." & @CRLF & "3.Ładujemy listę napisów." & @CRLF & "4.Wybieramy z listy interesujący nas tytuł." & @CRLF & "5.Klikamy Pobierz Napisy." & @CRLF & "6i Następnie zamieniamy nazwe filmu i pliku .txt na taką samą, i cieszymy się spolszczonym filmem !" & @CRLF & @CRLF & "Program napisany przez MrDeska z www.mpcforum.pl")

EndSwitch
WEnd


Func pobierz()
$nazwa = GUICtrlRead($lista)
InetGet("http://dl.dropbox.com/u/56017811/Napisy/" & $nazwa & ".txt",$nazwa & ".txt")
EndFunc






Func ladowanie()

If not FileExists("Nazwy.txt") Then
	MsgBox(0,"Błąd","Błąd")
	EndIf

$ilosc = _FileCountLines("Nazwy.txt")
	For $i=1 To $ilosc Step +1
$line = FileReadLine("Nazwy.txt",$i)
GUICtrlSetData($lista, $line)
Next
EndFunc

Func aktulizacja_spis()
InetGet("http://dl.dropbox.com/u/56017811/Lista/Nazwy.txt","Nazwy.txt")
If @error Then
Msgbox(0,"Błąd","Błąd")
Else
$data = _DateAdd('d',0,_NowCalcDate())
GUICtrlSetData($data_napisy,$data)
IniWrite("Ustawienia.ini","daty","data_napisy",$data)
EndIf
EndFunc

Func sprawdzanie()
If not FileExists("Nazwy.txt") Then
	IniWrite("Ustawienia.ini","daty","data_napisy","brak pliku")
	EndIf

If not FileExists("Ustawienia.ini") Then
	MsgBox(0,"Błąd","Błąd")
Else
	$zmienna_1 = IniRead("Ustawienia.ini","daty","data_napisy","")
	$zmienna_2 = IniRead("Ustawienia.ini","daty","data_program","")
	GUICtrlSetData($data_napisy,$zmienna_1)
	GUICtrlSetData($data_program,$zmienna_2)
	EndIf
EndFunc



Func aktulizacja_program()
	InetGet("http://dl.dropbox.com/u/56017811/Wersja/Napisier_Nowy.au3","Napisier_Nowy.au3")
	If @error Then
Msgbox(0,"Błąd","Błąd")
Else
$data = _DateAdd('d',0,_NowCalcDate())
GUICtrlSetData($data_program,$data)
IniWrite("Ustawienia.ini","daty","data_program",$data)
EndIf
	EndFunc

 

 

@Kod udostępniam, ale jednocześnie proszę o nie kopiowanie go na własną korzyść .Tylko do użytku własnego.

 

Jestem w fazie tworzenia wersji 0.2

[wojtek333314]

Nieźle

Mi się bardzo podoba - bardzo przydatny program