Menú

Mostrar Mensajes

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.

Mostrar Mensajes Menú

Mensajes - _F3RN4_

#1
Cita de: LixKeÜ en 25 Octubre 2009, 01:43 AM
Pues a mi parecer no se si las nuevas compu traerán un sensor o algo para poder detectar la velocidad del cooler lo q si se es que se puede medir la temperatura del cpu, de ese modo podes relacionar la temperatura con la velocidad del cooler... :huh:...pero si necesitas algo mas exacto y no tan aproximado podes instalar un propio sensor infrarrojo y por medio de un pic calcular la velocidad y enviarla luego por usb a la pc para leeerla.
Amigo, del code no se pero lo que estoy
100% Seguro es que si el cooler esta conectado a la Mother si tiene un medidor de velocidad...
Si bien te fijas
Los que se conectan por molex tienen 2 cables: Negativo y positivo
Y los dela mother 3 cables: Negativo, Positivo y Medidor de velocidad
#2
Cita de: burbu_1 en 24 Octubre 2009, 11:12 AM
hola _F3RN4_,

tal vez podrías enviar el valor hexadecimal como un array de bytes


Dim Array_Hex(3) As Byte
    Array_Hex(0) = CByte("&H" & "C1")
    Array_Hex(1) = CByte("&H" & "87")
    Array_Hex(2) = CByte("&H" & "37")
    Array_Hex(3) = CByte("&H" & "BF")
Winsock1.SendData Array_Hex


saludos

Gracias, Definitivamente este codigo me sirvio.
Ahora tengo un Problema...
Necesito Hacer Que funcione Como "Sniffer" El programa. Lo uso para Mu Online.
El tema es que si yo lo conecto con
Winsock1.RemoteHost
y con remoteport se conecta pero...
No se conecta al main que tengo abierto.
Como tendria que hacer para que se asocie al proceso abierto?
#3
Claro.
Como tendria que hacer para que esta funcion se una al Send Data
ByteValue = CByte("&H" & txtvalue)
#4
Programación Visual Basic / [AYUDA] Bot fotolog
23 Octubre 2009, 23:43 PM
Estoy usando este code para armar el bot...
El tema es que cuando le doy al Command1 Que es para conectarse.. En el webbrowser1 aparece la pagina del log del fotolog y a los 10 seg Una error 404 de fotolog que no existe la pag a la que quize entrar
Código (vb) [Seleccionar]


   * 5 cajas de texto (Textbox)

 -La primera y segunda caja de texto sirve para el nombre y el usuario
 -La tercera es para escribir el mensaje a dejar
 -La cuarta nos muestra los fotolog en el cual se encuantra firmando
 -la quinta los usuarios que firmaron nuestro libro de visitas

   * 2 botones (CommandButton)

 - El primero es par ingresar
 - El segundo presionamos para devolver las firmas

   * 1 WebBrower

Código:

'********************************************
'**************************************************
'**************Code Bot Fotolog Vb6******************
'**************Autor: By LixKeÜ *********************
'**********RESPETAR LA FIRMA DE AUTOR**************
'*************************************************
'*************************************************
Dim ne As Boolean, Ide As Boolean, Datos As String
Private Sub Command1_Click()
ne = True
WebBrowser1.Navigate "http://account.fotolog.com/login"
End Sub

Private Sub Command2_Click()
Dim matriz
matriz = Split(Text5.Text, "#")
For n = 1 To UBound(matriz)
WebBrowser1.Navigate "http://www.fotolog.com/" & matriz(n)
Ide = True
Text4.Text = "http://www.fotolog.com/" & matriz(n)
Espera 18000
Next
End Sub

Private Sub Form_Load()
ne = False
Ide = False
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
On Error Resume Next
If ne = True Then
ne = False
Me.WebBrowser1.Document.Forms(0).u_name.Value = Text1.Text
Me.WebBrowser1.Document.Forms(0).p_word.Value = Text2.Text
Me.WebBrowser1.Document.Forms(0).submitIt.Click

WebBrowser1.Navigate "http://www.fotolog.com/" & Text1.Text
Call COLEcTOR
End If

