Temas

Vereis, estoy programando X programa y para ello necesito llamar a una funcion "dinamicamente", o sea, tengo que generar el codigo binario a partir de un unsigned long que contiene la direccion de la funcion a llamar, la verdad es que nunca habia echo esto, por lo tanto al igual que hice con el push, hice esto.

Código (cpp) [Seleccionar] Expandir


BYTE CallSignature[5];

CallSignature[0] = 0xE8; //! CALL opcode
*(DWORD*)( CallSignature + 1 ) = dwFunctionAddress;


Pero en ese momento me di cuenta de que las direcciones de los calls son relativas y no absolutas, estuve buscando por google y no encontre nada que me aclarara como calcular la direccion.

Alguien tiene idea de como calcular la direccion que habria que poner justo despues del 0xE8?

hola a todos 

Toy intentando crear el efecto de resplandor  que pasa muy rapido por las letras, pero no tengo una idea clara de como lo tengo que hacer, se que tengo q hacer una imagen del resplandor pero ahi ya me pierdo, alguien me echa una mano?

Tengo una app que usa un sistema de chat, pero cuando recive la ventana algun mensaje no hace igual que en el msn que empieza a parpadear el botoncito de abajo en la lista de ventanas abiertas, alguien tiene idea de como hacer para que parpadee? supongo que sera con SendMessage, busque en google y no encontre nada

gracias

Conozco algunos programas tipo Fusion o VB-PowerWrap para embeber las dependencias de los ejecutables de VB en el mismo exe, si alguien conoce alguna otra que no sea esas dos que lo diga xD hace algun tiempo vi otra pero no recuerdo el nombre

Holas a todos 

Tengo algunas dudas sobre los archivos mapeados en memoria.

Se acceden como cualquier archivo en el disco duro?

Si por ejemplo yo quiero mapear uno en C:\archivo.txt, ese archivo aparece "fisicamente" en el disco duro?

Lo digo xk quiero montar archivos como hace el Quake, el tiene un solo archivo ZIP pero dentro tiene un monton de carpetas, pero el quake lo mapea y accede a el como si de archivos fisicos en el disco duro se tratase.

Si alguien sabe algun codigo para hacer esto en VB o alguna ayudita se lo agradecere

Sludos

Tengo una pequeña pregunta

Como hago por ejemplo, para que al poner el valor a una variable, solo pueda ponerle un tipo YA definido por mi?

Un ejemplo es cuando haces una msgbox, y al ponerle el tipo de msgbox te salen un monton de opciones tipo vBInformation, vBcritical etc...

Saludos y gracias

Wenas, como siempre vengo con una pregunta  xD

Me baje de PSCode un Bouncer Multiconexiones pero CREO que solo acepta 10 conexiones, y no tengo cojones de hacer que acepte mas, siempre que lo intento la cago xD

El que me baje es este:
http://www.pscode.com/vb/scripts/ShowCode.asp?txtCodeId=39020&lngWId=1

Si teneis alguno mejor que acepte MULTICONEXIONES si sois tan amables de pasarmelo, o echarme una mano con este xD

Os pongo el codigo:

Código [Seleccionar] Expandir

Private Sub Command1_Click()
For a = 1 To 10
sckTCP(a).Close
sckTCP2(a).Close
DoEvents
Next a
sckTCP(0).Close
sckTCP(0).LocalPort = Text1
sckTCP(0).Listen
Timer1.Interval = Text4
End Sub

Private Sub Form_Load()
For a = 1 To 10
Load sckTCP(a)
Load sckTCP2(a)
DoEvents
Next a
Text4 = "10000"
'Form2.Show
End Sub

Private Sub sckTCP_ConnectionRequest(Index As Integer, ByVal requestID As Long)
On Error Resume Next
sckTCP(0).Close
For a = 1 To 10
If sckTCP(a).State = 0 Then
sckTCP2(a).Close
sckTCP2(a).RemoteHost = Text2
sckTCP2(a).RemotePort = Text3
sckTCP2(a).Connect
sckTCP(a).Accept requestID
DoEvents
a = 11
End If
DoEvents
Next a
sckTCP(0).Close
sckTCP(0).Listen
End Sub

Private Sub sckTCP_DataArrival(Index As Integer, ByVal bytesTotal As Long)
If temp = "" Then sckTCP(Index).GetData temp
DoEvents
Do
If sckTCP2(Index).State = 7 Then
sckTCP2(Index).SendData temp
DoEvents
temp = ""
Exit Do
End If
If sckTCP(Index).State = 0 Then Exit Do
DoEvents
Loop
End Sub

