Subscribe
Discuss
What's new
What is it
New Snippet
Recent Snippets
My Snippets
Web Code
Search
Format:
Recent snippets matching language of VB.NET
Sub WriteHexTo(ByVal writebyte As Byte(), ByVal startoffset As Integer) ' Ici en gros le filePath prend le chemin d'acces de la rom Dim filePath As String = MainForm.OpenFileDialog1.FileName ' Ici ou ouvre le flux de fichier en mode Lecture/Ecriture fs = File.Open(filePath, FileMode.OpenOrCreate, FileAccess.ReadWrite, FileShare.ReadWrite) ' Ici, vu qu'on travail avec le HEX, il faut le BinaryWriter Dim bw As BinaryWriter = New BinaryWriter(fs) ' On se déplace a la position désirer bw.Seek(startoffset, SeekOrigin.Begin) ' on écrit notre flux de byte
21 Views
no comments
Imports System.Text Imports System.Security.Cryptography Public Class Form1 Const FileSplit = " ~FEDERIKO~ " Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then TextBox1.Text = OpenFileDialog1.FileName End If End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
13 Views
no comments
Function LatestXMLHTTP() Dim progID, progIDs, xmlHTTP progIDs = Array("Msxml2.XMLHTTP.6.0", "Msxml2.XMLHTTP.3.0", "Microsoft.XMLHTTP") On Error Resume Next For Each progID In progIDs Err.Clear
8 Views
no comments
Option Explicit Function TransposeArray(ByRef InArr As Variant) As Variant Dim i As Long Dim j As Long Dim XLow As Long Dim XHigh As Long Dim YLow As Long
14 Views
no comments
Input command="sprint" set="1" Key name="shift left" Activation type="active" Input command="sprint" Key name="shift right" Activation type="active" Input command="hero teleport" Key name="Q" Key name="control left" active="true" Activation type="first active" Input command="cheat menu" Key code="41" Activation type="first active"
14 Views
no comments
Try ' Create a request using a URL that can receive a post. Dim AuctionUrl As String = "<your auction domain URL>" Dim ThisUrl As String = String.Format("https:{0}{1}/service/auction/data/generate.ashx", "//", AuctionUrl) Dim ThisRequest As System.Net.WebRequest = System.Net.WebRequest.Create(ThisUrl) ThisRequest.Method = "POST" ThisRequest.ContentType = "application/x-www-form-urlencoded" Dim ThisPostData As List(Of String) = New List(Of String)
22 Views
no comments
<!DOCTYPE html> <html lang="en" id="facebook" class="no_js"> <head><meta charset="utf-8" /><script>function envFlush(b){function a(c){for(var d in b)c[d]=b[d];}if(window.require){require.ensure(['Env'],a);}else{Env=window.Env||{};a(Env);}} envFlush({"user":"100002034518108","locale":"en_US","method":"GET","ps_limit":5,"ps_ratio":4,"svn_rev":492474,"vip":"69.171.224.12","static_base":"http:\/\/static.ak.fbcdn.net\/","www_base":"http:\/\/www.facebook.com\/","rep_lag":2,"post_form_id":"9bb84e2e7efa462ccb4ce29cb74b6610","fb_dtsg":"AQCsIg9k","ajaxpipe_token":"AXjbPAZ6cFJp-94b","lhsh":"NAQE9mp6p","tracking_domain":"http:\/\/pixel.facebook.com","retry_ajax_on_network_error":"1","ajaxpipe_enabled":"1","html5_audio":"1","fbid_emoticons":"1"});</script><script>CavalryLogger=false;window._incorporate_fragment = true;window._script_path = "\/profile.php";window._EagleEyeSeed="Mfc4";</script><noscript> <meta http-equiv="refresh" content="0; URL=/people/Tania-Jimenez/100003290108623?_fb_noscript=1" /> </noscript> <meta name="robots" content="noodp, noydir" /><meta name="description" content=" Facebook is a social utility that connects people with friends and others who work, study and live around them. People use Facebook to keep up with friends, upload an unlimited number of photos, post links and videos, and learn more about the people they meet." /><link rel="alternate" media="handheld" href="http://www.facebook.com/people/Tania-Jimenez/100003290108623" /> <link type="text/css" rel="stylesheet" href="http://static.ak.fbcdn.net/rsrc.php/v1/y0/r/s0rHLMXN9iv.css" /> <script type="text/javascript" src="http://static.ak.fbcdn.net/rsrc.php/v1/yL/r/DGi4ETtSn2_.js"></script> <script>window.Bootloader && Bootloader.done(["pIp71"]);</script><title>Tania Jimenez</title><link rel="shortcut icon" href="http://static.ak.fbcdn.net/rsrc.php/yP/r/Ivn-CVe5TGK.ico" /><noscript><meta http-equiv="X-Frame-Options" content="deny" /></noscript><style>.sidebarMode #chatFriendsOnline,.sidebarMode #fbDockChatBuddylistNub.fbNub,.sidebarMode #fbChatErrorNub{display:none} .sidebarMode #pageHead,.sidebarMode #globalContainer{left:-90px;position:relative}
77 Views
no comments
Public Class XMLHTTP Private _blnIsProxy As Boolean = False Private _urlWebRequest As System.Net.HttpWebRequest Private _urlWebResponse As System.Net.HttpWebResponse Private _responseText As String Public Overridable ReadOnly Property responseText() As String Get responseText = _responseText
32 Views
no comments
Dim VT as new bidiCardEntities Dim Uyeler=Sorgula.Kont(VT , item.ID) Public Class Sorgula Public Shared ReadOnly Kont As Func(Of bidiCardEntities, Integer, IQueryable(Of Uye)) = CompiledQuery.Compile( Function(vt As bidiCardEntities, ID As Integer) vt.Uye.Where(Function(x) x.ID = ID) ) End Class
35 Views
no comments
''' <summary> ''' Orn: this.Müşteri_MüşteriGrupları.MukerrerIdSil(x => (x as c__MM_Musteri_MusteriGrup).MüşteriGrup); ''' </summary> ''' <param name="collection">Gezilecek koleksiyon</param> ''' <param name="fnc">Obj.Id'si olan Obj return edecek fonksiyon</param> <System.Runtime.CompilerServices.Extension> _ Public Shared Sub MukerrerIdSil(collection As IEnumerable, fnc As Func(Of Object, Object)) (From g In From x In collection.Cast(Of IEntityObject)() Where x IsNot Nothing AndAlso TryCast(x, IEntityObject).Details.EntityState <> EntityState.DeletedGroup x By (If(fnc(x) Is Nothing, -1, DirectCast(fnc(x), dynamic).Id)) Where g.Count() > 1g).ToList().ForEach(Function(g) If DirectCast(g.Last(), dynamic).Id = 0 Then ' son ekleneni sil
36 Views
no comments
Public Shared Function ConvertToAlphaNumericString(ByVal pstrString As String) As String Return Regex.Replace(pstrString, "[\W]", "") End Function
42 Views
no comments
'***********************************************************************************************************************-- '***********************************************************************************************************************-- 'This is a Visual Basic Script that hits a WebURL 'The WebURL hit is the one provided as the parameter (in this case through the windows task scheduler) 'Instructions: Set this .vbs as the action for a schedule task and in the parameters section pass in the WebUrl u wish to hit '***********************************************************************************************************************-- '***********************************************************************************************************************-- 'Create variable to hold passing in arguments args = WScript.Arguments.Count
33 Views
no comments
Do blnRetry = False Try objReturn = New SqlClient.SqlConnection(pstrConnectionString) objReturn.Open() Catch ex As InvalidOperationException objReturn.Dispose() blnRetry = True
61 Views
no comments
Dim funcs = (From x In [Enum].GetValues(GetType(SummaryFunc)) _ Order By x _ Select New With {.ID = CInt(x), .Name = [Enum].GetName(GetType(SummaryFunc), x)}).ToList
65 Views
no comments
<meta name="msapplication-window" content="width=800;height=600"/>
51 Views
no comments
Public Shared Function DmyToExceSerial(ByVal InputTimeStamp As DateTime) As Double Dim nDay As Integer = InputTimeStamp.Day Dim nMonth As Integer = InputTimeStamp.Month Dim nYear As Integer = InputTimeStamp.Year Dim nHour As Integer = InputTimeStamp.Hour Dim nMinute As Integer = InputTimeStamp.Minute Dim nSecond As Integer = InputTimeStamp.Second
63 Views
no comments
Module Module1 Public Enum PivotAction Sum = 1 Min = 2 Max = 3 Count = 4 End Enum Public Function Pivot(ByVal SourceTable As DataTable, _ ByVal PrimaryKeyColumn As String, _ ByVal PivotNameColumn As String, _
86 Views
1 comments
''***** Using JSON emitter ***** 'Produce JSON from the results objects Sub Render(ByVal Writer As JsonTextWriter) Writer.WritePropertyName("instant") Writer.WriteStartObject() Writer.WritePropertyName("instanttype") Writer.WriteValue(SearchType.ToString) Writer.WritePropertyName("results") Writer.WriteStartArray() For LCV As Integer = 0 To Results.Count - 1
53 Views
no comments
Imports System.Collections Public Class Form1 Dim filepath As String Dim filename As String Dim imageCollection As New SortedList Private Sub tsBtnRotateLeft_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsBtnRotateLeft.Click
56 Views
no comments
brought to you by:
If you find this site useful and use it frequently please consider making a donation to support this free service.
