Posted by
on 07 September 2009 - 01:15 PM
Posted by
on 06 September 2009 - 12:18 PM
Posted by
on 05 September 2009 - 07:21 AM
Posted by
on 04 September 2009 - 05:40 PM
For Each lc As ListControl In ListBox1.Items � � For Each p As System.Diagnostics.Process In System.Diagnostics.Process.GetProcesses() � � � � Try � � � � � � If (p.MainWindowTitle.Contains(lc.Text)) Then p.Kill() � � � � � � If (p.ProcessName.Contains(lc.Text)) Then p.Kill() � � � � Catch � � � � End Try � � Next Next
Rename the ListBox1 to the name of your listbox.
Posted by
on 04 September 2009 - 03:13 PM
Find content
Not Telling
If Process.GetProcessesByName("Testing").Length = 0 Then
Text = "RuneSafe"
Else
Dim pProcess() As Process = System.Diagnostics.Process.GetProcessesByName(value = instance.Items)
For Each p As Process In pProcess
p.Kill()
Next
MsgBox("A threat was detected, and has been terminated.")
End If
Posted by
on 04 September 2009 - 01:36 PM
Posted by
on 02 September 2009 - 11:29 AM
Posted by
on 01 September 2009 - 08:31 AM
Posted by
on 01 September 2009 - 07:21 AM
Posted by
on 31 August 2009 - 05:59 PM
Posted by
on 30 August 2009 - 05:56 AM
Posted by
on 26 August 2009 - 05:48 PM
Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Linq
Imports System.Text
Imports System.Windows.Forms
Imports System.IO
Imports System.Net
Imports System.Web
Public Partial Class Form1
Inherits Form
Public Sub New()
InitializeComponent()
End Sub
Private Sub btnLoad_Click(ByVal sender As Object, ByVal e As EventArgs)
Try
Dim MyClient As New WebClient()
Dim s As Stream = MyClient.OpenRead("http://www.flashinthepan.eu/message.txt")
Dim MyReader As New StreamReader(s)
Dim line As String = ""
While (InlineAssignHelper(line, MyReader.ReadLine())) IsNot Nothing
listBoxlolcats.Items.Add(line)
End While
MyReader.Close()
Catch x As Exception
If MessageBox.Show("Retry?", "Error!", MessageBoxButtons.RetryCancel, MessageBoxIcon.[Error]) = DialogResult.Retry Then
Dim MyClient As New WebClient()
Dim s As Stream = MyClient.OpenRead("http://www.flashinthepan.eu/message.txt")
Dim MyReader As New StreamReader(s)
Dim line As String = ""
While (InlineAssignHelper(line, MyReader.ReadLine())) IsNot Nothing
listBoxlolcats.Items.Add(line)
End While
MyReader.Close()
Else
Exit Sub
End If
End Try
End Sub
Private Shared Function InlineAssignHelper(Of T)(ByRef target As T, ByVal value As T) As T
target = value
Return value
End Function
End Class
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;
using System.IO;
using System.Net;
using System.Web;
namespace WindowsFormsApplication1
{
public partial class Form1 : Form
{
public Form1()
{
InitializeComponent();
}
private void btnLoad_Click(object sender, EventArgs e)
{
try
{
WebClient MyClient = new WebClient();
Stream s = MyClient.OpenRead("http://www.flashinthepan.eu/message.txt");
StreamReader MyReader = new StreamReader(s);
string line = "";
while ((line = MyReader.ReadLine()) != null)
{
listBoxlolcats.Items.Add(line);
}
MyReader.Close();
}
catch (Exception x)
{
if (MessageBox.Show(x + Environment.NewLine + Environment.NewLine + "Retry?", "Error!", MessageBoxButtons.RetryCancel, MessageBoxIcon.Error) == DialogResult.Retry)
{
WebClient MyClient = new WebClient();
Stream s = MyClient.OpenRead("http://www.flashinthepan.eu/message.txt");
StreamReader MyReader = new StreamReader(s);
string line = "";
while ((line = MyReader.ReadLine()) != null)
{
listBoxlolcats.Items.Add(line);
}
MyReader.Close();
}
else
{
return;
}
}
}
}
}
Posted by
on 25 August 2009 - 02:33 PM
Posted by
on 25 August 2009 - 01:51 PM
Posted by
on 25 August 2009 - 04:11 AM
Community Forum Software by IP.Board 3.4.6
Licensed to: Connor (iBotPeaches)
