DUVIDA RETORNO WEBBROWSER
Bom Galera Estou Fazendo um Projecto Que Entrar em Certo Lugar , mas quando atribuo os valores aos ids clico e a senha está errada ele não retorno o valor em um label para eu ler ele retorna em mensagebox como posso fazer para esconder esse mensagebox e verificar se retornar mensagebox ou senha invalida no mensagebox retentar com o novo login...
<html>
<head>
<title>window.location</title>
<script type=[Ô]text/javascript[Ô]>
alert([Ô]Você será redirecionado[Ô]);
window.location=[Ô]http://www.devmedia.com.br/[Ô];
</script>
</head>
<body>
</body>
</html>
Como Pegar o Valor ali do Alert Sem Aparecer o Alert pelo VB!
<head>
<title>window.location</title>
<script type=[Ô]text/javascript[Ô]>
alert([Ô]Você será redirecionado[Ô]);
window.location=[Ô]http://www.devmedia.com.br/[Ô];
</script>
</head>
<body>
</body>
</html>
Como Pegar o Valor ali do Alert Sem Aparecer o Alert pelo VB!
Alguem Pode Ajudar?
Na verdade não deu pra entender direito o que você precisa, mas veja se isto te ajuda:
AVISO WEBBROWSER
AVISO WEBBROWSER
Citação::
Na verdade não deu pra entender direito o que você precisa, mas veja se isto te ajuda:
AVISO WEBBROWSER
Queria Que o Programa Evitasse Esse Alert ou Clicasse No OK! Algo do Tipo Algum Exemplo?
O post AVISO WEBBROWSER que te passei não te ajudou não?
Pode passar a url da página pra que possamos tentar ajuda-lo?
Pode passar a url da página pra que possamos tentar ajuda-lo?
[ô]Fechar MsgBox
Dim PopupHandle As IntPtr = GetLastActivePopup(Me.Handle)
If (PopupHandle <> IntPtr.Zero) AndAlso (PopupHandle <> WebBrowser1.Handle) Then
PostMessage(PopupHandle, &H10, New IntPtr(1), IntPtr.Zero)
End If
Dim PopupHandle As IntPtr = GetLastActivePopup(Me.Handle)
If (PopupHandle <> IntPtr.Zero) AndAlso (PopupHandle <> WebBrowser1.Handle) Then
PostMessage(PopupHandle, &H10, New IntPtr(1), IntPtr.Zero)
End If
Citação::
[ô]Fechar MsgBox
Dim PopupHandle As IntPtr = GetLastActivePopup(Me.Handle)
If (PopupHandle <> IntPtr.Zero) AndAlso (PopupHandle <> WebBrowser1.Handle) Then
PostMessage(PopupHandle, &H10, New IntPtr(1), IntPtr.Zero)
End If
Esse Codigo Quando Implanto ele no Document Completed ele Fecha o Programa! , Não tem como eu fazer uma verifica so quando der o alert do java script no browser ai chamar esse codigo ?
desculpa e que faltou algo ai....
coloque esse codigo no comeco da sua form...abaixo do Public Class Form1 e coloque o codigo que eu mandei no loadcomplete...ai ele nao fechara o progama..
<DllImport([Ô]user32.dll[Ô])> _
Private Shared Function GetLastActivePopup(ByVal hwnd As IntPtr) As IntPtr
End Function
<DllImport([Ô]user32.dll[Ô], SetLastError:=True, CharSet:=CharSet.Auto)>
Private Shared Function PostMessage( _
ByVal hWnd As IntPtr, _
ByVal Msg As Integer, _
ByVal wParam As IntPtr, _
ByVal lParam As IntPtr) As Boolean
End Function
coloque esse codigo no comeco da sua form...abaixo do Public Class Form1 e coloque o codigo que eu mandei no loadcomplete...ai ele nao fechara o progama..
<DllImport([Ô]user32.dll[Ô])> _
Private Shared Function GetLastActivePopup(ByVal hwnd As IntPtr) As IntPtr
End Function
<DllImport([Ô]user32.dll[Ô], SetLastError:=True, CharSet:=CharSet.Auto)>
Private Shared Function PostMessage( _
ByVal hWnd As IntPtr, _
ByVal Msg As Integer, _
ByVal wParam As IntPtr, _
ByVal lParam As IntPtr) As Boolean
End Function
Faça seu login para responder