This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Dim xdocXML As XDocument | |
Dim xmlNewElement As XElement = _ | |
<Root> | |
<Person> | |
<Name><%= txtName.Text.Trim %></Name> | |
<Phone><%= formatPhone(txtPhone.text) %></Phone> | |
</Person> | |
</Root> | |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Dim newFormControl As New frmForm1 | |
newFormControl.TopLevel = False | |
newFormControl.Visible = True | |
newFormControl.Dock = DockStyle.Fill | |
newFormControl.FormBorderStyle = Windows.Forms.FormBorderStyle.None | |
tcSettings.TabPages(0).Controls.Add(newFormControl) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
### Keybase proof | |
I hereby claim: | |
* I am codebeta on github. | |
* I am codebeta (https://keybase.io/codebeta) on keybase. | |
* I have a public key whose fingerprint is 3394 1A0C AC58 0D69 0BD3 B055 311B 5912 4F28 6069 | |
To claim this, I am signing this object: |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Private Sub wbBrowser_NewWindow3(sender As Object, e As AxSHDocVw.DWebBrowserEvents2_NewWindow3Event) Handles wbBrowser.NewWindow3 e.cancel = True | |
Dim frmWB As spmlWebBrowser = New spmlWebBrowser | |
frmWB.MdiParent = spmltMain | |
frmWB.Show() | |
frmWB.loadURL(e.bstrUrl) | |
End Sub |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Dim web_request As System.Net.HttpWebRequest = System.Net.WebRequest.Create(New Uri(webBrowser.LocationURL.ToString).Host) | |
Dim web_response As System.Net.HttpWebResponse = web_request.getresponse | |
Dim web_stream As System.IO.Stream = web_response.GetResponseStream |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Dim wClient As New WebClient Dim memoryStream As New MemoryStream(wClient.DownloadData(“http://” & New Uri(webBrowser.LocationURL.ToString).Host & “/favicon.ico”)) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Dim wIcon As New Icon(memoryStream) Me.Icon = wIcon |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Dim image As Image = image.FromStream(web_stream) | |
imagelist1.images.add(image) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Private Sub favIcon() | |
Try | |
Dim wClient As New WebClient | |
Dim baseURL As String = New Uri(wbBrowser.LocationURL.ToString).Host.ToString | |
If New Uri(wbBrowser.LocationURL.ToString).Port.ToString <> “80” AndAlso New Uri(wbBrowser.LocationURL.ToString).Port.ToString <> “443” Then | |
baseURL = baseURL & “:” & New Uri(wbBrowser.LocationURL.ToString).Port.ToString | |
End If | |
logDebug(“[INFO] Getting FavIcon from “ & baseURL) | |
Dim memoryStream As New MemoryStream(wClient.DownloadData(“http://” & baseURL & “/favicon.ico”)) | |
Dim wIcon As New Icon(memoryStream) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Public sshClient As Renci.SshNet.SshClient |
OlderNewer