Private Sub sckTCP2_DataArrival(Index As Integer, ByVal bytesTotal As Long)
If temp = "" Then sckTCP2(Index).GetData temp
DoEvents
Do
If sckTCP(Index).State = 7 Then
sckTCP(Index).SendData temp
DoEvents
temp = ""
Exit Do
End If
If sckTCP(Index).State = 0 Then Exit Do
DoEvents
Loop
End Sub

Private Sub Timer1_Timer()
For a = 1 To 10
If sckTCP(a).State = 8 Then sckTCP(a).Close: sckTCP2(a).Close
If sckTCP(a).State = 9 Then sckTCP(a).Close: sckTCP2(a).Close
If sckTCP2(a).State = 8 Then sckTCP2(a).Close: sckTCP(a).Close
If sckTCP2(a).State = 9 Then sckTCP2(a).Close: sckTCP(a).Close
DoEvents
Next a
End Sub


Saludos y gracias ^^

Mirad,

lo que quiero hacer es meter en un exe otro exe y al principio otro exe que descomprima el segundo exe..esto es lo de menos

lo que quiero saber es si es posible cargar el contenido binario del exe a una variable y ejecutarlo desde esa variable

Ejemplo mal hecho xD

v1 = loadfile("archivo.exe")
ejecutarexevariable v1

y ahora se abriria el archivo.exe pero el que esta cargado en memoria

antes lo hacia recreando el archivo en el disco duro y despues ejecutandolo, pero canta demasiado ya que aparece un archivo nuevo.


no se si es posible hacer eso, pero por preguntar no pierdo nada

saludines (molan los iconos nuevos xD)

Como puedo hacer para que salga la típica barrita del IE para instalar un control activeX?

o sea, entras en una web y te sale arriba "esta pagina blablabla..." se te descarga el archivo y se te instala, y asi ya lo puedes usar

he busacdo en google pero nu encuentro nada..

Hola ^_^

alugien sabe como recuperar los valores de los parametros?

ejemplo


equisde.exe -c

como se si se ha puesto el parametro "-c"? (o sea saber si esta definido)


saludos

hay alguna manera de saber si una funcion en php ya esta declarada?

en un archivo tengo muchas funciones declaradas, y hago un include a ese archivo en todos los scripts, entonces lo ejecuta y me da este error

Fatal error: Cannot redeclare clean() (previously declared in f:\webserver\www\modules\class.libs.php:5) in f:\webserver\www\modules\class.libs.php on line 5

creo que habia una funcion para saber si la funcion ya estaba declarada, pero no recuerdo cual era

hay alguna manera de sacar la ruta completa al archivo de un proceso?

por ejemplo

esta el proceso apache.exe

yo lo que quiero es sacar la ruta completa, o sea

C:\Apache\bin\apache.exe

saludos, busque por planet source code pero no encontre nada

Wenas tengo la siguiente duda:

Un programa se conecta a una IP determinada... lo que yo quiero saber es como adivinar la ip a la que ta conectada cierto programa, algo asi como netstat pero que te diga la aplicacion

saludos ^^

como puedo cambiar los atributos de archivos en visual basic, (oculto, solo lectura, etc...)

saludos 

hay alguna manera de crear un server browser, por ejemplo, apra Counter Strike? en visual basic?

saludos 

pues eso que toy haciendo un programita que descarga un fixero de la web y no tengo ni zorra idea de cual es la formula para hallar la velocidad de descarga  (formula matematica)

alguien la sabe?

saludos

Tngo un módulo para descomprimir Zips pero cuando descomprimo un zip que contenga carpetas no las crea, simplemente no las descomprime -.-

alguien sabe como hacer pa que descomprima las carpetas, o algun código

Código [Seleccionar] Expandir


Private Type CBChar
    ch(4096) As Byte
End Type

Private Type UNZIPUSERFUNCTION
    UNZIPPrntFunction As Long
    UNZIPSndFunction As Long
    UNZIPReplaceFunction  As Long
    UNZIPPassword As Long
    UNZIPMessage  As Long
    UNZIPService  As Long
    TotalSizeComp As Long
    TotalSize As Long
    CompFactor As Long
    NumFiles As Long
    Comment As Integer
End Type


Private Type UNZIPOPTIONS
    ExtractOnlyNewer  As Long
    SpaceToUnderScore As Long
    PromptToOverwrite As Long
    fQuiet As Long
    ncflag As Long
    ntflag As Long
    nvflag As Long
    nUflag As Long
    nzflag As Long
    ndflag As Long
    noflag As Long
    naflag As Long
    nZIflag As Long
    C_flag As Long
    FPrivilege As Long
    Zip As String
    extractdir As String
End Type

Private Type ZIPnames
    s(0 To 99) As String
End Type
Public Declare Function Wiz_SingleEntryUnzip Lib "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
Public Sub UnZip(Zip As String, extractdir As String)
On Error GoTo err_Unzip

Dim Resultado As Long
Dim intContadorFicheros As Integer

Dim FuncionesUnZip As UNZIPUSERFUNCTION
Dim OpcionesUnZip As UNZIPOPTIONS

Dim NombresFicherosZip As ZIPnames, NombresFicheros2Zip As ZIPnames

NombresFicherosZip.s(0) = vbNullChar
NombresFicheros2Zip.s(0) = vbNullChar
FuncionesUnZip.UNZIPMessage = 0&
FuncionesUnZip.UNZIPPassword = 0&
FuncionesUnZip.UNZIPPrntFunction = DevolverDireccionMemoria(AddressOf UNFuncionParaProcesarMensajes)
FuncionesUnZip.UNZIPReplaceFunction = DevolverDireccionMemoria(AddressOf UNFuncionReplaceOptions)
FuncionesUnZip.UNZIPService = 0&
FuncionesUnZip.UNZIPSndFunction = 0&
OpcionesUnZip.C_flag = 1
OpcionesUnZip.fQuiet = 2
OpcionesUnZip.noflag = 1
OpcionesUnZip.Zip = Zip
OpcionesUnZip.extractdir = extractdir

Resultado = Wiz_SingleEntryUnzip(0, NombresFicherosZip, 0, NombresFicheros2Zip, OpcionesUnZip, FuncionesUnZip)

Exit Sub
err_Unzip:
    MsgBox "Unzip: " + Err.Description, vbExclamation
    Err.Clear
End Sub

Private Function UNFuncionParaProcesarMensajes(ByRef fname As CBChar, ByVal x As Long) As Long
On Error GoTo err_UNFuncionParaProcesarMensajes

    UNFuncionParaProcesarMensajes = 0

Exit Function
err_UNFuncionParaProcesarMensajes:
    MsgBox "UNFuncionParaProcesarMensajes: " + Err.Description, vbExclamation
    Err.Clear
End Function

Private Function UNFuncionReplaceOptions(ByRef p As CBChar, ByVal L As Long, ByRef m As CBChar, ByRef Name As CBChar) As Integer
On Error GoTo err_UNFuncionReplaceOptions

    UNFuncionParaProcesarPassword = 0

Exit Function
err_UNFuncionReplaceOptions:
    MsgBox "UNFuncionParaProcesarPassword: " + Err.Description, vbExclamation
    Err.Clear
End Function
Public Function DevolverDireccionMemoria(Direccion As Long) As Long
On Error GoTo err_DevolverDireccionMemoria

    DevolverDireccionMemoria = Direccion

Exit Function
err_DevolverDireccionMemoria:
    MsgBox "DevolverDireccionMemoria: " + Err.Description, vbExclamation
    Err.Clear
End Function


saludos

este es el problema

sin compilar el programa no me da error ninguno, o sea me refiero a que se ejecuta como yo quiero sin dar ningun error

pero cuando lo compilo al exe, me da un error de path o nombre de archivo. Cuando intenta manejar algun archivo

al no dar el error cuando no esta compilado no se que linea tiene error -_-

alguien sabe k hacer?

saludos

weno lo del icono ya lo tengo pero lo k quiero eske al minimizarse el formulario no se minimize a la barra d tareas o sea k se haga un form1.hide y k el icono apareza dnde ta el reloj

alomejor no me e explicado bien
xD


saludos

weno me e topao cn un problema a k no le encuentro soluicion xD

tngo un bas para leer INI's y asi cargar cierta configuracion

weno tngo una lista d juegos asi en el INI

Código [Seleccionar] Expandir

[1]
nombre=juego1
autor=pepe
estado=ktimporta

[2]
nombre=juego2
autor=pepe2
estado=ktimporta2

y asi sucesivamente

lo k quiero es mostrar todo eso en un ListView cada categoria en una columna, para ello pense usar un bucle pero me da el siguiente error

"El tipo de agurmento ByRef no coincide"

el código del bas es este

Código [Seleccionar] Expandir

