elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Usando Git para manipular el directorio de trabajo, el índice y commits (segunda parte)


  Mostrar Mensajes
Páginas: [1] 2 3 4 5 6 7 8 9 10 11 12 13
1  Programación / Programación C/C++ / ¿Algún programador experto que pueda realizar este trabajo? en: 2 Abril 2018, 18:32 pm
Buenas!

Según mi duda de que si podía buscar alguien que realice un trabajo para mí y a cambio pagar por ello:

https://foro.elhacker.net/sugerencias_y_dudas_sobre_el_foro/iquestpuedo_hacer_negocios_en_el_foro-t482151.0.html;msg2158700#new

Me surge esta duda:

Algún programador que sepa cómo enviar un código a la consola de CHrome, ejecutando el programa en segundo plano para que no interrumpa al usuario?.

Actualmente está en desarrollo un programa que abre chrome dentro del form y se envía el código, pero para esto se tiene que hacer focus al programa y esto molesta al usuario (por muy invisible que sea), ya que si está en algún juego en ventana completa, se minimiza el juego y molesta al usuario y pensaba ejecutar el código cada 5 minutos (aproximadamente)

Me preguntaba si alguien sabía cómo hacerlo en segundo plano sin interferir la actividad del usuario.

Obviamente se trabajaría con ello y se llegaría a un acuerdo con el pago.

Gracias.

Las respuestas por mensaje privado, gracias.
2  Foros Generales / Sugerencias y dudas sobre el Foro / ¿Puedo hacer Negocios en el foro? en: 2 Abril 2018, 17:00 pm
Buenas! me preguntaba si era posible hacer negocios en este foro, ya que necesito un programador para que me haga una aplicación para desktop, pero no veo la sección de negocios.

Es posible crear un Tema en alguna parte del foro solicitando ayuda y pagando por ello?

Desde ya , gracias.
3  Programación / Programación C/C++ / Busco un experto en c+ visual, etc - SE PAGA en: 8 Febrero 2018, 14:54 pm
Buenas, ando buscando un experto en programación para crear un software que haga una determinada función, sólo programadores con experiencia, se pagará por el trabajo

agregar al skype por favor

