Cita de: Eleкtro (sin pilas) en 12 Diciembre 2017, 19:48 PMpara poder enviar e-mails por GMail de forma programática, primero tienes que permitir el uso de aplicaciones de terceros, puedes hacerlo desde aquí:
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úCita de: Eleкtro (sin pilas) en 12 Diciembre 2017, 19:48 PMpara poder enviar e-mails por GMail de forma programática, primero tienes que permitir el uso de aplicaciones de terceros, puedes hacerlo desde aquí:
Cita de: Machacador en 12 Enero 2019, 02:27 AMponle algodones impregnados de amoniaco... si eso no funciona, usa entonces tu fuerza de voluntad y mantén la gata fuera de la habitación...
Cita de: El_Andaluz en 12 Enero 2019, 02:29 AMsi lo que tienes es una gata mejor castrarla para evitar que te venga con gatitos y te aseguro que son mínimo 5 las crías de hay para arriba.
Cita de: Guarrino en 11 Enero 2019, 23:01 PMEllos les divierte que tú te enfades o le des un par de revolcones, simplemente porque le estás dedicando dedicando tiempo.
Cita de: crazykenny en 11 Enero 2019, 22:29 PMY, bueno, por mi parte ha sido tener paciencia para cogerlo en brazos y apartarlo del ordenador hasta que dejo de hacerlo.
Cita de: bettu en 11 Enero 2019, 22:45 PMLo que sí suelo hacer es hacer una palmada fuerte (no al gato) o un 'SHHT' cuando no quiero que haga algo, porque él ya sabe que lo que está haciendo no lo debe hacer y está mal hecho.
Cita de: El_Andaluz en 12 Enero 2019, 01:30 AM
Eleкtro (sin pilas)
No te de tanto igual que el puñetero gato se suba por tu ordenador de mesa o te tire de los cables del tu PC, el gato le encanta los cables y tirar de ellos dado con son muy curiosos y le encanta arañar muebles de madera para afilarse las uñas y si tienes sillones ni te cuento lo que hace con ellos lo arañan todo, te lo digo por experiencia que he llegado a tener por culpa de mi madre un viaje de gatos en mi casa crías y no crías y unos de ellos me tiro del cable de mi portátil y me lo estampo contra el suelo me partió la pantalla de portátil y la bromita me salio 120 euros arreglar la pantalla del portátil, con el tiempo se jodió también el disco duro debido al golpe contra el suelo, osea que la broma salio cara.
Mi consejo contra mas lejos lo tengas de tu PC mejor si hace falta cierra la puerta cada vez que salgas de tu cuarto si es que hay lo tienes tu PC.
Lo bueno que tiene los gatos que son muy limpios suelen hacer sus necesidades desde bien chico en su arenero si no tiene arenero no te preocupes que ellos buscan tus macetas y hacen sus necesidades allí o arriates.
Cita de: okik en 11 Enero 2019, 20:22 PMLa solución es tan simple como crear un mini-parque de atracciones para ella.
Cita de: NEBIRE en 11 Enero 2019, 20:24 PMa veces da igual los juguetes que tengan, al final se aburren. Les gusta más el juego interactivo, igual que les pasa a los niños...
Cita de: NEBIRE en 11 Enero 2019, 20:24 PMPara los cables, lo que yo hago siempre que tengo un gato 'nuevo' es coger un poco de pimentón picante, sobre una servilleta de papel, froto los cables varias veces... y dejo que se acerquen, cuando lo prueban 2, 3 veces... dejan ya de insistir, mas aún si de nuevo ves que se acercan, coges e papel (con los resto del pimentón en polvo), se lo enseñas y sa va ligero... Al final pierte interés por los cables... cuestión a lo sumo de 2-3 días.
Cita de: simorg en 11 Enero 2019, 19:25 PMla forma de que no se acerque el gato al lugar que no quieres es poner allí un platito con vinagre....no temas, no se lo beberá, pero ese olor no les gusta a los gatos y suelen no acercarse al lugar donde lo pongas.
Cita de: r32 en 11 Enero 2019, 19:12 PMSolo te puedo aconsejar que tengas paciencia y que le enseñes lo que no te gusta que ella haga, hay que educarlos como si de un niño se tratara.
Cita de: warcry. en 11 Enero 2019, 19:17 PMEl principal método para educar a un animal, es el reflejo condicionado, puedes leer sobre el perro de pavlov.
Cita de: warcry. en 11 Enero 2019, 19:17 PMlo que pasa es de la manera que ves la vida los métodos de aprendizaje que utilizo no serian de tu agrado
Cita de: warcry. en 11 Enero 2019, 19:17 PMSolución cogí a la gata de la nuca, la lleve hasta la jaula, le restregué el hocico contra los barrotes varias veces y la solté.
a partir de ahí la gata nunca se volvió a acercar a una jaula, y pude volver a tener canarios de nuevo.
Cita de: rigorvzla en 9 Enero 2019, 23:50 PMdisculpo lo del codigo solo que hay cosas que aun se me dificultan de leer (codigo) para pasar a C#
Cita de: rigorvzla en 9 Enero 2019, 13:16 PMstatic extern bool PostMessage(IntPtr hWnd, UInt32 Msg, int wParam, int lParam);
internal sealed class NativeMethods {
private NativeMethods() {}
[DllImport("User32.dll", SetLastError=true)]
[return: MarshalAs(UnmanagedType.Bool)]
internal extern static bool PostMessage([MarshalAs(UnmanagedType.SysInt)] IntPtr hWnd,
[MarshalAs(UnmanagedType.U4)] uint msg,
[MarshalAs(UnmanagedType.SysInt)] IntPtr wParam,
[MarshalAs(UnmanagedType.SysInt)] IntPtr lParam);
}
Cita de: rigorvzla en 9 Enero 2019, 13:16 PMprobe con solo el down y hay aplicaciones que deja la tecla marcada y no la suelta, cuando puse el up , walla!! asunto resuelto
Cita de: rigorvzla en 9 Enero 2019, 13:16 PMme gustaria saber si puedo solo mostrar unasola pulsasion de letra "a" .
Cita de: rigorvzla en 9 Enero 2019, 13:16 PMbusque hacer combinaciones como "ctrl + 1" y se volvia loco
[DllImport("user32.dll", EntryPoint="keybd_event", SetLastError=true)]
internal extern static void KeybdEvent([MarshalAs(UnmanagedType.U1)] byte vkey,
[MarshalAs(UnmanagedType.U1)] byte scanCode,
[MarshalAs(UnmanagedType.U4)] KeybdEventFlags flags,
[MarshalAs(UnmanagedType.SysUInt)] UIntPtr extraInfo);
[DllImport("user32.dll", SetLastError=true)]
[return: MarshalAs(UnmanagedType.U4)]
internal extern static uint MapVirtualKey([MarshalAs(UnmanagedType.U4)] uint code,
[MarshalAs(UnmanagedType.U4)] MapVirtualKeyMapTypes mapType);
[Flags]
internal enum KeybdEventFlags: uint {
NonExtendedKey = 0x0,
ExtendedKey = 0x1,
KeyUp = 0x2
}
internal enum MapVirtualKeyMapTypes: uint {
VKeyToScanCode = 0x0,
ScanCodeToVkey = 0x1,
VKeyToChar = 0x2,
ScanCodeToVKeyExtended = 0x3,
VKeyToScanCodeExtended = 0x4
}
Dim hWnd As IntPtr = Process.GetProcessesByName("notepad").Single().MainWindowHandle
Dim modKey As Byte = CByte(Keys.LControlKey)
Dim scanCode As Byte = CByte(NativeMethods.MapVirtualKey(modKey, MapVirtualKeyMapTypes.VKeyToScanCode))
' Presionar modificador de tecla
NativeMethods.KeybdEvent(modKey, scanCode, KeybdEventFlags.NonExtendedKey, UIntPtr.Zero)
' Presionar la tecla "S"
SendKeyPress(hWnd, Keys.S)
Thread.Sleep(100) ' Intervalo necesario ya que PostMessage es asincrónico.
' Soltar modificador de tecla
NativeMethods.KeybdEvent(modKey, scanCode, KeybdEventFlags.NonExtendedKey Or KeybdEventFlags.KeyUp, UIntPtr.Zero)
CitarPostMessage(proc.MainWindowHandle, WM_KEYDOWN, tecla1, 0);
PostMessage(proc.MainWindowHandle, WM_KEYDOWN, tecla2, 0);
PostMessage(proc.MainWindowHandle, WM_KEYUP, tecla2, 0);
PostMessage(proc.MainWindowHandle, WM_KEYUP, tecla1, 0);
Cita de: Andre.ZieglerI've previously posted the dumps etc. to another forum here is the link. We came to the conclusion it was a bug in Windows, not the network driver? (considered "solved" of sorts See the OSVDB link in the post..
http://www.techsupportforum.com/forums/f217/solved-tcpip-sys-bsod-issue-530767.html
Imports System.ComponentModel
Imports System.Threading
Public NotInheritable Class Form1
Private ReadOnly Property HostNameOrAddress As String
Get
Return Me.TextBox2?.Text
End Get
End Property
Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
Dim scr As Screen = Screen.FromHandle(Me.Handle)
Me.Location = New Point((scr.WorkingArea.Right - Me.Size.Width), (scr.WorkingArea.Bottom - Me.Size.Height))
With Me.BackgroundWorker1
.WorkerReportsProgress = True
.WorkerSupportsCancellation = True
.RunWorkerAsync()
End With
End Sub
Private Sub BackgroundWorker1_DoWork(ByVal sender As Object, ByVal e As DoWorkEventArgs) Handles BackgroundWorker1.DoWork
Dim bgw As BackgroundWorker = DirectCast(sender, BackgroundWorker)
Do Until bgw.CancellationPending
Dim elapsed As Double = Me.MedidorPing(Me.HostNameOrAddress, TimeSpan.FromSeconds(5))
Dim userState As String
If (elapsed.Equals(Double.NaN)) Then
userState = "Ping request timed out."
Else
userState = String.Format("{0:F0} ms", elapsed)
End If
bgw.ReportProgress(Nothing, userState)
Loop
bgw.ReportProgress(100, Nothing)
End Sub
Sub BackgroundWorker1_ProgressChanged(sender As Object, e As ProgressChangedEventArgs) Handles BackgroundWorker1.ProgressChanged
Me.TextBox3.Text = CStr(e.UserState)
End Sub
Private Sub BackgroundWorker1_RunWorkerCompleted(sender As Object, e As RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted
Me.Close()
End Sub
Private Sub HexCheckBox1_CheckedChanged(ByVal sender As Object) Handles HexCheckBox1.CheckedChanged
Me.TopMost = Me.HexCheckBox1.Checked
End Sub
Private Sub HexButton1_Click(sender As Object, e As EventArgs) Handles HexButton1.Click
DirectCast(sender, HexButton).Enabled = False
If (Me.BackgroundWorker1.IsBusy) Then
Me.BackgroundWorker1.CancelAsync()
Do While Me.BackgroundWorker1.IsBusy
Application.DoEvents()
Thread.Sleep(TimeSpan.FromMilliseconds(100))
Loop
End If
End Sub
Private Function MedidorPing(ByVal hostNameOrAddress As String, timeout As TimeSpan) As Double
If String.IsNullOrEmpty(hostNameOrAddress) Then
Return Double.NaN
End If
If Not My.Computer.Network.IsAvailable() Then
Return Double.NaN
End If
Dim sw As New Stopwatch()
Try
sw.Start()
My.Computer.Network.Ping(hostNameOrAddress, CInt(timeout.TotalMilliseconds))
sw.Stop()
Return sw.Elapsed.TotalMilliseconds
Catch ex As Exception ' ArgumentNullException, InvalidOperationException, PingException or SocketException
Return Double.NaN
End Try
End Function
End Class