Screener.au3

[Ozzzj]

Oddaje nie potrzebny kod, możę się komuś przyda ja nie zamierzam nic na nim robić.

Po licznych błędach można poznać iż ja pisałem Jedynie wymagam dodania Mojego nicku jak ktoś zamierza to wydać dalej itd.

Program do robienia screenów, w trybie offline, oraz trybie user ftp & program ftp. Oczywiscie jak cos nie logujcie sie na FTP przez program, zrobcie to jakos przez php. 1/5 programu jest moze zrobiona. Ps: Angielski też do poprawy

#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.3.12.0
 Author:         Oskar Smoliński

 Script Function: Screen Shooter
        Screener

#ce ----------------------------------------------------------------------------

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <SkinCrafter.au3>
#include <ScreenCapture.au3>
#include <FileConstants.au3>


_loadskincrafter("GUI/GUI.dll")
Opt("TrayMenuMode", 1)
Local $m_ftp, $m_help, $m_how_use, $m_polacz_ftp, $m_ustawienia, $m_autor, $m_screener, $m_kreska
Local $login, $screener_login, $offline, $label1, $label2, $label3, $logi, $haslo_ftp, $login_ftp, $login, $login_last
Local $group, $ss_img, $open_ss, $delete_ss, $new_ss, $main1
Local $ii, $i
Local $hdll = DllOpen("user32.dll")
#Region GUI
	$gui = GUICreate("Screener", 400, 300, -1, -1)
	_initializeskincrafter($gui, "GUI/GUI.skf")
	create_main()
	GUISetState(@SW_SHOW)
#EndRegion GUI
While 1
	$nmsg = GUIGetMsg()
	Switch $nmsg
		Case $gui_event_close
			Exit
		Case $m_autor
		Case $m_ustawienia
			m_ustawienia()
		Case $m_polacz_ftp
		Case $m_how_use
			m_help()
		Case $login
		Case $screener_login
		Case $offline
			delete_main_menu()
			create_menu_no_ftp()
			create_offline()
		Case $main1
			delete_offline()
			delete_menu()
			create_main()
		Case $new_ss
			print_screen()
		Case $open_ss
			ShellExecute("img" & "\" & $i & ".jpeg")
		Case $delete_ss
			FileDelete("img" & "\" & $i & ".jpeg")
			GUICtrlDelete($ss_img)
			$ss_img = GUICtrlCreatePic("img" & "\" & $i & ".jpeg", 15, 35, 200, 180)
	EndSwitch
WEnd

Func create_main()
	$logi = GUICtrlCreateEdit("", 0, 0, 230, 299, BitOR($es_autovscroll, $es_readonly, $es_wantreturn, $ws_border))
	GUICtrlSetData(-1, StringFormat("Welcome to Screener!\r\nLogin to your FTP or use Screener FTP!\r\nWarning! All photos on FTP screener deleted \r\non one mounth."))
	$haslo_ftp = GUICtrlCreateInput("Password", 235, 50, 155, 19)
	$login_ftp = GUICtrlCreateInput("ftp.yourhostname.com", 235, 25, 155, 19)
	$label1 = GUICtrlCreateLabel("Login to your FTP", 270, 5, 88, 17)
	$label2 = GUICtrlCreateLabel("Or use Screener FTP", 260, 105, 104, 17)
	$login = GUICtrlCreateButton("Login", 235, 75, 75, 20)
	$login_last = GUICtrlCreateButton("Last", 313, 75, 75, 20)
	$screener_login = GUICtrlCreateButton("Do it!", 260, 130, 100, 100)
	$label3 = GUICtrlCreateLabel("No internet? No problem!", 250, 240, 122, 17)
	$offline = GUICtrlCreateButton("Offline", 235, 260, 155, 30)
EndFunc

Func create_menu_no_ftp()
	$m_screener = GUICtrlCreateMenu("&Screener")
	$m_autor = GUICtrlCreateMenuItem("Programmer - TWOJE IMIE ORAZ NAZWISKO", $m_screener)
	$m_kreska = GUICtrlCreateMenuItem("", $m_screener)
	$m_ustawienia = GUICtrlCreateMenuItem("Options", $m_screener)
	$m_help = GUICtrlCreateMenu("&Help")
	$m_how_use = GUICtrlCreateMenuItem("How use?", $m_help)
EndFunc

Func create_offline()
	$open_ss = GUICtrlCreateButton("Open that Screen", 5, 225, 220, 25)
	$label1 = GUICtrlCreateLabel("For print Screen use ctrl+shift+s (You can change it on Options) or click New Scr", 10, 5, 383, 17)
	$group = GUICtrlCreateGroup(" Last Screen ", 10, 20, 210, 200)
	$ss_img = GUICtrlCreatePic("img" & "\" & $i & ".jpeg", 15, 35, 200, 180)
	$delete_ss = GUICtrlCreateButton("Delete that Screen", 5, 250, 220, 25)
	$main1 = GUICtrlCreateButton("Main Menu", 230, 25, 165, 195)
	$new_ss = GUICtrlCreateButton("New Scr", 230, 225, 165, 50)
	HotKeySet("{F2}", "print_screen")
EndFunc

Func m_ustawienia()
	MsgBox(0, "", "")
EndFunc

Func m_help()
	MsgBox(0, "Help", "If you want print Screen, click New Scr or F2 (you can change it on Options)." & @CRLF & "You can change FTP and other in FTP options (Menu FTP only visible on your FTP mode)")
EndFunc

Func print_screen()
	GUISetState(@SW_MINIMIZE)
	Sleep(1000)
	_screencapture_capture("img" & "\" & @ & "y-" & @ & "m-" & @MDAY & "d-" & @HOUR & "h-" & @ & "m" & ".jpeg")
	GUISetState(@SW_RESTORE)
	GUICtrlDelete($ss_img)
	$ss_img = GUICtrlCreatePic("img" & "\" & @ & "y-" & @ & "m-" & @MDAY & "d-" & @HOUR & "h-" & @ & "m" & ".jpeg", 15, 35, 200, 180)
EndFunc

Func delete_main_menu()
	GUICtrlDelete($label1)
	GUICtrlDelete($label2)
	GUICtrlDelete($label3)
	GUICtrlDelete($logi)
	GUICtrlDelete($haslo_ftp)
	GUICtrlDelete($login_ftp)
	GUICtrlDelete($login)
	GUICtrlDelete($login_last)
	GUICtrlDelete($screener_login)
	GUICtrlDelete($offline)
EndFunc

Func delete_offline()
	GUICtrlDelete($label1)
	GUICtrlDelete($group)
	GUICtrlDelete($ss_img)
	GUICtrlDelete($open_ss)
	GUICtrlDelete($delete_ss)
	GUICtrlDelete($new_ss)
	GUICtrlDelete($main1)
EndFunc

Func delete_menu()
	GUICtrlDelete($m_autor)
	GUICtrlDelete($m_ftp)
	GUICtrlDelete($m_help)
	GUICtrlDelete($m_how_use)
	GUICtrlDelete($m_kreska)
	GUICtrlDelete($m_polacz_ftp)
	GUICtrlDelete($m_screener)
	GUICtrlDelete($m_ustawienia)
EndFunc

Link do SkinCrafter + pliku GUI .skf oraz DLL

http://www.filedropper.com/screener_1

 

Screeny