elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Los 10 CVE más críticos (peligrosos) de 2020


  Mostrar Mensajes
Páginas: 1 2 3 4 5 6 7 8 9 10 11 [12] 13 14 15 16 17 18 19 20 21 22 23 24
111  Programación / Programación Visual Basic / Re: como detengo un timer en: 5 Abril 2006, 01:08 am
Ok complikemolas mejor!!! jejeje mientras mas complicado mejor:

lo que are sera conectarlo a internet y verificar con otro timer, lo que haremos es ver si estas conectado a internet, de se haci lo que hacemos es salir de los timers!!!

Código:
Private Declare Function InternetAttemptConnect Lib "wininet" (ByVal dwReserved As Long) As Long


Private Sub Timer1_Timer()
On Error GoTo ERROR:
 SendKeys "{enter}"
Error:
End Sub

Private Sub Timer2_Timer() 'Cada un segundo!!!!
 If InternetAttemptConnect(ByVal 0&) = 0 Then
  'Se Conecto a internet
  Timer1.Enabled=False
  Timer2.Enabled=False
  End ' por si keremos salir!!!!!
 End If
End Sub

es cuestion de ingeniarcelas!!! y usar google o:http://allapi.net/apilist/InternetAttemptConnect.shtml
112  Programación / Programación Visual Basic / Re: como detengo un timer en: 4 Abril 2006, 23:44 pm
si te entiendo, pero te falto al app.activate... que koloke en el otro code mio....

para parlo tendras que hacer esto:
Despues de esto...(agregale el app.activate)
Código:
SendKeys "{enter}"
End



113  Programación / Programación Visual Basic / Re: como detengo un timer en: 4 Abril 2006, 23:33 pm
Timer1.Enabled=False

Eso lo que hace es desabilitar el timer, si lo keres avilitar:
Timer1.Enabled=True

Saludos!
114  Programación / Programación Visual Basic / Re: Leer pagina web en: 4 Abril 2006, 23:32 pm
todo muy bien pero el que pregunto no keria eso el keria ver el codigo fuente y solo sakar una parte del texto (osea una parte del codigo fuente), pero lo que haces vos es ver si existe o no la url!!!!!

mi codigo es el que le serivra para el proposito!
115  Programación / Programación Visual Basic / Re: Necesito ayuda para descargar archivos con mi navegador... en: 4 Abril 2006, 18:32 pm
Weno estaba respondiendo y se cayo la web...
jejeje

lo que keres hacer es como algun gestor de descarga, pero como usas el machine del IE, te aparece el encargado de descargar archivos, para esto podes ver este programa (esta el code fuente):
http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=54010&lngWId=1

te recomiendo esa web, podes encontrar un navegador, muy weno!!!

http://www.planet-source-code.com/vb/scripts/BrowseCategoryOrSearchResults.asp?optSort=Alphabetical&txtCriteria=navigator&blnWorldDropDownUsed=TRUE&txtMaxNumberOfEntriesPerPage=10&blnResetAllVariables=TRUE&lngWId=1

con respecto al link es. que si el usuario tiene esto:
<a href="http://www.google.com.ar" target="_blank">Google</a>

lo que haga es que te abra el programa tuyo y no el IE, para esto tendras que hacer esto.
1- Poner como navegadr principal tu programa
2- en el evento load, o smain (en caso de que se carge de un modulo), poner
Código:
Archivo = Command()
 If Archivo<>"" Then
  AbrirUrl(Archivo)
  'Donde AbrirUrl es tu funcion o objeto para abrir una url
 EndIf
116  Programación / Programación Visual Basic / Re: Ejecutar al prender la pc en: 4 Abril 2006, 17:31 pm
No vas a poder ejecutar ninguna aplicacion windows en DOS puro, lo que si podes ejecutar es un programa de DOS, usando QBasic, o en algun .Bat, etc...

eso es lo que te recomiendo...
117  Programación / Programación Visual Basic / Re: Leer pagina web en: 4 Abril 2006, 17:29 pm
Yo entiendo lo que keres hacer, yo realize un crakeador de webs (de files, osea que busca si existe el index.php, index.asp, etc),  y para eso lo que ice fue leer el codigo fuente de la web, y verificar si existia la palabra error, 404 etc...

Yo para esto use este programa, que me muestra codigos fuentes de las api de windows:
http://www.allapi.net/agnet/appdown.shtml