No colocar datos personales. Comunicarse por MP.
4  Programación / .NET (C#, VB.NET, ASP) / Duda con getElementByiD en: 7 Septiembre 2017, 05:10 am
Buenas a Todos!, tengo una duda que por favor quisiera que me ayudaran con ello.

Tengo este código HTML

Código:
<select class="form-control input-sm" name="aff_test_id" id="aff_test_id">
    <option value="1">--</option>
    <option value="2">cuerpo</option><option value="3">brazo</option><option value="1">tronco</option>    </select>

Y quiero insertar o cambiar a la opción a 2 y estoy usando este código
Código:
WebBrowser1.Document.getElementByiD("aff_test_id").Value = "2"

pero no me funciona.

(Funciona solamente si el campo de name(id) es "select", pero no puedo cambiarlo)

Cómo puedo hacer para que cambie el valor de la página?

Gracias.
5  Comunicaciones / Chats; IRC y Messengers / Mensaje automático cuando alguien ingresa al canal? en: 5 Junio 2015, 05:01 am
Buenas!

Ando buscando en Google y aún no doy con lo que busco, por favor alguien podría decirme un código Script, para que cuando alguien ingrese al canal, enviarle un mensaje automático?

Gracias
6  Comunicaciones / Chats; IRC y Messengers / Mirc autoresponder? en: 24 Febrero 2015, 01:02 am
Hola!

Tengo entendido que para que cuando alguien me envíe un mensaje y automáticamente le responda uso lo siguiente

Código:
on ^*:open:?:*:{
  .msg $nick Hola $nick , Estoy ocupado pero si deseas me dejas tu mensaje
}

El código anterior, es el mejor método que existe para autoresponder cuando me envían MP? o existe otro.

AH! y lo que quisiera saber es cómo hago para que si me vuelve a escribir el mismo usuario, le vuelva a responder pero con otra frase, "Te dije que estoy ocupado".

Gracias.
7  Programación / Programación Visual Basic / Re: Error al conectarse a IRC en VB6 en: 23 Febrero 2015, 21:16 pm
esta mal puesto el host, si lo obtuviste de un proyecto muy viejo deberias actualizarlo tal vez haya sido modificado.

Hola el código en sí es este:

Código
  1. 'QIRCbot V1.01beta.
  2. 'This program has been written by James Marvin - WolfSpirit
  3. 'You are free to use this code as you wish, make any alterations
  4. 'and additions as you see fit just as long as you give me
  5. 'credit for the many hours of hard work I have put into this.
  6. 'Do NOT plagerise my work and call it your own, as you will
  7. 'likely put yourself in a very actionable position and I will
  8. 'use all legal and civil options available to me to seek
  9. 'recompense.
  10. 'DISCLAIMER:
  11. 'This program code is provided 'as is' and I take no responsibility for
  12. 'any damage, loss of data or any loss of income that the use of this program
  13. 'causes.
  14. 'I also take NO responsibility if this program is used for illegal purposes
  15. 'including but not limited to, spamming, flooding, or any unacceptable and
  16. 'illegal practices on any or all IRC networks and servers. To do so may
  17. 'cause you to be liable to prosecution, and to have your service cancelled
  18. 'by your ISP.
  19. 'If you wish to contact me, i can be contacted by email at:
  20. 'wolven_spirit@gawab.com
  21. 'james.marvin@dcemail.com
  22.  
  23. Public Function addLog(Message As String)
  24. 'outstr = Split(Message, Chr$(13), -1, 1)
  25. '  For lp = 0 To UBound(outstr) - 1
  26. '   Prntline (outstr(lp))
  27. '  Next lp
  28.  
  29. End Function
  30.  
  31. Private Sub Command1_Click()
  32. wskIRC.RemoteHost = "irc.domain.com"
  33. wskIRC.RemotePort = 6667
  34. addLog "Connecting to " & wskIRC.RemoteHost & " port " & wskIRC.RemotePort & "…"
  35. wskIRC.Connect
  36. End Sub
  37.  
  38. Private Sub Command2_Click()
  39. wskIRC.Close
  40.  
  41. End Sub
  42.  
  43. Private Sub Command3_Click()
  44. wskIRC.SendData "PRIVMSG #lionman :Quasi-BOT Version 0.09 beta. Copyright James Marvin 2010. Status:Connected. 4 users in channel." & vbCrLf
  45. End Sub
  46.  
  47. Private Sub Command4_Click()
  48. wskIRC.SendData "WHO #lionman" & vbCrLf
  49.  
  50. End Sub
  51.  
  52. Private Sub txtLOG_Change()
  53.  
  54. End Sub
  55.  
  56.  
  57. Private Sub Command7_Click()
  58. Dim lp As Integer
  59. For lp = 0 To 4
  60.  Form2.Text1.Text = Form2.Text1 + Str$(lp) + test_var(0, lp) + vbCrLf
  61.  Form2.Text1.Text = Form2.Text1 + Str$(lp) + test_var(1, lp) + vbCrLf
  62.  Form2.Text1.Text = Form2.Text1 + Str$(lp) + test_var(2, lp) + vbCrLf
  63.  Form2.Text1.Text = Form2.Text1 + Str$(lp) + test_var(3, lp) + vbCrLf
  64. Next lp
  65.  
  66. End Sub
  67.  
  68. Private Sub Command8_Click()
  69. 'Prntline "Testing One Two" + Str$(t)
  70.  
  71. t = t + 1
  72.  
  73. End Sub
  74.  
  75. Private Sub Command5_Click()
  76. Form1.wskIRC.SendData "PRIVMSG " + Channel + " :" + Form1.OutTXT + vbCrLf
  77. Prntline "<" + BotName + "> " + Form1.OutTXT, vbGreen
  78. Form1.OutTXT.Text = ""
  79.  
  80. End Sub
  81.  
  82. Private Sub Form_Load()
  83. Dim lp As Integer
  84. Dim tmpstring As String
  85. lp = 0
  86. On Error GoTo ero:
  87. Open "seenusers.ini" For Input As #1
  88.   Do While Not EOF(1)
  89.     Input #1, tmpstring
  90.     ndta = Split(tmpstring)
  91.     seen_users(lp, 0) = ndta(0)
  92.     seen_users(lp, 1) = ndta(1)
  93.     seen_users(lp, 2) = ndta(2)
  94.     lp = lp + 1
  95.   Loop
  96.   Close #1
  97.   seen_users(lp, 0) = "EOL"
  98.   Form1.List1.Clear
  99.   lp = 0
  100.  
  101.  
  102. Form2.Visible = True
  103. sntflag = True
  104. Exit Sub
  105.  
  106.  
  107. ero:
  108.  seen_users(0, 0) = "EOL"
  109.  Form2.Visible = True
  110. sntflag = True
  111.  
  112.  
  113. End Sub
  114.  
  115. Private Sub Form_Unload(Cancel As Integer)
  116. Dim lp As Integer
  117. Open "seenusers.ini" For Output As #1
  118. While seen_users(lp, 0) <> "EOL"
  119. DoEvents
  120. Print #1, seen_users(lp, 0) & " " & seen_users(lp, 1) & " " & seen_users(lp, 2)
  121.  lp = lp + 1
  122. Wend
  123. Close #1
  124.  
  125. End Sub
  126.  
  127. Private Sub OutTXT_KeyPress(KeyAscii As Integer)
  128. Dim tmstrng As Integer
  129. If KeyAscii = 13 Then
  130. If Form1.OutTXT <> "" Then
  131.  
  132. tmstring = "PRIVMSG " + Channel + " :" + Form1.OutTXT
  133. snd_data (tmstring)
  134. Prntline "<" + BotName + "> " + Form1.OutTXT, vbCyan
  135. Form1.OutTXT.Text = ""
  136. End If
  137. End If
  138. End Sub
  139.  
  140. Private Sub wskIRC_Connect()
  141. Dim rmthst As String
  142. addLog "Connected!"
  143. Dim Random As Integer
  144. Randomize
  145. Random = Rnd * 1000
  146. BotName = "Spock-Bot"
  147. addLog "Username: " & Name
  148. wskIRC.SendData "NICK " & BotName & vbCrLf
  149. wskIRC.SendData "USER bot bot bot bot" & vbCrLf
  150. Channel = "#lionman"
  151. wskIRC.SendData "JOIN " & Channel & vbCrLf
  152. End Sub
  153.  
  154. Private Sub wskIRC_DataArrival(ByVal bytesTotal As Long)
  155. Dim Data As String
  156.  wskIRC.GetData Data
  157.  InDta (Data)
  158.  'Lets now process the data
  159.  prc_data (0)
  160.  
  161. End Sub
  162.  
  163. Private Sub wskIRC_SendComplete()
  164.  sntflag = True
  165. End Sub

¿Qué es lo que tendría que agregar para poder conectarme?
8  Programación / Programación Visual Basic / Error al conectarse a IRC en VB6 en: 23 Febrero 2015, 21:10 pm
Buenas, sucede que estoy tratando de conectarme a IRC desde un proyecto hecho en vb6, pero no logro conectarme porque me salta el error de:

Looking up you hostname...
Couldn't resolve your hostname.

¿Alguien tiene idea de porqué no puedo conectarme?
9  Programación / Programación Visual Basic / Re: Abrir ejecutable en un form - ¿Es posible abrir Chrome? en: 13 Febrero 2015, 21:47 pm
Hola, lo probé y aún así persiste el problema, lo curioso es que cuando al proyecto.exe le doy a compatibilidad - configuracion - ejecutar con 256 colores, ahí sí , se soluciona el problema.

Otra cosa que me di cuenta es que sólo pasa con mi PC y mi laptop que tienen Windows 7 'registrado', cuando lo probé en otra PC que tiene W7 pero no lo tiene registrado, entonces lo abre normal.

En mi PC y mi Laptop, el borde del navegador Chrome, es color negro
En la otra PC, el borde del navegador es Azul,

Estoy seguro que en el virtualbox que tienes, cuando abres Chrome, el borde es de color azul (como en la PC que lo probe que no tiene W7 registrado), en cambio en mi PC y mi laptop el borde es de color negro.

Quería consultarte algo que mencionaste al final, lo de sustituir "http://www.elhacker.net" por vbNullString, lo hice y efectivamente me abre chrome en una nueva ventana, pero ¿Cómo hago para que en esa nueva ventana abra http://elhacker.net?


Bueno compañero, aquí estoy de nuevo. He ejecutado el programa bajo las siguientes condiciones:

- Máquina:    VirtualBox
- SO:       Windows 7 Enterprise SP1 64 bits
- Chrome:    Google Chrome Versión 40.0.2214.111 m (última)

Y estamos donde estábamos, porque a mi me sigue funcionando perfectamente salvo un excepción: Chrome se incrusta mostrando una pestaña de color negro. Para solucionarlo he añadido ShowWindow en el código para  refrescar la ventanan de Chrome con SW_RESTORE.También ocurre que tarda un poco en mostrarse, pero también es verdad que W7 me va algo lento en el VirtualBox. Supongo que será por eso.

Esperaba que me pasara lo mismo que a ti y luego intentar solucionar el problema pero no ha sido así.


Para corregir el problema de visualización, como he dicho antes  he añadido "ShowWindow HWNDParent, SW_RESTORE"(línea 18))

Código
  1. Const SW_RESTORE = 9



Código
  1. Private Sub Command1_Click()
  2. HWNDParent = 0
  3.   ShellExecute Me.hwnd, "", "chrome.exe", _
  4.    "http://www.elhacker.net", Environ("programfiles") & "\Google\Chrome\Application\", SW_SHOWMINIMIZED
  5.   Espera (1) 'Espera un segundo a que se cargue Chrome
  6.   Do While HWNDParent = 0
  7.   HWNDParent = FindWindow("Chrome_WidgetWin_1", vbNullString) 'Obtiene el handle padre
  8.   DoEvents
  9.   Loop
  10.  
  11. Do While N& = 0
  12. N& = SetParent(HWNDParent, Picture1.hwnd) 'Meter la apcliación en el picture
  13. DoEvents
  14. Loop
  15.  
  16.  
  17. 'Refresca Chrome por si no se visualiza correctamente
  18. ShowWindow HWNDParent, SW_RESTORE
  19.  
  20. 'Ajusta la ventana de Chrome al Picture
  21. Call SetWindowPos(HWNDParent, HWND_TOP, 0, 0, _
  22. Picture1.ScaleWidth, _
  23. Picture1.ScaleHeight, _
  24. SWP_NOZORDER)
  25.  
  26. End Sub
  27.  


