ASP.NET | Catturare il contenuto di una pagina web con l’oggetto WebClient
Imports System.Net Dim Result As String = String.Empty Dim url As String = "url della pagina che vuoi catturare" Dim http As WebClient = New WebClient Dim bResult As Byte()…
Appunti, stralci di programmazione e altro
Imports System.Net Dim Result As String = String.Empty Dim url As String = "url della pagina che vuoi catturare" Dim http As WebClient = New WebClient Dim bResult As Byte()…
Imports System.Net Dim url As String = “http://www.sorrentino.it/sorrentino.html” Dim http As WebClient = New WebClient http.DownloadFile(url, “C:\html\sorrentino.html”)
Imports System.Security.Cryptography Public Class MyEncrypt Dim EncryptionKey As String = "password scelta da te" Public Function EncryptString128Bit(ByVal vstrTextToBeEncrypted As String) As String Dim bytValue() As Byte Dim bytKey() As Byte…
Rss.xslt Rss.xslt <?xml version="1.0" encoding="utf-8"?> <xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform" xmlns:msxsl="urn:schemas-microsoft-com:xslt" exclude-result-prefixes="msxsl"> <xsl:output method="html" indent="yes"/> <xsl:template match="/"> <ul> <xsl:for-each select="rss/channel/item"> <li> <a href="{link}"> <xsl:value-of select="title" /> </a> </li> </xsl:for-each> </ul> </xsl:template> </xsl:stylesheet>…
Dim ADOXcatalog As New ADOX.Catalog Dim ADOXtable As ADOX.Table Dim ADOXindex As ADOX.Index Dim ADOXkey As ADOX.Key Dim ADOXQuery As ADODB.Command Try Dim mdbCN As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=NomeDatabase.mdb;Jet OLEDB:Engine…
<asp:TemplateField> <HeaderTemplate>NR</HeaderTemplate> <ItemTemplate> <asp:Label ID=”lbNum” runat=”server” Text='<%#Container.DataItemIndex+1 %>’></asp:Label> </ItemTemplate></asp:TemplateField>
Dim ObjMail As New System.Net.Mail.MailMessage() Dim ObjMailFrom As New System.Net.Mail.MailAddress("Email del mittente", "Nome del mittente") ObjMail.From = ObjMailFrom ObjMail.To.Add("email di destinazione") ObjMail.Subject = "Oggetto della email" ObjMail.Body = "Messaggio" Dim…
Function GetMD5(ByVal input As String) As String Dim md5Hasher As MD5 = MD5.Create() Dim data As Byte() = md5Hasher.ComputeHash(Encoding.Default.GetBytes(input)) Dim sBuilder As New StringBuilder() Dim i As Integer For i…