|
3401
|
Programación / Programación Visual Basic / Re: Uso de API's ReadProcessMemory y WriteProcessMemory
|
en: 7 Mayo 2008, 01:48 am
|
Leandro,te queria preguntar,una vez vi que pusiste un codigo para poder saber en que icono del escritorio se hizo click,usando estas 2 api's,y despues vi que tenias un codigo para sacar los items de un listview de visual sabiendo su hwnd,pero tiraba error para uno de windows,¿ya lo corregiste?,la verdad siempre quise hacer eso y la otra vez encontre un codigo que lo hace con estas 2 api's y es re-cortito,no tira error con los de windows,ahora estoy viendo si le puedo sacar tambien el icono del listview...
saludos.
|
|
|
3407
|
Programación / Programación Visual Basic / Re: Uso de API's ReadProcessMemory y WriteProcessMemory
|
en: 6 Mayo 2008, 13:26 pm
|
es con la libreria wininet.dll,lo vi muy util cuando lo postearon en un foro: Option Explicit Private Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long Private Declare Function InternetOpenUrl Lib "wininet.dll" Alias "InternetOpenUrlA" (ByVal hInternetSession As Long, ByVal sURL As String, ByVal sHeaders As String, ByVal lHeadersLength As Long, ByVal lFlags As Long, ByVal lContext As Long) As Long Private Declare Function InternetReadFile Lib "wininet.dll" (ByVal hFile As Long, ByVal sBuffer As String, ByVal lNumBytesToRead As Long, lNumberOfBytesRead As Long) As Integer Private Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long) As Integer Private Const IF_FROM_CACHE = &H1000000 Private Const IF_MAKE_PERSISTENT = &H2000000 Private Const IF_NO_CACHE_WRITE = &H4000000 Private Const BUFFER_LEN = 256
Public Function CodigoWeb(Pagina As String) As String Dim sBuffer As String * BUFFER_LEN, iResult As Integer, sData As String Dim hInternet As Long, hSession As Long, lReturn As Long hSession = InternetOpen("vb wininet", 1, vbNullString, vbNullString, 0) If hSession Then hInternet = InternetOpenUrl(hSession, Pagina, vbNullString, 0, IF_NO_CACHE_WRITE, 0) If hInternet Then iResult = InternetReadFile(hInternet, sBuffer, BUFFER_LEN, lReturn) sData = sBuffer Do While lReturn <> 0 iResult = InternetReadFile(hInternet, sBuffer, BUFFER_LEN, lReturn) sData = sData + Mid(sBuffer, 1, lReturn) Loop End If iResult = InternetCloseHandle(hInternet) CodigoWeb = sData End Function
Private Sub Form_Load() MsgBox CodigoWeb("http://www.google.com.ar") End Sub saludos.
|
|
|
3408
|
Programación / Programación Visual Basic / Re: Jugaba a que hacia un troyano =] (SOURCE)
|
en: 6 Mayo 2008, 13:19 pm
|
es perfecto,lo probe y anda perfecto,eso si que es una consola ,convengamos que es algo avanzado,si algunos puede no entender nada,a veces preguntan como mandar un mensajito pedorro a otra maquina y si miran esto,buee..esta con la csocketmaster y algunos ni saben que existe,pero bueno respeto el conocimiento de los otros y se que hay gente que no sabe,como yo tampoco sabia en su momento..me rei con el puerto que le pusiste "6666" sera porque aprece "malo" ese numero ...esta excelente.. saludos.
|
|
|
|
|
|
|