; PureBasic Visual Designer v3.82 build 1357


;- Window Constants
;
Enumeration
  #Window_0
EndEnumeration

;- Gadget Constants
;
Enumeration
  #Text_0
  #String_0
  #Text_1
  #Editor_0
  #Text_2
  #String_1
  #Button_1
EndEnumeration

;- Fonts
;
Global FontID1
FontID1 = LoadFont(1, "Arial Black", 10)

; BalloonTip Constants
#TOOLTIP_NO_ICON      = 0
#TOOLTIP_INFO_ICON    = 1
#TOOLTIP_WARNING_ICON = 2
#TOOLTIP_ERROR_ICON   = 3

Procedure BalloonTip(WindowID, Gadget, Text$ , Title$, Icon)
  
  ToolTip=CreateWindowEx_(0,"ToolTips_Class32","",#WS_POPUP | #TTS_NOPREFIX | #TTS_BALLOON,0,0,0,0,WindowID(),0,GetModuleHandle_(0),0)
  SendMessage_(ToolTip,#TTM_SETTIPTEXTCOLOR,GetSysColor_(#COLOR_INFOTEXT),0)
  SendMessage_(ToolTip,#TTM_SETTIPBKCOLOR,GetSysColor_(#COLOR_INFOBK),0)
  SendMessage_(ToolTip,#TTM_SETMAXTIPWIDTH,0,180)
  Balloon.TOOLINFO\cbSize=SizeOf(TOOLINFO)
  Balloon\uFlags=#TTF_IDISHWND | #TTF_SUBCLASS
  Balloon\hWnd=GadgetID(Gadget)
  Balloon\uId=GadgetID(Gadget)
  Balloon\lpszText=@Text$
  SendMessage_(ToolTip, #TTM_ADDTOOL, 0, Balloon)
  If Title$ > ""
    SendMessage_(ToolTip, #TTM_SETTITLE, Icon, @Title$)
  EndIf
  
EndProcedure

Procedure Open_Window_0()
  If OpenWindow(#Window_0, 333, 144, 458, 300,  #PB_Window_SystemMenu | #PB_Window_TitleBar | #PB_Window_ScreenCentered , "Netsend")
    If CreateGadgetList(WindowID())
      TextGadget(#Text_0, 20, 20, 110, 30, "Empfänger:")
      SetGadgetFont(#Text_0, FontID1)
      StringGadget(#String_0, 130, 10, 310, 30, "")
      BalloonTip(WindowID(), #String_0, "IP-Adresse etc.", "", #TOOLTIP_NO_ICON)
      SetGadgetFont(#String_0, FontID1)
      TextGadget(#Text_1, 20, 70, 90, 40, "Text eingeben:")
      SetGadgetFont(#Text_1, FontID1)
      EditorGadget(#Editor_0, 130, 70, 310, 160)
      BalloonTip(WindowID(), #Editor_0, "Hier darfst du schreiben wie du lustig bist", "", #TOOLTIP_NO_ICON)
      SetGadgetFont(#Editor_0, FontID1)
      TextGadget(#Text_2, 10, 260, 50, 20, "Anzahl")
      SetGadgetFont(#Text_2, FontID1)
      StringGadget(#String_1, 70, 260, 50, 30, "", #PB_String_Numeric)
      BalloonTip(WindowID(), #String_1, "Wieviel mal senden?", "", #TOOLTIP_NO_ICON)
      SetGadgetFont(#String_1, FontID1)
      ButtonGadget(#Button_1, 220, 260, 120, 30, "Jetzt senden")
      
    EndIf
  EndIf
EndProcedure
;__________________________________________
Open_Window_0()
SetGadgetText(#String_0,"192.168.0.1")
SetGadgetText(#String_1,"1")
Empfaenger.s=GetGadgetText(#String_0)
Zahl.l=Val(GetGadgetText(#String_1))

Repeat
  
  Event = WaitWindowEvent()
  
  If Event = #PB_EventGadget
    
    ;Debug "WindowID: " + Str(EventWindowID())
    
    GadgetID = EventGadgetID()
    
    If GadgetID = #String_0
      Debug "GadgetID: #String_0"
      Empfaenger.s=GetGadgetText(#String_0)
    ElseIf GadgetID = #Editor_0
      Debug "GadgetID: #Editor_0"
      Eingabe.s=GetGadgetText(#Editor_0)
    ElseIf GadgetID = #String_1
      Debug "GadgetID: #String_1"
       Zahl.l=Val(GetGadgetText(#String_1))
    ElseIf GadgetID = #Button_1
      Debug "GadgetID: #Button_1"
      For i= 1 To Zahl
        If RunProgram("net","send "+Empfaenger+" "+Eingabe,"c:\Window\",1|2)=0
          MessageRequester("Fehler","Net.exe existiert nicht",#PB_MessageRequester_Ok)
        EndIf
      Next i 
       
    EndIf
    
  EndIf
  
Until Event = #PB_EventCloseWindow

End
;
; ExecutableFormat=
; EOF
; ExecutableFormat=Windows
; EOF