Andrups

hi! ich kenne mich mit wsh nicht aus... aber kannst Du da auch ocx-dateien einbinden? wenn ja, dann gibt es ein ocx von microsoft, was genau diese informationen (ob gerade am netz angeschlossen oder akkubetrieb, status des akkus, 'füllstand' des akkus usw.)... das heisst glaub ich mssysinfo.ocx oder nur sysinfo.ocx... müsst ich @home nochmal schauen. aber weis ja gar nicht, ob das in wsh möglich ist... cu

hi! habe ich Dich richtig verstanden: du möchtest in vb von einem hostnamen die ip-adresse wissen? das geht mittels einer api. sorry, das beispiel habe zu hause und jetzt nicht bei der hand -> sitz grad in der firma aber schau mal unter ActiveVb.de und da unter tips & tricks oder so ähnlich... da findest Du unter 'netzwerk' sicher (ein paar) nützliche beispiele! ich habe das zumindest dort schon gesehen! wenn Du nix findest, dann sach nochmal bescheid! cu - andrups

hi! in der vb-hilfe findest Du unter dem befehl 'open' nähere informationen zum lesen und schreiben von daten in dateien. wie Du die daten einliest, hängt davon ab, in welcher form der inhalt der datei vorliegt. sind die einzelnen werte z.b. durch "," oder tabs oder andere zeichen getrennt? generell kannst Du Dateien folgender massen öffnen (in diesem beispiel sind die Daten durch "," getrennt): für dieses beispiel öffne einfach eine neue form und füge die folgenden Subs ein. Lege dann 2 buttons an (namen: command1 und command2). dann lade die form und klicke auf command1, dann wird die aktuelle possition gespeichert. dann verschiebe die form irgendwo hin und klicke auf den command2, dann werden die gespeicherten werte aus der datei ausgelesen und die form zurück gesetzt. Private Sub Form_Load() Dim AnwPfad as String 'Anwendungspfad formatieren If Right(App.Path, 1) <> "\" Then AnwPfad = App.Path & "\" 'ist bei jedem Verzeichnis der Fall (z.B. C:\Windows) Else AnwPfad = App.Path 'tritt auf, wenn man direkt in der Wurzel des LW ist (z.B. C:\) End If End Sub Private Sub Command1_Click() 'hier werden die werte gespeichert Dim FileName As String 'Dateiname mit Pfad Dim DatNum As Integer 'Dateinummer Dim Option1 As Integer Dim Option2 As Integer Dim Option3 As Integer Dim Option4 As Integer FileName = AnwPfad & "Save2.txt" DatNum = FreeFile 'freie Dateinummer erzeugen Open FileName For Output As DatNum 'Datei für Schreibmodus öffnen (in Hilfe für Befehl 'OPEN' ist alles erklärt) Option1 = Me.Left Option2 = Me.Top Option3 = Me.Width Option4 = Me.Height Write #DatNum, Option1, Option2, Option3, Option4 'Inhalt der Variablen dürfen keine " enthalten!! Close DatNum End Sub Private Sub Command2_Click() 'hier werden die werte eingelesen Dim FileName As String 'Dateiname mit Pfad Dim DatNum As Integer 'Dateinummer Dim Option1 As Integer Dim Option2 As Integer Dim Option3 As Integer Dim Option4 As Integer FileName = AnwPfad & "Save2.txt" DatNum = FreeFile 'freie Dateinummer erzeugen Open FileName For Input As DatNum 'Datei für Lesemodus öffnen Input #DatNum, Option1, Option2, Option3, Option4 'drei variablen auslesen Close DatNum Me.Left = Option1 Me.Top = Option2 Me.Width = Option3 Me.Height = Option4 End Sub ...wenn Dir das nicht wirklich weiter geholfen hat, dann mail mir an derandrups@gmx.de und gib mir nähere infos, wie die daten vorliegen - mal schauen, was sich machen lässt schönen tach noch - andrups