Skocz do zawartości

  • 👋 Witaj na MPCForum!

    Przeglądasz forum jako gość, co oznacza, że wiele świetnych funkcji jest jeszcze przed Tobą! 😎

    • ✅ Pełny dostęp do działów i ukrytych treści
    • ✅ Możliwość pisania i odpowiadania w tematach
    • ✅ System prywatnych wiadomości
    • ✅ Zbieranie reputacji i rozwijanie swojego profilu
    • ✅ Członkostwo w jednej z największych społeczności graczy

    👉 Dołączenie zajmie Ci mniej niż minutę – a zyskasz znacznie więcej!

    Zarejestruj się teraz

Speeder ( Szybkie Uruchamianie stron,Kilka Opcji Systemowych,Launcher)

BumBum662

Rekomendowane odpowiedzi

BumBum662 Budowniczy

BumBum662

Opublikowano
Budowniczy

BumBum662

Opublikowano

Witam !!!!

 

Napisałem program ( dokładnie 3) -.-

 

Czyli : Launcher do programu

 

Opcja1(ukryta w folderze)

 

Opcja2(Ukryta w folderze)

 

Ukryte aby nie było zmiany nazwy -.-

 

Więc:

 

Launcher:

 

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Laucher Speeder", 250, 150, 1, 1)
$Button1 = GUICtrlCreateButton("Włącz Program", 8, 8, 241, 65)
GUICtrlSetFont(-1, 18, 800, 2, "Perpetua")
$Button2 = GUICtrlCreateLabel("Launcher zrobiony aby program Lepiej działał", 2, 80, 250, 65)
GUICtrlSetFont(-1, 18, 500, 2, "Perpetua")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
       $nMsg = GUIGetMsg()
       Switch $nMsg
               Case $GUI_EVENT_CLOSE
                       Exit
               Case $Button1
                       run("Opcja1.exe")
					sleep(300)
					exit
			EndSwitch

			WEnd

 

Opcja1 (musi byc Nazwa Opcja1.exe)

 

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Skrypt by BumBum662 dla MpcForum i Autoit.xaa.pl", 1000, 350, 300, 250)
$Autoit = GUICtrlCreateButton("Autoit.xaa.pl", 8, 8, 250, 65)
GUICtrlSetFont(-1, 25, 850, 3, "Perpetua")
$Button2 = GUICtrlCreateButton("MinecraftNET", 282, 94, 241, 65)
GUICtrlSetFont(-3, 26, 800, 2, "Perpetua")
$Button3 = GUICtrlCreateButton("MpcForum", 8, 100, 250, 68)
GUICtrlSetFont(-1, 25, 850, 3, "Perpetua")
$Button4 = GUICtrlCreateButton("SfGame", 284, 181, 241, 65)
GUICtrlSetFont(-3, 20, 850, 3, "Perpetua")
$Button5 = GUICtrlCreateButton("Metin2PL", 13, 180, 241, 65)
GUICtrlSetFont(-1, 16, 1200, 5, "Papyrus")
$Button6 = GUICtrlCreateButton("Google", 284, 6, 241, 65)
GUICtrlSetFont(-5, 18, 300, 5, "Perpetua")
$Button7 = GUICtrlCreateButton("Farmerama", 13, 250, 250, 65)
GUICtrlSetFont(-1, 23, 850, 3, "Perpetua")
$Button8 = GUICtrlCreateButton("Plemiona", 284, 250, 250, 65)
GUICtrlSetFont(-6, 15, 850, 3, "Perpetua")
$Button9 = GUICtrlCreateButton("Grepolis", 525, 6, 250, 65)
GUICtrlSetFont(-5, 18, 300, 5, "Perpetua")
$Wersja = GUICtrlCreateButton("Wersja i autor", 13, 315, 100, 27)
GUICtrlSetFont(-2, 8, 850, 3, "Perpetua")
$Button10 = GUICtrlCreateButton("Chomikuj", 525, 94, 250, 65)
GUICtrlSetFont(-2, 25, 850, 3, "Perpetua")
$Button11 = GUICtrlCreateButton("Click", 125, 315, 100, 27)
GUICtrlSetFont(-2, 8, 850, 3, "Perpetua")
$Exit = GUICtrlCreateButton("Wyłącz Program", 225, 315, 100, 27)
GUICtrlSetFont(-2, 8, 850, 3, "Perpetua")
$Button12 = GUICtrlCreateButton("YouTube", 525, 181, 250, 65)
GUICtrlSetFont(-2, 25, 850, 3, "Perpetua")
$Onet = GUICtrlCreateButton("Onet", 535, 250, 250, 65)
GUICtrlSetFont(-2, 25, 850, 3, "Perpetua")
$block = GUICtrlCreateButton("Przejdz-Opcje Systemowe",785,250,200,65)
$changelog = GUICtrlCreateButton("ChaneLog", 325, 315, 100, 27)
GUICtrlSetFont(-2, 8, 850, 3, "Perpetua")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###



