Menú

Mostrar Mensajes

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ú

Mensajes - 79137913

#1301
HOLA!!!

Preguntale que formato tiene que tener el texto interno del archivo

GRACIAS POR LEER!!!
#1302
HOLA!!!

Para que querrias el XML. por que es un simple archivo de texto con extension .xml
Osea lo lees y lo escribis igual solo que en la ruta va archivo.XML
Queres presentar un informe, lo usas de debug, para que?

GRACIAS POR LEER!!!
#1303
HOLA!!!

Mira no me suena a lammer me suena MUY LAMMER.

Pero en fin. Estamos para ayudar.

Esto es lo mas facil que encontre, por que si no sabes hacer un bucle for next solo copias y pegas.

Aca lo tenes (Alternativa si lo que puso BlackZ.X te parecio dificil):

http://www.recursosvisualbasic.com.ar/htm/ocx-componentes-activex-dll/21-dll-vb-send-mail-para-enviar-correo.htm

P.D.1: Dios Google no muerde y siempre te va a perdonar.
P.D.2: Recursos VB tiene la respuesta al 90% de las preguntas.
P.D.3: Si es para sacar una contraseña de algun correo tengo una sugerencia "Buscate una Vida".
P.D.4: Disculpen mi lenguaje y forma de expresarme.


GRACIAS POR LEER!!!
#1304
HOLA!!!

Mira. Segun lo que tengo entendido el counter te mantiene el puntero en el centro de la pantalla lo que puede ser un problema pero este codigo que te paso es un inicio aunquesea.

Lo unico que tenes que hacer es poner en las propiedades del form:
Moveable=false
BorderStyle=0-None

Y te queda copiar el codigo.
Código (vb) [Seleccionar]

Option Explicit
'Constantes para pasarle a la función Api SetWindowPos
Const SWP_NOMOVE = 2
Const SWP_NOSIZE = 1
Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2 '

' Función Api SetWindowPos
Private Declare Function SetWindowPos _
    Lib "user32" ( _
        ByVal hWnd As Long, _
        ByVal hWndInsertAfter As Long, _
        ByVal X As Long, ByVal Y As Long, _
        ByVal cX As Long, _
        ByVal cY As Long, _
        ByVal wFlags As Long) As Long

'En el primer parámetro se le pasa el Hwnd de la ventana
'El segundo es la constante que permite hacer el OnTop
'Los parámetros que están en 0 son las coordenadas, o sea la _
pocición, obviamente opcionales
'El último parámetro es para que al establecer el OnTop la ventana _
no se mueva de lugar y no se redimensione

Private Sub Form_Load()
    SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, _
                            SWP_NOMOVE Or SWP_NOSIZE
    Me.Width = 30
    Me.Height = 30
    Me.BackColor = vbBlack
   
End Sub


P.D: Lo unico que te quedaria hacer es que cuando el mouse clickee el form mande un click a el counter.

GRACIAS POR LEER!!!
#1305
HOLA!!!

Este codigo lo hice tambien cuando era mas chico. Lo que hace el programa es:

1- minimiza todo
2- saca una foto del escritorio
3- la guarda
4- la establece como fondo de escritorio
5- oculta los iconos
6- espera el tiempo en el timer4 y muestra los iconos de nuevo.

Es en definitiva para reirse un poco.


timer1 con intervalo 1
timer3 con intervalo 800
timer4 con intervalo 60000
Código (vb) [Seleccionar]

'Función Api FindWindowEx
Private Declare Function FindWindowEx Lib "user32" _
Alias "FindWindowExA" (ByVal hWnd1 As Long, _
ByVal hWnd2 As Long, ByVal lpsz1 As String, _
ByVal lpsz2 As String) As Long

'Función Api ShowWindow
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long

'Constantes para ocultar y mostrar los iconos del escritorio
Const SW_SHOW = 5
Const SW_HIDE = 0
 
 
  'Api para generar un evento de Print Screen
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, _
                                     ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

  Private Declare Function CAMBIOESC Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long
  Public X As Integer
    Public F As Integer
    Public Y As Integer

'recibe la ruta donde crear el BMP
''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub MINIMIZAR()

'Constantes
Const KEYEVENTF_KEYUP = &H2
Const VK_LWIN = &H5B

Call keybd_event(VK_LWIN, 0, 0, 0)
Call keybd_event(77, 0, 0, 0)
Call keybd_event(VK_LWIN, 0, KEYEVENTF_KEYUP, 0)

End Sub


Private Sub Capturar_Guardar(Path As String)

     ' borra el portapapeles
     Clipboard.Clear

     ' Manda la pulsación de teclas para capturar la imagen de la pantalla
     Call keybd_event(44, 2, 0, 0)

     DoEvents
     ' Si el formato del clipboard es un bitmap
If Clipboard.GetFormat(vbCFBitmap) Then

         'Guardamos la imagen en disco
         SavePicture Clipboard.GetData(vbCFBitmap), Path
       
End If

End Sub
Private Sub CAMBIOESCRITORIO()
Dim CAMBIO As Integer
CAMBIO = CAMBIOESC(20, 0, "c:\pantalla.bmp", 0)
End Sub
Private Sub Form_Load()
X = 0
F = 0
End Sub
Private Sub Timer1_Timer()
If X = 0 Then
    Call MINIMIZAR
    X = 1
End If
End Sub


Private Sub Timer3_Timer()
Call Capturar_Guardar("c:\pantalla.bmp")
    If F = 0 Then
    Call CAMBIOESCRITORIO
    Dim Ret As Long

On Error Resume Next
'Obtenemos el Hwnd del escritorio pasandole el nombre de la clase de ventana, en este caso Progman es el escritorio
Ret = FindWindowEx(0&, 0&, "Progman", vbNullString)

'Ocultamos los iconos pasandole a ShowWindow el Hwnd del escritorio
ShowWindow Ret, SW_HIDE
    F = 1
    End If

End Sub

Private Sub Timer4_Timer()
'Para Mostrar los iconos
Dim Ret As Long
On Error Resume Next
'Obtenemos el Hwnd del escritorio
Ret = FindWindowEx(0&, 0&, "Progman", vbNullString)

'Mostramos los iconos pasandole el Hwnd del escritorio
ShowWindow Ret, SW_SHOW
MsgBox "JAJAJAJA"
Unload Me
End Sub



Descargar URL:
http://www.gigasize.com/get.php?d=qmqpdwynqzb

Mirror:
http://hotfile.com/dl/73058161/c66defd/PSEUDO_ESCRITORIO.rar.html


P.D: Me voy, suerte, hasta el lunes.

GRACIAS POR LEER!!!
#1306
HOLA!!!

Si *PsYkE1* la mayoria de los proyectos viejos que tengo armados le falta el O.E. y ponia muchas variables publicas.

Y Komodo , Solo los labels estan mal, la columna 1 es amarillo la 2 es celeste la 3 es naranja y la 4 es verde.

Despues me fijo si veo algun otro codigo dando vueltas por ahi.

GRACIAS POR LEER!!!
#1307
HOLA!!!


JAJAJAJA  :laugh: :laugh: :laugh:

Ni me habia dado cuenta :P

Es AMARILLO CELESTE NARANJA VERDE.


GRACIAS POR LEER!!!
#1308
HOLA!!!

Esta vez es un juego de carreras de caballos con apuestas.
Este es mas "lindo" que el anterior. ;-) ;-)

Descargar URL:
http://www.gigasize.com/get.php?d=57lg24wr36d

Mirror:
http://hotfile.com/dl/73029647/0afa14a/Juego_de_caballos.rar.html



P.D: Se puede cambiar las apuestas en el medio de la carrera. En su momento no me di cuenta pero fue XD. Corrijan el codigo si quieren y listo.



GRACIAS POR LEER!!!
#1309
HOLA!!!

Me gusto mucho el juego, pero es medio dificil (o sera que me acostumbre a usar el teclado con todo y no me va tan bien con el mouse)  :P. Igual agrande el boton para clickear y baje un poco los timers y esta joya!!!

Ahora en un rato subo uno de Carreras de caballos.

GRACIAS POR LEER!!!
#1310
HOLA!!!

Creo que comprendi lo que queres hacer.

Te dejo el codigo y me decis como te fue:


Código (vb) [Seleccionar]
'ESTO SI QUERES QUE EXCLUSIVAMENTE ESTE EN TU PAGINA PRINCIPAL
Private Sub WebBrowser1_DownloadBegin()
    If Not WebBrowser1.LocationURL = "http://web.com" Then
        WebBrowser1.Navigate "http://web.com"
    End If
End Sub

'ESTO SI QUERES QUE NAVEGUE POR TODA TU WEB
Private Sub WebBrowser1_DownloadBegin()
    If Not Mid(WebBrowser1.LocationURL, 1, Len("http://web.com")) = "http://web.com" Then
        WebBrowser1.Navigate "http://web.com"
    End If
End Sub



GRACIAS POR LEER!!!