PowerLooser

Hallo Leuts falls doch mal jemand in den Genuß kommt und in seinem Vista die IPv4 aus VB.net heraus ändern zu wollen, dann kann dieser Programmteil genommen werden! Bei mir hat er gut gefunzt ... Allerdings mußte ich mein Benutzerkonto lahm legen, da hier ständig "höhere Rechte" trotz Admin verlangt werden. Warum auch immer??? Dim LAN = Me.txtLAN.Text 'LAN-Verbindung (ist die Bezeichnung meiner LANVerbindung) Dim Ip = Me.txtIPVista.Text '192.168.0.20 Dim Subnetz = Me.txtVistaSubnetz.Text '255.0.0.0 Dim Gateway = Me.txtVistaGateway '192.168.12.10 Dim IpAdresse = " " & Ip & " " & Subnetz & " " & Gateway Dim test = "netsh interface ipv4 add address " & Chr(34) & LAN & Chr(34) & IpAdresse Call Shell("netsh interface ipv4 add address " & Chr(34) & LAN & Chr(34) & IpAdresse)

Ich habe jetzt ne Lösung für XP geschrieben, die auch funktioniert. Allerdings geht es nicht inVista!!! Dieses Mal habe ich es als WMI versucht Imports System.Management Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim SQLStatment As String Dim WMI As Object Dim Result As Object Dim Card As Object Dim IPsetzen As Long Dim sSubNetMask As String = Me.txtSubnetzXP.Text '255.255.255.0 Dim sNewIP As String = Me.txtIPXP.Text '192.168.0.10 WMI = GetObject("winmgmts:") SQLStatment = "SELECT * FROM win32_NetworkAdapterConfiguration WHERE IPEnabled = true" Result = WMI.execquery(SQLStatment) For Each Card In Result With Card If IsArray(.IPAddress) Then IPsetzen = .EnableStatic(New String() {sNewIP}, New String() {sSubNetMask}) End If End With Next End Sub

Hallo Leuts... ich habe mal wieder ein Problem mit meiner Configurationsroutine! Ich möchte eine Visualstudio 2008, VB.ne Routine schreiben, die es mir ermöglich unter "VISTA" das Internetprotokoll4 (IPv4) zu ändern. Ich möchte hier meien eigene statische IP ( nur als Beispiel: 192.168.0.1 und Subnetzmaske 255.255.255.0) festlegen. Da ich ständig die IP's ändern muß möchte ich es automatisieren. Bei XP konnte man mit einer bat. Datei ( pushd interface ... resell all etc.) das ganz gut realisieren. Leider ist einem ja die Möglichkeit in Vista genommen. Mein bisheriger Versuch ist leider fehl geschlagen hat jemand eine gute Idee? Private Sub cmdStaticIP_Click() ' Feste IP setzen Call Shell("netsh interface ip set address="LAN-VERBINDUNG" static 192.168.0.2 255.255.255.0", vbNormalFocus) ' |__ IP ___| | Subnetz- | ' |_ maske ___| End Sub

Thx für die Antwort! Habe deinen Gedanken aufgegriffen und es klappt!!! ' Es wird eine Toolbar zum dazugehörigen Dokument eingeblendet Dim temp1 As Object temp1 = "D:\Quelle\test.xls" 'Die eingegebenen Daten werden im Formular gespeichert Try Dim MyWeb As Object MyWeb = Me.WebBrowser1.ActiveXInstance 'MyWeb.ExecWB(Exec.OLECMDID_HIDETOOLBARS, ExecOpt.OLECMDEXECOPT_DONTPROMPTUSER) MyWeb.ExecWB(Exec.OLECMDID_SAVE, ExecOpt.OLECMDEXECOPT_DONTPROMPTUSER, temp1) 'MyWeb.ExecWB(Exec.OLECMDID_CLOSE, ExecOpt.OLECMDEXECOPT_DONTPROMPTUSER, temp1) Catch ex As Exception MsgBox("Error:" & ex.Message) End Try

Hallo Leuts... ich stehe mal wieder vor einem Problem, welches ich im Inet nicht googeln konnte. Zumindest habe ich keine zufriedenstellende Antwort gefunden! Ich habe im VB.net ein WebBrowser1 Controll, in dem ich mir ein Exceldokumet "test.xls" lade. Im Brosercontrol kann ich jetzt arbeiten und in dem Dokument auch schreiben etc. ! Dieses Dokument möchte ich dann zum Schluß speichern und eine Kopie davon als test1.xls in einem anderen Pfad ablegen. Meine bisherigen Versuche sind alle gescheitert! Hat jemand eine Idee? Wäre mehr als dankbar!!!

Hey Rollermann Falls dein Problem nach wie vor noch existiert, dann schau mal unter deinen Verweisen nach ob du dort "Microsoft DAO 2.5/3.5 Compatibility Libary" oder gar den "Microsoft DAO 3.6 Compatibility Libary" aktiviert hast. Bei den VB5 Versionen müßtest du wahrscheinlich die Version "Microsoft DAO 2.5 Compatibility Libary" als Verweis aktivieren, da du sonst vergeblich einen Datenbank versuchen wirst. Ist allerdings schon Lichtjahre her.

Diese Funktion kannte ich bereits. Funktioniert ganz prima bei Bildern. Bei Texte wird es etwas bescheidener, da hier die Formatierungen ordnungsgemäß dargestellt werden müssen. Es werden auch die Steuerzeichen teilweise eingeblendet, was dann nicht gerade schön aussieht! Aber sonst ganz dienlich. Danke dir trotzdem für deine Mühe