MsgBox(0,"Skrypt:","Skrypt by BumBum662 dla MpcForum i autoit.xaa.pl",3)
MsgBox(0,"Skrypt:","UWAGA!-Skrypt otwiera strony na Domyslną przeglądarkę!",5)
While 1
       $nMsg = GUIGetMsg()
       Switch $nMsg
               Case $GUI_EVENT_CLOSE
                       Exit
               Case $Autoit
                       ShellExecute("www.Autoit.xaa.pl")
                Case $Button2
                       ShellExecute("www.minecraft.net")
               Case $Button3
                       ShellExecute("www.mpcforum.pl")
               Case $Button4
                       ShellExecute("www.sfgame.pl")
               Case $Button5
                       ShellExecute("www.metin2.pl")
               Case $Button6
                       ShellExecute("www.google.pl")
			Case $Button7
                       ShellExecute("www.farmerama.pl")
			Case $Button8
                       ShellExecute("www.plemiona.pl")
			Case $Button9
                       ShellExecute("www.grepolis.pl")
			Case $Wersja
					MsgBox(0,"Wersja","Wersja 4.0 Autor: BumBum662")
			Case $Button10
                       ShellExecute("www.chomikuj.pl")
			Case $Button11
                       Msgbox(0,"BumBum662:","Masz Pomysł co dodać do następnej wersji? - Pisz do mnie !")
			Case $Exit
                       Exit
			Case $Button12
					ShellExecute("www.youtube.pl")
			Case $Onet
					ShellExecute("www.onet.pl")
			Case $block
					run("Opcja2.exe")
					sleep(200)
					Exit
			Case $changelog
				Msgbox(0,"ChangeLog","1.0 - Rozpoczęcie kodu z testowymi stronami 2.0 - Dodanie stron do skryptu , oraz autora , wyłączenie programu Itp.3.0 - Dodanie Nowej funkcji w programie  Opcje Systemowe  W Fazie Beta.4.0 - Poprawki w  Opcjach Systemowych  , zostało naprawione blokowanie myszki i klawiatury ,  dodany changelog ktorego czytasz, Launcher aby program lepiej działał, Przy uruchamianiu opcji systemowych , Szybkie uruchamianie stron się wyłącza , Dodane przejscie z Opcji systemowych do Szybkiego uruchamiania stron , oraz wyłączenie się opcji systemowych gdy przechodzisz do Pierwszych Opcji.")
			EndSwitch

				WEnd

 

Opcja2(także musi się nazywać Opcja2.exe)

 

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Skrypt by BumBum662 dla MpcForum i Autoit.xaa.pl - Opcje Systemowe", 600, 350, 300, 250)
$shutdown = GUICtrlCreateButton("Wyłącz Komputer", 8, 8, 250, 65)
GUICtrlSetFont(-1, 25, 500, 3, "Perpetua")
$myszkaklawiatura = GUICtrlCreateButton("Blokuj myszke i klawiature na 1min", 282, 94, 241, 65)
$Button3 = GUICtrlCreateButton("Zapiszcz Komputerem ", 8, 100, 250, 68)
$Button5 = GUICtrlCreateButton("Otwórz Notatnik", 13, 180, 241, 65)
GUICtrlSetFont(-1, 16, 1200, 5, "Papyrus")
$Button6 = GUICtrlCreateButton("Włącz Internet", 284, 6, 241, 65)
GUICtrlSetFont(-5, 18, 300, 5, "Perpetua")
$Wersja = GUICtrlCreateButton("Wersja i autor", 13, 315, 100, 27)
GUICtrlSetFont(-2, 8, 850, 3, "Perpetua")
$Button11 = GUICtrlCreateButton("Click", 125, 315, 100, 27)
GUICtrlSetFont(-2, 8, 850, 3, "Perpetua")
$Exit = GUICtrlCreateButton("Wyłącz Program", 225, 315, 100, 27)
GUICtrlSetFont(-2, 8, 850, 3, "Perpetua")
$changelog = GUICtrlCreateButton("ChaneLog", 325, 315, 100, 27)
GUICtrlSetFont(-2, 8, 850, 3, "Perpetua")
$Button2 = GUICtrlCreateLabel("Opcje Systemowe Jeszcze nie gotowe (w fazie bety)",15, 300, 250, 15)
$DoOpcji1 = GUICtrlCreateButton("Do 1 Opcji", 425, 315, 100, 27)
GUICtrlSetFont(-2, 8, 850, 3, "Perpetua")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
       $nMsg = GUIGetMsg()
       Switch $nMsg
               Case $GUI_EVENT_CLOSE
                       Exit
               Case $shutdown
                       Msgbox(0,"BumBum662:","Twój Komputer zostanie wyłączony za 5",1)
					Msgbox(0,"BumBum662:","Twój Komputer zostanie wyłączony za 4",1)
					Msgbox(0,"BumBum662:","Twój Komputer zostanie wyłączony za 3",1)
					Msgbox(0,"BumBum662:","Twój Komputer zostanie wyłączony za 2",1)
					Msgbox(0,"BumBum662:","Twój Komputer zostanie wyłączony za 1",1)
					Msgbox(0,"BumBum662:","Twój Komputer zostanie wyłączony za 0",1)
					Shutdown(0)
				Case $myszkaklawiatura
				BlockInput(1)
				sleep(60000)
				BlockInput(0)
               Case $Button3
                      beep(2000,15000)
			Case $Button5
					run("notepad.exe")
			Case $Button6
					ShellExecute("www.google.pl")
			Case $Wersja
					MsgBox(0,"Wersja","Wersja 4.0 Autor: BumBum662")
			Case $Button11
                       Msgbox(0,"BumBum662:","Masz Pomysł co dodać do następnej wersji? - Pisz do mnie !")
			Case $Exit
                       Exit
			Case $changelog
				Msgbox(0,"ChangeLog","1.0 - Rozpoczęcie kodu z testowymi stronami 2.0 - Dodanie stron do skryptu , oraz autora , wyłączenie programu Itp.3.0 - Dodanie Nowej funkcji w programie  Opcje Systemowe  W Fazie Beta.4.0 - Poprawki w  Opcjach Systemowych  , zostało naprawione blokowanie myszki i klawiatury ,  dodany changelog ktorego czytasz, Launcher aby program lepiej działał, Przy uruchamianiu opcji systemowych , Szybkie uruchamianie stron się wyłącza , Dodane przejscie z Opcji systemowych do Szybkiego uruchamiania stron , oraz wyłączenie się opcji systemowych gdy przechodzisz do Pierwszych Opcji.")
			Case $DoOpcji1
				run("Opcja1")
				sleep(200)
				Exit
			EndSwitch
				WEnd

 

All programy powinny znajdować się w 1 folderze...

 

Wiecie jak połączyć te skrypty w 1 ? -- Może być bez launchera , ale najlepiej z.

zbyt duża sygna

wojtek333314 Specjalista

wojtek333314

Opublikowano
Specjalista

wojtek333314

Opublikowano

walnij opcje 1 i opcje 2 w oddzielne funkcje a do casow zamiast run uzyj odwolania do poszczegolnych tych funkcji i bedziesz mial wszystko w jednym skrypcie, jezeli nie o to chodzilo to sorry - po robocie jestem.

Moje gry i programy:

[Poradnik] Pisanie gry 2D w AutoIT z silnikiem Irrlicht

[Program] SendToAll czyli wyslij meail do wielu osób za pomocą kliknięcia!

