Mensajes

Bien funciona a la perfeccion!

ahora..me responden las otras si puede ser? si no problem 

y agrego una mas ¿piensan que tendria funcionalidad el programa?

muchas gracias blakczero

la vez que presente me pusieron lo mismo "no uses rutas locales".. pero como hago si no uso?

text3.text = "%myfiles%etc.etc." ??

el app.path no te lo saca como myfiles sino como rutas locales.. alguien tiene una buena idea para confimar un ruta? o otra mejor seira como hago para hacerlo sin necesidad de donde este ubicado

Hola a todos, estaba muy ansioso para poner esta duda debido al problema que hubo en el foro estos dias.

bien,la cosa es asi, yo ya habia posteado mi programa 1 mes atras y bueno con las respuestas mejoré un poco el programa.

el form aqui:

Código (vb) [Seleccionar] Expandir

Private Sub Command1_Click()
Shell "cmd.exe /c net view>nombre_maquinas.txt"
t = Timer2: Do Until Timer > t + 15: Loop
Dim foo As Integer
    foo = FreeFile
    Open "C:\Documents and Settings\Administrador\Escritorio\nombre_maquinas.txt" For Input As #foo
        Text2.Text = Input(LOF(foo), #foo)
    Close #foo
End Sub

Private Sub Command3_Click()
Dim texto As String
texto = Text1.Text
Shell "cmd.exe /c nbtstat -a " + texto + ">nbtstat.txt"
t = Timer3: Do Until Timer > t + 10: Loop
Dim foo As Integer
    foo = FreeFile
    Open "C:\Documents and Settings\Administrador\Escritorio\nbtstat.txt" For Input As #foo
        Text2.Text = Input(LOF(foo), #foo)
    Close #foo
End Sub

Private Sub Command4_Click()
Text2.Text = "Instrucciones para utilizar Hack Netbios 1.0 by F-Comet:" & vbCrLf & "1.Colocar Hack Netbios 1.0 en el escritorio, en su defecto, produciría fallos." & vbCrLf & "2.Examinar la red con Nombres PC." & vbCrLf & "3.Introducir el nombre de la maquina en Nombrepc." & vbCrLf & "3.Ejecutar netbios conection." & vbCrLf & "4.Al recibir el informe fijarse que haya una maquina con <20> UNIQUE, si es asi continua los siguientes pasos:"
'TextBox1 = "frase1" & vbCrLf & "frase2" & vbCrLf & "frase3"
End Sub

Private Sub Command5_Click()
'Dim x as long, name as string
Dim x&, usuario$

'defining name...
usuario = Space(100)

'calling api: name, and the size/length
x = GetUserName(usuario, 100)

Text3.Text = App.Path
If Text3.Text = "C:\Documents and Settings\" + usuario + "\Escritorio" Then
Text3.Text = "Directorio correcto"
Else
Text3.Text = "Directorio incorrecto"
End If

End Sub


Private Sub Label3_Click()
Label3.Caption = Time
End Sub


Private Sub Timer1_Timer()

Label3.Caption = Time
End Sub

Modulo:

Código (vb) [Seleccionar] Expandir

option Explicit

Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long



Bueno el programa no está terminado, el asunto es el siguiente en la parte :

Código (vb) [Seleccionar] Expandir

Private Sub Command5_Click()
'Dim x as long, name as string
Dim x&, usuario$

'defining name...
usuario = Space(100)

'calling api: name, and the size/length
x = GetUserName(usuario, 100)

Text3.Text = App.Path
If Text3.Text = "C:\Documents and Settings\" + usuario + "\Escritorio" Then
Text3.Text = "Directorio correcto"
Else
Text3.Text = "Directorio incorrecto"
End If

End Sub

Entonces:
1.lo que hace es llamar al modulo cuando pide el usuario (estamos tods de acuerdo), pero el problema es que cuando va a poner la url se queda en:C:\Documents and Settings\usuario  y no pone a "Escriorio" y ahi es mi consula ¿porqué no pone la palabra escritorio y se queda en el nombre de usuario?

2.¿piensan que esta bien usar la shell o.. hay alguna api,socket o lo que sea para llamar a netbios?si es asi no encontre

3.opinen sobre el programa (por favor cirticas constructivas)

4 me estoy inciando en visual basic..¿recomiendan visual basic.net?¿por què?

muchas gracias

mmm a mi nunca me gustaron las webs completas en flash...google no te encuentra tan rapido(o ni te encuentran) ya que el texto es como "una imagen" .. lo mejor es hacer mitad, 3/4 flash y mitad ,1/4 html y css

adios:) 

claro se confunde un poco ya que no le puse shell"command.exe" sino que puse "cmd.exe", el tema seria desde una pc windows 98 a otras pc windows 98
en la version mejorada sera por windows xp.

adios y comentenb

hola a todos bueno este codigo visual que voy  a poner es el de el progrmaa que estoy realizando que se llama hack netbios 1.0 by F-comet.
lo que hace el programa es hacer una intrusion por netbios desde una pc windows 98 a otras windows 98, en su mejora va a haber desde windows xp a windows 98 o viceversa.. nada mas es una prueba.

lo que voy a aclarar y tengan en cuenta:soy un newbie,y lo trato de hacer como pueda (ya que estoy aprendiendo) pero eso no es todo sino que me digan (si tienen ganas) que les parece y que puedo agregar (aviso q no esta terminado!!) lo malo es que solo funciona desde el escritorio y ya sabran porque asique.. a dejar comentarios.

codigo de hack netbios by F-comet: (solo una parte, de nuevo, no esta terminado)

Private Sub Command1_Click()
Shell "cmd.exe /c net view>nombre_maquinas.txt"
t = Timer: Do Until Timer > t + 10: Loop
Dim foo As Integer
    foo = FreeFile
    Open "C:\Documents and Settings\all users\Escritorio\nombre_maquinas.txt" For Input As #foo
        Text2.Text = Input(LOF(foo), #foo)
    Close #foo
End Sub

Private Sub Command3_Click()
Dim texto As String
texto = Text1.Text
Shell "cmd.exe /c nbtstat -a " + texto + ">nbtstat.txt"
t = Timer: Do Until Timer > t + 10: Loop

Dim foo As Integer
    foo = FreeFile
    Open "C:\Documents and Settings\Administrador\Escritorio\nbtstat.txt" For Input As #foo
        Text2.Text = Input(LOF(foo), #foo)
    Close #foo
End Sub

Private Sub Command4_Click()
Text2.Text = "Instrucciones para utilizar Hack Netbios 1.0 by F-Comet:" & vbCrLf & "1.Colocar Hack Netbios 1.0 en el escritorio, en su defecto, produciría fallos." & vbCrLf & "2.Examinar la red con Nombres PC." & vbCrLf & "3.Introducir el nombre de la maquina deseada en Nombrepc." & vbCrLf & "3.Ejecutar netbios conection." & vbCrLf & "4.Al recibir el informe fijarse que haya una maquina con <20> UNIQUE, si es asi continua los siguientes pasos:"
'TextBox1 = "frase1" & vbCrLf & "frase2" & vbCrLf & "frase3"
End Sub

Private Sub Label3_Click()
Label3.Caption = Time
End Sub

Private Sub Timer1_Timer()

Label3.Caption = Time
End Sub

cuando termina presento el programa 

perdoneen ya esta.. me estoy iniciando en esto ya lo solucione



iguamente graciaaas
adios

hola a todos...

tube un problema con swishmax...

nose que script poner para que un link se abra en la misma ventana...el script getURL se abre en una ventana aparte.


espero que me puedan ayudar

adioos