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

[Src] OpenFiles - szybkie pole dostępu

Bum662

Rekomendowane odpowiedzi

Bum662 Budowniczy

Bum662

Opublikowano
Budowniczy

Bum662

Opublikowano

Wybierasz nazwe przycisku, i jego odnosnik.

Moze to byc gra, strona internetowa itd.

Kto zna juz Au3 wszystko ogarnie.

Robi sie to w pliku .ini :)

kod:

#RequireAdmin
$1nazwa = IniRead("nazwy.ini","Konfiguracja nazw przycisków","Nazwa1","Brak1")
$2nazwa = IniRead("nazwy.ini","Konfiguracja nazw przycisków","Nazwa2","Brak2")
$3nazwa = IniRead("nazwy.ini","Konfiguracja nazw przycisków","Nazwa3","Brak3")
$4nazwa = IniRead("nazwy.ini","Konfiguracja nazw przycisków","Nazwa4","Brak4")
$5nazwa = IniRead("nazwy.ini","Konfiguracja nazw przycisków","Nazwa5","Brak5")
$6nazwa = IniRead("nazwy.ini","Konfiguracja nazw przycisków","Nazwa6","Brak6")
IniWrite("nazwy.ini","Konfiguracja nazw przycisków","Nazwa1",$1nazwa)
IniWrite("nazwy.ini","Konfiguracja nazw przycisków","Nazwa2",$2nazwa)
IniWrite("nazwy.ini","Konfiguracja nazw przycisków","Nazwa3",$3nazwa)
IniWrite("nazwy.ini","Konfiguracja nazw przycisków","Nazwa4",$4nazwa)
IniWrite("nazwy.ini","Konfiguracja nazw przycisków","Nazwa5",$5nazwa)
IniWrite("nazwy.ini","Konfiguracja nazw przycisków","Nazwa6",$6nazwa)
$1sciezka = IniRead("ścieżki.ini","ścieżki przycisków","Sciezka1","c:\")
$2sciezka = IniRead("ścieżki.ini","ścieżki przycisków","Sciezka2","c:\")
$3sciezka = IniRead("ścieżki.ini","ścieżki przycisków","Sciezka3","c:\")
$4sciezka = IniRead("ścieżki.ini","ścieżki przycisków","Sciezka4","c:\")
$5sciezka = IniRead("ścieżki.ini","ścieżki przycisków","Sciezka5","c:\")
$6sciezka = IniRead("ścieżki.ini","ścieżki przycisków","Sciezka6","c:\")
IniWrite("ścieżki.ini","ścieżki przycisków","Sciezka1",$1sciezka)
IniWrite("ścieżki.ini","ścieżki przycisków","Sciezka2",$2sciezka)
IniWrite("ścieżki.ini","ścieżki przycisków","Sciezka3",$3sciezka)
IniWrite("ścieżki.ini","ścieżki przycisków","Sciezka4",$4sciezka)
IniWrite("ścieżki.ini","ścieżki przycisków","Sciezka5",$5sciezka)
IniWrite("ścieżki.ini","ścieżki przycisków","Sciezka6",$6sciezka)
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("Open File by Bumek662 dla MpcForum", 579, 190, 327, 323)
GUISetBkColor(0xFFFFFF)
$Stan = GUICtrlCreateProgress(8, 128, 561, 49)
$1 = GUICtrlCreateButton($1nazwa, 8, 8, 177, 49)
$2 = GUICtrlCreateButton($2nazwa, 200, 8, 177, 49)
$3 = GUICtrlCreateButton($3nazwa, 392, 8, 177, 49)
$4 = GUICtrlCreateButton($4nazwa, 8, 64, 177, 49)
$5 = GUICtrlCreateButton($5nazwa, 200, 64, 177, 49)
$6 = GUICtrlCreateButton($6nazwa, 392, 64, 179, 49)
GUISetState(@SW_SHOW)
While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		case $1
			GUICtrlSetData($stan,30)
			GUICtrlSetData($stan,60)
			$1shell = ShellExecute($1sciezka)
			GUICtrlSetData($stan,100)
			sleep(900)
			GUICtrlSetData($stan,0)
		case $2
			GUICtrlSetData($stan,30)
			GUICtrlSetData($stan,60)
			$1shell = ShellExecute($2sciezka)
			GUICtrlSetData($stan,100)
			sleep(900)
			GUICtrlSetData($stan,0)
		case $3
			GUICtrlSetData($stan,30)
			GUICtrlSetData($stan,60)
			$1shell = ShellExecute($3sciezka)
			GUICtrlSetData($stan,100)
			sleep(900)
			GUICtrlSetData($stan,0)
		case $4
			GUICtrlSetData($stan,30)
			GUICtrlSetData($stan,60)
			$1shell = ShellExecute($4sciezka)
			GUICtrlSetData($stan,100)
			sleep(900)
			GUICtrlSetData($stan,0)
		case $5
			GUICtrlSetData($stan,30)
			GUICtrlSetData($stan,60)
			$1shell = ShellExecute($5sciezka)
			GUICtrlSetData($stan,100)
			sleep(900)
			GUICtrlSetData($stan,0)
		case $6
			GUICtrlSetData($stan,30)
			GUICtrlSetData($stan,60)
			$1shell = ShellExecute($6sciezka)
			GUICtrlSetData($stan,100)
			sleep(900)
			GUICtrlSetData($stan,0)
	EndSwitch
WEnd

 

Moje tutki:

"Bad Video Card Drivers" - Błąd w mc? Zobacz do mnie aby dowiedzieć się jak to naprawić!

Chcesz wyciągnąć maksymalną ilość fps w minecraft? Kliknij

tu!

Heniut Weteran

Heniut

Opublikowano
Weteran

Heniut

Opublikowano

Niepotrzebny syf, źle zoptymalizowane, narzucone nazwy itp..

/ GA-970A-UD3 / FX-6300 / Sapphire Xtreme 5830 / OCZ ZS 550W / Brutus M23 /

| MPC Coders Team | MPC Gold Member | C#, C++, PHP, (N)ASM, AutoIT, Python, Java |

Gość

Gość

Opublikowano

Gość

Opublikowano

Szajs.

 

 

 

$1shell = ShellExecute($1sciezka)

ShellExecute($1scieżka)

Po co ci ta zmienna?


Wywal wogóle ten ProgressBar, on nic nie robi.

        case $1
            ShellExecute($1sciezka)
        case $2
            ShellExecute($2sciezka)
        case $3
            ShellExecute($3sciezka)
        case $4
            ShellExecute($4sciezka)
        case $5
            ShellExecute($5sciezka)
        case $6
            ShellExecute($6sciezka)

 

 

#RequireAdmin

Po co to wogóle jest?

 

I po co odczytujesz i zapisujesz to samo?

 

 

$1nazwa = IniRead("nazwy.ini","Konfiguracja nazw przycisków","Nazwa1","Brak1")
$2nazwa = IniRead("nazwy.ini","Konfiguracja nazw przycisków","Nazwa2","Brak2")
$3nazwa = IniRead("nazwy.ini","Konfiguracja nazw przycisków","Nazwa3","Brak3")
$4nazwa = IniRead("nazwy.ini","Konfiguracja nazw przycisków","Nazwa4","Brak4")
$5nazwa = IniRead("nazwy.ini","Konfiguracja nazw przycisków","Nazwa5","Brak5")
$6nazwa = IniRead("nazwy.ini","Konfiguracja nazw przycisków","Nazwa6","Brak6")
IniWrite("nazwy.ini","Konfiguracja nazw przycisków","Nazwa1",$1nazwa)
IniWrite("nazwy.ini","Konfiguracja nazw przycisków","Nazwa2",$2nazwa)
IniWrite("nazwy.ini","Konfiguracja nazw przycisków","Nazwa3",$3nazwa)
IniWrite("nazwy.ini","Konfiguracja nazw przycisków","Nazwa4",$4nazwa)
IniWrite("nazwy.ini","Konfiguracja nazw przycisków","Nazwa5",$5nazwa)
IniWrite("nazwy.ini","Konfiguracja nazw przycisków","Nazwa6",$6nazwa)
$1sciezka = IniRead("ścieżki.ini","ścieżki przycisków","Sciezka1","c:\")
$2sciezka = IniRead("ścieżki.ini","ścieżki przycisków","Sciezka2","c:\")
$3sciezka = IniRead("ścieżki.ini","ścieżki przycisków","Sciezka3","c:\")
$4sciezka = IniRead("ścieżki.ini","ścieżki przycisków","Sciezka4","c:\")
$5sciezka = IniRead("ścieżki.ini","ścieżki przycisków","Sciezka5","c:\")
$6sciezka = IniRead("ścieżki.ini","ścieżki przycisków","Sciezka6","c:\")
IniWrite("ścieżki.ini","ścieżki przycisków","Sciezka1",$1sciezka)
IniWrite("ścieżki.ini","ścieżki przycisków","Sciezka2",$2sciezka)
IniWrite("ścieżki.ini","ścieżki przycisków","Sciezka3",$3sciezka)
IniWrite("ścieżki.ini","ścieżki przycisków","Sciezka4",$4sciezka)
IniWrite("ścieżki.ini","ścieżki przycisków","Sciezka5",$5sciezka)
IniWrite("ścieżki.ini","ścieżki przycisków","Sciezka6",$6sciezka)

Global $nazwa[6], $sciezka[6]
For $i = 0 To 5 Step +1
$nazwa[$i] = IniRead("nazwy.ini","Konfiguracja nazw przycisków","Nazwa"&($i+1),"Brak"&($i+1))
Next
For $i = 0 To 5 Step +1
$sciezka[$i] = IniRead("ścieżki.ini","ścieżki przycisków","Sciezka"&($i+1),"c:\")
Next

 

 

#RequireAdmin
$1nazwa = IniRead("nazwy.ini","Konfiguracja nazw przycisków","Nazwa1","Brak1")
$2nazwa = IniRead("nazwy.ini","Konfiguracja nazw przycisków","Nazwa2","Brak2")
$3nazwa = IniRead("nazwy.ini","Konfiguracja nazw przycisków","Nazwa3","Brak3")
$4nazwa = IniRead("nazwy.ini","Konfiguracja nazw przycisków","Nazwa4","Brak4")
$5nazwa = IniRead("nazwy.ini","Konfiguracja nazw przycisków","Nazwa5","Brak5")
$6nazwa = IniRead("nazwy.ini","Konfiguracja nazw przycisków","Nazwa6","Brak6")
IniWrite("nazwy.ini","Konfiguracja nazw przycisków","Nazwa1",$1nazwa)
IniWrite("nazwy.ini","Konfiguracja nazw przycisków","Nazwa2",$2nazwa)
IniWrite("nazwy.ini","Konfiguracja nazw przycisków","Nazwa3",$3nazwa)
IniWrite("nazwy.ini","Konfiguracja nazw przycisków","Nazwa4",$4nazwa)
IniWrite("nazwy.ini","Konfiguracja nazw przycisków","Nazwa5",$5nazwa)
IniWrite("nazwy.ini","Konfiguracja nazw przycisków","Nazwa6",$6nazwa)
$1sciezka = IniRead("ścieżki.ini","ścieżki przycisków","Sciezka1","c:\")
$2sciezka = IniRead("ścieżki.ini","ścieżki przycisków","Sciezka2","c:\")
$3sciezka = IniRead("ścieżki.ini","ścieżki przycisków","Sciezka3","c:\")
$4sciezka = IniRead("ścieżki.ini","ścieżki przycisków","Sciezka4","c:\")
$5sciezka = IniRead("ścieżki.ini","ścieżki przycisków","Sciezka5","c:\")
$6sciezka = IniRead("ścieżki.ini","ścieżki przycisków","Sciezka6","c:\")
IniWrite("ścieżki.ini","ścieżki przycisków","Sciezka1",$1sciezka)
IniWrite("ścieżki.ini","ścieżki przycisków","Sciezka2",$2sciezka)
IniWrite("ścieżki.ini","ścieżki przycisków","Sciezka3",$3sciezka)
IniWrite("ścieżki.ini","ścieżki przycisków","Sciezka4",$4sciezka)
IniWrite("ścieżki.ini","ścieżki przycisków","Sciezka5",$5sciezka)
IniWrite("ścieżki.ini","ścieżki przycisków","Sciezka6",$6sciezka)
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("Open File by Bumek662 dla MpcForum", 579, 190, 327, 323)
GUISetBkColor(0xFFFFFF)
$Stan = GUICtrlCreateProgress(8, 128, 561, 49)
$1 = GUICtrlCreateButton($1nazwa, 8, 8, 177, 49)
$2 = GUICtrlCreateButton($2nazwa, 200, 8, 177, 49)
$3 = GUICtrlCreateButton($3nazwa, 392, 8, 177, 49)
$4 = GUICtrlCreateButton($4nazwa, 8, 64, 177, 49)
$5 = GUICtrlCreateButton($5nazwa, 200, 64, 177, 49)
$6 = GUICtrlCreateButton($6nazwa, 392, 64, 179, 49)
GUISetState(@SW_SHOW)
While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		case $1
			GUICtrlSetData($stan,30)
			GUICtrlSetData($stan,60)
			$1shell = ShellExecute($1sciezka)
			GUICtrlSetData($stan,100)
			sleep(900)
			GUICtrlSetData($stan,0)
		case $2
			GUICtrlSetData($stan,30)
			GUICtrlSetData($stan,60)
			$1shell = ShellExecute($2sciezka)
			GUICtrlSetData($stan,100)
			sleep(900)
			GUICtrlSetData($stan,0)
		case $3
			GUICtrlSetData($stan,30)
			GUICtrlSetData($stan,60)
			$1shell = ShellExecute($3sciezka)
			GUICtrlSetData($stan,100)
			sleep(900)
			GUICtrlSetData($stan,0)
		case $4
			GUICtrlSetData($stan,30)
			GUICtrlSetData($stan,60)
			$1shell = ShellExecute($4sciezka)
			GUICtrlSetData($stan,100)
			sleep(900)
			GUICtrlSetData($stan,0)
		case $5
			GUICtrlSetData($stan,30)
			GUICtrlSetData($stan,60)
			$1shell = ShellExecute($5sciezka)
			GUICtrlSetData($stan,100)
			sleep(900)
			GUICtrlSetData($stan,0)
		case $6
			GUICtrlSetData($stan,30)
			GUICtrlSetData($stan,60)
			$1shell = ShellExecute($6sciezka)
			GUICtrlSetData($stan,100)
			sleep(900)
			GUICtrlSetData($stan,0)
	EndSwitch
WEnd

Global $nazwa[6], $sciezka[6]
For $i = 0 To 5 Step +1
$nazwa[$i] = IniRead("nazwy.ini","Konfiguracja nazw przycisków","Nazwa"&($i+1),"Brak"&($i+1))
Next
For $i = 0 To 5 Step +1
$sciezka[$i] = IniRead("ścieżki.ini","ścieżki przycisków","Sciezka"&($i+1),"c:\")
Next
$Form1 = GUICreate("Open File by Bumek662 dla MpcForum", 579, 190, 327, 323)
$1 = GUICtrlCreateButton($nazwa[0], 8, 8, 177, 49)
$2 = GUICtrlCreateButton($nazwa[1], 200, 8, 177, 49)
$3 = GUICtrlCreateButton($nazwa[2], 392, 8, 177, 49)
$4 = GUICtrlCreateButton($nazwa[3], 8, 64, 177, 49)
$5 = GUICtrlCreateButton($nazwa[4], 200, 64, 177, 49)
$6 = GUICtrlCreateButton($nazwa[5], 392, 64, 179, 49)
GUISetState(@SW_SHOW)
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case -3
            Exit
        case $1
            ShellExecute($sciezka[0])
        case $2
            ShellExecute($sciezka[1])
        case $3
            ShellExecute($sciezka[2])
        case $4
            ShellExecute($sciezka[3])
        case $5
            ShellExecute($sciezka[4])
        case $6
            ShellExecute($sciezka[5])
    EndSwitch
WEnd
Bum662 Budowniczy

Bum662

Opublikowano
Budowniczy

Bum662

  • Autor
Opublikowano

Przykro mi, jestem amatorem..

thx za hejta.. ;p

Moje tutki:

"Bad Video Card Drivers" - Błąd w mc? Zobacz do mnie aby dowiedzieć się jak to naprawić!

Chcesz wyciągnąć maksymalną ilość fps w minecraft? Kliknij

tu!

  • 2 tygodnie później...
Gość

Gość

Opublikowano

Gość

Opublikowano

No i wogóle po co jest ten program? Przecież od tego są skróty na Pulpicie...

NubrereeMuh Nowicjusz

NubrereeMuh

Opublikowano
Nowicjusz

NubrereeMuh

Opublikowano

ピッタリ 奇蹟 快適で カラフル 本物の 専売店舗 服 焦点 ファッション 満点の商品 良質 グッチ キーケース 寛大な 最新アイテム のギフト 高級感はある 最人気 貴族の品質 半袖 かかとの高い靴 防寒 豪華な 服 新品 超人気新品 購入 割引

いがた ばんけん れきねん しんげん きぜん ふくそうさい よびもの へいじつ しょうめい しゅっけ ちょうおんき むっつりや みなおす グッチ セール ふんしゅつ どうよく ピアノ プレーヤー ほくよう べっけい どすう なんようび ろうどうかいきゅう からつゆ そうにゅう ひょこひょこ もくしょう しゅつりょく レールウェー エンジン いえがまえ モーニング ほくじょう

Bum662 Budowniczy

Bum662

Opublikowano
Budowniczy

Bum662

  • Autor
Opublikowano

zeby nie zasmiecac pulpitu.

Moje tutki:

"Bad Video Card Drivers" - Błąd w mc? Zobacz do mnie aby dowiedzieć się jak to naprawić!

Chcesz wyciągnąć maksymalną ilość fps w minecraft? Kliknij

tu!

Zarchiwizowany

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

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