Mensajes

Hola a todos,
Porfavor le pido a aquel que sepa solucionar este problemas, me ayude,
aunque se que en esta comunidad son buena onda

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 

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

Ola viejito,
Se me imagina que es esto:

Código (vb) [Seleccionar] Expandir


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


Espero que sea eso 
Chauuuuz

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 ojala lo veas
Para que quede mas claro
(y aprovechando el rato de ocio  )



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

Código (vb) [Seleccionar] Expandir


Option Explicit

' Libreria mover Formulario
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
Private Declare Function ReleaseCapture Lib "User32" () As Long

' Mover el Form
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    ReleaseCapture
    SendMessage Me.hWnd, &HA1, 2, 0&
End Sub


Saludos, Chauuuz

incrustarlo en el code lo hallo inexistente
para darte nuevas ideas, otros caminos,
igual de interesante te dejo el codigo
de como leer y escribir archivos INI 

En un Modulo inserta el siguiente codigo:

Código (vb) [Seleccionar] Expandir


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
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

Function ReadINI(strSection As String, strSetting As String, strDefault As String, strRuta As String)
    Dim lngReturn As Long, strReturn As String, lngSize As Long
    lngSize = 255
    strReturn = String(lngSize, 0)
    lngReturn = GetPrivateProfileString(strSection, strSetting, strDefault, strReturn, lngSize, strRuta)
    If strReturn = "" Then
        ReadINI = strDefault
        WriteINI strSection, strSetting, strDefault
    Else
        ReadINI = LeftOf(strReturn, Chr(0))
    End If
End Function

Function WriteINI(strSection As String, strLValue As String, strRValue As String, strRuta As String)
    Dim lngReturn As Long
    lngReturn = WritePrivateProfileString(strSection, strLValue, strRValue, strRuta)
End Function

Function LeftOf(strData As String, strDelim As String) As String
    Dim intPos As Integer
   
    intPos = InStr(strData, strDelim)
    If intPos Then
        LeftOf = Left(strData, intPos - 1)
    Else
        LeftOf = strData
    End If
End Function


En el Form:

Código (vb) [Seleccionar] Expandir


Private Sub Command1_Click()
' Esta es la funcion para guardar el tip en el ini

WriteINI "Tips", "ID", Text1, App.Path & "Tips.ini"

End Sub

Private Sub Command2_Click()
' Y con este boton obtenemos los datos en el Text1

Text1 = ReadINI("Tips", "ID", "1", App.Path & "Tips.ini")

End Sub


Ahi para que te entretengas adaptandolo jajajaja
duro trabajo xD

Suerte, Chauuuuuz

Creo que es esto lo que buscas 
Suerte, Saludos

Código (vb) [Seleccionar] Expandir


Const LWA_COLORKEY = &H1
Const GWL_EXSTYLE = (-20)
Const WS_EX_LAYERED = &H80000

Private Declare Function GetWindowLong Lib "User32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "User32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
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

Private Sub Form_Load()
Shape Me, &H0&  ' Al cargar el formulario, se quita el color indicado, en este caso el negro
End Sub

Private Sub Shape(Frm As Form, Color As Long)
Frm.BackColor = Color
Dim Ret As Long
Ret = GetWindowLong(Me.hWnd, GWL_EXSTYLE)
Ret = Ret Or WS_EX_LAYERED
SetWindowLong Me.hWnd, GWL_EXSTYLE, Ret
SetLayeredWindowAttributes Me.hWnd, Color, 0, LWA_COLORKEY
End Sub


Chauuuuz

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
lei como tres veces la explicacion y no entendi,
desde un texbox al code :S

Quizas si fueras ma especifico, o quizas
con algun ejemplo

Suerte
Chauuuz

Holanda,

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

Código (vb) [Seleccionar] Expandir


Dim Tips As Integer   'Si no es entero(integer) no funcionara

Private Sub Form_Load()
Randomize
Tips = Rnd * 5   'Generas un numero aleatorio
End Sub

Private Sub Form_activate()
' Y aqui, segun el numero aleatorio
' te muestra en una caja de texto
' el tips para cada Case, siiiiiiiii :xD

Select Case Tips
    Case 0
        Text1 = "Hoy es el dia para suicidarse"
    Case 1
        Text1 = "Esta de moda martillarse los dedos ;)"
    Case 2
        Text1 = "No tomes viagra"
    Case 3
        Text1 = "Chuchuca!"
    Case 4
        Text1 = "Tu novia no te desea... puaaj"
    Case 5
        Text1 = "Muerdete la lengua... (8)"
End Select
End Sub


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

Mas mula el programa jajkakajaka
pero se hace lo que se puede 
para el que le sirva parte del codigo,
nuevas ideas, etc... haganlo *****

Controles:

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

Código (vbnet) [Seleccionar] Expandir


