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.
Cita de: Last_squat en 4 Julio 2018, 13:18 PMal intentar escribir en el fichero host me aparece el mensaje de que está activo y acceso denegado.
¿Cúal es el problema?
Cita de: AdriánT95 en 3 Julio 2018, 12:56 PM
Pues sí, la verdad es que es la primera vez que hago Web Scraping, por lo que vi un tutorial en Youtube y para hacerlo utilizo el "simple_html_dom" para PHP, aunque ya había hecho cosas con PHP anteriormente.
Cita de: AdriánT95 en 4 Julio 2018, 09:55 AMPff, pues me temo que esto va a ser muy muy complicado de lograrlo ya que tengo hacer Web Scraping a muchas páginas web, no sólo a una. Si fuera sólo una, me atrevería a intentarlo pero cómo dijiste, será un infierno si son muchas.
Cita de: AdriánT95 en 4 Julio 2018, 09:55 AM
Web Scraping tiene un problema y es que si cambia la estructura de una web, entonces el código que yo escribí para hacer Web Scraping a dicha web no funcionaría y tendría que rescribirlo.
Cita de: AdriánT95 en 4 Julio 2018, 09:55 AM
La verdad es que ya intenté buscar alguna API sobre los hoteles en España, sería lo más óptimo para lo que yo quiero hacer, pero no encontré ninguno por la red
Cita de: **Aincrad** en 29 Junio 2018, 04:33 AM
Me inmagino que debería definir las letras desde la A hasta la Z en un string saltándome las letras del dico local C y la D. que nunca son de algún dispositivo extraible.
Cita de: **Aincrad** en 3 Julio 2018, 21:59 PM
Con esto ya puedo detectar los discos extraible pero ahora necesito su ayuda para crear un bucle y así poder detectar los nuevos usb que se conectan
Cita de: mortygor en 3 Julio 2018, 18:19 PM
Estoy en cruce ahora mismo, me podeis guiar un poco por donde tengo que seguir, porque no lo veo.
![:-\](https://forum.elhacker.net/Smileys/navidad/undecided.gif ":-\")
Public NotInheritable Class Form1 : Inherits Form
Private srcFolderPath As String = "C:\Folder A" ' Directorio de origen
Private dstFolderPath As String = "C:\Folder B" ' Directorio de destino
Private WithEvents SrcCollection As ObservableCollection(Of FileInfo) ' Colección de archivos del directorio de origen
Private WithEvents DstCollection As ObservableCollection(Of FileInfo) ' Colección de archivos del directorio de destino
' Obtiene el nuevo nombre que será asignado al archivo de origen al moverlo al directorio de destino...
Private ReadOnly Property NewFilename As String
Get
Return Me.TextBox1?.Text.Trim()
End Get
End Property
Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
' Construimos las colecciones de archivos del directorio de origen y destino,
' y enlazamos dichas colecciones a los ListBoxes...
Dim srcFiles As IEnumerable(Of FileInfo) = New DirectoryInfo(Me.srcFolderPath).EnumerateFiles("*", SearchOption.TopDirectoryOnly)
Dim dstFiles As IEnumerable(Of FileInfo) = New DirectoryInfo(Me.dstFolderPath).EnumerateFiles("*", SearchOption.TopDirectoryOnly)
Me.SrcCollection = New ObservableCollection(Of FileInfo)(srcFiles)
Me.DstCollection = New ObservableCollection(Of FileInfo)(dstFiles)
Me.ListBox1.Sorted = True
Me.ListBox1.DisplayMember = "Name"
Me.ListBox1.DataSource = Me.SrcCollection
Me.ListBox2.Sorted = True
Me.ListBox2.DisplayMember = "Name"
Me.ListBox2.DataSource = Me.DstCollection
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
' Verificamos que haya algún elemento seleccionado antes de continuar...
If (Me.ListBox1.SelectedIndex = -1) Then
Exit Sub
End If
' Obtenemos el archivo de origen que queremos mover al directorio de destino.
Dim srcFile As FileInfo = Me.SrcCollection.Single(Function(fi As FileInfo) fi.Name = Me.ListBox1.SelectedItem.ToString())
' Construimos el nuevo nombre de archivo para la ruta de destino.
Dim dstFileName As String = If(String.IsNullOrWhiteSpace(Me.NewFilename), srcFile.Name,
Me.NewFilename & If(Path.HasExtension(srcFile.Name), Path.GetExtension(srcFile.Name), ""))
' Construimos la ruta completa de destino
Dim dstFullFilePath As String = Path.Combine(Me.dstFolderPath, dstFileName)
' Y declaramos un objeto del tipo FileInfo que representa al archivo de destino.
Dim dstFile As New FileInfo(dstFullFilePath)
' Verificamos que el nombre del archivo de origen (con el nuevo nombre de archivo aplicado) no exista en la colección de destino.
If (Me.DstCollection.FirstOrDefault(Function(fi As FileInfo) fi.Name = dstFileName) IsNot Nothing) Then
Throw New Exception("File name already exist in the destination collection.")
End If
' Verificamos que el archivo de origen (con el nuevo nombre de archivo aplicado) no exista en el directorio de destino.
If (dstFile.Exists) Then
Throw New IOException("File already exist in the destination directory.")
End If
Try ' Movemos el archivo de origen a la ruta de destino.
srcFile.MoveTo(dstFile.FullName)
Catch ex As Exception
Throw
End Try
' Actualizamos las colecciones de archivos.
Me.SrcCollection.Remove(srcFile)
Me.DstCollection.Add(dstFile)
' Restauramos la entrada de datos de los controles.
Me.TextBox1.Clear()
End Sub
Private Sub SrcCollection_CollectionChanged(sender As Object, e As NotifyCollectionChangedEventArgs) Handles SrcCollection.CollectionChanged
Me.ListBox1.BeginUpdate()
Me.ListBox1.DataSource = Nothing
Me.ListBox1.DisplayMember = "Name"
Me.ListBox1.DataSource = DirectCast(sender, ObservableCollection(Of FileInfo))
Me.ListBox1.EndUpdate()
End Sub
Private Sub DstCollection_CollectionChanged(sender As Object, e As NotifyCollectionChangedEventArgs) Handles DstCollection.CollectionChanged
Me.ListBox2.BeginUpdate()
Me.ListBox2.DataSource = Nothing
Me.ListBox2.DisplayMember = "Name"
Me.ListBox2.DataSource = DirectCast(sender, ObservableCollection(Of FileInfo))
Me.ListBox2.EndUpdate()
End Sub
End Class
using Cursor = System.Windows.Forms.Cursor;using System;
using System.Windows.Forms;
using System.Windows.Input;
using WpfKey = System.Windows.Input.Key;
namespace WindowsFormsApp1 {
public partial class Form1 : Form {
public Form1() {
this.InitializeComponent();
}
private void Timer1_Tick(object sender, EventArgs e) {
Console.WriteLine("timer1 has ticked...");
}
private void Timer3_Tick(object sender, EventArgs e) {
KeyStates keyState = Keyboard.GetKeyStates(WpfKey.F1);
if (keyState.HasFlag(KeyStates.Down)) {
if (!(this.Timer1.Enabled)) {
this.Timer1.Enabled = true;
this.Timer1.Start();
}
} else {
if (this.Timer1.Enabled) {
this.Timer1.Stop();
this.Timer1.Enabled = false;
}
}
}
}
}Cita de: okik en 1 Julio 2018, 00:20 AM
Decir o hacer hipótesis sobre la posibilidad de que el mundo esté creado por máquinas u otros seres es lo mismo o una versión moderna a decir que ha sido creado por dioses o un dios o diosa. De nuevo el concepto de creación.
Cita de: okik en 1 Julio 2018, 00:20 AMluego ¿podríamos ser una realidad dentro de otra realidad que está dentro de otra realidad? Y esto es un no acabar.
Cita de: okik en 1 Julio 2018, 00:20 AMdicho esto ¿por qué esa realidad que nos simula no puede a su vez ser una realidad simulada?
