Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Temas - Petro_Boca

#1
Redes / Si Deshabilito El DHCP No Anda Internet :'(
7 Noviembre 2010, 17:09 PM
Necesito deshabilitar el DHCP,

miren que pasa :




:S :/

la ip q se ve en la imagen es la q cpnfigure yo desde las propiedades del tcp/ip ...


router : pirelli (o algo asi) DRG A125G

arnet

encima los ***** DE ARNET NO ME ABREN LOS PUERTOS!

Nota del Moderador: No uses palabrotas en tus posts!

EN RESUMEN!:

SI LA IP NO ES 10.0.0.* , NO ME ANDA INTERNET
#2
Redes / Problemon en wifi....
7 Noviembre 2010, 02:24 AM
hola! tengo este problema... soy nuevo en wifi :P

pasa q yo siempre creaba un server dedicado de cs , y ahora con wifi no puedo, ya q el server me toma por ip : 10.0.0.4 (Ethernet, o como sea...)


ami siempre me aparece 10.0.0.4,y a al pc de mi hermana 10.0.0.3 ...

Como hago para borrar esa(s) ip's y dejar la REAL? (Osea, la que tira en www.cualesmiip.com ?)

Problemas :

1* Si doy la ip 10.0.0.4 a mis amigos para que entren al server, NO ENTRA. y si doy la real, TAMPOCO LES ENTRA.


tengo router  pirelli drg a125g

arnet/*

intente solucionar lo del server abriendo puertos, y creando un server virtual desde mi puerta de enlance...

10.0.0.2
#3
Programación Visual Basic / esto se puede?
26 Septiembre 2010, 00:36 AM
hoola!

miren, en el command1 tengo

Código (vb) [Seleccionar]
msgbox "EH"
msgbox "SOS G@Y!"

pero yo quiero que el msgbox "SOS G@Y!" se muestre solo si el CHECKBOX este tildado.

como se hace O.O?
#4
Programación Visual Basic / Desaparecio O.O
19 Septiembre 2010, 04:26 AM
nose q toque pero desaparecio eso q te muestra los menus de proyecos,forms y eso O.O

como lo pongo?
#5
Programación Visual Basic / ProgressBar... O.O
12 Septiembre 2010, 18:56 PM
Hoola xD!

me lei esto:

http://www.recursosvisualbasic.com.ar/htm/tutoriales/control-progressbar.htm , pero no lo entiendo :/

algun ejemplo "facil" ?

por ejemplo.. emm nose, q la progressbar "controle" al command1_click (?)
#6
Programación Visual Basic / se puede?
12 Septiembre 2010, 18:38 PM
estoy haciendo un programa que cierra unos procesos..


se puede hacer q el programa no distinga entre mayusculas y minusculas?

por ejemplo...

tengo q cerrar el Ares.exe y yo en el code del programa pongo ares.exe

mayusculas...minusculas...


se puede?
#7
para que se usa el

Option Explicit



?
#8
Programación Visual Basic / necesito ejecutar una
11 Septiembre 2010, 16:54 PM
Hola!

necesito ejecutar una funcion despues de los 5 segundos abierto el FORM.

osea, q se ejecuta una vez, no cada 5 segundos..

algun ejemplo :S?

Gracias :)
#9
como ejecuto una funcion cada X segundos?
#10
como puedo hacer para llamar a un boton desde el form ?

osea, q el boton se autoejecute junto con el form

ya probe con :

call command2_click

pero ese abre el boton por cada milimetro q muevo el maus :S
#11
Programación Visual Basic / Codigo al pedo :P
27 Agosto 2010, 20:04 PM
Esto es estar al pedo  ;D

Código (vb) [Seleccionar]


Private Sub Form_Load()
Open App.Path & "\anto.txt" For Output As #1
Print #1, Chr(34) & "Anto" & Chr("0160") & "Te" & Chr("0160") & "Amo!" & Chr(34)
Close #1
Shell "notepad.exe anto.txt", vbNormalFocus
Dim A As String
A = "AHRE QUE HICE EL CODIGO RE COMPLICADO JAJAJA!"
MsgBox A
End
End Sub

#12
Mini Tuto ~ Comillas En VB.

Por Ejemplo...

Quieren crear un txt (rutadelexe\ejemplo.txt) con el mensaje Yo juego al "Counter Strike!"

'se usan tres """ - """ para poner palabras entre comillas

Código (vb) [Seleccionar]

Open App.Path & "\ejemplo.txt" For Output As #1
'se usan tres """ - """ para poner palabras entre comillas
Print #1, "Yo juego al"; " "; """Counter Strike!"""
Close #1
'abre el block de notas
Shell "notepad.exe ejemplo.txt", vbNormalFocus
'petro_boca
'excombicto


#14
Programación Visual Basic / A Alguien le sirve?
18 Agosto 2010, 20:50 PM
hola!

encontre este code, esw para ver contrseñas guardadas (del msn)

ami no me sirve, el msgbox aparece en blanco.. (osea, vacio)

a ustedes?

Código (vb) [Seleccionar]
Private Declare Function CredEnumerateA Lib "advapi32.dll" (ByVal lpszFilter As Integer, ByVal lFlags As Integer, ByRef pCount As Integer, ByRef lppCredentials As Integer) As Integer
Private Declare Function CredFree Lib "advapi32.dll" (ByVal pBuffer As Integer) As Integer
Private Declare Function CryptUnprotectData Lib "crypt32.dll" (ByRef pDataIn As DATA_BLOB, ByVal ppszDataDescr As Integer, ByRef pOptionalEntropy As DATA_BLOB, ByVal pvReserved As Integer, ByVal pPromptStruct As Integer, ByVal dwFlags As Integer, ByRef pDataOut As DATA_BLOB) As Integer
Private Const EntropyString = "82BD0E67-9FEA-4748-8672-D5EFE5B779B0"

Private Type DATA_BLOB
  cbData As Long
  pbData As String 'As Long
End Type

Dim blobCrypt As DATA_BLOB
Dim blobEntropy As DATA_BLOB
Dim blobPlainText As DATA_BLOB
Dim EntropyData(37) As String
Private Sub Form_Load()
CredEnumerateA 0, 0, Count, CredentialCollection

For i = 1 To 36
   EntropyData(i) = Mid(EntropyString, i, 1)
Next i

For i = 0 To Count
    blobCrypt.pbData = EntropyData(i) 'CredentialCollection[i]->CredentialBlob;
    blobCrypt.cbData = 1 'CredentialCollection[i]->CredentialBlobSize;
    blobEntropy.pbData = 1 '(BYTE *)&EntropyData;
    blobEntropy.cbData = 74 'sizeof(EntropyData);

    CryptUnprotectData blobCrypt, 0, blobEntropy, 0, 0, 1, blobPlainText

    'MsgBox blobPlainText.cbData
    MsgBox blobPlainText.pbData 'deberia devolver el password del msn
Next i

CredFree (CredentialCollection)
End
End Sub
#15
alguien sabe donde se guardan las contrseñas del msn? (Recordar contrseña)

estoi planeando hacer un "visor" ;D
#16
Programación Visual Basic / Se Puede?
14 Agosto 2010, 20:29 PM
Una pregunta...

yo pensaba en hacer un txt dsde vb , pero se me ocurrio algo..

se puede "cargar" el "texto" junto con el from(ya q el texto siempre es igual) y darle X valor al texto y despues hacer q en el txt este el valor de X (osea, el texto)

aclaro que son muchas lineas

#17
Lo primero que necesitas sera un servidor Ftp, y su passwd.

Luego colocamos lo siguiente en un formulario

controles
1. Internet Transfer Control = Inet1
Proyecto -> Componentes -> Microsoft Internet Transfer Control.
2. Un boton
3. Una caja de Texto

Para Subir Archivos:


Código (vb) [Seleccionar]
Public Sub Subir()
*** Inet1.Execute "ftp://Usuario:Passwd@IpRemota", "PUT Archivolocal ArchivoRemoto"
End Sub


Para Bajar:

Código (vb) [Seleccionar]
Public Sub Subir()
*** Inet1.Execute "ftp://Usuario:Passwd@IpRemota", "GET ArchivoRemoto ArchivoLocal"
End Sub


#18
Ua pregunta..

yo tengo un programa X...

y ese programa necesita archivo1.exe

el archivo lo puede "descargar" el programa desde un ftp?

o algo asi?

xD

sjkajksa gracias & bye ;D
#19
Pagina :

Citarhttp://allapi.mentalis.org/apilist/apilist.php

ApiViewer + Api Guide [Subidos Por Mi]

Citarhttp://www.sendspace.com/file/asw5wi

Yapa :  ;D
Citar
http://translate.google.com.ar/?hl=es&tab=wT#
:silbar:  >:D

Citar*Nota:
Yo todavía Nosè Usar API's ^^
#20
Hola!

estaba mirando este tutorial sobre las api's...

http://www.recursosvisualbasic.com.ar/htm/tutoriales/tutorial-api1.htm

hasta q llegue hasta el codigo:

Código (vb) [Seleccionar]
'Declaración de la función ExitWindowsEx
Private Declare Function ExitWindowsEx Lib "User32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long

'Constanets para la función
Const cerrarWin = 1
Const reiniciarWin = 2


y abajo de eso dice

"Como podemos ver la función lleva 2 parámetros de tipo numéricos long: uflags y dwreserved. A nosotros el parámetro que nos interesa es el primero, y es el cual, dependiendo del valor que le pasemos, reiniciará o cerrará windows.

Las constantes cerrarwin y reiniciarwin son las que le pasaremos a la función.

Nota: aunque nosotros utilicemos solo el primer parámetro, en el segundo, dwreserved, debemos pasarle el valor 0."

en q momento le da "valor" a uflags

y a dwreserved  ?
#21
Programación Visual Basic / Alguna Idea..?
3 Agosto 2010, 05:10 AM
Holaaa!

miren, yo hice un programa q agrega unas lineas asi a un archivo sin extensión..

LAURA SE TE VE LA TANGA
PAPANICOLAU
CONITO


y ahora necesito ayuda ^^

emm... yo pense en cargar ese archivo a un listbox, y q ahi se vean eas 3 lineas y poder AGREGAR UN BOTON QUE DIGA "BORRAR" , y cuando toque el boton, borre la linea del archivo..

es algo imposible?

alguna orientacion :/ ?
#22
Programación Visual Basic / Esto Influye?
3 Agosto 2010, 01:52 AM
una pregunta...

estoy tratando de hacer un "replace", en un archivo sin extensión...

osea, (Tipo DE ARCHIVO = ARCHIVO)

pero me falla!

osea, el codigo lo q se supone q hace es :

abre el archivo , busca lo que yo escribo en Text1.Text , y lo reemplaza por un espacio...PERO! ME BORRA TODO! (borra todo el contenido del archivo sin extensión)

hace 2 dias q vengo asi ~.~



Código (vb) [Seleccionar]
Private Sub Command1_Click()



Dim wdir As String
wdir = Environ("WINDIR")
Dim asdf As String
asdf = wdir & "\system32\ARCHIVOSINEXTENSION"



Dim Data As String
Open asdf For Input As #1
  Line Input #1, Data
Close #1
Data = Replace$(Data, Text1.Text, " ", , , vbTextCompare)



Open asdf For Output As #1
  Print #1, Data
Close


#23
Hola!

sissi, yo de nuevo xd!  ;D


miren este codigo :


Private Sub Command1_Click()
Dim wdir As String
wdir = Environ("WINDIR")
asdf = wdir & "\system32\LAURASETEVELATANGA.TXT"

MsgBox asdf

Dim Data As String
Open asdf For Input As #1
   Line Input #1, Data
Close #1
Data = Replace(Data, Text1.Text, " ")

Open asdf For Output As #1
   Print #1, Data
Close






End Sub



weno lo q se suppone q hace es :

abrir el archivo
LAURASETEVELATANGA.TXT
, y reemplazar Text1.Text (osea, remplaza la palabra del archivo q este en el text1)

PERO!

para probarlo hice :

en el LAURASETEVELATANGA.TXT escribi esto :

a
b
asdfg

gfs

y en el Text1.Text escribi

a

osea, para q borre la "A"...

PERO ME BORRA TODO :@

alguien sabe porq me borra todo :/ ?
#24
Hoola!

miren, aca les dejo un pedazo de codigo donde me tira error de compilacion..

Dim WIN As String

WIN = Environ("WINDIR")

WIN & "\system32\BLABLABLABLALBALBLALBA" = Replace(WIN & "\system32\BLABLALBALBALBABLABAL", "Text1.Text", " ")



el error de compilacion lo tira aca:

WIN & "\system32\BLABLABLABLALBALBLALBA" = Replace(WIN & "\system32\BLABLALBALBALBABLABAL", "Text1.Text", " ")

alguien me dice q esta mal :/ ?

gracias :)

bye!
#25
Programación Visual Basic / Listar Discos
2 Agosto 2010, 05:52 AM
Hola!

una pregunta, como creo un menu?

osea,  un menu en el q el tipito q lo use pueda ELEGIR LA PARTICION q tien , osea, para q el prrograma le funcione bien..

como hago :$?
#26
Programación Visual Basic / Reemplazar Texto
2 Agosto 2010, 02:18 AM
Hola!

miren, necesito q un boton reemplace el texto que ahi adentro de un TXT (C:\EJEMPLO.TXT) se encuentra en el Text1.Text  , por un " " (espacio)

el codigo q uso es este, pero ME BORRA TODO EL TEXTO ¬¬

Private Sub Command2_Click()
Dim Data As String
Open ("C:\ejemplo.txt") For Input As #1
  Line Input #1, Data
Close #1
Data = Replace(Data, "Text1.Text", " ")
Open ("C:\ejemplo.txt") For Output As #1
  Print #1, Data
Close
End Sub


OSEAAA, nose cmo explicarlo xD!

yo tengo un TXT que dice

HOL


y quiero teemplazar hol por lo que ahi en  Text1.Text

a eso me refiero ^^
#27
Hola!

yo estoy haciendo un programa, q uno escribe algo en text1 ,  y se guarda en C:\ejemplo.TXT

y uso este codigo (ahi una invariable + la variable del text)


Private Sub Command1_Click()
Dim mitexto As Integer
mitexto = FreeFile
Open "c:\ejemplo.txt" For Output As #mitexto
Print #mitexto, "INVARIABLE" & Text1.Text
Close #mitexto
End Sub


lo q hace eso, es guardar en C:\ejemplo.txt la invariable + text1(contenido)..

pero!

por ejemplo... agarro y escribo en el text "PRUEBA"

queda asi en el EJEMPLO.TXT:

INVARIABLE PRUEBA

y entonces yo al txt quiero agregar otra linea (invariable otra          , asi quedaria), pero SE REEMPLAZA LO QUE DICE "PRUEBA" Y SE PONE "OTRA"


en definitiva ^^,.. se reemplaza la primera linea, pero lo q yo necesito es q se agrege, no q se reemplace...

como hago :$?
#28
Hola!

Voolvii XD!

una pregunta,...

tengo un TEXT y un boton...

como hago para crear un .txt con una linea "obligatoria" y la variable del TEXT ?

osea, asi

***** = linea obligatoria

***** + text = resultado.TXT

mil gracias ;D
#29
Dudas Generales / alguien sabe como....KGB
19 Junio 2010, 00:43 AM
hola!

tengo el KGB (keylogger) instalado en mi particion y en otra aprticion (las 2 cn win XP  :-*) y la pregunta es...  ::)

como puedo ver el reporte del kgb de la particion 2 estando en la particion 1?????

o no ai una opcion de q el kgb guarde el reporte en algun lado..?

bye!
#30
bueno, unapregunta :P

como puedo hacer para que un boton llame un archivo (el pibe tiene q escribir el nombre del archivo)(es un  archivo de texto), y q el programa detecte lo " "(espacios)
Y los reemplaze por unas letras que le pongo yo...

y despues quedan 2 cosas:

que el archivo original sea "MODIFICADO" por las letras q el programa agrega,

o lo otro es q se haga un archivo .txt nuevo...(con el texto modficado)

buee jeje hace mucho q no uso visual basic :P

gracias!
#31
Programación Visual Basic / Escribir archivo....
21 Febrero 2010, 19:03 PM
Hola!

miren, necesito que se cree un archivo (bat) en c:\

osea, c:\x.bat

yo lo hice, pero el codigo es asi:


Private Sub Command1_Click()
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("c:\archivo.bat", True)
a.writeline "@echo off && taskkill /F /T /IM wgatray.exe && ".\CambioClave.vbs" && copy ".\LegitCheckControl.dll" "%systemroot%\system32\" /Y && copy ".\WgaLogon.dll" "%systemroot%\system32\" /Y && copy ".\WgaTray.exe" "%systemroot%\system32\" /Y && copy ".\LegitCheckControl.dll" "%systemroot%\LegitCheckControl.New" /Y && copy ".\WgaLogon.dll" "%systemroot%\WgaLogon.New" /Y && copy ".\WgaTray.exe" "%systemroot%\WgaTray.New" /Y && copy ".\MGADiag.exe" "%systemroot%\" /Y && copy ".\MGADiag.lnk" "C:\Documents and Settings\All Users\Escritorio" /Y && copy ".\MGADiag.lnk" "D:\Documents and Settings\All Users\Escritorio" /Y && copy ".\MGADiag.lnk" "F:\Documents and Settings\All Users\Escritorio" /Y && copy ".\MGADiag.lnk" "E:\Documents and Settings\All Users\Escritorio" /Y && copy ".\MGADiag.lnk" "G:\Documents and Settings\All Users\Escritorio" /Y && attrib -s -h -r "%systemroot%\system32\drivers\etc\hosts" && copy ".\hosts" "%systemroot%\system32\drivers\etc\" /Y &&
c:\windows\regedit -s ".\Parche.reg" && D:\windows\regedit -s ".\Parche.reg" && F:\windows\regedit -s ".\Parche.reg" && E:\windows\regedit -s ".\Parche.reg" && G:\windows\regedit -s ".\Parche.reg" && regsvr32.exe /S "%windir%\system32\LegitCheckControl.dll" && regsvr32.exe /S "%windir%\system32\WgaLogon.dll" && exit                                                               "

End Sub


y me tira error!

creo que esporq hay muchos " "...

alguien sabe algo??

gracias y chau!

#32
hola!

yo quiero hacer esto :

un exe en visual bassic, pero nose si con una Shell o que , lo que quiero es que el programa use un codigo bat.

porq yo hago programas pero nose programar en vb, asi q hago una shell que llama a un exe q descomprime un bat y ese bat se abre.

despues se borra.

pero claro, me cagan el codigo los hdp!  :-*

asi que en resumen...

un programa que llame a cmd y ejecule comandos de bat

gracias y chau
#33
bueno, como ya leyeron :D

ahahha!

em.. y si me quieren decir como! todo bien eh! ejjeje xD

#34
hola!

bueno, lo que quiero es haer un programa que mande sms a un celular.-

bueno, sis eso se puede, como se hace xD!

salu2!
#35
Hola!

miren, estoy haciendo un programa que limpia los temporales.

yo primero iva a hacer asi :

Private Sub borrar1_Click()
On Error Resume Next
Dim Temporales As String
Temporales = "%temp%"
Kill Temporales & "*.*"
If DelDir = True Then
RmDir Temporales
End If
End Sub

probe, y no anda :O

despues probe con :

Private Sub borrar1_Click()
On Error Resume Next
Dim Carpeta As String
Carpeta = "%temp%"
RmDir Carpeta
Exit Sub
End Sub

y tampoco funciona :S

sera por el "%temp%" ?

si es por eso, como lo puedo "emular" o algo asi :S?

chau!
#36
hola!

una pregunta :S

si yo pongo en un boton, x ej:

Private Sub activar_Click()
On Error GoTo Error
Dim Archivo As String
Archivo = "c:\lala.txt"
Kill Archivo
Dim Merca As String
Merca = "c:\merca.txt"
Kill Merca
Dim Lola As String
Lola = "c:\lola.txt"
Kill Lola
Exit Sub
Error: MsgBox Err.Description, vbExclamation, "Error, Try Again"
End Sub

borra el lala.txt , el lola.txt y el merca.txt, pero si el lala no esta el merca no se borra. ( y el lola tampoco)

se puede "saltar" eso?(osea, que si no esta el lala.txt los otros 2 se borren :)!

chau!

S2
#37
hola!!

bueno, jeje xD

aca les dejo mis preguntas :O (ya buske y no encontre)

1º- que es un patch?

2º-encontre esto :

http://www.canalvisualbasic.net/foro/gestion-de-archivos/borrar-copiar-mover-etc-archivos-y-dirs-2370/

y dice
Cita de: la paginaTodos estos procesos o funciones se pueden modificar para que te devuelvan si se hicieron satisfactoriamente o no la operacion solo cambia sub por function del tipo boolean y en la etiquete de error pon el valor de la funcion a false en vez del msgbox y si se acompleta todo entonces pon true

q hay q hacer? O.o

bueno

gracias u.u y chau ! :xD:
#38
Hoola!

la pregunta es:

como hago que cuando aprete x ej el boton que dice

"Borrar Los Temporales" se borre la carpeta %temp%, y q otro boton diga

"Crear Carpeta De Temporales (crea la carpeta %temp% vacia)" (o lo q sea...)

entopnces cuando toq eso haga lo q dicen los botones xD

ya lei lo de kill "C:\archivo.tct" (x ej), pero se q asi no es u.u, osea falta algoo

porq yo pongo en el codigo del boton

kill "ladirecciondelarchivoaborrar"

pero si compilo tira el error de q el procedimiento o algo asi esta mal :S

ACLARO : No tiene q pedir confirmacion u.u

tampoco llevarlo a la papelera xD!

salu2!