Bluezap's Profile User Rating: -----

Reputation: 6 Worker
Group:
Contributors
Active Posts:
369 (0.3 per day)
Joined:
19-January 12
Profile Views:
3,993
Last Active:
User is offline Yesterday, 05:52 AM
Currently:
Offline

Previous Fields

Country:
SA
OS Preference:
Windows
Favorite Browser:
Chrome
Favorite Processor:
Intel
Favorite Gaming Platform:
PC
Your Car:
Volkswagen
Dream Kudos:
50

Latest Visitors

Icon   Bluezap Bananas

Posts I've Made

  1. In Topic: Drag and drop to uninstall

    Posted 19 May 2015

    maceysoftware You're right, most of the registry entries for the path are empty. I wonder if there is a universal process for software uninstallation. I will figure something out and post a solution here if I am able to.
  2. In Topic: Drag and drop to uninstall

    Posted 19 May 2015

    maceysoftware Hey, first of all thank you so much for taking the time to look at this, this is more than I could ask for. I was just running the code and the UninstallString comes up empty when I was debuggin it. I will go through everything again and see.

    Thank you again
  3. In Topic: Drag and drop to uninstall

    Posted 18 May 2015

    So I tried this with no luck

    I tried this but doesn't work

    error - An unhandled exception of type 'System.NullReferenceException' occurred in get installed apps.exe
    Additional information: Object reference not set to an instance of an object.


    Dim instLoc As String = Microsoft.Win32.Registry.LocalMachine.OpenSubKey(DestKey & subKey & "\").GetValue("InstallLocation").ToString


     Function GetTargetPath(ByVal FileName As String)
    
            Dim Obj As Object
            Obj = CreateObject("WScript.Shell")
    
            Dim Shortcut As Object
            Shortcut = Obj.CreateShortcut(FileName)
            GetTargetPath = Shortcut.TargetPath
    
    
        End Function
        Dim path As String
        Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    
            Dim DestKey As String = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"
            Dim subKeys As String() = Microsoft.Win32.Registry.LocalMachine.OpenSubKey(DestKey).GetSubKeyNames()
            Dim keyMatches As String()
            For Each subKey As String In subKeys
                Dim instLoc As String = Microsoft.Win32.Registry.LocalMachine.OpenSubKey(DestKey & subKey & "\").GetValue("InstallLocation").ToString
                If (instLoc = path) Then
                    Array.Resize(keyMatches, keyMatches.Length + 1)
                    keyMatches(keyMatches.Length - 1) = subKey
                End If
            Next
            For i As Integer = 0 To keyMatches.Length - 1
                'Do something with:
                Dim UnInstallPath As String = Microsoft.Win32.Registry.LocalMachine.OpenSubKey(DestKey & keyMatches(i) & "\").GetValue("UninstallString").ToString
            Next
    
        End Sub
    
        Private Sub Form3_Load(sender As Object, e As EventArgs) Handles MyBase.Load
            Me.AllowDrop = True
        End Sub
    
        Private Sub Form2_DragDrop(sender As System.Object, e As System.Windows.Forms.DragEventArgs) Handles Me.DragDrop
            Dim files() As String = e.Data.GetData(DataFormats.FileDrop)
            For Each realpath In files
                path = realpath
            Next
        End Sub
    
        Private Sub Form2_DragEnter(sender As System.Object, e As System.Windows.Forms.DragEventArgs) Handles Me.DragEnter
            If e.Data.GetDataPresent(DataFormats.FileDrop) Then
                e.Effect = DragDropEffects.Copy
            End If
        End Sub
    
  4. In Topic: Reading from a database

    Posted 5 May 2015

    I have figured out the problem, The table was named Table1 not Items, that was the problem.
  5. In Topic: Reading from a database

    Posted 2 May 2015

    Just an update to this. I've even tried using a single number in place of the randomizer but the same error occurs.
    I can't seem to figure out why

My Information

Member Title:
D.I.C Regular
Age:
19 years old
Birthday:
June 22, 1995
Gender:
Years Programming:
2
Programming Languages:
VB.NET
C#
HTML

Contact Information

E-mail:
Private
Website URL:
Website URL  http://winlockpro.org/

Friends

Comments

Bluezap has no profile comments yet. Why not say hello?