y use este codigo:
Código:
Const scUserAgent = "API-Guide test program"
Const INTERNET_OPEN_TYPE_DIRECT = 1
Const INTERNET_OPEN_TYPE_PROXY = 3
Const INTERNET_FLAG_RELOAD = &H80000000
Const sURL = "http://www.microsoft.com/index.htm"
Private Declare Function InternetOpen Lib "wininet" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
Private Declare Function InternetCloseHandle Lib "wininet" (ByVal hInet As Long) As Integer
Private Declare Function InternetReadFile Lib "wininet" (ByVal hFile As Long, ByVal sBuffer As String, ByVal lNumBytesToRead As Long, lNumberOfBytesRead As Long) As Integer
Private Declare Function InternetOpenUrl Lib "wininet" Alias "InternetOpenUrlA" (ByVal hInternetSession As Long, ByVal lpszUrl As String, ByVal lpszHeaders As String, ByVal dwHeadersLength As Long, ByVal dwFlags As Long, ByVal dwContext As Long) As Long
Private Sub Form_Load()
    'KPD-Team 1999
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net

    Dim hOpen As Long, hFile As Long, sBuffer As String, Ret As Long
    'Create a buffer for the file we're going to download
    sBuffer = Space(1000)
    'Create an internet connection
    hOpen = InternetOpen(scUserAgent, INTERNET_OPEN_TYPE_DIRECT, vbNullString, vbNullString, 0)
    'Open the url
    hFile = InternetOpenUrl(hOpen, sURL, vbNullString, ByVal 0&, INTERNET_FLAG_RELOAD, ByVal 0&)
    'Read the first 1000 bytes of the file
    InternetReadFile hFile, sBuffer, 1000, Ret
    'clean up
    InternetCloseHandle hFile
    InternetCloseHandle hOpen
    'Show our file
    MsgBox sBuffer
End Sub

este te dara un ejemplo de como es leer un file en internet en este caso lee los primeros 1000 bytes de la web, www.microsoft.com/index.htm.

ahora para buscar lo que vos keres seria:

Reemplasas
 MsgBox sBuffer
Por
Código:
If Instr(sBuffer,"Santiago de Chile")>0 Then
   Texto = ""
   For I=Instr(sBuffer,"Santiago") To Len(sBuffer)
     Cadenita = Mid(sBuffer,I,1)
     If Cadenita<>"." Then
      Texto = Texto + Cadenita
     Else
      Exit For
     EndIf
   Next
 End If
 'Esto lo que hace es comenzar a extraer la cadena desde donde encontro santiago, hasta que encuentre un punto.....

Saludos!!!
118  Programación / Programación Visual Basic / Re: hacer un MDI en setup en: 4 Abril 2006, 16:59 pm
te colokare este codigo a modo de ayuda...(no tengo el VB donde estoy asike es intuitivo el codigo) (si me olvidava de alguna funcion use GOOGLE!!!):

Código:
Sub Instalar()
 On Error Goto Error
 'Esta funcion instala archivos a una determinada localizacion.
 'Preguntamos a donde keremos enviar los archivos:
 DirDestino=""
PedirDir:
 DirDestino = InputBox("Destino de los archivos.","",DirDestino)

 'Si el usuario no koloko nada le preguntamos si salimos de la instalacion
 If DirDestino="" Then
  Resp = MsgBox("Esta seguro de salir de la instalacion", vbQuestion + vbYesNo + vbDefaultButton2, "Atencion!")
  If Resp=6 Then
   End
  Else
   Goto PedirDir
  End If
 End If
 
 'Vemos si existe el directorio, sino lo kreamos
 If Dir(DirDestino,vbDirectory)="" Then
  Resp = MsgBox("El Directorio De Destino No Existe, Decea Crearlo", vbQuestion + vbYesNo + vbDefaultButton2, "Atencion!")
  If Resp=6 Then
   MkDir DirDestino
  Else
   Goto PedirDir
  EndIf
 EndIf
 
 'Comenzamos a instalar los archivos
 Dim Archivo(0 To 5) 'Depende de la cantidad de archivos
 Archivo(0)="file1.txt"
 Archivo(1)="file2.txt"
 Archivo(2)="file3.txt"
 Archivo(3)="file4.txt"
 Archivo(4)="file5.txt"
 Archivo(5)="file6.txt"


 For I = 0 To Ubound(Archivos)
  FileCopy Archivo(I), DirDestino & "\" & Archivo(I)
 Next

 'Creamos Acceso Directo
 Dim AccesoDirectos(0 To 1) 'Depende de la cantidad de accesos directos que keremos krear
 AccesosDirectos(0) = "file1.txt"
 AccesosDirectos(1) = "file5.txt"

 For I=0 To Ubound(AccesosDirectos)
  CrearAcceso(AccesosDirectos(I), DirDestino)
 Next

 'Avisamos
 Msgbox "Instalacion Realizada Con Exito"

 Exit Sub

Error:
 
End Sub


Sub CrearAcceso(Link,Directorio)
 Private m_wsShell As Variant
 Dim sLnkPath As String
 Dim sLink As String
 Dim sAppPath As String
 Dim vLnk As Variant

 Set m_wsShell = CreateObject("WScript.Shell")
 sAppPath = Directorio
 sLink = Link + ".lnk"

 sLnkPath = m_wsShell.SpecialFolders("Desktop") 'En el escritorio
 'Otros path
  ' AllUsersDesktop
  ' AllUsersStartMenu
  ' AllUsersPrograms
  ' AllUsersStartup
  ' Desktop
  ' Programs
  ' StartMenu
  ' Startup
  ' MyDocuments
 '
 sLnkPath = sLnkPath & "\" & sLink

 ' Crear el acceso directo
 Set vLnk = m_wsShell.CreateShortcut(sLnkPath)
 vLnk.Targetpath = sAppPath
 
 vLnk.WorkingDirectory = Directorio

 vLnk.Save 'Creamos el acceso directo!

 Set m_wsShell = Nothing
End Sub

Espero que te sea de ayuda!!!

Si no funciona algo es poke no lo prove, pero te da una idea de como es!!!
119  Programación / Programación Visual Basic / Re: Ayuda Simple.. Visual Basic. en: 4 Abril 2006, 16:28 pm
No es renegar es aprender a usar google!!!!!!!, y cuando decis: "Pero tengo el VB 6.0", funciona en cualkier VB de 32 bits, jejejejeje

saludos... a mi tambien se me cruso por la cabeza lo del explorer (la shell), pero pense que si usa firefox u algun otro navegador se lo abre con el explorer y no con el navegador por defecto del usuario!!!!

por eso... Saludos!!!
120  Programación / Programación Visual Basic / Re: Agregar elementos en un ListBox y colocarlos en un TextBox en: 4 Abril 2006, 16:25 pm
Yo te entieno lo que keres hacer:
si ya seleccione un pis que me muestre su capital, pero si al text box le agrego ";", que lo que haga, es agregar al texto box otra capital.
EJ:
Presione en Argentina (el text box dice ahora: BS AS), y al text box le coloko ";", y ahora resiono en Brasil, ahora el text box dira: BS AS; Bracilia.

Eso es lo que keres hacer.....

weno manos a la obras (lo estoy haciendo sin el VB, asike si hay un error me avisas que te dice):
Código:
'Fuera de los eventos:
Dim Capitales(0 TO 5)
Private Sub Form_Load()
 'Agregas las opciones
 List1.AddItem "Argentina"
 List1.AddItem "Brasil"
 List1.AddItem "Peru"
 List1.AddItem "Ecuador"
 List1.AddItem "Mexico"
 Capitales = ("Buenos Aires","Brasilia","Nidea 1","Nidea 2","Nidea 3")
End Sub

Private Sub List1_Click()
 'Agregas lo que se haya seleccionado al texbox
 IF RIGHT(LIST1.TEXT,1)=";" THEN
      Text1.Text = Text1.Text & Capitales(List1.ListIndex)
 ELSE
      Text1.Text = Capitales(List1.ListIndex)
 ENDIF
End Sub

Espero que sea de tu ayuda, el indixce del array deve coincidir con el indice del listado.
Fijate bien si esto funciona:
Capitales = ("",""....etc)
porke en una de esas me confundi con php
sino tendras que poner:
Capitales(0)="Buenos Aires"
Capitales(1)="Brasilia"
etc...

Saludos!
Páginas: 1 2 3 4 5 6 7 8 9 10 11 [12] 13 14 15 16 17 18 19 20 21 22 23 24
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines