Duda sobre leer txt externo

[Streamz]

Hola.

Me pregunto como seria para que con la función para averiguar que procesos están funcionando;

Código vb:

Private Function EstaCorriendo(ByVal NombreDelProceso As String) As Boolean
Const MAX_PATH As Long = 260
Dim lProcesses() As Long, lModules() As Long, N As Long, lRet As Long, hProcess As Long
Dim sName As String
NombreDelProceso = UCase$(NombreDelProceso)
ReDim lProcesses(1023) As Long
 
If EnumProcesses(lProcesses(0), 1024 * 4, lRet) Then
For N = 0 To (lRet \ 4) - 1
hProcess = OpenProcess(PROCESS_QUERY_INFORMATION Or PROCESS_VM_READ, 0, lProcesses(N))
If hProcess Then
ReDim lModules(1023)
If EnumProcessModules(hProcess, lModules(0), 1024 * 4, lRet) Then
sName = String$(MAX_PATH, vbNullChar)
GetModuleBaseName hProcess, lModules(0), sName, MAX_PATH
sName = Left$(sName, InStr(sName, vbNullChar) - 1)
If Len(sName) = Len(NombreDelProceso) Then
If NombreDelProceso = UCase$(sName) Then EstaCorriendo = True: Exit Function
End If
End If
End If
CloseHandle hProcess
Next N
End If
End Function
 

Y exactamente con está sub de timer:

Código vb:

Private Sub Timer1_Timer()
If EstaCorriendo("notepad.exe") = True Then
SendData "hck" & "Estoy usando notepad" & vbCrLf
End If
 
End Sub
 

Lo que quiero hacer es que simplemente el timer, busque en un archivo .txt alojado en una web (yo solo se hacer que lea ese TXT externo desde una web) por ejemplo una cadena de procesos, eso seria el contenido del txt:

Ejemplo:

notepad.exe
calc.exe
word.exe

Lo que quiero simplemente es que busque en ese .txt los nombres de proceso y si se está ejecutando uno de ellos mande lo siguiente;

SendData "hck" & "Estoy usando "aqui nombre de proceso" & vbCrLf

---

No se si me he explicado bien? pero recien esto aprendiendo y no logro sacarlo.

Gracias por vuestra ayuda.

[pkj]

Si puedes leer el fichero y por ejemplo cargarlo en Text1, solo necesitas pasar las lineas a una variable:

Código :

Private Sub Timer1_Timer()
  Dim Lineas() As String
  Dim F As Integer  
  Lineas = Split(Text1.Text, vbCrLf)
  For F = 0 To UBound(Lineas)
    If Trim(Lineas(F))<>"" Then
      If EstaCorriendo(Lineas(F)) = True Then SendData "hck" & "Estoy usando " & Lineas(F) & vbCrLf
    End If
  Next F
End Sub
 

Saludos