PureBoard

Verfasst: **06.11.2009 21:12**

Pelagio hat geschrieben:Hier eine schnelle Antworten !
Code: Alles auswählen
#File = "liste.txt"

                WinDir$ = Space(100): GetSystemDirectory_(WinDir$,100)
                
                RunProgram(WinDir$+"\notepad.exe", #File, "" )

Ohje, vorhin ging das nicht...

Verfasst: **06.11.2009 21:34**

Es funktioniert nun alles so, wie ich es haben möchte:

Eine wichtige Funktion wäre noch der Online/Offline Status des PCs:

- Ich wähle einen PC-Namen aus der Liste aus
- drücke auf einen Knopf und es wird im Hintergrund eine Ping-Abfrage erstellt (mit Hilfe des Namens).
- Der Status soll als TextGadget ausgegeben werden.

gefunden habe ich schon dieses:

(http://www.purebasic.fr/german/viewtopi ... 93&start=0)

Werde daraus aber leider nicht schlau

Verfasst: **06.11.2009 21:53**

Vielleicht ist dies, als Anregung einfacher:

Code: Alles auswählen

Procedure Ping(Name.s)
  Protected ping = RunProgram("ping", Name, "", #PB_Program_Open | #PB_Program_Read | #PB_Program_Hide)
  Protected Text.s
  
  If ping
    While ProgramRunning(ping)
      Text = ReadProgramString(ping)
      OemToChar_(@Text, @Text)
      AddGadgetItem(0, #PB_Any, Text)
    Wend
  EndIf
  CloseProgram(ping)
EndProcedure

OpenWindow(0, #PB_Ignore, #PB_Ignore, 640, 480, "", #PB_Window_SystemMenu)
EditorGadget(0, 10, 10, 620, 460, #PB_Editor_ReadOnly)

Ping("www.google.de")

Repeat
  Select WaitWindowEvent()
    Case #PB_Event_CloseWindow
      Break
  EndSelect
ForEver

Gruß
Thomas

Verfasst: **07.11.2009 03:21**

Ich werd das nachher mal testen

evl zusammen mit diesem Code, den ich im Forum gefunden habe:

Code: Alles auswählen

If FindString(String$, "Antwort von", 1)
   Debug "neues Gerät gefunden"
ElseIf FindString(String$, "Zeitüberschreitung", 1) Or FindString(String$, "Zielhost nicht erreicht", 1)
   Debug "kein neues Gerät gefunden"
EndIf

PureBoard

Verständnis LinkedList

Re: Verständnis LinkedList

Re: Verständnis LinkedList

Re: Verständnis LinkedList

Re: Verständnis LinkedList