Temas

Estimados, tengo la siguiente función con la cual creo un archivo word (.doc) pero no consigo dar con el codigo para insertar una tabla.

Agradecería su ayuda. 
Gracias amigos

Código (vb) [Seleccionar] Expandir


Private Sub MakeWordDoc(ByVal file_name As String, ByVal title As String, ByVal body As String)
On Error Resume Next
Dim word_app As Word.Application
Dim word_doc As Word.Document

' Open Word and create a document.
Set word_app = New Word.Application
Set word_doc = word_app.Documents.Add(DocumentType:=wdNewBlankDocument)


    ' Write the title.


    word_app.ActiveWindow.Selection.Font.Size = 25
    word_app.ActiveWindow.Selection.Font.Name = "Arial"
        word_app.Selection.TypeText title
    'word_app.ActiveWindow.Selection.Font.Size = 24
   
   
    ' Save the file.
    word_doc.SaveAs FileName:=file_name

    ' Close the document and Word.
    word_doc.Close True
    word_app.Quit False
End Sub


Estimados, recurro a su sapiencia, tengo un textbox multilinea con la siguiente estructura:

hola
mundo
nuevo

y lo que quiero es poder extraer cada linea por separada, por ejemplo en una variable, la linea 1 en otra la 2 y en otra la 3, pero no encuentro la forma de hacerlo.

Espero me puedan ayudar con eso.
Muchas gracias

Hola amigos, acudo a sus conocimientos, tengo un msflegrid, en la primera columna tengo algunos número, la idea es que todos los números mayores a 25 queden con el fondo color rojo, elaboré este codigo:

Código (vb) [Seleccionar] Expandir


'Problemas
MSFlexGrid3.Col = 0
For i = 0 To 23
MSFlexGrid3.Row = i
If MSFlexGrid3.Text > "25" Then
MSFlexGrid3.CellBackColor = RGB(255, 127, 100)
Exit Sub
End If
Next



El problema es que solo colorea la celda del primer valor encontrado en este caso el "28 del AC Milan (ver imagen) y la idea es que lo haga con todos los valores sobre 25 de la columna. Es decir Napoly, Toteham, etc.




Alguna idea amigos??
Muchas gracias

Estimados, estoy trabajando con el control "MSFlexGrid" el tema es que necesito obtener el valor derecho de la celda seleccionada, es decir por ejemplo si selecciono "Mehta" (Ver imagen) me muestre en un msgbox el valor "100"



Se puede??
Muchas gracias amigos

Hola amigos, una vez mas solicito su ayuda, tengo un listbox de la siguiente manera:

manzana [1]
naranja [1]
plátano [2]
sandia [2]
melón [1]
durazno [2]
guinda [1]

y necesito obtener el valor de cuantos [1] y cuantos [2] hay en la lista.
¿Se puede hacer de alguna manera?
Gracias amigos 

[MOD: No hacer doble post. Usa el botón modificar.]

Hola amigos, hace rato que no habría un nuevo hilo, he aprendido bastante pero siempre hay cosas por aprender, acudo a ustedes por que tengo el siguiente dilema:

Logre ordenar algunos datos en un flexgrid, funciona bastante bien salvo con las fechas, solo las ordena tomando el valor del día, que es el primer valor (03/10/2017). para solucionarlo cree otra columna en la cual están las fechas con el formato YYYYMMDD, (20171003) y de esa forma ordena la columna perfectamente.

El problema es que para ordenar tengo que presionar la columna que agregue al final que tiene el formato "YYYYMMDD"  y la idea es que cuando presione la columna de las fechas normales se ordene correctamente desde las mas antiguas hasta las mas reciente.

Al presionar la ultima columna ordena las fechas correctamente y la idea es que las ordene correctamente al presionar la columna "FEva"

¿Qué me sugieren ustedes?
Muchas gracias  

Al menos alguien me podría decir como llamo el evento click de una columna (x) a través de un botón???

MOD: No hacer doble post. Usa el botón modificar.

Hola amigos, hace rato que no pasaba por acá, me surgió la siguiente interrogante:

Cómo puedo comparar dos listbox, es decir que al recorrer las listas compruebe que tengan los mismos valores algo así como:

if list1 <> list2 then
msgbox "diferentes"
else
msgbox "iguales"
end if

Gracias amigos

Estimados:

Particioné mi disco duro, tengo windows 10 instalado en uno y en la otra partición quiero instalar el windows 7. El tema es que me aparece el error de la partición GPT, hay alguna forma de poder instalarlo sin tener que formartear el disco duro o sin perder los datos del disco.?

Muchas gracias amigos.

Amigos míos, solicito su apreciada ayuda: tengo mi formulario de la siguiente manera:



A través del command_button Realizo una comprobación entre los 3 texbox de la izquierda, con el textbox de la derecha para saber si el string del text4 se repite en alguno de los textbox de la izquierda a través del siguiente código:

Código (vb) [Seleccionar] Expandir

Private Sub Command1_Click()
If Text4.Text = Text1.Text Or Text4.Text = Text2.Text Or Text4.Text = Text3.Text Then
MsgBox "iguales"
End If
End Sub

El tema es que necesito averiguar cual de los 3 de la izquierda es el que tiene el mismo string que el de la derecha, es decir poder obtener el nombre del control que tiene el mismo string.

Se puede hacer de alguna forma??
gracias amigos  

Estimados, tengo el siguiente problema, necesito detectar cambios en un listbox en tiempo de ejecución, no solamente la cantidad de items, sino que también la edición de alguno de ellos, así como lo hace el evento change en un textbox. Se puede?

Atento a sus comentarios
gracias amigos

Estimados, recurro a ustedes una ves más, quiero saber si es posible hace lo siguiente:

Tengo 2 formularios, en el form1 tengo un listbox y a través del siguiente código me muestra que item está seleccionado:

Código (vb) [Seleccionar] Expandir

MsgBox List1.List(List1.ListIndex)

El problema es que necesito saber que item está seleccionado desde un botón que tengo en el form2, intenté con esto:

Código (vb) [Seleccionar] Expandir


MsgBox Form1.List1.List(List1.ListIndex)

Pero me da error, supongo que al cambiar el foco de un form al otro surge el problema.
Se puede hacer o desde vb6 es imposible

Gracias de antemano amigos.

Estimados, me fijé que al control listbox da la opción de trabajar en columnas, pero no encuentro la forma de asignar datos en una columna en particular.

Como tendría que hacerlo por ejemplo para poder agregar una string en la columna 2 del listbox.

PD: Se que podría hacerlo con un listview o datagrdi, pero necesito hacerlo desde un listbox.

Muchas gracias

Estimados, mi pregunta es la siguiente, tengo un listbox con 5 items y quiero que por ejemplo al hacer click en el item 1 me muestre un msgbox con el contenido del item número 1 y así con todos.

Se puede hacer esto en vb6? Gracias amigos 

Estimados, tengo un script que realiza algunas acciones con el mouse y el teclado, pero necesito optimizarlo par que se ejecuten los comandos con un menor tiempo de respuesta, es decir que haga lo que hace pero en menos tiempos.

Este es parte del código:

Código (actionscript) [Seleccionar] Expandir

Loop 478 {
MouseClick, left,  147,  628
MouseClick, left,  880,  528
Send, a


Gracias amigos

Estimados, acudo a ustedes una ves más, el tema es el siguiente tengo un label que tendrá valores del 50 al 99 y quiero cambiar el color del fondo segun el rango en el que se encuentre ese valor.

Algo así

If label1.caption = 10 al 20 then
Label1.backcolor = &FFFFFF
end if

If label1.caption = 21 al 30 then
Label1.backcolor = &000000
end if

Pero no logro dar con el codigo para comprobar por rangos.

Espero su ayuda amigos
Muchas gracias


Enviado desde mi LG-D805 mediante Tapatalk

Estimados, tengo un extraño problema que me tiene de cabeza, tengo una aplicación que me muestra el path de un archivo al arrastrarlo al textbox funciona perfecto, pero al abrir el programa con permisos de administrador, al arrastrar el archivo simplemente no muestra nada, el textbox queda en blanco.

¿Alguien sabe algo de este error, o me pasa solo ami?

Adjunto la apps para ver si a alguien le funciona.

Archivo ---> https://dl.dropboxusercontent.com/content_link/QEvt5dfqi8OeafLH9GjkPVN8p2i0sTTMb0Gi1tNZn9eOEQogUyOSnSOUgywNxjOi/file?dl=1

Saludos amigos

Estimados, tengo un problema, les cuento, necesito comprobar un checkbox con 51 checkboxes, como no tengo un conocimiento avanzado en programación, lo hice en base a la condicional IF, es decir:

Código (vb) [Seleccionar] Expandir


If Check52.Caption = Check1.Caption Or Check52.Caption = Check2.Caption Or Check52.Caption = Check3.Caption Or Check52.Caption = Check4.Caption Or Check52.Caption = Check5.Caption Or Check52.Caption = Check6.Caption Or Check52.Caption = Check7.Caption Or Check52.Caption = Check8.Caption Or Check52.Caption = Check9.Caption Or Check52.Caption = Check10.Caption Or Check52.Caption = Check11.Caption Or Check52.Caption = Check12.Caption Or Check52.Caption = Check13.Caption Or Check52.Caption = Check14.Caption Or Check52.Caption = Check15.Caption Or Check52.Caption = Check16.Caption Or Check52.Caption = Check17.Caption Or Check52.Caption = Check18.Caption Or Check52.Caption = Check19.Caption Or Check52.Caption = Check20.Caption Or Check52.Caption = Check21.Caption Or Check52.Caption = Check22.Caption Or Check52.Caption = Check23.Caption Or Check52.Caption = Check24.Caption Or Check52.Caption = Check25.Caption Or Check52.Caption = Check26.Caption Or Check52.Caption = Check27.Caption Then
msgbox "1"
Else
msgbox "2"
End If


El problema es que solo lo puede hacer hasta el checkbox 27 ya que desde el 28 el programa hace un salto de linea y me corta el código, supongo que hay un limite por linea.

Se que no es la forma mas optima de hacerlo, pero es lo que tenía a la mano.
Habrá alguna forma de hacerlo ya sea con este código o con otro.

Muchas gracias amigos

[MOD EDIT: No hagas doble post.]

Estimado no encuentro solución para esto despues de finalizar mi programa al compilar el vb6 se cuelga y no termina nunca de compilar. Ya he esperado como 2 horas y nada.

Alguna forma de hacerlo o espero nomas
Saludos amigos.

Enviado desde mi LG-D805 mediante Tapatalk



Después de 6 horas lo compilo :/

Enviado desde mi LG-D805 mediante Tapatalk

MOD EDIT: No hagas doble post.

Estimados, tengo un checkbox y necesito compararlo con 51 otros checkbox para saber si en alguno de ellos se repite el valor y en caso de que se repita, marcar el checkbox, tengo el siguiente código:

Código (vb) [Seleccionar] Expandir


If Check1.Caption = Check52.Caption Or Check1.Caption = Check53.Caption Or Check1.Caption = Checkxx.Caption.......  Then
Check1.Value = 1
End If


El tema es que es algo tedioso hacerlo uno por uno, existe alguna forma de optimizar el código para revisar todos los checkbox si necesidad de señalarlos uno por uno.

algo así como señalar el rango
If Check1.Caption = Check52.Caption al Check102.Caption Then
Check1.Value = 1
End If

gracias amigos  

Estimados, hace mucho que no programa en batch y he olvidado algunas cosas.

Quiero borrar un directorio, pero poder escoger la ruta después de ejecutar el archivo bat. El siguiente código elimina un directorio

@echo off
echo
rmdir /s/q "C:\prueba"
pause
exit

el tema es como poder yo escoger la ruta, después de ejecutar el bat. cosa de no tener que hacer 10 archivos batch con 10 rutas diferentes, solo 1 donde yo escoja que directorios borrar

gracias amigos

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] Expandir

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] Expandir

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.

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

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] Expandir

<!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] Expandir

<!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] Expandir

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

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
Muchas gracias

Estimado, tengo el siguiente codigo que cambia la prioridad de mi aplicación a tiempo real:

Código (vb) [Seleccionar] Expandir

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

Estimados, desde hace rato que no publicaba, he aprendido mucho gracias a ustedes y he loggrado muchas cosas de manera autodidacta, pero ahora me encuentro con un problema:

Tengo el componente FlexGrid y a traves de este codigo, agregue algunos valores a diferentes celdas:

Código (vb) [Seleccionar] Expandir

Private Sub Command1_Click()
Dim lCount As Long
   
   
    grid.Rows = 2
    grid.Cols = 2
    grid.FixedCols = 0
    grid.FixedRows = 0
   
   grid.ColWidth(0) = 400
   grid.ColWidth(1) = 400
   grid.Height = 100000
   
lCount = 1
grid.TextMatrix(lCount, 1) = "12"
   
lCount = 0
grid.TextMatrix(lCount, 0) = "11"

lCount = 1
grid.TextMatrix(lCount, 0) = "10"
   
lCount = 0
grid.TextMatrix(lCount, 1) = "09"
   
   
End Sub

Pero me gustaría saber como poder por medio de un IF comprobar un volar, por ejemplo:

If (celda fila1, columna 2) = 12 then
msgbox "es 12"
end if

Espero su ayuda amigos
muchas gracias

Estimados, necesito descomprimir archivos zip o rar, pero la idea es poder hacerlo respetando las carpetas.

Estaba utilizando la dll Unzip32, descomprime todos lo archivos, pero no las carpetas, solo junta todo.

Habrá alguna funcion, OCX o algo que me permite descomprimir archivos respetando los directorios.

Muchas gracias amigos  

Estimados, tengo el siguiente código:

Código (vb) [Seleccionar] Expandir


Text2.Text = Val(Text1.Text) / 2
Text4.Text = Val(Text3.Text) - Val(Text2.Text)


así se ve el formulario:



Donde primero divido el "valor 2"  por 2 y el resultado lo resto al "valor 1"

El problema es que el resultado en el text4.text, debería ser 84,5, pero automáticamente redondea el valor a 85.

¿Como evito que el valor se redondeé?
Muchas Gracias

Que tal amigos, espero esten bien, les cuento estoy desarrollando un proyecto de manera autodidacta y me encuentro con el siguiente desafio.

Tengo un texbox multilinea con una 10 lineas de texto, lo que quiero lograr es dividir cada linea del textbox en textboxs independientes.

Es decir la primera linea del textbox multilinea en un textbox la segunda línea en otro texbox y asi sucesivamente.

Espero su ayuda amigos
muchas gracias

Enviado desde mi LG-D805 mediante Tapatalk

Amigos, Primero que todo desearles un feliz 2015.
Tengo un pequeño problema, tengo un checkbox el cual muestra un mensaje al estar marcado y otro mensaje al estar desmarcado. Funciona perfecto.

El problema se genera al iniciar la aplicación, ya que el programa marca o desmarca el checkbox cuando está o no está un archivo. y si existe el archivo, se marca el checkbox pero al mismo tiempo lanza el mensaje al iniciar la aplicación.

Este es el código para que se entienda mas:

Código (vb) [Seleccionar] Expandir


Private Sub Form_Load()
If Len(Dir("C:\lm.dll")) = 0 Then
Check1.Value = 0
Else
Check1.Value = 1
End If
End Sub

Private Sub Check1_Click()
If Check1.Value = 1 Then
msgbox "marcado"
Else
msgbox "no marcado"
End If
End Sub


En resumen, el problema es que al marcar el checkbox al iniciar la aplicación al estar el archivo, se lanza el mensaje, y la idea es que el mensaje solo se lance cuando se marque el checkbox manualmente.

Espero se entienda, gracias amigos

Amigos, estoy tratando de hacer lo siguiente, quiero traspasar el contenido de un txt a otro txt, algo así como esto:

Código (vb) [Seleccionar] Expandir

Open "C:\WINDOWS\system32\drivers\etc\hosts" For Output As "C:\version.cfg" 'se abre para escritura


muchas gracias amigos

Amigos, necesito su ayuda, tengo este código para crear un archivo de texto:

Código (vb) [Seleccionar] Expandir

fnum = FreeFile 'se obtiene el numero de archivo
Open "C:\ruta.cfg" For Output As fnum 'se abre para escritura

' Escribe las lineas de texto
Print #fnum, "hola mundo"
Close fnum 'se cierra el archivo

El problema es que me crea el archivo con un salto de linea



Que tendría que hacer, para evitar el salto de linea al generar el archivo de texto

gracias amigos  

Amigos:

Estoy intentado almacenar el valor de un checkbox de manera muy engorrosa, pero no logra dar con el error, paso a explicar el cogido, así se el form:



así funciona, espero se entienda:

al presionar el checkbox se genera un archivo de texto con el valor marcado:

