Hey community,
ich habe einen TaskManager erstellt, aber immer wenn ich ein Process beenden will kommt ein Fehler,
hier ist der gesamte code für den TaskManager:
( ich habe die Form schon unbenannt gehabt ):
So, kommen wir zur Lesezeichen und Verlauf, es klappt alles wie ich es will, jedoch ist das problem:
Wenn ich im Browser auf den Button Lesezeichen klicke kommt ja der Manager, so wenn ic hdann da etwas eingebe
wird es gespeichert aber wenn ich das Fenster Manager wieder schließe ist es wieder weg >.<
Das selbe ist auch bei Verlauf so.
Hilfe fällig? Danke
WebBrowser:
Lesezeichen:
Verlauf:
ps: beim code einfügen ist etwas schief gelaufen, es steht nicchts mehr untereinannder ist alles im breite :o ?
Naja, kann mir jemand helfen?
Danke
ich habe einen TaskManager erstellt, aber immer wenn ich ein Process beenden will kommt ein Fehler,
hier ist der gesamte code für den TaskManager:
( ich habe die Form schon unbenannt gehabt ):
VB.NET-Quellcode
- Public Class Taskman Dim CTD As Integer Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged
- End Sub
- Private Sub Taskman_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Timer1.Enabled = True Button1.Enabled = False Timer3.Interval = 1000 Timer3.Enabled = True Check() With ListView1 .View = View.Details .Sorting = SortOrder.Ascending .FullRowSelect = True
- .Columns.Add("Prozess", 100, HorizontalAlignment.Left) .Columns.Add("Dateiname", 250, HorizontalAlignment.Left) .Columns.Add("pid", 50, HorizontalAlignment.Right) End With End Sub Private Function Check() ListView1.Items.Clear() Timer2.Enabled = True Dim oItem As ListViewItem With ListView1 For Each oProcess As Process In Process.GetProcesses oItem = .Items.Add(oProcess.ProcessName) Try oItem.SubItems.Add(oProcess.MainModule.FileName)
- Catch ex As Exception
- End Try oItem.SubItems.Add(oProcess.Id.ToString)
- Next End With CTD = 10 End Function
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click With ListView1 If .SelectedItems.Count > 0 Then If MsgBox("Aktuelle Prozess wirklich Beenden?", MsgBoxStyle.Question Or MsgBoxStyle.YesNo) Then Dim oProcess As Process = Process.GetProcessById(Val(.SelectedItems(0).SubItems(2).Text))
- Try oProcess.Kill() Catch ex As Exception Beep() MsgBox("Fehler beim Beenden des Prozesses!" & vbCrLf & ex.Message.ToString) End Try Check() End If End If End With End Sub
- Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick Button1.Enabled = True
- End Sub
- Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick CTD = CTD - 1 Label3.Text = CTD
- If CTD = 0 Then Check()
- End If End Sub
- Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Label2.Text = ListView1.Items.Count End Sub
- Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Me.Close() End SubEnd Class
So, kommen wir zur Lesezeichen und Verlauf, es klappt alles wie ich es will, jedoch ist das problem:
Wenn ich im Browser auf den Button Lesezeichen klicke kommt ja der Manager, so wenn ic hdann da etwas eingebe
wird es gespeichert aber wenn ich das Fenster Manager wieder schließe ist es wieder weg >.<
Das selbe ist auch bei Verlauf so.
Hilfe fällig? Danke
WebBrowser:
VB.NET-Quellcode
- Imports System.Xml
- Public Class SpeedWebBrowser Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click WebBrowser1.Navigate("http://" & TextBox1.Text) Verlauf.ListBox1.Items.Add(TextBox1.Text) End Sub
- Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click WebBrowser1.Navigate("javascript:document.body.contentEditable = 'true'; document.designMode='on'; void 0") End Sub
- Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click WebBrowser1.GoBack()
- End Sub
- Private Sub Panel1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel1.Paint
- End Sub
- Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click WebBrowser1.GoForward()
- End Sub
- Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click WebBrowser1.Refresh()
- End Sub
- Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click WebBrowser1.Stop()
- End Sub
- Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click WebBrowser1.Navigate("File:///c:/") End Sub
- Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click WebBrowser1.Navigate("http://www.google.de/#sclient=psy-ab&hl=de&site=&source=hp&q=" + TextBox2.Text + "&pbx=1&oq=test&aq=f&aqi=g4&aql=1&gs_sm=e&gs_upl=429l639l0l839l4l3l0l0l0l0l112l223l0.2l2l0&bav=on.2,or.r_gc.r_pw.r_cp.,cf.osb&fp=a653082116363067&biw=1280&bih=814") End Sub
- Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click Manager.Show() End Sub
- Private Sub SpeedWebBrowser_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load WebBrowser1.Navigate("http://www.google.de") End Sub
- Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
- End Sub
- Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click Verlauf.Show() End SubEnd Class
Lesezeichen:
VB.NET-Quellcode
- Public Class Manager
- Private Sub Manager_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load ListView1.Columns.Add("Name:", 300, HorizontalAlignment.Left) ListView2.Columns.Add("URL:", 500, HorizontalAlignment.Left) End Sub
- Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
- End Sub
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- ListView1.Items.Add(TextBox1.Text) TextBox1.Clear() ListView2.Items.Add(TextBox2.Text) TextBox2.Clear() End Sub
- Private Sub ListView1_SelectedIndexChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged
- End Sub
- Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click ListView1.Items.Clear() ListView2.Items.Clear() End SubEnd Class
Verlauf:
ps: beim code einfügen ist etwas schief gelaufen, es steht nicchts mehr untereinannder ist alles im breite :o ?
Naja, kann mir jemand helfen?
Danke