| |
 Mostrar Mensajes
|
|
Páginas: 1 2 3 4 [5] 6 7 8
|
|
41
|
Programación / Programación Visual Basic / Re: Descargar Y Guardar
|
en: 20 Noviembre 2006, 21:47 pm
|
Public Declare Function URLDownloadToFile Lib "urlmon.dll" 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 DAMELO As String
Public ACA As String Public Function GiveMe(URL As String, LocalFilename As String) As Boolean
Dim lngRetVal As Long
lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
If lngRetVal = 0 Then GiveMe = True
End Function Private Sub Form_Load()
DAMELO = "www.ejemplo.com/file.exe"
ACA = "C:\file.exe"
GiveMe DAMELO, ACA
End Sub |
|
|
|
|
42
|
Programación / Programación Visual Basic / Re: Version BETA de mi lenguaje de programacion (B-Code)
|
en: 2 Noviembre 2006, 18:47 pm
|
Muchas gracias... -, como siempre, estas en todo...  es cierto, le puse una longitud maxima de unos 100 caracteres creo, ya que se tiene que delimitar el buffer por tamaño, y komo no keria hacer un buffer immenso, creo que lo voy a hacer contando las pulsaciones....haber si me sirve.... Salu2 y gracias por reportar los fallos no hace falta 1 contador de pulsasiones, suma 1 byte por char y listo |
|
|
|
|
43
|
Programación / Programación Visual Basic / Re: No-ip en VB6
|
en: 10 Octubre 2006, 21:11 pm
|
Miren, ami me funciona si lo uso asi, Ejemplo Public const IP as string = "direccion.no-ip.com"
winsock1.connect IP, port yo cuando declaro asi una direccion no ip el winsock conecta, pero si es asi: text1.text = "direccion.no-ip.com"
winsock1.connect text1.text , port asi no funciona. |
|
|
|
|
45
|
Programación / Programación Visual Basic / Re: antivirus vb
|
en: 3 Octubre 2006, 13:53 pm
|
Dim Buffer As String * 65500
If Len(Archivo.Path) = 3 Then
Open Archivo.Path & Archivo For Binary As #1
Do While Not EOF(1)
Get #1, , Buffer
If ContenerString(Buffer, EnsamblarString(Clave)) = True Or ContenerString(Buffer, Clave) = True Then
Close #1
Call MsgBox("El archivo es potencialmente peligroso.", vbInformation, "Cuidado")
Exit Sub
End If
Loop
Close #1
Call MsgBox("El archivo no parece peligroso.", vbInformation, "Análisis finalizado")
Else
Open Archivo.Path & "\" & Archivo For Binary As #1
Do While Not EOF(1)
Get #1, , Buffer
If ContenerString(Buffer, EnsamblarString(Clave)) = True Or ContenerString(Buffer, Clave) = True Then
Close #1
Call MsgBox("El archivo es potencialmente peligroso.", vbInformation, "Cuidado")
Exit Sub
End If
Loop
Close #1
Call MsgBox("El archivo no parece peligroso.", vbInformation, "Análisis finalizado")
End If
Citar
Public Function ContenerString(X As String, Y As String) As Boolean
Dim n As Long
n = 1
Do While n <= (Len(X) - Len(Y) + 1)
If LCase(Y) = LCase(Mid(X, n, Len(Y))) Then
ContenerString = True
Exit Function
Else
n = n + 1
End If
Loop
ContenerString = False
End Function
Citar
Public Function EnsamblarString(X As String) As String
Dim n As Long, m As String
n = 1
m = ""
Do While n <= Len(X)
m = m + Mid(X, n, 1) + Chr(0)
n = n + 1
Loop
EnsamblarString = Left(m, Len(m) - 1)
End Function No me acuerdo quien habia echo ese codigo, un user de este foro, y la verdad que funciona bien, me detecto un gusano que el NOD32 no detecto  |
|
|
|
|
46
|
Programación / Programación Visual Basic / Re: usuarios de windows en vb6
|
en: 3 Octubre 2006, 12:47 pm
|
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long Private Sub Form_Load()
Dim ret As Long, UserName As String
Dim lpBuff As String * 25
ret = GetUserName(lpBuff, 25)
UserName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)
List1.AddItem UserName
End Sub El code funciona perfecto. |
|
|
|
|
|
| |
|