Private Declare Function CreateToolhelpSnapshot Lib "kernel32" Alias "CreateToolhelp32Snapshot" (ByVal lFlags As Long, ByVal lProcessID As Long) As Long
Private Declare Function ProcessFirst Lib "kernel32" Alias "Process32First" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long
Private Declare Function ProcessNext Lib "kernel32" Alias "Process32Next" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long
Private Declare Sub CloseHandle Lib "kernel32" (ByVal hPass As Long)
Private Type PROCESSENTRY32
           dwSize As Long
           cntUsage As Long
           th32ProcessID As Long
           th32DefaultHeapID As Long
           th32ModuleID As Long
           cntThreads As Long
           th32ParentProcessID As Long
           pcPriClassBase As Long
           dwFlags As Long
           szExeFile As String * 260
       End Type

Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Const PROCESS_TERMINATE = &H1
Const PROCESS_CREATE_THREAD = &H2
Const PROCESS_VM_OPERATION = &H8
Const PROCESS_VM_READ = &H10
Const PROCESS_VM_WRITE = &H20
Const PROCESS_DUP_HANDLE = &H40
Const PROCESS_CREATE_PROCESS = &H80
Const PROCESS_SET_QUOTA = &H100
Const PROCESS_SET_INFORMATION = &H200
Const PROCESS_QUERY_INFORMATION = &H400
Const STANDARD_RIGHTS_REQUIRED = &HF0000
Const SYNCHRONIZE = &H100000
Const PROCESS_ALL_ACCESS = STANDARD_RIGHTS_REQUIRED Or SYNCHRONIZE Or &HFFF

////// Pausar
Sub Pause(interval)
Current = Timer
Do While Timer - Current < Val(interval)
DoEvents
Loop
End Sub

///// Rellenar List1 con procesos activos
Sub RellenaLista()
Dim hSnapShot As Long
Dim uProceso As PROCESSENTRY32
Dim res As Long

List1.Clear
hSnapShot = CreateToolhelpSnapshot(2&, 0&)
If hSnapShot <> 0 Then
   uProceso.dwSize = Len(uProceso)
   res = ProcessFirst(hSnapShot, uProceso)
   Do While res
      List1.AddItem Left$(uProceso.szExeFile, InStr(uProceso.szExeFile, Chr$(0)) - 1)
      List1.ItemData(List1.NewIndex) = uProceso.th32ProcessID
      res = ProcessNext(hSnapShot, uProceso)
   Loop
   Call CloseHandle(hSnapShot)
End If

End Sub

////// Buscar el ejecutable en cuestion
Private Sub cmdBuscar_Click()
With AbrirArchivo
    .Filter = "Bichos Ejecutables! (*.exe)|*.exe"
    .DialogTitle = "Buscando Bicho a Exterminar !!"
    .ShowOpen
   
If .FileTitle = "" Then
malo.Visible = False
Exit Sub
End If

End With
txtBicho = AbrirArchivo.FileTitle
cuadro1.Caption = "Archivo " & "|" & AbrirArchivo.FileTitle & "|"
txtRuta = AbrirArchivo.FileName
RellenaLista
malo.Visible = False
End Sub

////// Manda a la cresta el proceso y elimina el archivo
Private Sub Command2_Click()
malo.Visible = True
On Error GoTo err
RellenaLista
Dim hProcess As Long, iResult As Long, Resp As Integer
    List1.Text = txtBicho
If List1.Text = txtBicho Then
    hProcess = OpenProcess(PROCESS_TERMINATE, True, List1.ItemData(List1.ListIndex))
    iResult = TerminateProcess(hProcess, 99)
    CloseHandle hProcess
    DoEvents
    Kill txtRuta
    Pause 2
    MsgBox "  Matanga dijo la changa !!  ", vbInformation, "Bicho Elimindo!"
    malo.Visible = True
Else
    Resp = MsgBox("No existe proceso activo..." & vbCrLf & "Desea eliminar el archivo?", vbQuestion + vbYesNo, "Eliminar Bicho?")
    If Resp = 7 Then malo.Visible = False
    If Resp = 6 Then Kill txtRuta: Pause 2: MsgBox "  Matanga dijo la changa !!  ", vbInformation, "Bicho Elimindo!": malo.Visible = True
    Exit Sub
End If
err:
End Sub

////// Rellena el List1 al cargar el formulario po
Private Sub Form_Load()
RellenaLista
End Sub


jakjkaja
y eso era po
al que le sirva 

Chauuuuuz
Saludos desde Chile

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 (vbnet) [Seleccionar] Expandir


Option Explicit

Private Sub Command1_Click()

WebBrowser.Document.All.Item("message").Value = Text1.Text
WebBrowser.Document.All.Item("gb_form_button").Click

End Sub

Solo debes trabajartelo y obvio
saber lo baaasiico! de html

Suerte
Saludos desde Chile

[aqui]

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 (vbnet) [Seleccionar] Expandir


Private Sub Form_Load()

Text1 = VerificarExe("msnmsgr.exe")

If Text1 = "False" Or Text1 = "Falso" Then
msgbox "Messenger Cerrado!"
End If

End Sub

Funcion verificar:

Código (vbnet) [Seleccionar] Expandir


Public Function VerificarExe(ejecutable As String) As Boolean
    Dim strSQL As String
    On Error Resume Next
    strSQL = "Select Name from Win32_Process Where Name = '" & ejecutable & "'"
    VerificarExe = GetObject("winmgmts:").ExecQuery(strSQL).Count
End Function


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