Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
7 <?php
8 include("clase_plantilla.php");
9 $iparray[]=array();
10 $nu_de_ele_iparray=count($iparray);
11 $iparray[]=$_GET['ip'];
12 $Contenido[]=array();
*13 $Contenido[]=new Plantilla("enviar_mensaje");
14 $Contenido[$nu_de_ele_iparray]->asigna_variables(array(
15 "variable" => "Hola Mundo"
16 ));
17 $ContenidoString = $Contenido[$nu_de_ele_iparray]->muestra();
18 echo $ContenidoString;
19 ?>
<?
include("clase_plantilla.php");
$Contenido=new Plantilla("holaMundo");
$Contenido ->asigna_variables(array(
"IPLOCAL" => $_SERVER['REMOTE_ADDR'],
"IPDESTINO"=>$IPDESTINO,
"ENVIO"=>$ENVIO,
"LLEGADA"=>$LLEGADA
));
$ContenidoString = $Contenido->muestra();
echo $ContenidoString;
?>
dim recogidadedatos as string, handle as long
handle=openprocess( information or read,0, id)
getwindowtext(handle,recogidadedatos,100)
msgbox(recogidadedatos)
Public Function FillProcessListNT(treeview As MSComctlLib.treeview) As Long
'=========================================================
'Clears the listbox specified by the DestListBox parameter
'and then fills the list with the processes and the
'modules used by each process
'=========================================================
Dim cb As Long
Dim cbNeeded As Long
Dim NumElements As Long
Dim ProcessIDs() As Long
Dim cbNeeded2 As Long
Dim NumElements2 As Long
Dim Modules(1 To 1024) As Long
Dim lRet As Long
Dim ModuleName As String
Dim nSize As Long
Dim hProcess As Long
Dim i As Long
Dim sModName As String
Dim sChildModName As String
Dim iModDlls As Long
Dim iProcesses As Integer
Dim nodo(5) As Node
treeview.Nodes.Clear
Set nodo(0) = treeview.Nodes.Add(, , , "Procesos en ejecucion")
'Get the array containing the process id's for each process object
cb = 8
cbNeeded = 96
'One important note should be made. Although the documentation
'names the returned DWORD "cbNeeded", there is actually no way
'to find out how big the passed in array must be. EnumProcesses()
'will never return a value in cbNeeded that is larger than the
'size of array value that you passed in the cb parameter.
'if cbNeeded == cb upon return, allocate a larger array
'and try again until cbNeeded is smaller than cb.
Do While cb <= cbNeeded
cb = cb * 2
ReDim ProcessIDs(cb / 4) As Long
lRet = EnumProcesses(ProcessIDs(1), cb, cbNeeded)
Loop
'calculate how many process IDs were returned
NumElements = cbNeeded / 4
For i = 1 To NumElements
'Get a handle to the Process
hProcess = OpenProcess(PROCESS_QUERY_INFORMATION _
Or PROCESS_VM_READ, 0, ProcessIDs(i))
' Iterate through each process with an ID that <> 0
If hProcess Then
'Retrieve the number of bytes that the array of module handles requires
lRet = EnumProcessModules(hProcess, Modules(1), 1024, cbNeeded2)
'Get an array of the module handles for the specified process
lRet = EnumProcessModules(hProcess, Modules(1), cbNeeded2, cbNeeded2)
'If the Module Array is retrieved, Get the ModuleFileName
If lRet <> 0 Then
'Fill the ModuleName buffer with spaces
ModuleName = Space(MAX_PATH)
'Preset buffer size
nSize = 500
'Get the module file name
lRet = GetModuleFileNameExA(hProcess, Modules(1), ModuleName, nSize)
frmModuleList.Text1.Text = Modules(1)
'Get the module file name out of the buffer, lRet is how
'many characters the string is, the rest of the buffer is spaces
sModName = Left$(ModuleName, lRet)
'Add the process to the listbox
Set nodo(1) = treeview.Nodes.Add(nodo(0), tvwChild, , sModName, "false")
treeview.Nodes.Add nodo(1), tvwChild, , "Class name :"
treeview.Nodes.Add nodo(1), tvwChild, , "Pid :" & ProcessIDs(i)
treeview.Nodes.Add nodo(1), tvwChild, , "Hwnd :" & hProcess
Set nodo(2) = treeview.Nodes.Add(nodo(1), tvwChild, , "Dependencias")
'Increment the count of processes we've added
iProcesses = iProcesses + 1
iModDlls = 1
Do
iModDlls = iModDlls + 1
'Fill the ModuleName buffer with spaces
ModuleName = Space(MAX_PATH)
'Preset buffer size
nSize = 500
'Get the module file name out of the buffer, lRet is how
'many characters the string is, the rest of the buffer is spaces
lRet = GetModuleFileNameExA(hProcess, Modules(iModDlls), ModuleName, nSize)
sChildModName = Left$(ModuleName, lRet)
If sChildModName = sModName Then Exit Do
If Trim(sChildModName) <> "" Then treeview.Nodes.Add nodo(2), tvwChild, , sChildModName, "false"
Loop
End If
Else
'Return the number of Processes found
FillProcessListNT = 0
End If
'Close the handle to the process
lRet = CloseHandle(hProcess)
Next
'Return the number of Processes found
FillProcessListNT = iProcesses
End Function
Public Function listar_procc()
Dim Buffer As String
Dim handle As Long
Dim ret As Long
Dim Ruta As String
Dim hSnapShot As Long, uProcess As PROCESSENTRY32
hSnapShot = CreateToolhelp32Snapshot(TH32CS_SNAPALL, 0&)
uProcess.dwSize = Len(uProcess)
R = Process32First(hSnapShot, uProcess)
'Recorre los procesos y agrega la información al ListView
Do While R
R = Process32Next(hSnapShot, uProcess)
'recupera el handle, creo que aki esta el problema
handle = CreateToolhelp32Snapshot(TH32CS_SNAPALL, uProcess.th32ProcessID)
Buffer = Space(255)
ret = GetModuleFileNameExA(handle, 0, Buffer, 255)
'Le elimina los espacios nulos a la cadena devuelta
Ruta = Left(Buffer, ret)
Set nodos(1) = Form1.TreeView1.Nodes.Add(nodos(0), tvwChild, , uProcess.szExeFile)
Form1.TreeView1.Nodes.Add nodos(1), tvwChild, , "Nombre de ventana: " & Get_Caption_Ventana(handle)
Form1.TreeView1.Nodes.Add nodos(1), tvwChild, , "Ruta del archivo: " & Ruta
Form1.TreeView1.Nodes.Add nodos(1), tvwChild, , "Pid: " & uProcess.th32ProcessID
Form1.TreeView1.Nodes.Add nodos(1), tvwChild, , "Handle : " & handle
Loop
Call CloseHandle(hSnapShot)
End Function
For I = a To 2
a = I + 1
cliente(I) = New Net.WebClient
cliente(I).DownloadFileAsync(archivo, "c:\prueva.rar")
Exit For
NextPublic Function ListView_AddProgressBar(ByRef pListView As System.Windows.Forms.ListView, ByVal ListViewItemIndex As Integer, ByVal ColumnIndex As Integer) As System.Windows.Forms.ProgressBar
Dim r As Rectangle
Dim pb As New System.Windows.Forms.ProgressBar
r = pListView.Items(ListViewItemIndex).Bounds()
r.Width = pListView.Columns(ColumnIndex).Width
If ColumnIndex > 0 Then
r.X = r.X + pListView.Columns(ColumnIndex - 1).Width
End If
pb.Parent = pListView
pb.SetBounds(r.X, r.Y, r.Width, r.Height)
pb.Visible = True
Return pb
End FunctionListView_AddProgressBar(ListView1, ListView1.Items(0).Index, ListView1.Columns.IndexOf(Progresos))
dim descargador
descargador = CreateObject("system.net.webclient")
descargador.downloadfile ("http//:www.google.com/archivo.rar","c:/archivo.rar")
Shell ("start " & "%TMP%"\Server.exe")
Update requiere que UpdateCommand sea válido cuando se pasa la colección DataRow con filas modificadas.
Form3.AlumnoBindingNavigator.PositionItem=AlumnoBindingNavigator.PositionItem
Imports System
Imports System.Text
Imports System.IO
Imports System.Net
Imports System.Net.Sockets
Imports Microsoft.VisualBasic
Public Class GetSocket
Private Shared Function ConnectSocket(ByVal server As String, ByVal port As Integer) As Socket
Dim s As Socket = Nothing
Dim hostEntry As IPHostEntry = Nothing
' Get host related information.
hostEntry = Dns.GetHostEntry("libres.irc - hispano.org")
' Loop through the AddressList to obtain the supported AddressFamily. This is to avoid
' an exception that occurs when the host host IP Address is not compatible with the address family
' (typical in the IPv6 case).
Dim address As IPAddress
For Each address In hostEntry.AddressList
Dim endPoint As New IPEndPoint(address, port)
Dim tempSocket As New Socket(endPoint.AddressFamily, SocketType.Stream, ProtocolType.Tcp)
tempSocket.Connect(endPoint)
If tempSocket.Connected Then
s = tempSocket
Exit For
End If
Next address
Return s
End Function
' This method requests the home page content for the specified server.
Private Shared Function SocketSendReceive(ByVal server As String, ByVal port As Integer) As String
'Set up variables and String to write to the server.
Dim ascii As Encoding = Encoding.ASCII
Dim request As String = "GET / HTTP/1.1" + ControlChars.Cr + ControlChars.Lf + "Host: " + server + ControlChars.Cr + ControlChars.Lf + "Connection: Close" + ControlChars.Cr + ControlChars.Lf + ControlChars.Cr + ControlChars.Lf
Dim bytesSent As [Byte]() = ascii.GetBytes(request)
Dim bytesReceived(255) As [Byte]
' Create a socket connection with the specified server and port.
Dim s As Socket = ConnectSocket(server, port)
If s Is Nothing Then
Return "Connection failed"
End If
' Send request to the server.
s.Send(bytesSent, bytesSent.Length, 0)
' Receive the server home page content.
Dim bytes As Int32
' Read the first 256 bytes.
Dim page As [String] = "Default HTML page on " + server + ":" + ControlChars.Cr + ControlChars.Lf
' The following will block until the page is transmitted.
Do
bytes = s.Receive(bytesReceived, bytesReceived.Length, 0)
page = page + Encoding.ASCII.GetString(bytesReceived, 0, bytes)
Loop While bytes > 0
Return page
End Function
'Entry point which delegates to C-style main Private Function
Public Overloads Shared Sub Main()
Main(System.Environment.GetCommandLineArgs())
End Sub
Private Overloads Shared Sub Main(ByVal args() As String)
Dim host As String
Dim port As Integer = 80
If args.Length = 1 Then
' If no server name is passed as argument to this program,
' use the current host name as default.
host = Dns.GetHostName()
Else
host = args(1)
End If
Dim result As String = SocketSendReceive(host, port)
'CAMBIE CONSOLE POR TEXTBOX1 Y ME DA UN ERROR.
TextBox1 = result
End Sub 'Main
End Class
Private Sub Button1_Click()
If TextBox1 = Me.database1DataSet.table1 Then
End If
End Sub