If Ide = True Then
Ide = False
WebBrowser1.Document.All.Item("message").Value = Text3.Text
WebBrowser1.Document.All.Item("gb_form_button").Click
End If
End Sub

Sub mensajes()
WebBrowser1.Document.All.Item("message").Value = Text3.Text
WebBrowser1.Document.All.Item("gb_form_button").Click
End Sub

Public Function Espera(MiliSegundos As Single) 'Función que me dejo lympex para que se pueda esperar un tiempo x; o sea un sleep
 Dim ComienzoSeg As Single
 Dim FinSeg As Single
 ComienzoSeg = Timer
 FinSeg = ComienzoSeg + (MiliSegundos / 1000)
 Do While FinSeg > Timer
     DoEvents
     If ComienzoSeg > Timer Then
         FinSeg = FinSeg - 24 * 60 * 60
     End If
 Loop
End Function

Sub COLEcTOR()
Espera 15000
Datos = WebBrowser1.Document.documentelement.innerhtml
Dim PosIni As Integer, PosFin As Integer, matriz() As String
matriz = Split(Datos, vbCrLf)
For n = 0 To UBound(matriz)
   PosIni = InStr(matriz(n), "<P><A href=" & Chr(34) & "http://www.fotolog.com/")
   If PosIni <> 0 Then
       PosFin = InStr(PosIni, matriz(n), """>")
       Text5.Text = Text5.Text & "#" & Mid(matriz(n), PosIni + 35, PosFin - (PosIni + 35))
   End If
Next
Command2.Enabled = True
End Sub


#5
Che, nadie me ayuda?
#6
Programación Visual Basic / Winsock y packet's?
23 Octubre 2009, 15:24 PM
Hola gente, estoy usando winsocks. Ya pude lograr la conexion e incluso enviar un texto.
Pero lo que yo envio por ejemplo "C1 87 37 BF" Esta en hex, y dicho llega como texto...
El tema es que yo quiero que llegue al servidor como Hex.
Aca esta mi code
Código (vb) [Seleccionar]
Winsock1.SendData ("C1 87 37 BF")

Si me pueden ayudar desde ya muchisimas gracias
#7
Cita de: ░▒▓BlackZeroҖ▓▒░ en 23 Octubre 2009, 06:31 AM
Cita de: cΔssiΔni en 22 Octubre 2009, 20:23 PM
no veo el error ..

Cita de: TheGhost(Z) en 22 Octubre 2009, 20:32 PM
Sabes, cuando tira error, el vb resalta de amarillo. no se que parte  muestra error. a lomejor es un problema de conexion??


Haber miren si usan

Código (vb) [Seleccionar]

& _


Es para CONTINUAR TU CODIGO EN LA SIGUIENTE LINEA mas no despues de la linea donde debiste haber continuado... si ese es el caso sería:


Código (vb) [Seleccionar]

msgbox "Solo paso a decirte: "   & _
    _
    _
    _
    _
    _
    "Hola"


Dulces Lunas!¡.
Gracias,Solucionaste mi problema
#8
Programación Visual Basic / Con winsock y textos
22 Octubre 2009, 16:22 PM
Hola gente, perdonen por mi post anterior :S
Ahora ya estoy desarrollando mi code y necesito ayuda en  esto:

Código (vb) [Seleccionar]
Private Sub Winsock1_Connect()

'desplegamos un mensaje en la ventana

Text1.Text = Text1.Text & _

"*** Conexion establecida." & vbCrLf

'desplazamos el scroll

Text1.SelStart = Len(Text1.Text)

End Sub


Bueno
me tira error en esto:

Text1.Text = Text1.Text & _

"*** Conexion establecida." & vbCrLf

Me dice error de sintaxis. Que podria ser?  y como lo podria arreglar?
#9
Programación Visual Basic / Enviar paquetes?
21 Octubre 2009, 01:31 AM
Hola gente, estoy en un proyecto importante, en el cual necesito mandar un paquete tipo los del WPE Pro a una determinada ip que se muestre en un shoutbox .... Gracias por la ayuda