Ich danke dir für deine schnelle Antwort. Das mit der Dateigröße ist kein Problem, da es sich um RTF Dateien handelt, welche die Zwischenablage nicht überladen. Bei Bildern hätte ich den versuch nicht unternommen. Bisher funktioniert meine Variante ja tadellos. Wollte nur ein paar Schritte einsparen!

Hallo Leuts... ich habe mal wieder so ein richtig bescheidenes Problem. In meinem Programm möchte ich mir einen gespeicherten Blob anzeigen lassen. Die Anzeige soll in einer RichTextBox erfolgen! Ich kann mir den Blob auf der Festplatte ablagen, dann die datei öffnen... markieren, eine Kopie machen und dann als Paste in der RichTextbox einfügen. Jedoch möchte ich diese Schritte so nicht machen. Hat schon jemand versucht einen Blob direkt in die Zwischenablage zu kopieren??? Wäre sehr dankbar da ich mir dann einige Schritte sparen könnte. Bisher sind meine Versuche gescheitert ein Array in die Zwischenablage zu kopieren. :cool:

Guter Gedanke .. man weiß ja nie! :floet:

Ich kann euch einen einfachen Quellcode aus meinen alten Zeiten mit VB6 schicken. Hierzu müßt ihr allerdings noch einen "Verweis" setzen. "Microsoft DAO 2.5/3.5 Compatibility Libary" (kommt darauf an kann auch nur der Microsoft DAO 3.6 Compatibility Libary sein) Private Sub speichern() Dim db As Database Dim rec As Recordset Dim sql As String ' Tabellenblatt ist Stammdaten ' Name, Vorname etc. sind die Feldnamen sql = "SELECT * FROM Stammdaten WHERE (Name = '" & TextBox1.Text & "') AND Vorname = '" & TextBox2.Text & "'" Set db = OpenDatabase("C:\Urlaub\Datenerfassung\db2002.mdb") Set rec = db.OpenRecordset(sql) With rec If .EOF Then .AddNew Else .Edit End If .Fields("Name") = TextBox1.Text .Fields("Vorname") = TextBox2.Text .Fields("Kennung") = TextBox3.Text .Update .Close End With db.Close Label1.Caption = "Datensatz wurde geschrieben." End Sub Private Sub laden() Dim db As Database Dim rec As Recordset Dim sql As String Me.ListBox1.Clear 'sql = "SELECT * FROM Stammdaten WHERE (Name = '" & TextBox1.Text & "') AND Vorname = '" & TextBox2.Text & "'" Set db = OpenDatabase("C:\Urlaub\Datenerfassung\db2002.mdb") Set rec = db.OpenRecordset("Stammdaten") With rec Do While Not .EOF ListBox1.AddItem (.Fields("Vorname") & ", " & .Fields("Name") & ", " & .Fields("Kennung")) .MoveNext Loop .Close End With db.Close Label1.Caption = Str$(ListBox1.ListCount) & " Datensätze wurden gefunden." End Sub Den Quellcode könnt ihr entsprechend eurer Accessdatenbank anpassen

Thx geht natürlich noch an HJST1979 und 0815FIA für eure schnellen Anworten. Konnte leider nicht eher den Dank verschicken! :e@sy

Hallo Saba1001 Ich habe das Problem auf meie Weise ersteinmal gelöst. :-) Da ich meine Dokumente heraus im eigenen Browser laden lasse, wird zu jedem Documet ein eigener Process gestartet. Hierbei war das Problem stets, dass es zu keinem Finally kam und mein System schneller war, als "Winword" selber. Die internen Processe von "Winword" waren noch nicht abgeschlossen und es kam daher zur Fehlermeldung. Also lasse ich mir jeweils die Dateiendungen meiner Dateien bestimmen und lasse dazu wenn das System hängt einfach den Prozess killen. Ich habe dem Rechner einfach noch eine kurze Auszeit verpaßt und schon hat es funktioniert. Imports System.Threading private sub Datei_killen() Dim Dateiname, Endung ' Hier kann deine Datei als Variable ausgegeben werden Dateiname = "Testdokument.doc" Endung = Mid(Dateiname, InStrRev(Dateiname, ".")) If Endung = ".doc" Then Dim name As String = "Winword" Dim procs As Process() = Process.GetProcessesByName(name) For Each p As Process In procs 'If p.MainWindowTitle = String.Empty Then p.CloseMainWindow() p.Kill() GoTo gekillt 'End If Next End If If Endung = ".xls" Then Dim name As String = "Excel" Dim procs As Process() = Process.GetProcessesByName(name) For Each p As Process In procs 'If p.MainWindowTitle = String.Empty Then p.CloseMainWindow() p.Kill() GoTo gekillt 'End If Next End If ' weitere Dokumentenendungen selber anfügen gekillt: Dim i as Integer=0 Do While i < 3 Thread.Sleep(2000) i = i + 1 Loop end sub Bei mir hat es bisher prima funktioniert. Versuch macht klug. Du mußt nur die entsprechenden Endungen deiner Dateien festlegen, die mit in der Routine behandelt werden sollen. :old

Kein Prob... :floet: Könntest mein Sohn sein, der paßt auch immer auf seinen Dad auf!

Ich nutze hierzu eine eigene Registrierung und mein Feld in der Datenbank heißt nur ID. Außerdem brauche ich einen gesonderten Datenschlüssel der für mich noch weitere Daten zurück gibt, wodurch ich mir zwei Datenbankfelder sparen kann! :uli