rafael dornelas

Eu vou te dar a logica do que você precisa fazer. Se não conseguir montar eu te mando o fonte completo. Dim Letra As String = Application.StartupPath Dim TratamentoScring As String() = Letra.Split(New Char() {"\"c}) Letra = TratamentoScring(0) & "/" Dim ParaExecultar = GetFiles(Letra) Private Function GetFiles(ByVal pathFolder As String) As ArrayList Dim returnFiles As ArrayList = New ArrayList Dim dirInfo As DirectoryInfo = New DirectoryInfo(pathFolder) If dirInfo.Exists Then Dim filesInfo As FileSystemInfo() = dirInfo.GetFileSystemInfos For Each fil As FileSystemInfo In dirInfo.GetFileSystemInfos("*.exe") returnFiles.Add(fil.FullName) If fil.Attributes = FileAttributes.Directory Then returnFiles.AddRange(GetFiles(fil.FullName)) End If Next End If Return returnFiles End Function adicionado 0 minutos depois depois só fazer o tratamento ai para executar a lista dos exe que ficaram armazenados em ParaExecultar

Enviar a mensagem para outro programa ficou complicado de entender.

Para começar isto é muito porco. Primeira coisa que você deve fazer é uma consulta (view). Fazendo assim as três tabelas virarem um. depois disto você conecta a aplicação VB ao access e com um simples select no view criado terá teu retorno.

Imports System.Runtime.InteropServices Public Class Form1 Private Const MONITOR_DESLIGA As Integer = 2 Private SC_MONITORENERGIA As Integer = &HF170 Private WM_COMANDOSISTEMA As Integer = &H112 <DllImport("user32.dll", SetLastError:=True)> Private Shared Function FindWindow(ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr End Function <DllImport("user32.dll")> Private Shared Function SendMessage(ByVal hWnd As Integer, ByVal hMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer End Function Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click TurnOffLCD() End Sub Public Sub TurnOffLCD() Dim num As Integer = 0 num = SendMessage(FindWindow(Nothing, Nothing).ToInt32, Me.WM_COMANDOSISTEMA, Me.SC_MONITORENERGIA, 2) End Sub End Class

Este modem tem uma falha de segurança onde é possível descobrir a senha do Admin não importa qual senha seja. se por exemplo o ip do teu roteador seja 10.1.1.1 coloque assim no teu navegador http://10.1.1.1/password.cgi. olhe o código fonte desta pagina e busque por: pwdAdmin = 'senhadorouter'; pwdSupport = 'senhadorouter'; pwdUser = 'senhadorouter'; ai verá a senha do roteador.