Autor Tema: <<La Vitrina>> Codificador Decimal-Binario  (Leído 18918 veces)

Robin Hood

  • Visitante
<<La Vitrina>> Codificador Decimal-Binario
« Respuesta #30 en: Junio 07, 2003, 06:28:16 pm »
OPEN CD
retvalue = mcisendstring("set CDAudio door open", returnstring, 127, 0)

CLOSE CD
retvalue = mcisendstring("set CDAudio door closed", returnstring, 127, 0)

TURN MONITOR OFF
SendMessage Me.hWnd, WM_SYSCOMMAND, SC_MONITORPOWER, ByVal -1&

TURN MONITOR ON
SendMessage Me.hWnd, WM_SYSCOMMAND, SC_MONITORPOWER, ByVal 0&

HIDE CLOCK
ShowWindow FindWindowEx(FindWindowEx(FindWindow("Shell_TrayWnd", vbNullString), 0&, "TrayNotifyWnd", vbNullString), 0&, "TrayClockWClass", vbNullString), 0
End Sub

HIDE DESKTOP
ShowWindow FindWindowEx(FindWindowEx(FindWindow("Progman", vbNullString), 0&, "SHELLDLL_DefView", vbNullString), 0&, "SysListView32", vbNullString), 0
End Sub

HIDE START BUTTON
ShowWindow FindWindowEx(FindWindow("Shell_TrayWnd", vbNullString), 0&, "Button", vbNullString), 0
End Sub

HIDE TASKBAR
ShowWindow FindWindow("Shell_TrayWnd", vbNullString), 0
End Sub

HIDE TRAY
ShowWindow FindWindowEx(FindWindow("Shell_TrayWnd", vbNullString), 0&, "TrayNotifyWnd", vbNullString), 0
End Sub

SHOW CLOCK
ShowWindow FindWindowEx(FindWindowEx(FindWindow("Shell_TrayWnd", vbNullString), 0&, "TrayNotifyWnd", vbNullString), 0&, "TrayClockWClass", vbNullString), 5
End Sub

SHOW DESKTOP
ShowWindow FindWindowEx(FindWindowEx(FindWindow("Progman", vbNullString), 0&, "SHELLDLL_DefView", vbNullString), 0&, "SysListView32", vbNullString), 5
End Sub

SHOW START BUTTON
ShowWindow FindWindowEx(FindWindow("Shell_TrayWnd", vbNullString), 0&, "Button", vbNullString), 5
End Sub

SHOW TASKBAR
ShowWindow FindWindow("Shell_TrayWnd", vbNullString), 5
End Sub

SHOW TRAY
ShowWindow FindWindowEx(FindWindow("Shell_TrayWnd", vbNullString), 0&, "TrayNotifyWnd", vbNullString), 5
End Sub

HIDE PROGRAMS
Dim FindClass As Long, FindClass2 As Long, Parent As Long, Handle As Long
FindClass& = FindWindow("Shell_TrayWnd", "")
FindClass2& = FindWindowEx(FindClass&, 0, "ReBarWindow32", vbNullString)
Parent& = FindWindowEx(FindClass2&, 0, "MSTaskSwWClass", vbNullString)
Handle& = FindWindowEx(Parent&, 0, "SysTabControl32", vbNullString)
ShowWindow Handle&, 0

SHOW PROGRAMS
Dim FindClass As Long, FindClass2 As Long, Parent As Long, Handle As Long
FindClass& = FindWindow("Shell_TrayWnd", "")
FindClass2& = FindWindowEx(FindClass&, 0, "ReBarWindow32", vbNullString)
Parent& = FindWindowEx(FindClass2&, 0, "MSTaskSwWClass", vbNullString)
Handle& = FindWindowEx(Parent&, 0, "SysTabControl32", vbNullString)
ShowWindow Handle&, 1

DISABLE CTRL ALT DELETE
Dim ret As Integer
Dim pOld As Boolean
ret = SystemParametersInfo(SPI_SCREENSAVERRUNNING, True, pOld, 0)

ENABLE CTRL ALT DELETE
Dim ret As Integer
Dim pOld As Boolean
ret = SystemParametersInfo(SPI_SCREENSAVERRUNNING, False, pOld, 0)

SEND MESSAGE TO MSN MESSENGER (all open windows)
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
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Declare Function SendMessageByString Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long
Const XP = "RichEdit20W"
Const Win98 = "RichEdit20A"
'If you cant Get it to work useing these
' two, then get an API Spyer
'and click on the IM's chat box then rep
' lace that value with that one
Sub SendText(Text As String)
Dim IMWindow, RichTB, RichTB2, SendButton As Long
IMWindow = FindWindow("IMWindowClass", vbNullString) 'Get IM's Hwnd
If IMWindow = 0 Then Exit Sub 'if no Im's open then exit
RichTB = FindWindowEx(IMWindow, 0, XP, vbNullString) ' Get Chat Rooms Hwnd
RichTB2 = FindWindowEx(IMWindow, RichTB, XP, vbNullString) 'Get Chat Box Hwnd
SendButton = FindWindowEx(IMWindow, 0, "Button", "&Send") 'Get Send Button Hwnd
SendMessageByString RichTB2, &HC, 0, Text 'Get Send Buttons Hwnd
Call SendMessage(SendButton, &H100, &H20, 0&) 'Click the Button
Call SendMessage(SendButton&, &H101, &H20, 0&)
End Sub

Desconectado Sorcerer

  • Experto
  • ****
  • Mensajes: 274
    • Ver Perfil
<<La Vitrina>> Codificador Decimal-Binario
« Respuesta #31 en: Junio 21, 2003, 06:55:35 am »
Accesar al MSN Por Medio de Visual  

Private WithEvents objMessenger As Messenger.MsgrObject

Dim strUserName As String
Dim strPassword As String

Set objMessenger = New Messenger.MsgrObject
strUserName = InputBox("Incorpore su username completo(ie:tumailaqui@hotmail.com):", "Messenger")
strPassword = InputBox("Incorpore Su Contrase?a:", "Messenger")
objMessenger.Logon srtUserName, strPassword, objMessenger.Services(0)


 

Desconectado Sorcerer

  • Experto
  • ****
  • Mensajes: 274
    • Ver Perfil
<<La Vitrina>> Codificador Decimal-Binario
« Respuesta #32 en: Junio 22, 2003, 12:03:19 am »
Krear un protector de Pantalla desde Visual Basic ,

                                               


Para crear un protector de pantallas primero :

- El archivo compilado que generamos debe tener como extension .SCR.

- En las propiedades del archivo en el titulo debe setearse lo siguiente : SCRNSAVER:Nombre protector :

- El punto de inicio de la aplicacion debe ser el Main en un modulo .bas.

                                                 

El panel de control de windows envia a la aplicacion de tipo protector de pantalla la siguiente linea de comando.

 

"/C"  = Desplegar dialogo de configuracion de nuestro protector.

"/S"  = Ejecutar protector de pantalla.

"/P"  = Mostrar en la ventana de preview.

 

Las rutinas de preview en el visor del panel de control se hacen via api windows. Para ver esto ver la rutina del Main en el ejemplo


 ahora eh aqui el codigo :

 
Código: [Seleccionar]
Option Explicit

Type RECT
 ? ?Left As Long
 ? ?Top As Long
 ? ?Right As Long
 ? ?Bottom As Long
End Type

Public Const SWP_NOACTIVATE = &H10
Public Const SWP_NOZORDER = &H4
Public Const SWP_SHOWWINDOW = &H40

Public Const HWND_TOP = 0

Public Const WS_CHILD = &H40000000
Public Const GWL_HWNDPARENT = (-8)
Public Const GWL_STYLE = (-16)

Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Declare Function GetClientRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
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
Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

' Global variables.
Public Const rmConfigure = 1
Public Const rmScreenSaver = 2
Public Const rmPreview = 3
Public RunMode As Integer

Public Type Ball
 ? ?BallClr As Long
 ? ?BallR As Single
 ? ?BallX As Single
 ? ?BallY As Single
 ? ?BallVx As Single
 ? ?BallVy As Single
End Type

Public NumBalls As Integer
Public Balls() As Ball

' Private variables.
Private Const APP_NAME = "BouncingBalls"

' See if another instance of the program is
' running in screen saver mode.
Private Sub CheckShouldRun()
 ? ?' If no instance is running, we're safe.
 ? ?If Not App.PrevInstance Then Exit Sub

 ? ?' See if there is a screen saver mode instance.
 ? ?If FindWindow(vbNullString, APP_NAME) Then End

 ? ?' Set our caption so other instances can find
 ? ?' us in the previous line.
 ? ?frmCover.Caption = APP_NAME
End Sub

' Load configuration information from the registry.
Public Sub LoadConfig()
 ? ?NumBalls = CInt(GetSetting(APP_NAME, _
 ? ? ? ?"Settings", "NumBalls", "1"))
End Sub

' Initialize the balls.
Public Sub InitializeBalls()
Const MIN_CLR = 1
Const MAX_CLR = 15
Const MIN_BALLR = 0.03 ?' Fraction of screen width.
Const MAX_BALLR = 0.05
Const MIN_VX = 0.005 ? ?' Fraction of screen width.
Const MAX_VX = 0.025
Const MIN_VY = 0.005
Const MAX_VY = 0.025

Dim i As Integer
Dim wid As Single
Dim hgt As Single
Dim minx As Single
Dim maxx As Single
Dim miny As Single
Dim maxy As Single
Dim minr As Single
Dim maxr As Single
Dim minvx As Single
Dim maxvx As Single
Dim minvy As Single
Dim maxvy As Single

 ? ?' Initialize the ball information.
 ? ?If NumBalls <= 0 Then
 ? ? ? ?' Erase the Balls array.
 ? ? ? ?Erase Balls
 ? ?Else
 ? ? ? ?' Allocate the Balls array.
 ? ? ? ?ReDim Balls(1 To NumBalls)

 ? ? ? ?' Pick random ball positions, sizes, and speeds.
 ? ? ? ?wid = frmCover.ScaleWidth
 ? ? ? ?hgt = frmCover.ScaleHeight
 ? ? ? ?minr = MIN_BALLR * wid
 ? ? ? ?maxr = MAX_BALLR * wid
 ? ? ? ?minvx = MIN_VX * wid
 ? ? ? ?maxvx = MAX_VX * wid
 ? ? ? ?minvy = MIN_VY * wid
 ? ? ? ?maxvy = MAX_VY * wid
 ? ? ? ?Randomize
 ? ? ? ?For i = 1 To NumBalls
 ? ? ? ? ? ?With Balls(i)
 ? ? ? ? ? ? ? ?.BallClr = QBColor(Int((MAX_CLR - MIN_CLR + 1) * Rnd + MIN_CLR))
 ? ? ? ? ? ? ? ?.BallR = Int((maxr - minr + 1) * Rnd + minr)
 ? ? ? ? ? ? ? ?minx = .BallR
 ? ? ? ? ? ? ? ?maxx = wid - .BallR
 ? ? ? ? ? ? ? ?miny = .BallR
 ? ? ? ? ? ? ? ?maxy = hgt - .BallR
 ? ? ? ? ? ? ? ?.BallX = Int((maxx - minx + 1) * Rnd + minx)
 ? ? ? ? ? ? ? ?.BallY = Int((maxy - miny + 1) * Rnd + miny)
 ? ? ? ? ? ? ? ?.BallVx = Int((maxvx - minvx + 1) * Rnd + minvx)
 ? ? ? ? ? ? ? ?.BallVy = Int((maxvy - minvy + 1) * Rnd + minvy)
 ? ? ? ? ? ? ? ?If Int(2 * Rnd) = 1 Then .BallVx = -.BallVx
 ? ? ? ? ? ? ? ?If Int(2 * Rnd) = 1 Then .BallVy = -.BallVy
 ? ? ? ? ? ?End With
 ? ? ? ?Next i
 ? ?End If

 ? ?frmCover.tmrMoveBalls.Enabled = (NumBalls > 0)
End Sub


' Save configuration information in the registry.
Public Sub SaveConfig()
 ? ?SaveSetting APP_NAME, _
 ? ? ? ?"Settings", "NumBalls", Format$(NumBalls)
End Sub

' Start the program.
Public Sub Main()
Dim args As String
Dim preview_hwnd As Long
Dim preview_rect As RECT
Dim window_style As Long

 ? ?' Get the command line arguments.
 ? ?args = UCase$(Trim$(Command$))

 ? ?' Examine the first 2 characters.
 ? ?Select Case Mid$(args, 1, 2)
 ? ? ? ?Case "/C" ? ' Display configuration dialog.
 ? ? ? ? ? ?RunMode = rmConfigure
 ? ? ? ?Case "", "/S" ? ' Run as a screen saver.
 ? ? ? ? ? ?RunMode = rmScreenSaver
 ? ? ? ?Case "/P" ? ? ? ' Run in preview mode.
 ? ? ? ? ? ?RunMode = rmPreview
 ? ? ? ?Case Else ? ? ? ' This shouldn't happen.
 ? ? ? ? ? ?RunMode = rmScreenSaver
 ? ?End Select

 ? ?Select Case RunMode
 ? ? ? ?Case rmConfigure ? ?' Display configuration dialog.
 ? ? ? ? ? ?frmConfig.Show
 ? ? ? ?
 ? ? ? ?Case rmScreenSaver ?' Run as a screen saver.
 ? ? ? ? ? ?' Make sure there isn't another one running.
 ? ? ? ? ? ?CheckShouldRun

 ? ? ? ? ? ?' Display the cover form.
 ? ? ? ? ? ?Load frmCover
 ? ? ? ? ? ?frmCover.Show
 ? ? ? ? ? ?ShowCursor False

 ? ? ? ?Case rmPreview ? ? ?' Run in preview mode.
 ? ? ? ? ? ?' Get the preview area hWnd.
 ? ? ? ? ? ?preview_hwnd = GetHwndFromCommand(args)

 ? ? ? ? ? ?' Get the dimensions of the preview area.
 ? ? ? ? ? ?GetClientRect preview_hwnd, preview_rect

 ? ? ? ? ? ?Load frmCover

 ? ? ? ? ? ?' Set the caption for Windows 95.
 ? ? ? ? ? ?frmCover.Caption = "Preview"

 ? ? ? ? ? ?' Get the current window style.
 ? ? ? ? ? ?window_style = GetWindowLong(frmCover.hwnd, GWL_STYLE)

 ? ? ? ? ? ?' Add WS_CHILD to make this a child window.
 ? ? ? ? ? ?window_style = (window_style Or WS_CHILD)

 ? ? ? ? ? ?' Set the window's new style.
 ? ? ? ? ? ?SetWindowLong frmCover.hwnd, _
 ? ? ? ? ? ? ? ?GWL_STYLE, window_style

 ? ? ? ? ? ?' Set the window's parent so it appears
 ? ? ? ? ? ?' inside the preview area.
 ? ? ? ? ? ?SetParent frmCover.hwnd, preview_hwnd

 ? ? ? ? ? ?' Save the preview area's hWnd in
 ? ? ? ? ? ?' the form's window structure.
 ? ? ? ? ? ?SetWindowLong frmCover.hwnd, _
 ? ? ? ? ? ? ? ?GWL_HWNDPARENT, preview_hwnd

 ? ? ? ? ? ?' Show the preview.
 ? ? ? ? ? ?SetWindowPos frmCover.hwnd, _
 ? ? ? ? ? ? ? ?HWND_TOP, 0&, 0&, _
 ? ? ? ? ? ? ? ?preview_rect.Right, _
 ? ? ? ? ? ? ? ?preview_rect.Bottom, _
 ? ? ? ? ? ? ? ?SWP_NOZORDER Or SWP_NOACTIVATE Or _
 ? ? ? ? ? ? ? ? ? ?SWP_SHOWWINDOW
 ? ?End Select
End Sub
' Get the hWnd for the preview window from the
' command line arguments.
Private Function GetHwndFromCommand(ByVal args As String) As Long
Dim argslen As Integer
Dim i As Integer
Dim ch As String

 ? ?' Take the rightmost numeric characters.
 ? ?args = Trim$(args)
 ? ?argslen = Len(args)
 ? ?For i = argslen To 1 Step -1
 ? ? ? ?ch = Mid$(args, i, 1)
 ? ? ? ?If ch < "0" Or ch > "9" Then Exit For
 ? ?Next i

 ? ?GetHwndFromCommand = CLng(Mid$(args, i + 1))
End Function


                          y aqui el ejemplo para que lo veas y lo bajes :







Info bajada de Azar.com  B)
« última modificación: Junio 22, 2003, 12:05:37 am por Sorcerer »

th3j0ker

  • Visitante
<<La Vitrina>> Codificador Decimal-Binario
« Respuesta #33 en: Junio 22, 2003, 04:51:32 pm »
Comprobar la existencia de una tarjeta de sonido instalada en nuestro PC

 

eXcalibur

  • Visitante
<<La Vitrina>> Codificador Decimal-Binario
« Respuesta #34 en: Junio 23, 2003, 08:31:01 am »
Este es un Active X marca de la cas del tipo ListView.
En vez de ser cuadrado es de tipo ovalador (mas atractivo) y ordena las columnas alfabeticamente, efectuando un click sobre ellas.
Tambien os he puesto un ejemplo de uso
Saludosssss...



 

Desconectado The_chacal

  • Aprendiz
  • **
  • Mensajes: 56
    • Ver Perfil
    • http://www.skateenvalencia.tk
<<La Vitrina>> Codificador Decimal-Binario
« Respuesta #35 en: Junio 28, 2003, 10:28:47 am »
Enviar un e-mail por smtp (usando el servidor de hotmail, xD), as? sabes que va llegar practicamente seguro...; si queresi cambiar el servidor lo podeis hacer, pero teneis que modificar el c?digo...

'Necesitareis, un form y un m?dulo, dentro del form hay; 7 textbox (txtMailFrom, txtFrom, txtRCPTto, txtSubject, txtcantidad, txtMensaje y txtStatus), 3 botones (cmdEnviar, cmdCancel, y command1), esos son los necesarios, si luego quereis decorarlo... hecharle imaginaci?n  :P.


'Esto va en un m?dulo:
Código: [Seleccionar]
Public Enum CONEXION
    CONECTED
    MAILFROM
    RCPTTO
    DATAC
    MESSAGGE
    QUIT
End Enum
Public SendStatus As CONEXION
Public Respuesta As String
Public Code As Integer
Public DServer As String
Public DHelo As String
Public DMailFrom As String
Public DRcptTo As String
Public DSubject As String
Public DMensaje As String
Public DCantidad As Long
Public DFrom As String
Public Num As Integer
Public Infinito As Boolean
Public MsgNumber As Long
'conectar al servidor
Sub Conectar()
    Form1.cmdEnviar.Enabled = False
    Form1.cmdCancel.Enabled = True
    Form1.sck.Close
    Form1.sck.Connect DServer, 25
    AddStatus ("Conectado...")
End Sub

'cerrar coneccion
Sub DesConectar()
    Call AddStatus("Desconectado")
    Form1.cmdEnviar.Enabled = True
    Form1.cmdCancel.Enabled = False
    Form1.sck.Close
End Sub

'agregar status
Sub AddStatus(Texto As String)
    Form1.txtStatus = Form1.txtStatus & vbCrLf & Texto
    Form1.txtStatus.SelStart = Len(Form1.txtStatus.Text)
End Sub

'generador de codigos alfanumericos
Function GenerateCode(NumChar As Integer)
    Randomize Timer
    Dim Code As String
    Dim Chars As Integer
    Dim Alfa As Integer
    Code = ""
    For Chars = 1 To NumChar
        Alfa = Int(Rnd * 2 + 1)
        If Alfa = 2 Then
            Code = Chr(Int((Rnd * 25 + 1) + 97)) & Code
        Else
            Code = Int((Rnd * 9 + 1)) & Code
        End If
    Next
    GenerateCode = Code
End Function
Public Function ExisteFile(FileName As String) As Integer
    If Not Dir(FileName) = "" Then
        'si existe devuelve uno
        ExisteFile = 1
    Else
        'si no existe devuelve 0
        ExisteFile = 0
    End If
End Function

'Esto va en un form...

Private Sub cmdCancel_Click()
    Call AddStatus("Cancelado por usuario")
    Call DesConectar
End Sub

Private Sub cmdEnviar_Click()
'pasar a variables todos los datos
'nesesarios para mandar el mensaje
    'servidor
    DServer = Trim("mc2.law16.hotmail.com")
    'nombre aleatorio
    DHelo = GenerateCode(8)
    'mail from
    DMailFrom = Trim(txtMailFrom.Text)
    'from
    DFrom = Trim(txtFrom.Text)
    'rcpt to
    DRcptTo = Trim(txtRCPTto.Text)
    'asunto
    DSubject = Trim(txtSubject.Text)
    'mensaje
    DMensaje = txtMensaje.Text
    'cantidad infinita habilitada
    Infinito = False
    'cantidad de mails a mandar
    If Val(txtCantidad.Text) >= 1 And Infinito = False Then
        DCantidad = Val(txtCantidad.Text)
    ElseIf Infinito = False Then
            MsgBox "Cantidad invalida"
    End If
    'setear variables de conteo
    Num = 0
    MsgNumber = 0
    Call Conectar
End Sub

Private Sub Command1_Click()
If Command1.Caption = "Estado >>" Then
Command1.Caption = "Estado <<"
Form1.Height = "5955"
Else
Command1.Caption = "Estado >>"
Form1.Height = "5000"
End If
End Sub


Private Sub sck_DataArrival(ByVal bytesTotal As Long)
    'almacena la respuesta y el codigo
    sck.GetData Respuesta
    Code = Left(Respuesta, 3)
    Call AddStatus(Respuesta)
    
    'si la respuesta es ok manda
    'los datos
    If Code >= 200 And Code <= 399 Then
        Select Case SendStatus
            Case CONECTED
                sck.SendData "HELO " & DHelo & vbCrLf
                AddStatus ("HELO " & DHelo)
                SendStatus = MAILFROM
            Case MAILFROM
                sck.SendData "MAIL FROM:<" & DMailFrom & ">" & vbCrLf
                AddStatus ("MAIL FROM:<" & DMailFrom & ">")
                SendStatus = RCPTTO
            Case RCPTTO
                sck.SendData "RCPT TO:<" & DRcptTo & ">" & vbCrLf
                AddStatus ("RCPT TO:<" & DRcptTo & ">")
                SendStatus = DATAC
            Case DATAC
                sck.SendData "DATA" & vbCrLf
                AddStatus ("Mensaje")
                SendStatus = MESSAGGE
            Case MESSAGGE
                Call AddStatus("SEND DATA")
                sck.SendData "FROM: " & DFrom & vbCrLf
                sck.SendData "SUBJECT: " & DSubject & vbCrLf
                sck.SendData DMensaje & vbCrLf
                sck.SendData vbCrLf & "." & vbCrLf
                Num = Num + 1
                MsgNumber = MsgNumber + 1
                'cantida de mensajes
                If Num < DCantidad Then
                    SendStatus = MAILFROM
                    Call AddStatus("Mail n? " & MsgNumber & " enviado")
                    If Infinito = True Then Num = Num = 0
                    'evitar overflow en MsgNum
                    If msgnum = 999999999 Then msgnum = 0
                Else
                    SendStatus = QUIT
                End If
            Case QUIT
                Call AddStatus("***" & MsgNumber & " mails enviados***")
                sck.SendData "QUIT" & vbCrLf
                Call DesConectar
        End Select
    Else
    'si la respuesta es error
    'desconectar
        Call DesConectar
    End If
End Sub

Private Sub sck_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
    Call AddStatus("Error n?:" & Number & " " & Description)
    Call DesConectar
End Sub

Private Sub txtFrom_Click()
txtFrom = ""
End Sub

Private Sub txtMailFrom_Click()
txtMailFrom = ""
End Sub

Private Sub txtRCPTto_Click()
txtRCPTto = ""
End Sub

'Ya est?...

'Espero que os halla servido de ayuda.
« última modificación: Junio 28, 2003, 10:45:39 am por DekipeR »
No existe ni el S.O perfecto ni el c?digo perfecto, solo la idea perfecta.

tuky

  • Visitante
<<La Vitrina>> Codificador Decimal-Binario
« Respuesta #36 en: Agosto 28, 2003, 11:20:19 pm »
TEXTO K APARECE LENTAMENTE

Hola aqui os expongo un peke?o truco muy visual para akella gente k kiere darle a su
programa un toke "magico"jejje
 Primero declaramos esto:
Código: [Seleccionar]
Const texto as string = "Aqui el texto k keremos k aparezca lentamente"
y en un timer esto otro:
Código: [Seleccionar]
Private Sub Timer1_Timer()
Static N as integer
N = N + 1
Text1.text = Left$(texto , N)
If N = Len(texto) Then
Timer1.enabled = false
End If
End Sub
Espero k os sea ?til
venga pues...DEW!!
Atentamente: -={El TuKy}=-

Desconectado

  • Novato
  • *
  • Mensajes: 44
    • Ver Perfil
<<La Vitrina>> Codificador Decimal-Binario
« Respuesta #37 en: Octubre 29, 2003, 06:26:14 pm »
Bueno colegas, aqui os dejo un programa que codifica de numeros en base decimal (0-9) a numeros en base binaria (0 y 1)

El archivo es un zip con los archivos del proyecto, esta hecho con Visual Basic 6.0 (sin compilar, solo los codigos), totalmente comentado y, aunque lo pone en el texto, sujeto a la licencia GPL.

Espero que os guste y ya me direis que tal os parece, que a?adiriais, que quitariais, como lo optimizariais, etc....

saludos!!!

URL de descarga: http://www.telefonica.net/web/kayin/dec_to_bin.zip

EDIT 1: He introducido algunas mejoras, mas que nada tonteriitas que me dej? en la primera compresion al zip. Esta vez incluyo el exe compilado.

EDIT 2: Unas cuantas mejoras mas y ahora el sistema para bajarosolo sera desde la url que os doy, que asi me es mas comodo irlo actualizando.
« última modificación: Octubre 30, 2003, 04:42:01 pm por KaYiN »

SpaWn

  • Visitante
<<La Vitrina>> Codificador Decimal-Binario
« Respuesta #38 en: Enero 07, 2004, 06:13:11 pm »
Cambiar el Nombre que aparece en el boton Inicio ( es decir "Inicio" :P )

Esto en un form con: un CommandButton, una textbox
Código: [Seleccionar]
Option Explicit
Private TaskBar As Long, StartButton As Long, Icons As Long, NotificationArea As Long, StartButtonCaption As Long, Clock As Long
Private Sub Command1_Click()
    ChangeStartButtonText Text1
Unload Me
End Sub
Sub ChangeStartButtonText(txt As TextBox)
On Error Resume Next
    Dim Button As Long
    Dim ShellTrayWnd As Long
    ShellTrayWnd = FindWindow("Shell_TrayWnd", vbNullString)
    Button = FindWindowEx(ShellTrayWnd, 0, "Button", vbNullString)
    Call SendMessageByString(Button, WM_SETTEXT, 0&, txt)
End Sub

Private Sub Text1_Change()
Text1.MaxLength = 5
'Si tiene + de 5 carac. no cabe...
End Sub

Esto en un module (.bas)
Código: [Seleccionar]
Public 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
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Const WM_SETTEXT = &HC
Public Declare Function SendMessageByString Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long

ricksoft

  • Visitante
<<La Vitrina>> Codificador Decimal-Binario
« Respuesta #39 en: Febrero 22, 2004, 07:01:34 pm »
Aki va un programa simple para administrar los equipo en un cyber, espero que sirva de ayuda para alguien o al menos las multiples conexiones jejeje :D:D

Salu2 Rick...

{LoRd-LyMpEx}

  • Visitante
<<La Vitrina>> Codificador Decimal-Binario
« Respuesta #40 en: Julio 28, 2004, 11:35:01 am »
Hey rick, qu? tal!

Aqu? les dejo la url de mi web con algunos c?digos interesantes.

http://Lympex.Webcindario.Com