Mensajes

Bueno podriamos usar shell :

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

[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]

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

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.

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

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

Bueno tengo un problemin con el siguiente code.

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

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.

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

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  .
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.

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 [Seleccionar] Expandir


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



[minutos]

como te dice ragnarok tienes que usar un timer que cada cierto tiempo compruebe la hora por ejemplo:

Código [Seleccionar] Expandir


If Hour(Now) = 15 Then
MsgBox "son las 3"
End If



En minutos seria asi:

Código [Seleccionar] Expandir


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.

[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.]

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 [Seleccionar] Expandir

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.

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