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 - rapbyone

Páginas 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
#41
Programación Visual Basic / Copiar archivo a la carpeta system32
10 Octubre 2015, 20:07 PM
Estimado la pregunta es bien sencilla, puedo copiar una dll a la carpeta system32 a través de vb6, intente con:

Código (vb) [Seleccionar]
FileCopy "C:\ButtonXp.ocx", "C:\Windows\System32\ButtonXp.ocx"

pero simplemente no copia nada, ni siquiera muestra error.

Intenté con otro código:


Código (vb) [Seleccionar]
Private Declare Function GetSystemDirectory Lib "kernel32" _
Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize _
As Long) As Long
Private Sub Form_Load()
    Dim buf As String * 256
    Dim return_len As Long

    return_len = GetSystemDirectory(buf, Len(buf))
    lblSystemDirectory.Caption = Left$(buf, return_len)



FileCopy "C:\ButtonXp.ocx", _
lblSystemDirectory.Caption & "\" & "ButtonXp.ocx"
End Sub


y tampoco, se puede hacer o estoy errando en algo.

gracias por su orientación amigos.
#42
Programación Visual Basic / Re:
8 Septiembre 2015, 18:56 PM
Perfecto, gracias estimado, tema resuelto

Enviado desde mi LG-D805 mediante Tapatalk
#43
Programación Visual Basic / Problema con caracteres especiales
7 Septiembre 2015, 06:11 AM
Estimados, al extraer el código de fuente de una web y al cargarlo en un textbox, aparecen unos caracteres en los tildes y en algunas letras especiales, el tema es que lo he solucionado remplazando los caracteres, pero es algo tedioso hacerlo uno por uno.

Hay alguna forma de evitar que se carguen los caracteres que reemplazan los tildes en el textbox.

Atento a sus comentarios
gracias amigos
#44
Programación Visual Basic / Re: Eliminar contenido entre caracteres de un string
28 Agosto 2015, 05:54 AM
Cita de: Cromatico en 27 Agosto 2015, 15:04 PM
Si lo que hay es únicamente saltos de linea, sin ningún caracter extra entre cada salto, quiza te puede servir algo asi:
Text1.Text = Replace(Text1.Text, vbCrLf & vbCrLf, vbCrLf)


Estimado no me funcionó, alguna otra solución amigo
muchas gracias
#45
Programación Visual Basic / Re: Importar a textbox con salto de linea
27 Agosto 2015, 13:23 PM
Cita de: BlackZeroX (Astaroth) en 27 Agosto 2015, 06:31 AM
Lo mas seguro debas reemplazar el carácter ascii 10 o 13 por 10 y 13...

Primero identifica cual es el carácter que se esta usando para el salto de linea

vbLf = valor ascii 10
vbCr = valor ascii 13

Según sea el caso:
Código (vb) [Seleccionar]
datos = replace(datos, vbLf, vbCrLf)

Código (vb) [Seleccionar]
datos = replace(datos, vbCr, vbCrLf)

Saludos!¡.


Estimado muchas gracias por responder, se estaba usando "ascii 10" para el salto de linea, ya está solucionado.

Muchas gracias  ;-) sin saber nada de programación he aprendido mucho :D
#46
Programación Visual Basic / Importar a textbox con salto de linea
27 Agosto 2015, 06:06 AM
Estimados, recurro a ustedes por que tengo un problema que me tiene de cabeza y no logro dar con la solución, intentaré ser lo mas explicito posible.

a través del control inet extraigo el código de fuente de una web a un archivo .txt, el problema se genera al cargar dicho archivo a un textbox, ya que por alguna razón omite lo saltos de linea del código web.

Al abrirlo en un editor de texto como Notepad+ el código aparece de la siguiente manera:

Código (vb) [Seleccionar]
<!DOCTYPE html>
<html lang="en" dir="ltr" class="client-nojs">
<head>
<meta charset="UTF-8" />
<title>Wikipedia, the free encyclopedia</title>

No obstante al cargarlo al textbox, aparece todo el texto junto de la siguiente manera

Código (vb) [Seleccionar]
<!DOCTYPE html><html lang="en" dir="ltr" class="client-nojs"><head><meta charset="UTF-8" /><title>Norwich City F.C. - Wikipedia, the free encyclopedia</title>

tengo que copiarlo desde el notepad+ y pegarlo al textbox para que aparezcan los saltos de linea y la idea es que se haga de manera automática

este es el código:

Código (vb) [Seleccionar]
Dim Datos As String
Datos = Inet1.OpenURL("https://en.wikipedia.org/wiki/Norwich_City_F.C.")
Dim fnum As Integer
fnum = FreeFile 'se obtiene el numero de archivo
Open "C:\fuente.txt" For Binary Access Write As fnum 'se abre para escritura

' Escribe las lineas de texto
Put #fnum, , Datos
Close #fnum 'se cierra el archivo
MsgBox "ok"

Agradezco de <3 su ayuda, ya que agoté los medios y no encontré una posible solución.
Muchas gracias
#47
Programación Visual Basic / Re: Eliminar contenido entre caracteres de un string
26 Agosto 2015, 21:12 PM
Cita de: seba123neo en 25 Agosto 2015, 23:29 PM
Hola, con Expresión regular (regex) se puede hacer, busca sobre eso...

saludos.

Muchas gracias estimado, con las expresiones regulares logré eliminar todo el código html.

No obstante ahora que tengo el codigo limpio, tengo problemas para eliminar los saltos de linea, la idea es mantener los saltos de linea entre palabras, pero eliminar los saltos en blanco, es decir pasar de esto:

Código (vb) [Seleccionar]
No.

Position
Player


20

MF
Tony Andreu


21

MF
Youssouf Mulumbu

a esto

Código (vb) [Seleccionar]
No.
Position
Player
20
MF
Tony Andreu
21
MF
Youssouf Mulumbu

Me podrían dar una manito.
Muchas gracias
#48
Programación Visual Basic / Eliminar contenido entre caracteres de un string
25 Agosto 2015, 16:10 PM
Estimados, tengo almacenado en una variable un extracto del código de fuente de una web, el tema es que necesito limpiar el string a través de la eliminación de todo el texto que están dentro de los caracteres < >.

este es un ejemplo del texto a limpiar:

<td style="text-align: center;"><a href="/wiki/Goalkeeper_(association_football)" title="Goalkeeper (association football)">GK</a></td>

Lo ideal sería eliminar todo el texto para que solo quede GK.

Cualquier información será bien recibida :D
Muchas gracias

#49
Programación Visual Basic / Re: Cambiar prioridad a un proceso
26 Julio 2015, 19:35 PM
Cita de: tincopasan en 26 Julio 2015, 06:32 AM
basicamente tendrías que crear el proceso del bloc de notas con CreateProcess y a partir de ahí asignarle la prioridad que buscas, para después abrirlo con OpenProcess

Cita de: Mad Antrax en 26 Julio 2015, 18:59 PM
Us auna API que te devuelva el handle del proceso (a partir de su PIC o WIndowText, por ejemplo) y a partir de ahí podrás llamar a la API para cambiar su prioridad.

Amigos gracias por responder, la verdad es que tendré que leer bastante, por que con mis conocimientos dudo que logre entender como hacer lo que me sugieren. estoy recién comenzando con vb6.

¿Algo que pueda leer o buscar?

Gracias amigos
#50
Programación Visual Basic / Cambiar prioridad a un proceso
25 Julio 2015, 23:32 PM
Estimado, tengo el siguiente codigo que cambia la prioridad de mi aplicación a tiempo real:

Código (vb) [Seleccionar]
Const THREAD_BASE_PRIORITY_IDLE = -15
Const THREAD_BASE_PRIORITY_LOWRT = 15
Const THREAD_BASE_PRIORITY_MIN = -2
Const THREAD_BASE_PRIORITY_MAX = 2
Const THREAD_PRIORITY_LOWEST = THREAD_BASE_PRIORITY_MIN
Const THREAD_PRIORITY_HIGHEST = THREAD_BASE_PRIORITY_MAX
Const THREAD_PRIORITY_BELOW_NORMAL = (THREAD_PRIORITY_LOWEST + 1)
Const THREAD_PRIORITY_ABOVE_NORMAL = (THREAD_PRIORITY_HIGHEST - 1)
Const THREAD_PRIORITY_IDLE = THREAD_BASE_PRIORITY_IDLE
Const THREAD_PRIORITY_NORMAL = 0
Const THREAD_PRIORITY_TIME_CRITICAL = THREAD_BASE_PRIORITY_LOWRT
Const HIGH_PRIORITY_CLASS = &H80
Const IDLE_PRIORITY_CLASS = &H40
Const NORMAL_PRIORITY_CLASS = &H20
Const REALTIME_PRIORITY_CLASS = &H100
Private Declare Function SetThreadPriority Lib "kernel32" (ByVal hThread As Long, ByVal nPriority As Long) As Long
Private Declare Function SetPriorityClass Lib "kernel32" (ByVal hProcess As Long, ByVal dwPriorityClass As Long) As Long
Private Declare Function GetThreadPriority Lib "kernel32" (ByVal hThread As Long) As Long
Private Declare Function GetPriorityClass Lib "kernel32" (ByVal hProcess As Long) As Long
Private Declare Function GetCurrentThread Lib "kernel32" () As Long
Private Declare Function GetCurrentProcess Lib "kernel32" () As Long


Private Sub Form_Load()
Dim hThread As Long, hProcess As Long
hThread = GetCurrentThread
hProcess = GetCurrentProcess
SetThreadPriority hThread, THREAD_PRIORITY_HIGHEST
SetPriorityClass hProcess, REALTIME_PRIORITY_CLASS
End Sub

pero no logro hacerlo con otros procesos, por ejemplo poder cambiar la prioridad del bloc de notas.

Alguien tiene alguna idea de como tendría que hacerlo
muchas gracias amigos
Páginas 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18