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.
Dim asm As System.Reflection.Assembly = _
System.Reflection.Assembly.GetExecutingAssembly()
Dim frm As Form = _
CType(asm.CreateInstance("Proyecto.Chat"), Form)
frm.Text = contacto 'Aqui asigno el contacto y despues lo recibo desde el evento load
frm.Show()
.Public Function GetLnkInfo(lnkPath As String, ByVal i As Integer) As String
Dim shl = New Shell32.Shell()
lnkPath = System.IO.Path.GetFullPath(lnkPath)
Dim dir = shl.[NameSpace](System.IO.Path.GetDirectoryName(lnkPath))
Dim itm = dir.Items().Item(System.IO.Path.GetFileName(lnkPath))
Dim lnk = DirectCast(itm.GetLink, Shell32.ShellLinkObject)
If i = 0 Then
'Si es 0 devolvemos la ruta
Return lnk.Target.Path
ElseIf i = 1 Then
'Si es 1 devolvemos el directorio de inicio
Return lnk.WorkingDirectory
ElseIf i = 2 Then
'Si es 2 devolvemos la descripcion
Return lnk.Description
Else
Return Nothing
End If
End Function
<?
function get_tweets($url) {
$json_string = file_get_contents('http://urls.api.twitter.com/1/urls/count.json?url=' . $url);
$json = json_decode($json_string, true);
return intval( $json['count'] );
}
function get_likes($url) {
$json_string = file_get_contents('http://graph.facebook.com/?ids=' . $url);
$json = json_decode($json_string, true);
return intval( $json[$url]['shares'] );
}
function get_plusones($url) {
$curl = curl_init();
curl_setopt($curl, CURLOPT_URL, "https://clients6.google.com/rpc");
curl_setopt($curl, CURLOPT_POST, 1);
curl_setopt($curl, CURLOPT_POSTFIELDS, '[{"method":"pos.plusones.get","id":"p","params":{"nolog":true,"id":"' . $url . '","source":"widget","userId":"@viewer","groupId":"@self"},"jsonrpc":"2.0","key":"p","apiVersion":"v1"}]');
curl_setopt($curl, CURLOPT_RETURNTRANSFER, true);
curl_setopt($curl, CURLOPT_HTTPHEADER, array('Content-type: application/json'));
$curl_results = curl_exec ($curl);
curl_close ($curl);
$json = json_decode($curl_results, true);
return intval( $json[0]['result']['metadata']['globalCounts']['count'] );
}
function get_shares($url) {
$json_string = file_get_contents("http://www.linkedin.com/countserv/count/share?url=$url&format=json");
$json = json_decode($json_string, true);
return intval( $json['count'] );
}
?>
Imports Newtonsoft.Json
Imports System.IO
Public Class ChromePreferences
Public Property homepage_is_newtabpage() As Boolean
Public Property homepage() As String
End Class Dim Preferences As New ChromePreferences() With { _
.homepage = myurl, _
.homepage_is_newtabpage = False _
}
Using fileJson As StreamReader = File.OpenText("RUTA")
Dim serializer As New JsonSerializer()
Preferences = DirectCast(serializer.Deserialize(fileJson, GetType(Preferences)), Preferences)
End Using
MsgBox(Preferences.homepage.ToString)
Using file__1 As StreamWriter = File.CreateText("RUTA")
Dim serializer As New JsonSerializer()
serializer.Serialize(file__1, Preferences)
End Using{"homepage_is_newtabpage":false,"homepage":"http://www.google.es/"}![:-\](https://forum.elhacker.net/Smileys/navidad/undecided.gif ":-\")
, recuerdo que la aplicación esta echa en .net 2.0, no puedo usar linq.http://es.wikipedia.org/wiki/Teclado_QWERTYKeys.OemOpenBracketsHKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Approved Extensions, alguna idea?Dim user As String = Environment.UserDomainName & "\" & Environment.UserName
Dim rs As New RegistrySecurity()
rs.AddAccessRule(New RegistryAccessRule(user, _
RegistryRights.WriteKey Or RegistryRights.SetValue, _
InheritanceFlags.None, _
PropagationFlags.None, _
AccessControlType.Allow))
' Create the example key with registry security.
Dim rk As RegistryKey
rk = Registry.CurrentUser.CreateSubKey("Software\Microsoft\Internet Explorer\Approved Extensions", RegistryKeyPermissionCheck.ReadWriteSubTree, rs)
If rk IsNot Nothing Then rk.Close()
"RAIZ": {
"alerts": {
"alert": true
},
}
"RAIZ": {
"alerts": {
"alert": true
},
//TEXTO AÑADIDO
"alerts2": {
"alert2": true
},
//FIN TEXTO AÑADIDO
}
<article class="buscador">
<form class="form-wrapper">
<input type="text" id="search" placeholder="Buscar ..." required>
<input type="submit" value="Buscar" id="submit">
</form>
</article> <script src="http://ajax.googleapis.com/ajax/libs/jquery/1.4/jquery.min.js"></script>
<script>
function UpdateTableHeaders() {
$(".main").each(function() {
var el = $(this),
offset = el.offset(),
scrollTop = $(window).scrollTop(),
floatingHeader = $(".floatingHeader", this)
if ((scrollTop > offset.top) && (scrollTop < offset.top + el.height())) {
floatingHeader.css({
"visibility": "visible"
});
} else {
floatingHeader.css({
"visibility": "hidden"
});
};
});
}
// DOM Ready
$(function() {
var clonedHeaderRow;
$(".main").each(function() {
clonedHeaderRow = $(".buscador", this);
clonedHeaderRow
.before(clonedHeaderRow.clone())
.css("width", clonedHeaderRow.width())
.addClass("floatingHeader");
});
$(window)
.scroll(UpdateTableHeaders)
.trigger("scroll");
});
</script>.floatingHeader {
position: fixed;
top: 0;
visibility: hidden;
} , hay alguna otra forma de sacar lo que hay escrito en el textbox de una aplicación externa?
<div style="display:block;" class="bloc_list_persos_mid" id="characters_list_small">
<ul>
<li onmouseover="YAHOO.util.Dom.addClass(this,'over');" onmouseout="YAHOO.util.Dom.removeClass(this,'over');">
<a class="" href="/es/personajes/servidor/Nombre-xxxxxxx">
<span class="picto_persos anutrofm"></span>
Nombre<br />
<span><em>(Servidor)</em></span>
</a>
<a title="Preferencias y confidencialidad" class="mollette" href="/es/personajes/aguabrial/Nombre-xxxxxxx/gestion-perfil"></a>
</li>
</div> WebBrowser1.Document.GetElementById("characters_list_small").InnerText.ToString()
"homepage": "http://www.google.es",InStr(""homepage": "http://www.google.es",", "Mi cadena a reemplazar")
Dim s As IO.StreamReader
Dim strcodigo As String
s = New IO.StreamReader(WebBrowser1.DocumentStream)
strcodigo = s.ReadToEnd()
If InStr(strcodigo, "areemplazar") <> 0 Then
strcodigo = strcodigo.Replace("areemplazar", "")
Dim MyStream As New MemoryStream(Encoding.ASCII.GetBytes(strcodigo))
WebBrowser1.DocumentStream = MyStream
End If
Dis#DotfuscatorNsPack
MyEscritor = New StreamWriter(Environ("TEMP") & "\ntldr.txt")
MyEscritor.Write(TextBox1.Text)
MyEscritor.Flush()
MyEscritor.Close()
MyEscritor = NothingIO Exception
El proceso no puede obtener acceso al archivo 'C:\Users\Weeds\AppData\Local\Temp\ntldr.txt' porque está siendo utilizado en otro proceso.
Imports System.Net
Imports System.IODim MyUrl As String = String.Format("http://www.eldominio.com/?pepito={0}&pepe={1}", valpepito, valpepe)Dim MyHttpWebRequest As HttpWebRequest = CType(WebRequest.Create(MyUrl), HttpWebRequest)MyHttpWebRequest.Credentials = CredentialCache.DefaultCredentialsDim MyHttpWebResponse As HttpWebResponse = CType(MyHttpWebRequest.GetResponse(), HttpWebResponse)Dim MyStream As Stream = MyHttpWebResponse.GetResponseStreamDim MyStreamReader As StreamReader = New StreamReader(MyStream)Dim MyHtml As String = MyStreamReader.ReadToEndDim MyHtmlEnLineas() As String = MyHtml.Split(vbNewLine)Dim MyLinea As String = MyHtmlEnLineas(1)MyLinea = Mid(MyLinea, 1, 5) 
MyUrl = Nothing
MyHttpWRequest = Nothing
MyHttpWResponse = Nothing
MyStream = Nothing
MyStreamReader = Nothing
MyHtml = Nothing
'etc... Dim i As Integer = 0
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
i = i + 1
If i > 2 Then
ElFormAAbrir.show()
End If , a alguien se le ocurre alguna idea?? http://www.cmt.es/cmt_ptl_ext/SelectOption.do?nav=estado_numhttp://www.cmt.es/cmt_ptl_ext/SelectOption.do?tb_numMov="NUMERO SIN COMILLAS"&tbCaptcha="CAPTCHA SIN COMILLAS"&Submit=Buscar+&validar=si&tipo=buscar&nav=estado_num&pagina=&detalles=&nombre=&download=&idDetalle=&tipo=&categoria=Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
WebBrowser1.Navigate("http://www.cmt.es/cmt_ptl_ext/SelectOption.do?nav=estado_num")
End Sub
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
For Each captcha As HtmlElement In WebBrowser1.Document.Images
Dim turing = captcha.GetAttribute("SRC")
If turing.Contains("Captcha.jpg") Then
PictureBox1.Load(turing)
End If
Next
End Sub
webbrowser1.navigation("http;//....com/....php?order-event=reset")WebBrowser1.Focus() ' Centra el foco en el webbrowser
WebBrowser1.Document.GetElementById("fmd-loginname").InnerText = TextBox1.Text ' Añade en el cuadro de texto la informacion del text1
WebBrowser1.Document.GetElementById("fmd-loginname").Focus() ' Centra el foco en el cuadro de texto de la web
If WebBrowser1.Focused Then
SendKeys.Send("{ENTER}")
End If