Mensajes

[3 añazos]

(28 Junio 2009) - (19 Septiembre 2006) = 3 añazos!

Al el favor de no revivir post tan viejos... si quieres un nuevo link le envías un MP a BenRu que seguro que te lo envía sin problemas...

nada mas ten cuidado con las apis que utilicen la convencion cdecl porque necesitas equilibrar la pila despues de llamar la funcion. yo no acostumbro a usar invoke asi que no me acuerdo si te equilibra la pila. Solo tenlo en cuenta o puedes tener errores.

Con FASM si no me equivoco puedes llamarlas poniendo 'cinvoke'

como hago para que los numeros sean leidos como #.##?? porque en la expresion que se imprime en el label, viene de otro label, cuyo resultado se ve expresado como #,## :S

Revisate esta funcion, es muy interesante

Código (vb) [Seleccionar] Expandir

Format()

Código [Seleccionar] Expandir

http://www.vb6.us/tutorials/understanding-vb-format-function-custom-numeric-formats
http://msdn.microsoft.com/es-es/library/59bz1f0h(VS.80).aspx

Saludos

[Karcrack]

PD: Me ha quedado tipo anuncion no? jaja

Si 

Karcrack tu eres avanzado en VB.

¿Por qué es diferente?

Código (vb) [Seleccionar] Expandir

dim num as single
dim num2 as single
num=val(text1.text) ' Devuelve el numero con decimales
num2=val(label1.caption) ' Devuelve la parte entera

En el caso anterior se puede hacer que devuelva el número en sí?

Código (vb) [Seleccionar] Expandir

dim num as single
dim num2 as single
num=val(text1.text) ' Devuelve el numero con decimales
num2=label1.caption ' Devuelve el numero con decimales

Código [Seleccionar] Expandir

num2=val(label1.caption) ' Devuelve la parte entera
Eso no es cierto.... a mi me devuelve con decimales incluidos.... comprueba que pones el numero de esta forma n.##

VB es tiene un compilador muy inteligente... que lo que hace es que si tu no le indicas el tipo de variable usa por defecto un Variant...

Asi que recordad siempre usar Option Explicit y declarar vuestras variables con tipo!


PD: Me ha quedado tipo anuncion no? jaja

Buenas Noches

[']

Yo el problema lo veo aqui:

invoke ExitProcess,0'

Asi queda sin poner esa comilla simple al final de la linea:

Código (asm) [Seleccionar] Expandir

include 'win32ax.inc'
.data
dString db "i'm a string",0
.code
start:
stdcall fRight,dString,9
invoke MessageBox,0,eax,0,0
invoke ExitProcess,0
;Funcion que emula la funcion Right de Visual Basic 6
proc fRight,pString,pLen
push esi ebx  edi ecx
mov eax,[pLen]
inc eax
invoke GlobalAlloc,GPTR, eax
mov esi,eax
mov ebx,eax
stdcall Len,[pString]
sub eax,[pLen]
mov edi,[pString]
add edi,eax
.bucle_:
cmp [pLen] ,0
je .exit
mov cl,byte[edi]
mov byte[ebx],cl
inc ebx
inc edi
dec [pLen]
jmp .bucle_
.exit:
mov eax,esi
pop ecx edi ebx esi
ret
endp
proc Len,cCadena   ;Funcion que mide la cadena
push ecx edi
mov ecx,-1
mov edi,[cCadena]
mov al,0
repnz scasb
mov eax,ecx
not eax
dec eax
pop edi ecx
ret
endp
.end start

Bueno, con C lo tienes que hacer con APIs... OpenURL* Para sacar el codigo de un URL... y para los formularios puedes hacerlo igual con C...

Saludos

Eso que tu haces no es VB6....

Lo lamento, pero odio .NET

No, no se puede poner un Sub dentro de otro... al menos no asi tal cual...

Si lo que quieres es utilizar los eventos del WinHTTP entonces tendras que declararlo con eventos... mira este ejemplo:
(Recuerda añadir el componente Microsoft HTTP)

Código (vb) [Seleccionar] Expandir

Option Explicit

Dim WithEvents oWinHTTP         As WinHttp.WinHttpRequest

Private Sub Form_Load()
    Set oWinHTTP = New WinHttp.WinHttpRequest
    Debug.Print ReadURL("https://foro.elhacker.net/programacion_vb-b50.0/")
End Sub

Public Function ReadURL(ByVal sURL As String) As String
'    Dim oWinHTTP        As Object 'As New WinHttp.WinHttpRequest
'
'    Set oWinHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")

    With oWinHTTP
        Call .Open("GET", sURL)
        Call .Send
        ReadURL = .ResponseText
    End With

'    Set oWinHTTP = Nothing
End Function

Private Sub oWinHTTP_OnResponseStart(ByVal Status As Long, ByVal ContentType As String)
    MsgBox "Se inicio la descarga"
End Sub

Private Sub oWinHTTP_OnResponseFinished()
    MsgBox "Se finalizo la descarga!!"
End Sub

Saludos

[1_]

Bueno, te respondo a tus pasos con codigos

1_

Código (vb) [Seleccionar] Expandir

Public Function ReadURL(ByVal sURL As String) As String
   Dim oWinHTTP        As Object 'As New WinHttp.WinHttpRequest
   
   Set oWinHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
   
   With oWinHTTP
       Call .Open("GET", sURL)
       Call .Send
       ReadURL = .ResponseText
   End With
   
   Set oWinHTTP = Nothing
End Function

3_ (Se puede hacer de muchas formas...)

Código (vb) [Seleccionar] Expandir

'URLMON
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

Public Function DownloadToFolder(ByVal sURL As String, ByVal sFolder As String) As Boolean
   Dim sPath           As String
   
   If Right$(sFolder, 1) <> "\" Then sFolder = sFolder & "\"
   
   sPath = sFolder & Mid$(sURL, InStrRev(sURL, "/") + 1)
   
   DownloadToFolder = (URLDownloadToFile(ByVal 0&, sURL, sPath, ByVal 0&, ByVal 0&) = 0)
End Function

Lo de parsear te lo dejo a ti, es facil (Split, Mid, Instr... blah, blah..xD)

Saludos