Advertisement
Darksider3

Untitled

Aug 12th, 2010
68
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
AutoIt 1.34 KB | None | 0 0
  1. #include <ButtonConstants.au3>
  2. #include <GUIConstantsEx.au3>
  3. #include <StaticConstants.au3>
  4. #include <WindowsConstants.au3>
  5. #include <IE.au3>
  6.  
  7. $Form1 = GUICreate("Alles könner", 330, 200, 192, 124)
  8. $Radio1 = GUICtrlCreateRadio("etwas wissen", 24, 48)
  9. GUICtrlSetState(-1,$GUI_CHECKED)
  10. $Radio2 = GUICtrlCreateRadio("etwas Downloaden", 24, 80)
  11. $Radio3 = GUICtrlCreateRadio("jemanden hacken", 24, 112)
  12. $Radio4 = GUICtrlCreateRadio("einen AutoIt Bot", 24, 144)
  13. $Group1 = GUICtrlCreateGroup("Ich will...", 8, 8, 145, 180)
  14. $wen = GUICtrlCreateLabel("Wen, Was oder Wofür:", 184, 40)
  15. $input = GUICtrlCreateInput("",184,60,137)
  16. $Start = GUICtrlCreateButton("Start", 184, 88, 137, 33, $WS_GROUP)
  17. GUISetState(@SW_SHOW)
  18.  
  19.  
  20. While 1
  21.     $nMsg = GUIGetMsg()
  22.     Switch $nMsg
  23.         Case $GUI_EVENT_CLOSE
  24.             Exit
  25.         Case $Start
  26.             if GUICtrlRead($input) = "" Then MsgBox(16,"Error","Woher soll ich jetzt Wissen, was du willst? trage auch was ein!!")
  27.             if BitAND(GUICtrlRead($Radio1),$GUI_CHECKED) Then ShellExecute("http://www.wikipedia.org")
  28.             if BitAND(GUICtrlRead($Radio2) ,$GUI_CHECKED) Then ShellExecute("http://www.gidf.de")
  29.             if BitAND(GUICtrlRead($Radio3), $GUI_CHECKED) Then ShellExecute("http://www.google.de/search?q="& StringReplace(GUICtrlRead($input)," ","+"))
  30.             Exit
  31.     EndSwitch
  32. WEnd
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement