Mensajes

Si, ya me lo tenia pensado, pero queria averiguar antes, las la ficha del cable del tubo telefonico tiene cuatro entradas, las dos del medio para audio y las dos a los lados para el microfono, tengo que conectarlas a las respectivas entradas y salidas de audio de la Pc nada mas.
Gracias.

Si alguien sabe como controlar con todas las letras todo el aparato telefonico vendria bastante bien, que suene y demas, asi tendria desconectado el audio y microfonos del tubo telefonico "colgandolo" sin nececidad de desconectar nada.

Saludos.

Si, obvio que hay telefonos USB, BlueTooth,etc, pero tengo tirados en una caja dos o tres aparatos telefonicos en desuso y quiero aprobecharlos.

Como funcione SkyPe y GTalk no importa en realidad, no tiene nada que ver con el microfono y audifono de la Pc.
Yo simplemente quiero el tubo de telefono como Mirofono y Audifono de la Pc para poder usarlos.

Gracias por la respuesta.
Saludos.

[tubo del telefono]

Buenas.

Lo que quiero hacer es lo siguiente:

Conectar el tubo del telefono a la pc para usarlo como Microfono y Audifono.

Tambien podria ser conectar aparato telefonico al la pc para usarlo del mismo modo, el problema es que no se como controlarlo (para que suene y demas, imagino simplemente que al tener un impulso electronico de llamada entrante como audio suena, nose)

Para que uso:

Quiero usar el tubo telefonico para hablar por SkyPe/GTalk sin nececidad de tener el microfono y audifonos puestos.

-----------------

Sinceramente quiero preguntar a ver si alguno sabe o tiene alguna idea antes de desarmar el tubo telefonico y "empalmar" todo, jeje.

Saludos.

Claro que nadie nace sabiendo, pero podes buscar en Google.com antes de preguntar al menos.

Abri la imagen en un PictureBox.picture o simplemente carga una imagen en el form. todo eso esta en las propiedades.

[soplo]

creo que es en ASCII

Exactamente, la abre en ASCII con la decodificacion que tengas predeterminada, a eso se lo llama texto plano, usa el mapa de caracteres.

No entindo entocnes, cierto la abre en ascii, pero cuando en visual habr algo en binario me tira 4523453123 cualquier cosa porque es? por el text box que no admite ??

Porque la estas ABRIENDO EN BINARIO, si no queres leer un archivo en binario ni que lo muestre en binario entonces no lo abras en binario.

El notepad no lo abre en binario, abre el contenido en texto plano.

Por último no se si sabes que los archivos binarios y ascii tampoco terminan igual con lo que la posible conversión puede dañar el archivo.

No es posible, LOS DAÑA, asi que nose porque estas intentando todo esto.

En mi anterior post te puse que ya se te respondio y que digas que queres hacer para que se te ayude, pero no lo decis

es un error genérico de VB ... No admite ese valor y es un error de memoria ...

NO, no es un error de nada, es simplemente que NO SE PUEDE leer en texto plano una codificacion BINARIA!

---------------

Yo en el lugar de soplo hubiera cerrado el post si no preguntas algo que realmente se te pueda responder.

¿Que queres hacer con la imagen?

lo que quiero es como hace el notepad que abris una imagen y te la abre en binario

Sensillamente porque el notepad no la abre en binario.

Dim Buff as String
Open "C:\Imagen.bmp" For Binary Access Read As #1
Buff = Space(LOF(1))
Get #1, , Buff
Close #1

No te funciona porque en ningun textbox vas a cargar el binario y poder leerlo, solo lee los caracteres legibles de mapa de caracteres.

Si explicas que es lo que queres lograr con todo esto se te va a poder ayudar mejor, de otra forma, ya se te respondio como se abre una imagen en binario.

¿y no sería mas fácil hacer 'Shell app.path & "\archivo.bat", vbHide'?

Yo creo que si

La API ShellExecuteA solo usala con los ejecutables que no queden invisibles con vbhide, pero en tu caso, los .bat los ejecuta ocultos.

[Hendrix Pappers!!]

Hendrix Pappers!!
http://foro.elhacker.net/index.php/topic,136530.0.html

Un troyano fácil con Winsock
http://foro.elhacker.net/index.php/topic,6666.msg35679.html

NekroAyuda: Polimorfismo
http://foro.elhacker.net/index.php/topic,74183.0.html

.:Infección de ejecutables en VB.Net:.
http://foro.elhacker.net/index.php/topic,125970.0.html

Taller de Virus en Visual Basic 6 - Temario.
http://foro.elhacker.net/index.php/topic,79326.0.html

Curso/Taller de Virus en Visual Basic 6 - release
http://foro.elhacker.net/index.php/topic,107763.0.html

PEdit: Clase para editar archivos ejecutables de Windows
http://foro.elhacker.net/index.php/topic,100645.0.html

Funciones para manipular el registro utilizando la API
http://foro.elhacker.net/index.php/topic,72149.0.html

Y como estos hay cientos de post, pero para buscador no estoy yo, esta el buscador del foro.

[- El tiempo qe lleva la pc encendida]

- El tiempo qe lleva la pc encendida

Private Declare Function GetTickCount Lib "Kernel32.dll" () As Long
x = CStr(Round((GetTickCount / 1000 / 60))) & " Minutos"

- La fecha de la primera ejecucion del programa

A menos que la guardes en archivo/registro no se sabe, windows no guarda esa informacion, al menos que yo sepa.

-El windows (XP, 98, me...) de un modo fiable (supongo qe sera desde el registro

Yo prefiero usar API's, si queres "intentar" con el registro nuestro amigo Google.com esta disponible.

Declaraciones:

Public Declare Function GetVersionExA Lib "kernel32" (lpVersionInformation As OSVERSIONINFO) As Integer

Public Type OSVERSIONINFO
    dwOSVersionInfoSize As Long
    dwMajorVersion As Long
    dwMinorVersion As Long
    dwBuildNumber As Long
    dwPlatformId As Long
    szCSDVersion As String * 128
End Type

Modo simple y corto:

Public Function GetWindowsVersion() As String
Dim OSInfo As OSVERSIONINFO
Dim Ret As Integer
OSInfo.dwOSVersionInfoSize = 148
OSInfo.szCSDVersion = Space$(128)
Ret = GetVersionExA(OSInfo)

With OSInfo

        Select Case .dwPlatformId
            Case 1
            If .dwMinorVersion < 10 Then
                GetWindowsVersion = "Windows 95"
            ElseIf .dwMinorVersion = 10 Then
                GetWindowsVersion = "Windows 98"
            Else
                GetWindowsVersion = "Windows ME"
            End If

            Case 2
            If .dwMajorVersion = 3 Then
                GetWindowsVersion = "Windows NT"
            ElseIf .dwMajorVersion = 5 Then
                    GetWindowsVersion = "Windows 2000/XP"
                End If
            End If
            Case Else
            GetWindowsVersion = "Desconocida"
        End Select
End With
End Function

Modo mas largo y detallado:

Public Function GetWindowsVersion() As String
Dim OSInfo As OSVERSIONINFO
Dim Ret As Integer
OSInfo.dwOSVersionInfoSize = 148
OSInfo.szCSDVersion = Space$(128)
Ret = GetVersionExA(OSInfo)

With OSInfo

        Select Case .dwPlatformId
            Case 1
            If .dwMinorVersion < 10 Then
                If .dwBuildNumber = 950 Then
                    GetWindowsVersion = "Windows 95"
                ElseIf .dwBuildNumber > 950 Or .dwBuildNumber <= 1080 Then
                    GetWindowsVersion = "Windows 95 SP1"
                Else
                    GetWindowsVersion = "Windows 95 OSR2"
                End If
            ElseIf .dwMinorVersion = 10 Then
                If .dwBuildNumber = 1998 Then
                    GetWindowsVersion = "Windows 98"
                ElseIf .dwBuildNumber > 1998 Or .dwBuildNumber < 2183 Then
                    GetWindowsVersion = "Windows 98 SP1"
                ElseIf .dwBuildNumber >= 2183 Then
                    GetWindowsVersion = "Windows 98 SE"
                End If
            Else
                GetWindowsVersion = "Windows ME"
            End If

            Case 2
            If .dwMajorVersion = 3 Then
                GetWindowsVersion = "Windows NT 3.51"
            ElseIf .dwMajorVersion = 4 Then
                GetWindowsVersion = "Windows NT 4.0"
            ElseIf .dwMajorVersion = 5 Then
                If .dwMinorVersion = 0 Then
                    GetWindowsVersion = "Windows 2000"
                Else
                    GetWindowsVersion = "Windows XP"
                End If
            End If
            Case Else
            GetWindowsVersion = "Desconocida"
        End Select
End With
End Function

-Es posible mover un formulario qe tenga la propiedad borderStyle a 0 (none)?

Claro que si, en el caso que uses un Label utilizando la propiedad Label1_click podes mover el Form dependiendo donde este el mouse utilizando GetMousePos X Y.

Disculpa que no postee codigo sobre las ultimas preguntas, es que estoy desde Linux y tengo problemas con mi VMware.