Szybkie uruchamianie stron

[BumBum662]

Ten program otworzy stronę jak naciśniesz button.

 

(otwiera w domyślnej przeglądarce)

 

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Skrypt by BumBum662 dla MPCFORUM", 700, 350, 250, 250)
$Button1 = GUICtrlCreateButton("Chomikuj", 8, 8, 241, 65)
GUICtrlSetFont(-1, 18, 800, 2, "Perpetua")
$Button2 = GUICtrlCreateButton("Minecraft", 282, 94, 241, 65)
GUICtrlSetFont(-3, 18, 800, 2, "Perpetua")
$Button3 = GUICtrlCreateButton("MpcForum", 8, 100, 250, 68)
GUICtrlSetFont(-1, 25, 850, 3, "Perpetua")
$Button4 = GUICtrlCreateButton("SfGame", 284, 181, 241, 65)
$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(-5, 15, 290, 3, "Perpetua")
$Button8 = GUICtrlCreateButton("Plemiona", 284, 250, 250, 25)
GUICtrlSetFont(-5, 18, 300, 5, "Perpetua")
$Button9 = GUICtrlCreateButton("grepolis", 284, 280, 250, 27)
GUICtrlSetFont(-5, 18, 300, 5, "Perpetua")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

msgbox(0,"Szybkie Uruchamianie stron","Plik by bumbum662")
While 1
       $nMsg = GUIGetMsg()
       Switch $nMsg
               Case $GUI_EVENT_CLOSE
                       Exit
               Case $Button1
                       ShellExecute("www.chomikuj.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")

       EndSwitch
WEnd

 

Zbieram +

Edytowane 8 Sierpnia 2011 przez BumBum662

[BumBum662]

Zapraszam do komentowania 3>

[Kuoni:)]

hah, za co te +? to nie twój skrypt link do oryginału ; http://www.mpcforum.pl/topic/404057-porno-skrypt/ Zawiadomienie..