Código (vb) [Seleccionar] Expandir


Private Sub Check1_Click()
If Check1.Value = 1 Then
Dim fnum As Integer

fnum = FreeFile 'se obtiene el numero de archivo
Open "C:\Archivo.txt" For Output As fnum 'se abre para escritura

' Escribe las lineas de texto
Print #fnum, "1"
Close fnum 'se cierra el archivo
Else

fnum = FreeFile 'se obtiene el numero de archivo
Open "C:\Archivo.txt" For Output As fnum 'se abre para escritura

' Escribe las lineas de texto
Print #fnum, "0"
Close fnum 'se cierra el archivo
End If
End Sub

Luego al iniciar el programa, intento cargar el valor del C:\Archivo.txt en un textbox y luego intento marcar el checkbox leyendo el valor del Text1 y poder marcar el checkbock con este código:

Código (vb) [Seleccionar] Expandir


Private Sub Form_Load()
   Dim foo As Integer
   
    foo = FreeFile
    Open "C:\Archivo.txt" For Input As #foo
        Text1.Text = Input(LOF(foo), #foo)
    Close #foo

If Text1.Text = "1" Then
   MsgBox "1"
Check1.Value = 1
    Else
   MsgBox "0"
Check1.Value = 0
    End If
    End Sub


El problema es que siempre me sale el mensaje del valor 0, y no logro hacerlo funcionar.

Alguna idea del por que se genera este error??

gracias amigo

Tengo un form sin bordes es decir que la propiedad "Border Style = 0 - none" el tema es que quiero que ese form se pueda redimensionar, pero al estar sin bordes no encuentro la forma de hacerlo, les pido de su orientación.

gracias amigos

Amigos, aqui de nuevo con algunas consultas de un pequeño proyecto que estoy desarrollando, el tema es el siguiente.

Tengo 3 textbox, lo que quiero es poder almacenar a traves de un command button el contenido de cada textox en una linea de un archivo de texto luego a través de otro command button recuperar esa información y volver a rellenar los 3 textbox.

con este código, solo consigo hacerlo de a uno a la ves:

Código [Seleccionar] Expandir

Private Sub Command3_Click()
   Dim mitexto As Integer
   mitexto = FreeFile
   Open "C:\ejemplo.txt" For Output As #mitexto
       Print #mitexto, Text1
   Close #mitexto
End Sub

Gracias por su ayuda amigos

amigos. necesito que un modulo utilice una librería que no está en la ruta en donde se encuentra un exe, de esta forma funciona sin problemas llamando a la dll desde disco local C

Código [Seleccionar] Expandir

Public Declare Function Wiz_SingleEntryUnzip Lib "C:\Unzip32.dll" (ByVal ifnc As Long, ByRef ifnv As ZIPnames, ByVal xfnc As Long, ByRef xfnv As ZIPnames, dcll As UNZIPOPTIONS, Userf As UNZIPUSERFUNCTION) As Long


Pero si lo hago con App.Path, de esta forma no funciona:

Código [Seleccionar] Expandir

Public Declare Function Wiz_SingleEntryUnzip Lib App.Path & "\1\Unzip32.dll" (ByVal ifnc As Long, ByRef ifnv As ZIPnames, ByVal xfnc As Long, ByRef xfnv As ZIPnames, dcll As UNZIPOPTIONS, Userf As UNZIPUSERFUNCTION) As Long

me da error de compilación, ¿Cuál seria la forma correcta amigos?
Muchas gracias

Amigos necesito su ayuda, necesito poder verificar si un servidor esta disponible a través de la IP, en vb.net el código es muy sencillo:

Código [Seleccionar] Expandir

If My.Computer.Network.Ping("198.01.01.01") Then
 MsgBox("Server pinged successfully.")
Else
 MsgBox("Ping request timed out.")
End If

Pero no consigo lograrlo en vb6
Conocen algún método para hacerlo

Muchas gracias amigos

amigos, se me ocurrió poder realizar algo para optimizar un programa que tengo, la idea es la siguiente, crear una especie de buscador en una pagina determinada.

Por ejemplo con el buscador de esta pagina, se me ocurrió hacer algo como esto usando la función ShellExecute para abrir paginas-

Código [Seleccionar] Expandir


Private Sub Command1_Click()
res = ShellExecute(Me.hwnd, "Open", "http://wiki.elhacker.net/system/app/pages/customSearch?scope=cse-goog_1258298707613&q=; text1.Text;&search=", "", "", 1)
End Sub


http://wiki.elhacker.net/system/app/pages/customSearch?scope=cse-goog_1258298707613&q=auditorias+wifi&search=

Pero en la dirección no toma los valores del text1, si no que busca "; text1.Text;"

No logro hacerlo funcionar, se puede hacer de esta forma, o hay una manera mejor de hacerlo

Gracias amigos

Amigos, a pesar de que tengo un conocimiento medio de windows esto es ago que escapa de mis manos y de verdad que me tiene al borde del colapso.

Resulta que por intentar formatear un disco duro externo, mi disco duro interno cambia el tipo de partición a raw por lo que no podía acceder a los archivos.

Envié el disco al técnico y me recuperaron toda la información, pero ahora después de formatear el disco duro sin problemas e intentar instalar windows 8.1 me aparecer el siguiente error:



El disco que antes del error era detectado por windows, ahora no lo hace, he buscado cuando drivers he encontrado, por que según lo que leí, me faltan unos drivers SATA.

No se que mas hacer, tal ves el disco se daño o algo, pero cuando lo conecto al pc como disco externo me funciona sin problemas :S

Solicito su ayuda amigo, esto ya me tiene desesperado

muchas gracias amigos

Amigos tengo una duda existencial, resulta que en mi casa monte un servidor para un determinado juego, el cual funciona perfecto, los jugadores pueden ingresar a través de la IP del server a jugar.

El problema es que para entrar al servidor se requiere un registro, yo puedo acceder a través de https://localhost:8181, el problema es como hago para que otros jugadores puedan acceder a esa dirección y puedan registrarse desde sus computadores, sin necesidad de hacerlo yo manualmente.

Espero se entienda amigos
Saludos

Amigos con este código, puedo abrir un archivo JAR,

Código [Seleccionar] Expandir

Sell "java.exe -jar C:\archivo.jar", vbHide

El problema es que lo quiero hacer a través de App.Path

intente con

Código [Seleccionar] Expandir

Shell App.Path & "\java.exe -jar C:\archivo.jar", vbHide

pero me dice que no encuentra el archivo, solicito su ayuda amigos

muchas gracias

Amigos: tengo el siguiente código que muestra un mensaje al presionar la tecla F1:

Código [Seleccionar] Expandir

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyF1
MsgBox "presionaste F1"
End Select
End Sub

El problema es que quiero hacerlo cuando el form este con la propiedad visible = False, o este minimizado, pero toma como referencia las acción predeterminada por windows y no la asignada por mí.

Se puede controlar algunas acción con el teclado con el form oculto o minimizado??
Gracias por su ayuda amigos, he aprendido mucho

Amigos, tengo un error que me tiene de cabeza, tengo este codigo que crea un documento de texto:

Código [Seleccionar] Expandir

fnum = FreeFile 'se obtiene el numero de archivo
Open (Environ$("ProgramFiles") & "\KONAMI\Data\ip.conf") For Output As fnum  'se abre para escritura

' Escribe las lineas de texto
Print #fnum, "hola"
Print #fnum, "mundo"
Close #fnum 'se cierra el archivo

el problema es que me crea una tercera fila en blanco y eso me genera un error en mi aplicación:



Alguien me puede explicar por que pasa eso y como puedo solucionarlo??

gracias amigos

amigos, tengo el siguiente problema, tengo el siguiente codigo que me muestra la IP al presionar un botón, funciona sin problemas:

Código [Seleccionar] Expandir

Private Sub Command1_Click()
Winsock1.RemoteHost = Winsock1.LocalHostName
MsgBox Winsock1.LocalIP
End Sub

El problema se da cuando cambio la IP local (desconecto el cable de red y me conecto por wifi) al presionar el botón, sigue mostrando la misma IP local, y no la actualizar, hasta que cierre y habrá la aplicación.

¿Como actualizo lo que muestre Winsco?
¿Hay algún otro método para mostrar la IP?

gracias amigos

Alguien tiene algún código para obtener la WAN IP del router a través de vb6. la IP local la saco con el componente Winsock, pero la WAN IP no se como

alguna ayuda.
gracias amigos