|
Mostrar Temas
|
Páginas: 1 2 3 [4] 5
|
31
|
Programación / Programación Visual Basic / Denegacion de servicio
|
en: 24 Agosto 2007, 21:09 pm
|
hola que tal, cuando vuelvo vuelvo con todo ajja
mi duda es la siguiente, en casa tengo un servidor linux con apache2 instalado, con algunas webs alojadas ahi y estoy preocupandome por la seguridad y quiero hacer en vb un sencillo programa para hacer una denegacion de servicio y simular asi un ataque
pero tengo entendido que las peticiones http se realizan en 3 pasos, con winsock como podria realizarce? yo habia encontrado un code por ahi q haci peticiones a una web, pero no se donde esta :S
|
|
|
32
|
Programación / Programación Visual Basic / Leer archivo por lineas, y chr(10) ?
|
en: 23 Agosto 2007, 18:20 pm
|
Bueno... cada tanto aparesco en esta parte del foro y tengo una duda q no puedo resolver tengo una aplicacion donde abro un archivo de texto separado por tabulaciones el cual lo leo linea a linea el problema es que el archivo se guarda de una forma "especial" al ser creado y los saltos de lineas no son saltos de lineas :S
entonces cuando lo leo con la instruction Line Input me lee una linea q no es en verdad una linea :S
estos archivos usan como saltos de linea Chr(10) en lugar de Chr(13) + Chr(10) y no se como resolverlo.
si alguin sabe como puedo hacer para q el chr(10) sea interpretado como salto de linea o alguna sugerencia,... todo es bienvenido.
graciassss adios
|
|
|
33
|
Programación / Programación Visual Basic / lista con encabezados
|
en: 5 Julio 2007, 16:20 pm
|
bueno... mi duda es la siguiente quisas es sencilla pero bue... no encuentro la sulucion tengo que hacer una lista con columnas y agregarles los encabezados como en el ejemplo de la foto y no se como hacerlo :S si alguien puede decirme q control usar, se lo agradeceria adios
|
|
|
34
|
Programación / Programación Visual Basic / vb6 y sql server
|
en: 20 Junio 2007, 16:21 pm
|
que tal, despues de tanto tiempo, dije que volvia y volvi mi duda es la siguiente estoy haciendo una aplicacion en vb6 usando sql server y queiro listar las db, utilizo este codigo: rst.Open "SELECT name FROM master.dbo.sysdatabases", cnn, adOpenDynamic, adLockOptimistic With cbo_db .Clear For Each tField In rst.Fields .AddItem tField.Name Next .ListIndex = 0 End With rst.Close
cbo_db es un combo, y lo unico que me lista es la palabra "name", como hago para que me liste los datos de la columna name? me srian de gran ayuda ya que estoy en el trabajo ahora xd saludos y gracias
|
|
|
36
|
Programación / Programación Visual Basic / clases
|
en: 10 Septiembre 2006, 20:07 pm
|
bueno hola,. pasaba a preguntar una cosilla simple nomas como ago para encontrar la clase "Internet Explorer_Server" (que es la que permite ver el contenido de las paginas web en internet explorer use este codigo pero al parecer no funciona Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Const WM_CLOSE = &H10 Const ClaseDeIE = "Internet Explorer_Server" Const ClaseDeFF = "MozillaWindowClass"
Private Sub Form_Load() Dim WinWnd As Long 'Como solo queremos la del IExolorer... 'se la ponemos directamente WinWnd = FindWindow(ClaseDeIE, vbNullString) 'vbnullstring el segundo valor para que valga para cualquier ventana del IE If WinWnd = 0 Then Exit Sub ' si no esta salimos sin hacer nada ' el show de window lo quite , me imagino que no quieres mostrarla si la encuentra ' el nombre de la clase tambien lo quito , ya lo tenemos 'Post a message to the window to close itself PostMessage WinWnd, WM_CLOSE, 0&, 0& ' cerramos el IE y hasta otra
End Sub
alguien tiene la solucion??' pd: el nombre de la clase lo sake con el WinIDgracias de antemano
|
|
|
38
|
Programación / Programación Visual Basic / peticiones http
|
en: 25 Agosto 2006, 18:36 pm
|
bueno... el problema es el siguiente... he estado haciendo preguntas y no encuentro la respuesta todavia... necesito saber de que manera puedo ver/interceptar o blokear las peticioens http a traves de vb basicamente es para blokear internet(ya puse un hilo sobre este tema)
yo ago una peticion http a google.com------> pongo algo en medio y a google no le llega ni mela, eso es lo que quiero
estoy en un proyecto x eso estoy tan pregunton del tema si alguien tiene idea avisenme,. xq no me resulta efectivo verificar el proceso iexplore.exe cada 100 millicegundos y cerrarlo gracias
El MaRo!
|
|
|
39
|
Programación / Programación Visual Basic / buscar archivo de caducidad ¬¬
|
en: 20 Agosto 2006, 22:33 pm
|
hola,. mi duda es la siguiente,.(estoy con las dudas que me mata jejeej xd,. muchas preguntas ultimamente ) bueno... existe lgun codigo que me pueda dar los nombres de los archivos abiertos x un programa en especial? la pregunta viene a esto,. tengo un programa x timepo de prueva,. y creo que utiliza un archivo donde guarda la info del tiempo de uso,. la idea es saber cual es ese archivo y editarlo pra buscrlo tengo que saber que archivos abre el programa alguna forma de saber que archivos usa un programa en vb?? graciaxx ya El MaRo!
|
|
|
40
|
Programación / Programación Visual Basic / modificar icono en systray
|
en: 20 Agosto 2006, 02:19 am
|
bueno hola otra vez,. mi aduda es la siguiente tengo un programa que se pone en el systray con un icono muy lindo jeje,. lo que keiro acer es que el programa cuadno este activo tenga un icono y cuadno este desactivado tenga otro, se entiende?? el codigo que uso es el siguiente: en un modulo Private Type NOTIFYICONDATA cbSize As Long hWnd As Long uID As Long uFlags As Long uCallbackMessage As Long hIcon As Long szTip As String * 128 dwState As Long dwStateMask As Long szInfo As String * 256 uTimeout As Long szInfoTitle As String * 64 dwInfoFlags As Long End Type
Dim nf_IconData As NOTIFYICONDATA
Const NOTIFYICON_VERSION = 3 Const NOTIFYICON_OLDVERSION = 0
Const NIM_ADD = &H0 Const NIM_MODIFY = &H1 Const NIM_DELETE = &H2
Const NIM_SETFOCUS = &H3 Const NIM_SETVERSION = &H4
Const NIF_MESSAGE = &H1 Const NIF_ICON = &H2 Const NIF_TIP = &H4
Const NIF_STATE = &H8 Const NIF_INFO = &H10
Const NIS_HIDDEN = &H1 Const NIS_SHAREDICON = &H2
Const NONE = &H0 Const WARNING = &H2 Const ERROR = &H3 Const INFO = &H1 Const GUID = &H4
Const WM_MOUSEMOVE = &H200 Const WM_LBUTTONDOWN = &H201 Const WM_LBUTTONUP = &H202 Const WM_LBUTTONDBLCLK = &H203 Const WM_RBUTTONDOWN = &H204 Const WM_RBUTTONUP = &H205 Const WM_RBUTTONDBLCLK = &H206 Private Declare Function Shell_NotifyIcon Lib "shell32" _ Alias "Shell_NotifyIconA" _ (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean Sub AgregarIcono(icono) With nf_IconData .cbSize = Len(nf_IconData) .hWnd = frm_main.hWnd .uID = vbNull .uFlags = NIF_ICON Or NIF_INFO Or NIF_MESSAGE Or NIF_TIP .uCallbackMessage = WM_MOUSEMOVE .hIcon = icono .szTip = "Bloker" & vbNullChar 'QuickInfo Symbols & vbNullChar .dwState = 0 .dwStateMask = 0 End With
Shell_NotifyIcon NIM_ADD, nf_IconData 'NIM_ADD Agregamos el icono a la barra End Sub Sub QuitarIcono() Shell_NotifyIcon NIM_DELETE, nf_IconData 'NIM_DELETE Quitar el icono de la barra End Sub Sub MostrarGlobo(Texto As String, tipo As Long) With nf_IconData .cbSize = Len(nf_IconData) .hWnd = frm_main.hWnd .uID = vbNull .uFlags = NIF_ICON Or NIF_INFO Or NIF_MESSAGE Or NIF_TIP .uCallbackMessage = WM_MOUSEMOVE .hIcon = frm_main.Icon .szTip = "Bloker" & vbNullChar 'QuickInfo Symbols & vbNullChar .dwState = 0 .dwStateMask = 0 .szInfo = Texto & Chr(0) 'Texto del globo .szInfoTitle = "Informacion" & Chr(0) 'Titulo del globo .dwInfoFlags = tipo .uTimeout = 1000 'Tiempo de espera (millisec.) End With Shell_NotifyIcon NIM_MODIFY, nf_IconData 'Activamos el globo End Sub Sub Eventos(x As Single) Dim lMsg As Long Dim sFilter As String lMsg = x / Screen.TwipsPerPixelX Select Case lMsg 'you can play with other events as I did as per your use Case WM_LBUTTONDOWN Case WM_LBUTTONUP 'Form2.PopupMenu Form1.MnuMostrar Case WM_LBUTTONDBLCLK If frm_main.Visible = False Then frm_habilita.Show End If Case WM_RBUTTONDOWN Case WM_RBUTTONUP 'Form2.PopupMenu Form2.MnuMostrar frm_main.PopupMenu frm_main.Archivo Case WM_RBUTTONDBLCLK End Select End Sub
tonces,. para agregar el icono pongo AgregarIcono "dirrecion del icono" y me salta error,. el icono lo puedo poner, solo que si modifico esto Sub AgregarIcono(icono) es que no me anda, en fin,. no puedo cambiar el icono del systray en tiempo de ejecucion alguna solucion??' El MaRo!
|
|
|
|
|
|
|