|
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!!! 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
|
|
|
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!
|
|
|
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.shtmly use este codigo: 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 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!!!): 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): '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!
|
|
|
|
|
|
|