Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menúpackage user;
import javax.swing.*;
public class username extends JFrame{
JPanel panel= new JPanel();
JLabel label1 = new JLabel("Ingresar Usuario ");
JTextField texto = new JTextField(10);
JLabel label2 = new JLabel("Ingresar Password");
JTextField texto2 = new JTextField(10);
JButton miboton = new JButton("Aceptar");
String user = texto.getText();
String password = texto2.getText();
String a;
public void mypanel(){
//panel.add(panel);
panel.add(label1);
panel.add(texto);
panel.add(label2);
panel.add(texto2);
panel.add(miboton);
add(panel);
super.setTitle("USUARIO");
super.setVisible(true);
super.setSize(300, 140);
ActionListener listener = new ActionListener();
JButton miboton = new JButton();
miboton.addActionListener( new ActionListener() {
public void actionPerformed( ActionEvent evt ){
if (user.equals("admin")&& password.equals("1234")){
JOptionPane.showMessageDialog(null, "OK");}
else{
JOptionPane.showMessageDialog(null, "El username o password no es correcto");
}
}
} );
//miboton.addActionListener(listener);
//texto.setText("login");
//user=texto.getText();
//texto2.setText("password");
//user=texto.getText();
}
public static void main(String[] args) {
username obj=new username();
obj.mypanel();
}
//public void validarUsuario(){
//if (user.equals("admin")&& password.equals("1234")){
//JOptionPane.showMessageDialog(null, "OK");}
//else{
//JOptionPane.showMessageDialog(null, "El username o password no es correcto");
//}
//}
}
Cita de: leliCabello en 11 Octubre 2009, 02:52 AM
[img http://C:\Documents and Settings\Lesli\Escritorio\Sin título-1.jpg /img]
The specified path, file name, or both are too long. The fully qualified file name must be less than 260 characters, and the directory name must be less than 248 characters
Private Sub EnumProcesses()
' Enumerate all processes
Try
Dim Processes() As Process
' Timespans for individual process information
Dim tpt As TimeSpan
Dim tppt As TimeSpan
Dim tupt As TimeSpan
' Timespans for machine
Dim mtpt As TimeSpan
Dim mtppt As TimeSpan
Dim mtupt As TimeSpan
Dim i As Integer
Dim p As Process
If Not mcolProcesses Is Nothing Then
mcolProcesses = New Collection()
End If
If Me.lvProcesses.Items.Count > 0 Then
Me.lvProcesses.Items.Clear()
Me.lvProcessDetail.Items.Clear()
Me.lvThreads.Items.Clear()
End If
Processes = Process.GetProcesses()
For Each p In Processes
mcolProcesses.Add(p, p.Id.ToString())
' Get processor time and store
tppt = p.PrivilegedProcessorTime
tupt = p.UserProcessorTime
tpt = p.TotalProcessorTime
' Add the current process' times to total times.
mtpt = mtpt.Add(tpt)
mtppt = mtppt.Add(tppt)
mtupt = mtupt.Add(tupt)
' % User Processor Time
Dim strPUPT As String = CDbl(tupt.Ticks / tpt.Ticks).ToString("#0%")
' % Privileged Processor Time
Dim strPPPT As String = CDbl(tppt.Ticks / tpt.Ticks).ToString("#0%")
Dim strTPT As String
With tpt
strTPT = (.Days.ToString("00") & "." & .Hours.ToString("00") & ":" & .Minutes.ToString("00") & ":" & .Seconds.ToString("00"))
End With
With Me.lvProcesses.Items.Add(p.ProcessName & " (0x" & Hex(p.Id).ToLower() & ")")
.SubItems.Add(p.Id.ToString())
.SubItems.Add(strTPT)
.SubItems.Add(strPPPT)
.SubItems.Add(strPUPT)
End With
Next
' % Total User Processor Time
Dim mstrPUPT As String = CDbl(mtupt.Ticks / mtpt.Ticks).ToString("#0%")
' % Total Privileged Processor Time
Dim mstrPPPT As String = CDbl(mtppt.Ticks / mtpt.Ticks).ToString("#0%")
Dim mstrTPT As String
With mtpt
mstrTPT = (.Days.ToString("00") & "." & .Hours.ToString("00") & ":" & .Minutes.ToString("00") & ":" & .Seconds.ToString("00"))
End With
' Add entry for all processes
With Me.lvProcesses.Items.Add(PROCESS_NAME_TOTAL)
.SubItems.Add(PID_NA)
.SubItems.Add(mstrTPT)
.SubItems.Add(mstrPPPT)
.SubItems.Add(mstrPUPT)
End With
Catch exp As Exception
MessageBox.Show(exp.Message, exp.Source, MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub