#include #include #include #include #include #Include #include #Region ### START Koda GUI section ### Form= ;---------------------------- Phần Form hiển thị Full Screen ----------------------------------------------- $Form1 = GUICreate("THI LY THUYET", 1360, 768, -1, -1, BitOR($WS_MAXIMIZEBOX, $WS_MINIMIZEBOX, $WS_SIZEBOX)) GUISetStyle($WS_POPUP, -1, $Form1) WinMove($Form1, "", 0, 0, @DesktopWidth, @DesktopHeight) GUISetStyle($WS_POPUP, -1, $Form1) ;--------------------------------Thành phần của Form như: nút, TexBox...------------------------------------ $Input1 = GUICtrlCreateInput("", 0, 8, 1281, 21) GUICtrlSetFont(-1, 14, 800, 0, "Times New Roman") $Button1 = GUICtrlCreateButton("GO", 1288, 8, 57, 25) GUICtrlSetFont(-1, 14, 800, 0, "Times New Roman") GUICtrlSetColor(-1, 0xFFFF00) $oIE = _IECreateEmbedded() GUICtrlCreateObj($oIE, 10, 50, 1360, 700) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button1 _IENavigate($oIE, GUICtrlRead($Input1)) EndSwitch WEnd