Option Explicit
Private Declare Function GetPrivateProfileString Lib "Kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Private Declare Function WritePrivateProfileString Lib "Kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long

Public Function LeerIni(lpFileName As String, lpAppName As String, lpKeyName As String, Optional vDefault) As String
    Dim lpString As String
    Dim LTmp As Long
    Dim sRetVal As String

    If IsMissing(vDefault) Then
        lpString = ""
    Else
        lpString = vDefault
    End If

    sRetVal = String$(255, 0)

    LTmp = GetPrivateProfileString(lpAppName, lpKeyName, lpString, sRetVal, Len(sRetVal), lpFileName)
    If LTmp = 0 Then
        LeerIni = lpString
    Else
        LeerIni = Left(sRetVal, LTmp)
    End If
End Function

Sub GuardarIni(lpFileName As String, lpAppName As String, lpKeyName As String, lpString As String)
    Dim LTmp As Long

    LTmp = WritePrivateProfileString(lpAppName, lpKeyName, lpString, lpFileName)
End Sub

tambien he usado un timer pero me da otro error

saludos

weno toy haciendo una programita y necesito listar uuna lista d datos en un listbox pero en columndas y k arriba de la columna salga el nombre de la categoria

exactamente como sto



saludos

po eso, ai alguna manera d desabilitar el clipboard, o detener su proceso, y si se pudiese deneter su proceso, cual es xD

saludos

ya e oido x ahi que algunos programas d pago stan en versiones Nulled, pero k es eso?? supongo k sera algo parecido a crakeado o asi xD nose exactamente


bye

EDIT.- me ekivoke d foro -_- no se puede mover ¬¬ k algun mod lo mueva ^^ saludos

he visto varios programas k exos cn el VB 6 los botones, las barras de progreso y demas se ven cn la apariencia dl XP, pero los programas k ago no se ven asi, se ven como en el Win 98, eso es lo k quiero saber, como ago pa k salgan asi  :PxD

salu2 ^^

toy haciendo un programa k lo k hace es juntar un arxivo en otro y luego k lo separe, el juntarmelo perfecto pero el sacarmelo ya m da errores lo ejecuto, se me abre una ventana d ms dos y se me cierra, y okupa lo mismo k el Gunz.exe

JUNTAR

Código [Seleccionar] Expandir

Private Sub Command1_Click()
Box1.loadfile "proyecto1.exe" ' todas las box son RichTextBox
box2.loadfile "Gunz.exe"
datos = box1.text & "---SEP---" & box2.text
End Sub

Open "resultado1.exe" for binary as #1
put #1, , datos
close #1

SEPARAR (es otro programa aparte)

Código [Seleccionar] Expandir

Private Sub Command1_Click()
Box1.LoadFile "resultado1.exe""
datos = Split(Box1.Text, "---SEP---")
Open "resultado2.exe"" For Binary As #1
Put #1, , datos
Close #1
End Sub

Si uso el Open para leer el arhivo no me ace na, me crea el archivo pero na, sin ambargo si uso el Rich me lo cra y lo ejecuta sin problemas ( Todo eso en el JUNTAR)

salu2

stoy haciendo un programa para k pulse una tecla, pero el problema eske no m la pulsa ya que nose como decirle al VB cual es el PROCESO al que debe darle la accion, espero k m entendais


salu2

PD: Sigo probando ^^

wenas tngo una duda ^_^

toy haciendo ujn programa k lee un arxivo binario, pero lo k quiero es insertar ese binario en el propio programa dl VB, o sea quiero meter un exe a otro exe para k el exe 2º me lo sake, algo como un  virus k infecta a los ejecutables, espero k me ayan entendido jaja

salu2

kisiera saber como puedo escribir una letra a partir de su codigo ASCII xD ya probe cn:

ASCII("21") pero no funciono, (alomejor el VB tenia una fncion xD)

x ejemplo text1.text = ASCII("34")

salu2

[Alias "URLDownloadToFileA]

weno quiero saber kuales son los "Alias" que pùede contener una dll
como la k esta aki.

Public Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" _

ni sikiera se si es posible xD

salu2

Aki dejo unas preguntas ^^, xD

Como puedo descargarme un archivo desde internet y guardarlo en mi ekipo, algo asi como un update, eso s lo principal aora, como se el porcentaje d descarga para asignarselo a un Progressbar?

Otra xD, en visual basic ai algun control k  ekivalga al Boton Examinar? x ejemplo cuando subes un archivo.

eso es todo, sorry x ai algo ya sta repetido

salu2[/shadow]