elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Los 10 CVE más críticos (peligrosos) de 2020


  Mostrar Temas
Páginas: 1 [2]
11  Programación / Programación Visual Basic / [Source] Lector RSS Feed en: 9 Marzo 2011, 21:09 pm
Bueno amigo acá aportando algo para la comunidad. Es un pequeño programa que sirve para saber que se posteo en las paginas donde mas frecuento al haber un nuevo post te salta en la pantalla un mensaje igual que el messenger, y te da la opción si te interesa el post para abrir desde ahi.

Usa una BD MySQL para almacenar los post anterior. Revisa cada 1 minuto ustedes van a cambiar cada cuanto quieren.

Y tienen que instalar el ActiveX Chilkat XML, que se encuentra en el RAR y asegurarse si se cargo la referencia.



Screen del Programa










Aca la Source
http://www.mediafire.com/?77lk8ihls44qq7s

Si no funciona el Scrip del MySQL aca dejo para que puedan crear manualmente.

Código:
CREATE DATABASE /*!32312 IF NOT EXISTS*/`rss_lector` /*!40100 DEFAULT CHARACTER SET utf8 */;

USE `rss_lector`;

CREATE TABLE `tbl_rss` (
  `titulo` VARCHAR(200) DEFAULT NULL
) ENGINE=INNODB DEFAULT CHARSET=utf8;


ACLARO, no todo el source es mio lo tome algunas cosas de varios foros y lo adapte a mi gusto. Y acá comparto con ustedes.
12  Programación / Programación Visual Basic / Dibujar cuadrito dentro de un PictureBox en: 17 Febrero 2011, 00:40 am
Tengo un picture cargado con una imagen me gustaria dibujar sobre la imagen unos cuadritos o puntitos sobre la imagen que cargo y poder elegir el color que quiera del cuadrito o puntitos.
13  Programación / Programación Visual Basic / Recuperar Datos Server COD4 y poner en ListView (Source) en: 8 Enero 2011, 00:00 am
Hola amigos HACKERs estoy creando un programita que se conecta con el servidor del juego Call of Duty 4, lo que quiero hacer es para manejar el servidor desde el programa que estoy haciendo. Ya logre conectar con el servidor y recibir el estado y lista de player.

Ahora como puedo meter esos datos en un control ListView. Dejo aca una imagen de como me trae los datos del servidor.



Asi es como quiero que quede



Aca dejo mi code:

Código:

Private Sub cmdConectar_Click()
    
    Winsock1.Close
    Winsock1.Protocol = sckUDPProtocol
    Winsock1.RemoteHost = "190.210.70.77"
    Winsock1.RemotePort = 28964
    
    Winsock1.Connect
    
End Sub


Private Sub cmdStatus_Click()
    rcon = "lugano"
    Winsock1.SendData Chr(255) & Chr(255) & Chr(255) & Chr(255) & "rcon " & rcon & " " & "status"
End Sub

Private Sub winsock1_DataArrival(ByVal bytestotal As Long)

    'Dim strdata As String
    'Winsock1.GetData strdata, vbString, bytestotal
    'txtOutput = strdata

    Dim temp As String
    Dim posG, posD, i As Integer
    Dim tabJoueurs() As String

    Winsock1.GetData strdata, vbString
    
        strdata = Replace(strdata, "^0", "")
        strdata = Replace(strdata, "^1", "")
        strdata = Replace(strdata, "^2", "")
        strdata = Replace(strdata, "^3", "")
        strdata = Replace(strdata, "^4", "")
        strdata = Replace(strdata, "^5", "")
        strdata = Replace(strdata, "^6", "")
        strdata = Replace(strdata, "^7", "")
  
    strdata = Replace(strdata, Chr(255) & Chr(255) & Chr(255) & Chr(255) & "print" & vbLf, "")
    strdata = Replace(strdata, vbLf, vbCrLf)
    
    'txtOutput = txtOutput & vbCrLf & Time & vbCrLf & strdata
    txtOutput = txtOutput & strdata
      
    txtOutput.SetFocus
    txtOutput.SelStart = Len(txtOutput)
    
End Sub
14  Programación / .NET (C#, VB.NET, ASP) / Conectar de esta forma en vb.NET una Base de Datos en: 5 Julio 2010, 21:43 pm
Yo lo tenia así en VB 6.0



'-----> En un Módulo con las referencias que necesita

Código:
'+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
Public CNADO As ADODB.Connection   '// Conexion ADO
Public RSADO As ADODB.Recordset    '// RecordSet ADO
Public SQLADO As String            '// Parametro para SQL

'+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+

Public Sub ConectarADO()
    Set CNADO = New ADODB.Connection    '// Crear la nueva conexion
    Set RSADO = New ADODB.Recordset     '// Crear nuevo recordset
    RSADO.CursorLocation = adUseClient  '// Tipo de cursor a utilizar
    CNADO.ConnectionString = "Driver={MySQL ODBC 5.1 Driver};Server=localhost;Database=control_servicios; User=root;Password=;Option=3;"
    CNADO.Open                          '// Abrir la nueva conexion
End Sub

'+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+

Public Sub CerrarADO()
    CNADO.Close            '// Cerrar la conexion
    Set CNADO = Nothing    '// Liberar conexion de la memoria
    Set RSADO = Nothing    '// Liberar recorset de la memoria
End Sub

'+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+



Ya dentro del formulario

Guardar registro en la tabla Factura

Código:
Private Sub cmdGuardar_Factura_Click()
    
    '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
    '// Conectar la Base Datos con ADO
        Call ConectarADO
    '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
    
        For I = 1 To ListView1.ListItems.Count
        
            V01 = Val(txtNFactura.Text)
            V02 = "#" & txtFecha.Text & "#"
            V03 = "'" & ListView1.ListItems.Item(I).Text & "'"
            V04 = Val(Format(ListView1.ListItems.Item(I).SubItems(1), ""))
            
            ComandoSQL = "INSERT INTO FACTURA (nfactura,fecha,servicio,cantidad) VALUES (" & V01 & "," & V02 & "," & V03 & "," & V04 & ")"
            CNADO.Execute ComandoSQL
        
        Next I
    
    '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
    '// Cerrar la base de datos y liberar la memoria
        Call CerrarADO
    '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
    
End Sub


Crear un Reporte en el Control ListView solo me interesa crear en este control "ListView"


Código:
Private Sub cmdReporte_Click()
    
    '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
    '// Conectar la Base Datos con ADO
       Call ConectarADO
    '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+

        ListView2.ListItems.Clear
        
        SQL = "SELECT * FROM FACTURA WHERE nfactura = '1000'"
        RSADO.Open SQL, CNADO, adOpenStatic, adLockOptimistic, adCmdText
        
        Do Until RSADO.EOF
            
            Set TLS = ListView2.ListItems.Add()
            With RSADO
            
                TLS.Text = cnServicios
                TLS.SubItems(1) = .Fields("nfactura") & ""
                TLS.SubItems(2) = .Fields("fecha") & ""
                TLS.SubItems(2) = .Fields("servicio") & ""
                TLS.SubItems(3) = Format(.Fields("cantidad"), "##,###") & ""
                RSADO.MoveNext
                
            End With
            
        Loop
    
    '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
    '// Cerrar la base de datos y liberar la memoria
        Call CerrarADO
    '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+

End Sub


Alguien seria tan amable de crear un tutorial de esta forma en VB.NET yo estoy procurando hacer en Visual Studio 2010
15  Programación / .NET (C#, VB.NET, ASP) / Este metodo que estoy usando esta bien? en: 30 Abril 2009, 17:24 pm

Para cargar una tabla en un ListView utilizo este codigo...

Código:

Imports System.Data.OleDb

Código:
    Private Sub Cargar_ListView_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Dim CNN As New OleDb.OleDbConnection
        Dim DT As New DataTable
        Dim DA As New OleDb.OleDbDataAdapter
        Dim CMD As New OleDb.OleDbCommand

        CNN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\CONTROL_SERVICENTRO\COMBUSTIBLES.mdb"
        CNN.Open()

        CMD.Connection = CNN
        CMD.CommandText = "SELECT * FROM PERSONAL"
        CMD.CommandType = CommandType.TableDirect
        DA.SelectCommand = CMD
        DA.Fill(DT)

        For Each DR As DataRow In DT.Rows
            Dim item As ListViewItem
            item = New ListViewItem(DR("CODIGO").ToString)
            item.SubItems.Add(DR("NOMBRE").ToString)
            item.SubItems.Add(DR("TURNO").ToString)
            ListView1.Items.Add(item)
        Next

    End Sub

'Este aca me carga todo se necesita cerrar la base de datos ahi???

'--------------------------------------------------------------------------------------------------------------------------------------------

'//Este Utilizo para cargar un registro en TextBox

Código:
    Private Sub cmdCargar_en_TextBox_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim cnn As New OleDb.OleDbConnection
        Dim dt As New DataTable
        Dim da As New OleDb.OleDbDataAdapter
        Dim cmd As New OleDb.OleDbCommand

        cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\CONTROL_SERVICENTRO\COMBUSTIBLES.mdb"
        cnn.Open()

        cmd.Connection = cnn
        cmd.CommandText = "SELECT * FROM PERSONAL WHERE CODIGO='10'"
        cmd.CommandType = CommandType.TableDirect
        da.SelectCommand = cmd
        da.Fill(dt)

        TextBox1.Text = CStr(dt.Rows(intFile)("CODIGO"))
        TextBox2.Text = CStr(dt.Rows(intFile)("NOMBRE"))
        TextBox3.Text = CStr(dt.Rows(intFile)("TURNO"))

    End Sub

'Este aca me carga todo se necesita cerrar la base de datos ahi???

'--------------------------------------------------------------------------------------------------------------------------------------------

'Esta parte es lo que mas me interesa Guardar varios registro al mismo tiempo, En un control ListView tengo unos registro tiene que guardar todo el contenido


Código:
    Private Sub Guardar_todo_el_contenido_de_un_ListView_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

        Dim I As Integer = 0

        For I = 0 To ListView2.Items.Count - 1

            Dim cnx As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\CONTROL_SERVICENTRO\COMBUSTIBLES.mdb")
            Dim SQLGuardar As String

            SQLGuardar = "INSERT INTO PERSONAL VALUES(@CODIGO,@NOMBRE,@TURNO)"

            Dim cmd As New OleDbCommand(SQLGuardar, cnx)
            cmd.CommandType = CommandType.Text

            cmd.Parameters.AddWithValue("@CODIGO", ListView2.Items(I).Text)
            cmd.Parameters.AddWithValue("@NOMBRE", ListView2.Items(I).SubItems(1).Text)
            cmd.Parameters.AddWithValue("@TURNO", ListView2.Items(I).SubItems(2).Text)

            cmd.CommandType = CommandType.Text
            cnx.Open()
            cmd.ExecuteNonQuery()
            cnx.Close()

        Next I

    End Sub

Pueden ayudarme a optimizar o mejorar o como estoy usando esta bien, gracias
16  Programación / .NET (C#, VB.NET, ASP) / Una Solucion para todos (Base de Datos en VB.NET) en: 28 Abril 2009, 18:15 pm
Hola soy 1 mas que programo en VB6 y al qurerer pasar en .NET es otro mundo.
Alguien puede ayudarme con este tema yo asi tenia mis proyectos en VB6

en Proyectos cargaba las referencias asi:



En un Modulo declaro las conexiones y otras variables

Código:
Public ADOConexion As ADODB.Connection
Public ComandoSQL As String

Public DB As Database
Public RS As Recordset

Public StrSQL As String

'----------------------------------------------------------------------------------------------------------------------------------------------------------------------
'//Este es para Conectar con la base de datos.

Public Sub ConectarADO()
    Set ADOConexion = New ADODB.Connection
    ADOConexion.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\CONTROL\BDATOS.MDB;Persist Security Info=False"
    ADOConexion.Open
End Sub

'// Este es para cerrar la base de datos.

Public Sub CerrarADO()
    ADOConexion.Close
    Set ADOConexion = Nothing
End Sub
'----------------------------------------------------------------------------------------------------------------------------------------------------------------------

'----------------------------------------------------------------------------------------------------------------------------------------------------------------------
'//El DAO utilizo para hacer mis reportes segun por lo que ley en algunos foros es mas rapido solo por eso uso.

'//Este es para conectar con la base de datos
Public Sub ConectarDAO()
    Set DB = OpenDatabase("C:\CONTROL\BDATOS.MDB", True, False)
    Set RS = DB.OpenRecordset(StrSQL)
End Sub

'//Este es para Cerrar la BaseDatos

Public Sub CerrarDAO()
    DB.Close
    Set DB = Nothing
    Set RS = Nothing
End Sub

'----------------------------------------------------------------------------------------------------------------------------------------------------------------------

Ahora para guardar los datos tengo asi mi formulario



Este en el boton guardar

Código:
Private Sub cmdGuardar_Click()
            
    Dim Prg
    Prg = MsgBox("Esta seguro que quiere guardar el registro", vbOKCancel + vbInformation, "Guardar registro")
    
    If Prg = vbOK Then
            
        V01 = "'" & txtCodigo.Text & "'"
        V02 = "'" & txtNombre.Text & "'"
        V03 = "'" & txtTurno.Text & "'"
        
        '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
        '// Conectar la Base Datos con ADO
            Call ConectarADO
        '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+

            ComandoSQL = "INSERT INTO PERSONAL (CODIGO, NOMBRE, TURNO) VALUES (" & V01 & "," & V02 & "," & V03 & ")"
            ADOConexion.Execute ComandoSQL
        
        '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
        '// Cerrar la base de datos y liberar la memoria
            Call CerrarADO
        '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+

    End If
    
End Sub

Código:
Private Sub cmdEliminar_Click()

    Dim Prg
    Prg = MsgBox("Esta seguro que quiere eliminar el registro", vbOKCancel + vbInformation, "Eliminar registro")
    
    If Prg = vbOK Then
        
        '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
        '// Conectar la Base Datos con ADO
            Call ConectarADO
        '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+

            ComandoSQL = "DELETE FROM PERSONAL WHERE CODIGO = '" & ListView1.SelectedItem.Text & "'"
            ADOConexion.Execute ComandoSQL
            
        '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
        '// Cerrar la base de datos y liberar la memoria
            Call CerrarADO
        '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+

    End If

End Sub


'//Este utilizo para cargar la tabla en el control ListView

Código:
Sub Cargar_Personal()

    ListView1.ListItems.Clear
    StrSQL = "SELECT * FROM PERSONAL ORDER BY NOMBRE"
        
    '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
    '// Conectar a la Base de Datos
        ConectarDAO
    '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
                
        Do Until RS.EOF
            
            Set TLS = ListView1.ListItems.Add()
            TLS.Text = RS.Fields("CODIGO") & ""
            TLS.SubItems(1) = RS.Fields("NOMBRE") & ""
            TLS.SubItems(2) = RS.Fields("TURNO") & ""
            
            RS.MoveNext
            
        Loop
        
    '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
    '// Cerrar la base de datos y liberar la memoria
        CerrarDAO
    '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+

End Sub


Se puede hacer esto en Visual Basic 2008 pero conectar toda las base de datos por medio de codigo
Páginas: 1 [2]
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines