[Source] CmdPanel [Amatorka;p]

Bum662 · 20 Grudnia 2012

1.0 oraz 2.0 BETA Miał dużo błędów, udostępniam v2.1 juz bez beta., mam nadzieje ze cos takiego sie komus przyda;P

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=cmdpanel.ico
#AutoIt3Wrapper_Compile_Both=y
#AutoIt3Wrapper_UseX64=y
#AutoIt3Wrapper_Res_Language=1045
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$cmdpanel = GUICreate("CmdPanel 2.1", 613, 431, 205, 137)
$changetime = GUICtrlCreateButton("Zmień godzinę", 8, 8, 115, 41)
GUICtrlSetFont(-1, 9, 800, 2, "Comic Sans MS")
$data = GUICtrlCreateButton("Zmień datę", 8, 64, 115, 41)
GUICtrlSetFont(-1, 11, 800, 2,"Comic Sans MS")
$zobacz = GUICtrlCreateButton("Informacje IP", 8, 120, 115, 41)
GUICtrlSetFont(-1, 9, 800, 2, "Comic Sans MS")
$autor = GUICtrlCreateLabel("By Bumek662", 170, 384, 259, 43)
GUICtrlSetFont(-1, 18, 800, 2, "Snap ITC")
GUICtrlSetColor(-1, 0x0000FF)
$Defragmentacja = GUICtrlCreateButton("Defragmentuj", 8, 176, 115, 41)
GUICtrlSetFont(-1, 10, 800, 2, "Comic Sans MS")
$gw1 = GUICtrlCreateLabel("*Tylko zmienne IP", 8, 360, 124, 24)
GUICtrlSetFont(-1, 7, 800, 2, "Segoe Script")
GUICtrlSetColor(-1, 0xFF0000)
$format = GUICtrlCreateButton("Format", 8, 232, 115, 41)
GUICtrlSetFont(-1, 12, 800, 2, "Comic Sans MS")
$etykietac = GUICtrlCreateButton("Etykieta Dysku C", 8, 288, 115, 41)
GUICtrlSetFont(-1, 7, 800, 2, "Comic Sans MS")
$pcinfo = GUICtrlCreateButton("PC Info", 144, 8, 115, 41)
GUICtrlSetFont(-1, 12, 800, 2, "Comic Sans MS")
$CMD = GUICtrlCreateButton("Czysty CMD",488, 405, 123, 25)
GUICtrlSetFont(-1, 10, 800, 2, "Comic Sans MS")
$ip = GUICtrlCreateButton("Zmień IP*", 144, 64, 115, 41)
GUICtrlSetFont(-1, 12, 800, 2, "Comic Sans MS")
$polecenie = GUICtrlCreateButton("Polecenia CMD", 488, 372, 123, 25)
GUICtrlSetFont(-1, 9, 800, 2, "Comic Sans MS")
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
	 Local $formatmsg = MsgBox(4, "Wyjscie", "Jestes pewien ze chcesz wyjsc z programu?")
If $formatmsg = 7 Then
MsgBox(0, "END", "Dziekujemy ze zostajesz w programie;D","1")
run("cmdpanel.exe")
EndIf
exit
case $autor
run("notepad.exe")
WinActive("notepad.exe")
sleep(500)
send("Program stworzony przez Bumek662{enter}Aby sie ze mna skontaktowac napisz na gg:3934134{enter}Kanał yt: youtube.com/Bumek662 {enter}Strona: Dark-Games.pl")
 Beep("120","150")
case $ip
run("cmd.exe")
WinActive("cmd.exe")
sleep(500)
send("title CmdPanel // Bumek662{enter}")
send("color 9{enter}")
send("cls{enter}")
sleep(300)
send("ipconfig /release *lok*{enter}")
sleep(700)
send("ipconfig /renew{enter}")
sleep(1500)
send("Twoje IP zostało zmienione o ile masz zmienne. Dziekujemy ze korzystasz z CmdPanel by Bumek662.")
case $zobacz
run("cmd.exe")
Winactive("cmd.exe")
sleep(500)
send("title CmdPanel // Bumek662{enter}")
send("color 9{enter}")
	 sleep(300)
send("cls{enter}")
sleep(300)
send("ipconfig /all{enter}")
sleep(500)
send("Wszystkie informacje o IP itd. zostały pokazane powyzej. Dziekujemy ze korzystasz z CmdPanel by Bumek662.")
case $changetime
$changetimeinput = InputBox("TimeSet// Bumek662","Podaj czas, jaki chcesz aby był ustawiony w twoim komputerze.","H:MIN:SEC")
run("cmd.exe")
WinActive("cmd.exe")
sleep(400)
send("title CmdPanel // Bumek662{enter}")
send("color 9{enter}")
send("cls{enter}")
send("time{enter}")
sleep(350)
send(""&$changetimeinput&"{enter}")
sleep(500)
send("Godzina została zmieniona. Dziękujemy za korzystanie z CmdPanel stworzonego przez Bumek662.")
case $Defragmentacja
$defrag = InputBox("Defragmentacja","Podaj literę dysku bez :\ itd. Samą literę.!","np. D")
run("cmd.exe")
WinActive("cmd.exe")
sleep(400)
send("title CmdPanel // Bumek662{enter}")
send("color 9{enter}")
send("cls{enter}")
send("defrag "&$defrag&":\{enter}")
sleep(500)
msgbox(0,"Defragmentacja.","Trwa defragmentowanie wybranego dysku. Nie wyłączaj konsoli! Dziękujemy za korzystanie z CmdPanel!")