[Program] Polonica - usuń polskie znaki z pliku czy tekstu! Z troską o Minecraftowych administratorów i kinomaniaków

[Gra] Xanthous - czyli gra w AutoIT

[Program] Renaming - program do masowego zmieniania nazw plików, numeracji itp.

[Gra] Prosta strzelanka 3D(!) w AutoIT!

[NEW! Program] Piszmy to razem! Czyli wspólne programowanie w sieci!

Prawdziwy pech ,czyli jedna liczba która dzieliła mnie od 30000 pln :

http://img26.imagesh...ial30000pln.jpg

 

 

11967467.jpg

BumBum662 Budowniczy

BumBum662

Opublikowano
Budowniczy

BumBum662

  • Autor
Opublikowano

walnij opcje 1 i opcje 2 w oddzielne funkcje a do casow zamiast run uzyj odwolania do poszczegolnych tych funkcji i bedziesz mial wszystko w jednym skrypcie, jezeli nie o to chodzilo to sorry - po robocie jestem.

 

 

jestem amatorem -.- Nie wiem oco chodzi :D

zbyt duża sygna

Sopelek997 Weteran

Sopelek997

Opublikowano
Weteran

Sopelek997

Opublikowano

Skoro potrafiłeś zrobićtak to powinieneś umieć zrobić w jednym. Zamist oddzielnych plików daj funkcje a zamiat run daj odwołanie do nich

981841412442977292370.png
wojtek333314 Specjalista

wojtek333314

Opublikowano
Specjalista

wojtek333314

Opublikowano

Ok po kolei bo widze ze nie idzie:

 

-Kod zrodlowy Opcja1 wklej do :

 func opcja1()
;tu wklej
endfunc

 

-Analogicznie Opcja2.

-Case $button1 zmien na opcja1() itp. jak tam masz w kodzie , zamiast w case'ach run('opcja1.exe') daj case opcja1()

 

Zrozumiales cos?:P

Moje gry i programy:

[Poradnik] Pisanie gry 2D w AutoIT z silnikiem Irrlicht

[Program] SendToAll czyli wyslij meail do wielu osób za pomocą kliknięcia!

[Program] Polonica - usuń polskie znaki z pliku czy tekstu! Z troską o Minecraftowych administratorów i kinomaniaków

[Gra] Xanthous - czyli gra w AutoIT

[Program] Renaming - program do masowego zmieniania nazw plików, numeracji itp.

[Gra] Prosta strzelanka 3D(!) w AutoIT!

[NEW! Program] Piszmy to razem! Czyli wspólne programowanie w sieci!

Prawdziwy pech ,czyli jedna liczba która dzieliła mnie od 30000 pln :

http://img26.imagesh...ial30000pln.jpg

 

 

11967467.jpg

BumBum662 Budowniczy

BumBum662

Opublikowano
Budowniczy

BumBum662

  • Autor
Opublikowano

Ok po kolei bo widze ze nie idzie:

 

-Kod zrodlowy Opcja1 wklej do :

 func opcja1()
;tu wklej
endfunc

 

-Analogicznie Opcja2.

-Case $button1 zmien na opcja1() itp. jak tam masz w kodzie , zamiast w case'ach run('opcja1.exe') daj case opcja1()

 

Zrozumiales cos?:P

nie zabardzo :P

 

może napisał byś to w całym kodzie ? :P

zbyt duża sygna

Sopelek997 Weteran

Sopelek997

Opublikowano
Weteran

Sopelek997

Opublikowano

run("Opcja1") zamień na opcja1()

 

a niżej zrób funckje opcja1(), która zawiera to co jest w pliku nr 1

 

981841412442977292370.png
BumBum662 Budowniczy

BumBum662

Opublikowano
Budowniczy

BumBum662

  • Autor
Opublikowano

wszystkie te opcje masz w przegladarce + o wiele szybciej:)

 

Wiem ale program dla zabawy :P

 

No nie ma Opcji systemowych xP

zbyt duża sygna

  • 7 miesięcy temu...

Zarchiwizowany

Ten temat przebywa obecnie w archiwum. Dodawanie nowych odpowiedzi zostało zablokowane.

Tematy
×
×
  • Dodaj nową pozycję...