Guest User

Untitled

a guest
Apr 10th, 2018
89
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
AutoIt 0.89 KB | None | 0 0
  1. Opt("GUIOnEventMode", 1)
  2.  
  3. #include <Forms\webbrowser.isf>
  4. #include <GUIConstantsEx.au3>
  5. #include <WindowsConstants.au3>
  6. #include <SliderConstants.au3>
  7. #include <GuiSlider.au3>
  8. #include <DateTimeConstants.au3>
  9. #include <Forms\webbrowseroptionen.isf>
  10.  
  11. Local $GUI_EVENT_CLOSE, $nMsg
  12. Global $ver
  13.  
  14. $ver = "0.1"
  15.  
  16. $webbrowser = GUICreate("Webrowser", 700, 500, -1, -1, -1, -1)
  17. GUISetBkColor(0xEEEEEE, $webbrowser)
  18.  
  19. $progress = GUICtrlCreateProgress(3, 473, 694, 23, -1, -1)
  20. $url = GUICtrlCreateInput("Bitte geben sie eine URL ein", 246, 4, 450, 20, -1, 512)
  21. GUICtrlSetColor(-1, "0xC0C0C0")
  22. $options = GUICtrlCreateButton("Einstellungen", 4, 3, 107, 23, -1, -1)
  23. $refresh = GUICtrlCreateButton("Aktualisieren", 120, 3, 107, 23, -1, -1)
  24. GUISetState(@SW_SHOW, $webbrowser)
  25.  
  26. While 1
  27.     $nMsg = GUIGetMsg()
  28.     Switch $nMsg
  29.         Case $GUI_EVENT_CLOSE
  30.             Exit
  31.         Case $options
  32.            
  33.     EndSwitch
  34. WEnd
Add Comment
Please, Sign In to add comment