case $format
	 Local $formatmsg = MsgBox(4, "Format", "Jestes pewien ze chcesz sformatować dysk?")
If $formatmsg = 7 Then
MsgBox(0, "Format", "Okej. Nie Formatujemy dysku. Program zostanie zresetowany automatycznie.","2")
run("cmdpanel.exe")
exit
EndIf
$formatinput = InputBox("Format","Podaj literę dysku który chcesz sformatować bez :\ itd. Samą literę.!","np. ""D"".")
$etykieta = InputBox("Etykieta","Podaj etykietę dysku, czyli taką nazwe.","np. Gry")
run("cmd.exe")
WinActive("cmd.exe")
sleep(400)
send("title CmdPanel // Bumek662{enter}")
sleep(300)
send("color 9{enter}")
send("cls{enter}")
send("format "&$formatinput&":{enter}")
sleep(600)
	 send(""&$etykieta)
case $etykietac
$etykietac2 = InputBox("Etykieta","Podaj etykietę dysku, czyli taką nazwe.","np. System i będzie : System(C:) .")
run("cmd.exe")
WinActive("cmd.exe")
sleep(400)
send("title CmdPanel // Bumek662{enter}")
sleep(300)
send("color 9{enter}")
send("cls{enter}")
	 send("label{enter}")
	 send(""&$etykietac2&"{enter}")
send("Etykieta Dysku ""C"" została zmieniona. Dziękujemy za korzystanie z CmdPanel stworzonego przez Bumek662. Konsola wyłączy się za 5 sekund.")
sleep(5000)
	 ProcessClose("cmd.exe")
case $pcinfo
run("cmd.exe")
WinActive("cmd.exe")
sleep(400)
send("title CmdPanel // Bumek662{enter}")
sleep(300)
send("color 9{enter}")
send("cls{enter}")
	 send("systeminfo{enter}")
sleep(1000)
send("Wszystkie informacje o PC itd. Pokazaly sie wyzej.")
case $CMD
 run("cmd.exe")
 WinActive("cmd.exe")
sleep(400)
send("title CmdPanel // Bumek662{enter}")
sleep(300)
send("color 9{enter}")
send("cls{enter}")
sleep(300)
MsgBox(0,"CMDPanel","Witaj w CMD. Napisz ""HELP"" aby uzyskać listę komend oraz ich tłumaczenie. //Bumek662",4)
case $data
$CHANGEDATA = InputBox("DataChange// Bumek662","Podaj date, jaki chcesz aby był ustawiony w twoim komputerze. Format: RR-MM-DD","RR-MM-DD")
run("cmd.exe")
WinActive("cmd.exe")
sleep(400)
send("title CmdPanel // Bumek662{enter}")
send("color 9{enter}")
send("cls{enter}")
sleep(300)
send("date{enter}")
sleep(350)
send(""&$CHANGEDATA&"{enter}")
sleep(500)
send("Data została zmieniona. Dziękujemy za korzystanie z CmdPanel stworzonego przez Bumek662.")
case $polecenie
$wprowadzenie = InputBox("Polecenie","Wprowadź polecenie do CMD","Polecenie")
run("cmd.exe")
WinActive("cmd.exe")
sleep(300)
send("title CmdPanel // Bumek662{enter}")
send("color 9{enter}")
send("cls{enter}")
send(""&$wprowadzenie&"{enter}")
EndSwitch
WEnd

krurpg · 23 Grudnia 2012

przydatne

leci +

23 Grudnia 2012

BUG!

Run("cmdpanel.exe")

Run(@ScriptFullPath)

BUG!

Te cmd.exe zostają!!!

Dodaj po każdej akcji:

WinKill("CmdPanel // Bumek662")

Bum662 · 30 Grudnia 2012

Wiem ze zostana.

Phoenix_PL · 3 Stycznia 2013

z Regulaminu Lokalnego Działu AutoIT:

14. Kod umieszczamy w znacznikach (CODE), a jeśli ma więcej niż 30 linijek, to dodatkowo w spoilerze (SPOILER).

Nie zamulaj :/

wefhy · 10 Stycznia 2013

run("cmd.exe")
 WinActive("cmd.exe")

To się powtarza kilka razy. WinActive służy do sprawdzania, czy okno jest aktywne, a tu nie ma żadnego if'a ani zmiennej. WinActivate służy do uaktywniania okna.

Bum662 · 14 Stycznia 2013

Wiem do czego służy i celowo zrobione

jackraymund · 14 Stycznia 2013

spróbuj zrobić to wszystko w tle używając funkcji run z @comspec

wefhy · 14 Stycznia 2013

Wiem do czego służy i celowo zrobione

? Ale taka linia WinActive("notepad.exe") nic nie robi Przecież funkcja nie zwraca wartości do żadnej zmiennej ani warunku Bez tej linii by działało tak samo

Phoenix_PL · 14 Stycznia 2013

Popraw troszkę.

Przecież nie chodzi o to żeby było sryliard okienek, dla lansu, tylko żeby to było jakoś przejrzyście.

linoskoczek · 14 Stycznia 2013

Co Ty gadasz, żeby pulpit wyglądał odpowiednio nerdowsko potrzeba sporo okienek konsoli

Bum662 · 14 Stycznia 2013

? Ale taka linia WinActive("notepad.exe") nic nie robi Przecież funkcja nie zwraca wartości do żadnej zmiennej ani warunku Bez tej linii by działało tak samo

Faktycznie nic nie robi, zrobiona tylko dlatego poniewaz cos grzebalem w kodzie a im chodzilo o cmd w winactive, tamto z notepad faktycznie nie potrzebna:P

wefhy · 14 Stycznia 2013

Przekopiowałem losową z tych co nic nie robią. Ta też nic nie robi: WinActive("cmd.exe") Nie ma gdzie zwrócić stanu okna

Bum662 · 15 Stycznia 2013

@UP

Bez tego mi nie dzialalo przynajmniej, gdyz wpisywalo jzu komendy a cmd nie byl aktywny tlko np scite ..

15 Stycznia 2013

@UP

Bez tego mi nie dzialalo przynajmniej, gdyz wpisywalo jzu komendy a cmd nie byl aktywny tlko np scite ..

WinActive tylko SPRAWDZA, a nie ustala, użyj WinActivate.

To ci próbujemy wytłumaczyć.

Bum662 · 16 Stycznia 2013

@UP

aaaaaa

Wazne jest ze dziala:P

paronoszok · 16 Stycznia 2013

Działa prawidłowo, ale w niektórych miejscach mogłeś użyć inne zastosowania dla bardziej intuicyjnej obsługi. ;-) Trzymaj like'a.

Bum662 · 16 Stycznia 2013

@UP

Moglem, lecz robilem to na szybko a nie programowalem kilka mies. w autoit o ile nie lat.

Nie mialem internetu wiec z tuta nie skorzystalem

Patrzylem na te "tuty" ktore sa w au3

16 Stycznia 2013

Nie rozumiem PO CO są te cmd.exe.

_RunDOS jest lepszy.

Bum662 · 24 Stycznia 2013

a co za roznica?

25 Stycznia 2013

@UP

aaaaaa

Wazne jest ze dziala:P

Szlag mnie trafia.

BEZ TEGO BY TEŻ DZIAŁAŁO!!!

TO NIC NIE ROBI!!!

I CI OD KILKUNASTU POSTÓW PRÓBUJEMY WYTŁUMACZYĆ!!!

Wiem ze zostana.

To po co zawalasz pulpit miliardem okienek?

a co za roznica?

Taka że:

Szybciej
Działa nawet jak okno nie jest aktywne.
Niewidoczne.

Bum662 · 26 Stycznia 2013

Szlag mnie trafia.

BEZ TEGO BY TEŻ DZIAŁAŁO!!!

TO NIC NIE ROBI!!!

I CI OD KILKUNASTU POSTÓW PRÓBUJEMY WYTŁUMACZYĆ!!!

To po co zawalasz pulpit miliardem okienek?

Taka że:

Szybciej

Działa nawet jak okno nie jest aktywne.

Niewidoczne.

WinActive musi być.

KalneR · 26 Stycznia 2013

Dlaczego jak włącze CMD czy cos innego póżniej klikne krzyżyk to w nieskończoność wyskakują okienka z CMD ??

Bum662 · 9 Lutego 2013

Dlaczego jak włącze CMD czy cos innego póżniej klikne krzyżyk to w nieskończoność wyskakują okienka z CMD ??

Nie mam pojecia

Bum662 · 25 Lutego 2013

下り安い激安カラフル作り出す全て自然な個性良いもの合うのよく販売する激安人気新品合理的な価格 ugg 通販簡潔なデザイン頭打ち安売りをするショルダーバッグ最安値価格ジャンパー 2012 人気新作大変きれい豪華児童 ugg アウトレット効果的な店舗ウェディングファーも豪華でいいモコモコ品数豊富な古典的な温かいパンティー人気新作趣味先端に走る超激安新デザイン使い易さ絶賛さ

ugg 価格 mbt レディースてんけんショートケーキもうしかねるむくむあるかなしぶちょうほうコーヒーショップあまなっとうはつものじゃくてきかきつばたしたみしっけ ugg 通販ugg ムートンブーツさいそくおひつじざこころぎたないちゃのゆひぞくかくれみちじゅうどダブルキャストげんえいしゅうじゃくほうのうチタンじしんおいだしきゅうかまんきつけっきょ

ref i ku*wa.

Zaloguj się

👋 Witaj na MPCForum!

[Source] CmdPanel [Amatorka;p]

Rekomendowane odpowiedzi

Gość

Gość

Gość

Gość

Gość

Gość

Gość

Gość

Zarchiwizowany