A ver si lo averiguas o alguien sabe algo y te contesta de porqué este fallo. Incluso que haya otra forma de hacerlo. ¿Por qué no pruebas con Firefox? Yo ya no puedo aportar nada más.

Por cierto, si no quieres que se cree una pestaña nueva sustituye "http://www.elhacker.net" por vbNullString en ShellExecute. Yo lo puse como demostración, pero si no quieres ponerlo pues no hace falta.

10  Programación / Programación Visual Basic / Re: Abrir ejecutable en un form - ¿Es posible abrir Chrome? en: 12 Febrero 2015, 17:53 pm
VB6 ya que da un poco viejo para Windows7. Además tu Windows es de 64 bits y VB6 es de 32. Tu Chrome también debe ser una versión de 64bits.

Creo que cosas así te van a ocurrir constantemente si mezclas ambas cosas VB6 y W7 64bits.

Lo que voy ha hacer, por mera curiosidad, es instalarme en VirtualBox el Windows7 64bits y probar el programa, a ver que pasa.

Mientras, se me ocurre que ejecutes el programa con "Compatibilidad con win 98 o XP" y a ver que pasa. No se me ocurre otra cosa. 

Pudiera ser que cuando se ejecuta VB6 se activa algún servicio de compatibilidad y cuando se cierra  VB6 se desactiva. Pero solo son suposiciones mías.

No se si tienes VB.NET, pero si no lo usas y  vas a crear programas para W7 64bits ya pudieras ir pensando en cambiar a VB.Net. Yo he usado VB6 durante más de 10 años, como aficionado, pero ahora he empezado con VB.Net2010. Al principio cuesta un poco, por que ha cambiado mucho, pero poco a poco vas aprendiendo. De echo el programa para incrustar el curso de ingles que te comenté lo hice con VB.Net2010.

Probaré el programa en las dos versiones, a ver que pasa...


Gracias por tu respuesta, probé con conpatibilidad de win98 y Win XP, pero aún así, sigue surgiendo el mismo problema y no tengo instalado VB.NET sólo Vb6.

Espero puedas decirme qué tal te fue cuando instalaste el W7 64 bits.

Saludos!
Páginas: [1] 2 3 4 5 6 7 8 9 10 11 12 13
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines