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

 

 


Tema destacado: Tutorial básico de Quickjs


  Mostrar Mensajes
Páginas: [1] 2
1  Programación / Programación Visual Basic / [Ayuda] Control WebBrowser en: 6 Febrero 2008, 00:09 am
Hola a todos,
Porfavor le pido a aquel que sepa solucionar este problemas, me ayude,
aunque se que en esta comunidad son buena onda ;D

Lo que quiero es que al usuario no le aparezca ese error
que dice si deseo depurarlo...
error en la linea xxx
acceso denegado...

Bueno, ese cuadro de advertencia lo odio, Hate It  >:D

Graaaaacias amigos de la comunidad

Editado---

Ahora le pongo
WebBrowser1.Silent = True

y no aparece el molesto error eeeeeee
pero aparece otra ventana que dice algo de
just-in-time debbugger
no se q cosa aaaah lloro :-(
2  Programación / Programación Visual Basic / Re: ocultar un form vb en: 10 Enero 2008, 05:25 am
Ola viejito,
Se me imagina que es esto:

Código
  1. Private Sub Command1_Click()
  2. if txtUser = "blablaAdmin" And txtPass = "blablaPass" then
  3. ' Se ingreso bien el usuario y contraseña entonces
  4. Form2.Show
  5. Me.Hide  ' O !creo¡ que funciona con: Unload Me
  6. Else  ' Si no se cumple entonces
  7. msgbox "Usuario o Contraseña Invalidos",,"Error"
  8. End Sub
  9.  

Espero que sea eso  ;D
Chauuuuz
3  Programación / Programación Visual Basic / Re: Pequeña duda! en: 10 Enero 2008, 05:18 am
Pero viejito,
El form en estilo de borde tiene que estar en "none"
esto aparece justo arribita de donde le pones
el Caption al form ;D ojala lo veas
Para que quede mas claro
(y aprovechando el rato de ocio  :xD)



Y por si acaso, te posteo altiro la funcion para
mover el form ;)

Código
  1. Option Explicit
  2.  
  3. ' Libreria mover Formulario
  4. Private Declare Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
  5. Private Declare Function ReleaseCapture Lib "User32" () As Long
  6.  
  7. ' Mover el Form
  8. Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  9.    ReleaseCapture
  10.    SendMessage Me.hWnd, &HA1, 2, 0&
  11. End Sub
  12.  

Saludos, Chauuuz
4  Programación / Programación Visual Basic / Leer/Escribir Archivos INI en: 9 Enero 2008, 21:10 pm
incrustarlo en el code lo hallo inexistente :xD
para darte nuevas ideas, otros caminos,
igual de interesante :) te dejo el codigo
de como leer y escribir archivos INI  ;D

En un Modulo inserta el siguiente codigo:

Código
  1. Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
  2. Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
  3.  
  4. Function ReadINI(strSection As String, strSetting As String, strDefault As String, strRuta As String)
  5.    Dim lngReturn As Long, strReturn As String, lngSize As Long
  6.    lngSize = 255
  7.    strReturn = String(lngSize, 0)
  8.    lngReturn = GetPrivateProfileString(strSection, strSetting, strDefault, strReturn, lngSize, strRuta)
  9.    If strReturn = "" Then
  10.        ReadINI = strDefault
  11.        WriteINI strSection, strSetting, strDefault
  12.    Else
  13.        ReadINI = LeftOf(strReturn, Chr(0))
  14.    End If
  15. End Function
  16.  
  17. Function WriteINI(strSection As String, strLValue As String, strRValue As String, strRuta As String)
  18.    Dim lngReturn As Long
  19.    lngReturn = WritePrivateProfileString(strSection, strLValue, strRValue, strRuta)
  20. End Function
  21.  
  22. Function LeftOf(strData As String, strDelim As String) As String
  23.    Dim intPos As Integer
  24.  
  25.    intPos = InStr(strData, strDelim)
  26.    If intPos Then
  27.        LeftOf = Left(strData, intPos - 1)
  28.    Else
  29.        LeftOf = strData
  30.    End If
  31. End Function
  32.  

En el Form:

Código
  1. Private Sub Command1_Click()
  2. ' Esta es la funcion para guardar el tip en el ini
  3.  
  4. WriteINI "Tips", "ID", Text1, App.Path & "Tips.ini"
  5.  
  6. End Sub
  7.  
  8. Private Sub Command2_Click()
  9. ' Y con este boton obtenemos los datos en el Text1
  10.  
  11. Text1 = ReadINI("Tips", "ID", "1", App.Path & "Tips.ini")
  12.  
  13. End Sub
  14.  

Ahi para que te entretengas adaptandolo jajajaja
duro trabajo xD

Suerte, Chauuuuuz ;D
5  Programación / Programación Visual Basic / Re: Pequeña duda! en: 9 Enero 2008, 03:45 am
Creo que es esto lo que buscas  ;D
Suerte, Saludos

Código
  1. Const LWA_COLORKEY = &H1
  2. Const GWL_EXSTYLE = (-20)
  3. Const WS_EX_LAYERED = &H80000
  4.  
  5. Private Declare Function GetWindowLong Lib "User32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
  6. Private Declare Function SetWindowLong Lib "User32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
  7. Private Declare Function SetLayeredWindowAttributes Lib "user32.dll" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
  8.  
  9. Private Sub Form_Load()
  10. Shape Me, &H0&  ' Al cargar el formulario, se quita el color indicado, en este caso el negro
  11. End Sub
  12.  
  13. Private Sub Shape(Frm As Form, Color As Long)
  14. Frm.BackColor = Color
  15. Dim Ret As Long
  16. Ret = GetWindowLong(Me.hWnd, GWL_EXSTYLE)
  17. Ret = Ret Or WS_EX_LAYERED
  18. SetWindowLong Me.hWnd, GWL_EXSTYLE, Ret
  19. SetLayeredWindowAttributes Me.hWnd, Color, 0, LWA_COLORKEY
  20. End Sub
  21.  

Chauuuuz
6  Programación / Programación Visual Basic / Re: [DUDA] Hacer frase aleatoria en: 9 Enero 2008, 03:37 am
pues ya habai conseguido hacer estoi pero la verdad, este es mucho mas sencllo que el que  yo consegui^^

Pero lo que yo quisiera ahora esque en un texbox se escriba lo que se quiera y luego se añada al code, nuse si s podra hacer :S si no se puede pos weno, no pasa nada

Es que no entendi nunca lo que quieres :P
lei como tres veces la explicacion y no entendi,
desde un texbox al code :huh: :huh: :S

Quizas si fueras ma especifico, o quizas
con algun ejemplo ;D

Suerte
Chauuuz
7  Programación / Programación Visual Basic / Re: [DUDA] Hacer frase aleatoria en: 8 Enero 2008, 17:37 pm
Holanda,

Mira por ahi, uno de estos dias postiaron
el tema de la funcion Rnd, y lo encontre
interesante :o... entonces usando Case
quedaria mas o menos asi ;D:

Código
  1. Dim Tips As Integer   'Si no es entero(integer) no funcionara
  2.  
  3. Private Sub Form_Load()
  4. Randomize
  5. Tips = Rnd * 5   'Generas un numero aleatorio
  6. End Sub
  7.  
  8. Private Sub Form_activate()
  9. ' Y aqui, segun el numero aleatorio
  10. ' te muestra en una caja de texto
  11. ' el tips para cada Case, siiiiiiiii :xD
  12.  
  13. Select Case Tips
  14.    Case 0
  15.        Text1 = "Hoy es el dia para suicidarse"
  16.    Case 1
  17.        Text1 = "Esta de moda martillarse los dedos ;)"
  18.    Case 2
  19.        Text1 = "No tomes viagra"
  20.    Case 3
  21.        Text1 = "Chuchuca!"
  22.    Case 4
  23.        Text1 = "Tu novia no te desea... puaaj"
  24.    Case 5
  25.        Text1 = "Muerdete la lengua... (8)"
  26. End Select
  27. End Sub
  28.  

Ahora bien, lo ejecute en mi pc, y la mayoria de las veces
salian los mensajes que estan en medio, osea...
salian mas veces el Case 2, 3 y 4 que el 1 y el 5 :-(
Espero te sirva y sino, que encuentres uno mejor
Suerte

Chauuuuz ;)
8  Programación / Programación Visual Basic / [Codigo] Mata Bichos =P en: 2 Diciembre 2007, 03:55 am
Mas mula el programa jajkakajaka
pero se hace lo que se puede  :rolleyes:
para el que le sirva parte del codigo,
nuevas ideas, etc... haganlo ***** :o :xD

Controles:

- 2 cajas de texto (txtRuta y txtBicho)
- 3 botones (cmdBuscar, malo y Command2)
- 1 CommonDialog (AbrirArchivo)
- 1 Listbox (List1) (carga procesos)

Código
  1. Private Declare Function CreateToolhelpSnapshot Lib "kernel32" Alias "CreateToolhelp32Snapshot" (ByVal lFlags As Long, ByVal lProcessID As Long) As Long
  2. Private Declare Function ProcessFirst Lib "kernel32" Alias "Process32First" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long
  3. Private Declare Function ProcessNext Lib "kernel32" Alias "Process32Next" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long
  4. Private Declare Sub CloseHandle Lib "kernel32" (ByVal hPass As Long)
  5. Private Type PROCESSENTRY32
  6.           dwSize As Long
  7.           cntUsage As Long
  8.           th32ProcessID As Long
  9.           th32DefaultHeapID As Long
  10.           th32ModuleID As Long
  11.           cntThreads As Long
  12.           th32ParentProcessID As Long
  13.           pcPriClassBase As Long
  14.           dwFlags As Long
  15.           szExeFile As String * 260
  16.       End Type
  17.  
  18. Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long
  19. Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
  20. Const PROCESS_TERMINATE = &H1
  21. Const PROCESS_CREATE_THREAD = &H2
  22. Const PROCESS_VM_OPERATION = &H8
  23. Const PROCESS_VM_READ = &H10
  24. Const PROCESS_VM_WRITE = &H20
  25. Const PROCESS_DUP_HANDLE = &H40
  26. Const PROCESS_CREATE_PROCESS = &H80
  27. Const PROCESS_SET_QUOTA = &H100
  28. Const PROCESS_SET_INFORMATION = &H200
  29. Const PROCESS_QUERY_INFORMATION = &H400
  30. Const STANDARD_RIGHTS_REQUIRED = &HF0000
  31. Const SYNCHRONIZE = &H100000
  32. Const PROCESS_ALL_ACCESS = STANDARD_RIGHTS_REQUIRED Or SYNCHRONIZE Or &HFFF
  33.  
  34. ////// Pausar
  35. Sub Pause(interval)
  36. Current = Timer
  37. Do While Timer - Current < Val(interval)
  38. DoEvents
  39. Loop
  40. End Sub
  41.  
  42. ///// Rellenar List1 con procesos activos
  43. Sub RellenaLista()
  44. Dim hSnapShot As Long
  45. Dim uProceso As PROCESSENTRY32
  46. Dim res As Long
  47.  
  48. List1.Clear
  49. hSnapShot = CreateToolhelpSnapshot(2&, 0&)
  50. If hSnapShot <> 0 Then
  51.   uProceso.dwSize = Len(uProceso)
  52.   res = ProcessFirst(hSnapShot, uProceso)
  53.   Do While res
  54.      List1.AddItem Left$(uProceso.szExeFile, InStr(uProceso.szExeFile, Chr$(0)) - 1)
  55.      List1.ItemData(List1.NewIndex) = uProceso.th32ProcessID
  56.      res = ProcessNext(hSnapShot, uProceso)
  57.   Loop
  58.   Call CloseHandle(hSnapShot)
  59. End If
  60.  
  61. End Sub
  62.  
  63. ////// Buscar el ejecutable en cuestion
  64. Private Sub cmdBuscar_Click()
  65. With AbrirArchivo
  66.    .Filter = "Bichos Ejecutables! (*.exe)|*.exe"
  67.    .DialogTitle = "Buscando Bicho a Exterminar !!"
  68.    .ShowOpen
  69.  
  70. If .FileTitle = "" Then
  71. malo.Visible = False
  72. Exit Sub
  73. End If
  74.  
  75. End With
  76. txtBicho = AbrirArchivo.FileTitle
  77. cuadro1.Caption = "Archivo " & "|" & AbrirArchivo.FileTitle & "|"
  78. txtRuta = AbrirArchivo.FileName
  79. RellenaLista
  80. malo.Visible = False
  81. End Sub
  82.  
  83. ////// Manda a la cresta el proceso y elimina el archivo
  84. Private Sub Command2_Click()
  85. malo.Visible = True
  86. On Error GoTo err
  87. RellenaLista
  88. Dim hProcess As Long, iResult As Long, Resp As Integer
  89.    List1.Text = txtBicho
  90. If List1.Text = txtBicho Then
  91.    hProcess = OpenProcess(PROCESS_TERMINATE, True, List1.ItemData(List1.ListIndex))
  92.    iResult = TerminateProcess(hProcess, 99)
  93.    CloseHandle hProcess
  94.    DoEvents
  95.    Kill txtRuta
  96.    Pause 2
  97.    MsgBox "  Matanga dijo la changa !!  ", vbInformation, "Bicho Elimindo!"
  98.    malo.Visible = True
  99. Else
  100.    Resp = MsgBox("No existe proceso activo..." & vbCrLf & "Desea eliminar el archivo?", vbQuestion + vbYesNo, "Eliminar Bicho?")
  101.    If Resp = 7 Then malo.Visible = False
  102.    If Resp = 6 Then Kill txtRuta: Pause 2: MsgBox "  Matanga dijo la changa !!  ", vbInformation, "Bicho Elimindo!": malo.Visible = True
  103.    Exit Sub
  104. End If
  105. End Sub
  106.  
  107. ////// Rellena el List1 al cargar el formulario po
  108. Private Sub Form_Load()
  109. RellenaLista
  110. End Sub
  111.  

jakjkaja
y eso era po
al que le sirva  ;)

Chauuuuuz
Saludos desde Chile
9  Programación / Programación Visual Basic / Re: ¿Como Crear un BOT? en: 2 Diciembre 2007, 03:33 am
Quizas esto te ayude viejito
este postea en fotolog,
donde message es el "name" del campo de mensajes
y "gb_form_button" es el boton para postear

Controles:
- Un boton (Command1)
- Una caja de texto (Text1)
- Microsoft Internet Control (WebBrowser)

Código
  1. Option Explicit
  2.  
  3. Private Sub Command1_Click()
  4.  
  5. WebBrowser.Document.All.Item("message").Value = Text1.Text
  6. WebBrowser.Document.All.Item("gb_form_button").Click
  7.  
  8. End Sub

Solo debes trabajartelo y obvio
saber lo baaasiico! de html

Suerte
Saludos desde Chile
10  Programación / Programación Visual Basic / Re: Actualizacion: AuToMsn 1.5 by €duhAcK en: 16 Noviembre 2007, 20:21 pm
Compa,
yo hice un programa identico, por no decir igual...
y para evitar que me lanzara error por no tener
abierto el messenger, encontre este codigo y lo puse
en mi programa...

Código
  1. Private Sub Form_Load()
  2.  
  3. Text1 = VerificarExe("msnmsgr.exe")
  4.  
  5. If Text1 = "False" Or Text1 = "Falso" Then
  6. msgbox "Messenger Cerrado!"
  7. End If
  8.  
  9. End Sub

Funcion verificar:

Código
  1. Public Function VerificarExe(ejecutable As String) As Boolean
  2.    Dim strSQL As String
  3.    On Error Resume Next
  4.    strSQL = "Select Name from Win32_Process Where Name = '" & ejecutable & "'"
  5.    VerificarExe = GetObject("winmgmts:").ExecQuery(strSQL).Count
  6. End Function
  7.  

Como puedes ver,
al cargar el formulario (form_load), en un textbox (Text1)
se establece si se esta ejecutando el proceso o no...
segun el idioma del PC saldra True o False,
Verdadero o Falso...

Y bueno, ahi a la imaginacion po,
puedes editar el codigo para hacerlo mas eficaz,
porque igual es harto arcaico :/

Eso po Edu
Saludos desde Chile
Chauuuz
P.D: si te interesa aqui el ejecutable de mi programa.. obviamente libre de todas esas weas malas ;)
Páginas: [1] 2
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines