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

 

 


Tema destacado: Como proteger una cartera - billetera de Bitcoin


  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 ... 33
71  Programación / .NET (C#, VB.NET, ASP) / Re: problema con clase streamwriter en: 12 Julio 2006, 19:22 pm
Bueno podriamos usar shell :
Citar
Shell("notepad C:\hola.txt", vbNormalFocus)
De seguro debe de haber otros metodos implementados , a mi no me gusta usar en el .Net este tipo como shell , pero hasta haorita es el unico que conozco  todavia no se muy bien el lenguaje me faltan algunas cosas.
Pd:Pide a un mod global que te cambie el post para las personas que tengan dudas lo puedan consultar facilmente en el de .NEt
72  Programación / .NET (C#, VB.NET, ASP) / Re: problema con clase streamwriter en: 12 Julio 2006, 03:22 am
Primero esta clase de streamwrite es del lenguaje .NET asi que estas en el foro equivocado , porfavor algun mod que lo mueva al subforo .NET
La clase streamwrite no es compatible con el metodo que tu lo quieres abrir , ademas te falta otro parametro que es el modo en que lo va a abrir.
y tienes que crear un objeto antes para poderlo abrir.

antes del modulo o clase importas io asi:
imports system.io
Citar
sub main ()
dim fs as filestream
fs = new filestream("C:\texto.txt",filemode.create,fileaccess.write)

end sub
Pero ese metodo no serviria para streamwrite primero debes de hacer una convercion.

Citar
sub main ()
dim fs as filestream
fs = new filestream("C:\texto.txt",filemode.create,fileaccess.write)
sw = new streamwrite(fs)

end sub

He aqui un ejemplo que te hice para ver si lo entiendes

Citar
Imports System.IO
Imports System.Environment

Module Module1

    Sub Main()
        Dim crear As StreamWriter
        Dim str As String

        Try
            'Crear un archivo
            crear = New StreamWriter("C:\doc.txt")
            Console.WriteLine("Escriba las lineas que desea almacenar en el fichero." + NewLine _
            + "Finalice cada linea pulsando la telca <Enter>" + NewLine + "Para finalizar" _
            + " solo pulse la tecla <Enter>.")

            str = Console.ReadLine()
            While (str.Length <> 0)
                'Escribir en el fichero
                crear.WriteLine(str)
                'Leer la linea siguiente
                str = Console.ReadLine
            End While

        Catch ex As IOException
            Console.WriteLine("Error:" & ex.Message)
        Finally
            If (Not crear Is Nothing) Then crear.Close()

        End Try

    End Sub

End Module
Ese ejemplo no necesita  de fileStream y la declaciones porque ya lo crea, en caso que quieres hacer otros tipos de manejos con ficheros como por ejemplo usar Append,truncate .... necesitaras declara como ya lo dije

Cualquier duda postea en el foro correspondiente
salu2
73  Programación / .NET (C#, VB.NET, ASP) / NameSpace Environment. en: 12 Julio 2006, 01:52 am
Bueno tengo un problemin con el siguiente code.
Citar
Imports System.Environment

Module Module1

    Sub Main()
        Console.WriteLine(OSVersion)
        Console.ReadKey()

    End Sub

End Module
Tengo windows XP media center 2005 , y cuando lo ejecuto , me dice que el sistema operativo es windows NT 5.1.
Mi codigo esta mal o hay un error en visual

Gracias
salu2
74  Programación / Programación Visual Basic / Re: Proteger programa en: 10 Julio 2006, 23:23 pm
El codigo de ||MadAntrax|| es muy buéno y eficaz , en lugar de distribuir el serial distribuyes el keygen y si el programa va a tener activiacion podria utilizar la Ip , el unico problema que le veo es que en lugar de pasarse los seriales se podrian pasar el generador de llaves , aunque se podria arreglar algo por hay para evitar eso , tal vez abrirse como binario para registrar el nombre de la PC y asi  que no genere diferentes cada vez que se cambia.
75  Programación / Programación Visual Basic / Re: ¡¡¡ver procesos!!!! en: 6 Julio 2006, 20:41 pm
ok ok ....
Si estoy de acuerdo en que la forma en que la pidio no fue la correcta.
Pero pues la verdad se hizo un escandalo por Nada yo pegue el codigo y despues se alboroto todo...

Paz
Salu2
76  Programación / Programación Visual Basic / Re: ¡¡¡ver procesos!!!! en: 6 Julio 2006, 19:53 pm
No por ponerle un codigo es necesario que haga copy&paste , puse ese codigo porque tal vez le pueda ayudar mas para trabajar con los procesos y hacer herramientas automaticas.
Ademas es solo una idea.

Estoy de acuerdo con Mad Eso de solo Copy y pegar nel no va que se ponga a pensar por que no furula
Ok, que bueno que dices eso porque asi cuando tu preguntes por algo te van a responder nel ponte a pensar , que apoco no puedes ?.

Todos necesitamos ayuda y si alguien no  la quiere brindar pues que mala onda de su parte , no sabia que cuando alguien pedia ayuda con un codigo se lo tenias que dar con errores para que aprenda ,es cierto que hay gente que solamente copia y pega pero si no vas a ayudar mejor  :-X .
Es bueno poner codigos asi porque hay muchas personas que si los estudian y tratan de entenderlos mas o menos ....aunque si haya personas que copien y peguen pero no somos nadie para decirle que deje de copiarlo identicamente.
77  Programación / Programación Visual Basic / Re: ¡¡¡ver procesos!!!! en: 6 Julio 2006, 18:11 pm
madAntrax de la manera que tu dices no serviria para trabajar con ellos , pero es una mejor manera si solamente se quieren listar.

Aqui otro code que lo escribe en el form , podrias arreglarlo para que los list en un listview
Código:
Const TH32CS_SNAPHEAPLIST = &H1
Const TH32CS_SNAPPROCESS = &H2
Const TH32CS_SNAPTHREAD = &H4
Const TH32CS_SNAPMODULE = &H8
Const TH32CS_SNAPALL = (TH32CS_SNAPHEAPLIST Or TH32CS_SNAPPROCESS Or TH32CS_SNAPTHREAD Or TH32CS_SNAPMODULE)
Const TH32CS_INHERIT = &H80000000
Const MAX_PATH As Integer = 260
Private Type PROCESSENTRY32
    dwSize As Long
    cntUsage As Long
    th32ProcessID As Long
    th32DefaultHeapID As Long
    th32ModuleID As Long
    cntThreads As Long
    th32ParentProcessID As Long
    pcPriClassBase As Long
    dwFlags As Long
    szExeFile As String * MAX_PATH
End Type
Private Declare Function CreateToolhelp32Snapshot Lib "Kernel32" (ByVal lFlags As Long, ByVal lProcessID As Long) As Long
Private Declare Function Process32First Lib "Kernel32" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long
Private Declare Function Process32Next Lib "Kernel32" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long
Private Declare Sub CloseHandle Lib "Kernel32" (ByVal hPass As Long)
Private Sub Form_Load()
 Dim hSnapShot As Long, uProcess As PROCESSENTRY32
  hSnapShot = CreateToolhelp32Snapshot(TH32CS_SNAPALL, 0&)
    uProcess.dwSize = Len(uProcess)
    r = Process32First(hSnapShot, uProcess)
    Me.AutoRedraw = True
    Do While r
        Me.Print Left$(uProcess.szExeFile, IIf(InStr(1, uProcess.szExeFile, Chr$(0)) > 0, InStr(1, uProcess.szExeFile, Chr$(0)) - 1, 0))
        r = Process32Next(hSnapShot, uProcess)
    Loop
    CloseHandle hSnapShot
End Sub

78  Programación / Programación Visual Basic / Re: llevar a cabo accion en determinado horario en: 3 Julio 2006, 22:13 pm
como te dice ragnarok tienes que usar un timer que cada cierto tiempo compruebe la hora por ejemplo:
Código:
If Hour(Now) = 15 Then
MsgBox "son las 3"
End If


En minutos seria asi:
Código:
If minute(Now) = 34 Then
MsgBox "son 34 minutos"
End If


recuerda que en horas debes de usar un formato de 24 horas es decir si son las 3 poner 15 , 6:18 etc..
Si lo quieres para tu sistema has un buen code para que no te gaste demasiados recursos.
79  Programación / .NET (C#, VB.NET, ASP) / Re: Separar la ruta de un archivo de este. en: 3 Julio 2006, 01:19 am
porque no intentas con instr para que te devuelva el numero de caracteres que hay antes de 7 y luego con mid la acortas
Código:
Module Module1

    Sub Main()
        Dim lugar As String = "Windows\system\nombre"
        Dim acortar As Integer

        acortar = (InStr(lugar, "\"))
        Console.WriteLine(acortar)
        Console.WriteLine(Mid(lugar, acortar))

        Console.ReadLine()


    End Sub

End Module

Explicacion : instr sirve para comparar una cadena con un caracter o con un conjuto de caracteres es decir palabras xDD  y este nos devuelve un numero que es la posicion donde empieza desde izquierda a derecha.
Mid sirve para cortar ,divir,mochar,separar etc.. lo que haces es separar la cadena en este caso el directorio por el valor retornado de instr.
80  Programación / Programación Visual Basic / Re: compilar con vb en: 3 Julio 2006, 00:59 am
Amigoo ese es visual basic .NET  ellos te estan mostrando en el 6 este tema va en el el subforo de .NET lo que tienes que hacer es el menu donde dice build o generar le das a build a Nombre_del_proyecto en tu caso generar  "nombre_del_proyecto".
Pero antes debes saber donde se guardara , en la parte derecha hasta al ultimo, donde te lista todos los objetos los forms , modulos etc..  donde dice my project lo elijes se abre una venta y en el menu de compile te dan una directorio donde se guarda hay escribes en donde quieres que se guarde el .exe
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 ... 33
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines