[Admiral]

По предыдущему вопросу есть готовый компонент Registry Toolkit .NET если не охота с циклами заморачиватся. Там уверяют что он может сохранить всё содержимое реестра в один XML файл. Так что осталось парсить сей файл на нужные ключи.

Я проверяю само их наличие (файла или папки), а уже потом указываю соответствующие манипуляции.
Можно анализируя ошибки возвращаемые от этих функций

Код:

 Public Function FileExists(ByVal FileFullPath As String) _
      As Boolean

        Dim f As New IO.FileInfo(FileFullPath)
        Return f.Exists

    End Function

    Public Function FolderExists(ByVal FolderPath As String) _
   As Boolean

        Dim f As New IO.DirectoryInfo(FolderPath)
        Return f.Exists

    End Function

Determine if a File or a Folder Exists (ASP.NET/VB.NET)

[Uzvern]

Кстати, нашел более качественный код для перетаскивания формы без "прыжков форы по экрану"

Код:

Private b_Down As Boolean
    Private oldPoint As Point
    Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
        b_Down = True
        oldPoint = e.Location
    End Sub
    Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
        If b_Down Then
            Me.Location = New Point(Me.Left + e.X - oldPoint.X, Me.Top + e.Y - oldPoint.Y)
        End If
    End Sub
    Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
        If b_Down Then
            Me.Location = New Point(Me.Left + e.X - oldPoint.X, Me.Top + e.Y - oldPoint.Y)
            b_Down = False
        End If
    End Sub

bbs.vbstreets.ru

[Uzvern]

Как сделать поиск определенного файла? Например мне нужно узнать где лежит файл cmd.exe или какой-нибудь другой. Необходимый путь должен выглядеть так : "C:\WINDOWS\System32\" , а не "C:\WINDOWS\System32\cmd.exe"

[Admiral]

C VB6 поставлялась даже готовая формочка SEEK.FRM.
В VB.NET 2008 я подобного не нашёл. Возможно плохо искал или она присутствует в не Експресс редакциях.
VB.Net: Recursive File Searching... организовано по принципу рекурсивного поиска.
Плюс там же организована возможность поиска по маске.
Так что можно доделать до необходимого ранее

по маске (*а.txt) ... только цифры (*цифры*.txt) или только буквы (*любые буквы*.txt) »

[Uzvern]

Можно ли как-то подгружать картинку из интернета в PictureBox ?

[Admiral]

Да.

Код:

PictureBox1.Load("http://forum.oszone.net/image.php?u=91692&dateline=1209059773")

[Uzvern]

О...круто. я так понял можно подгружать почти в любой объект, но не об этом сейчас речь.
У меня вопрос по теме : как-то можно счиать размеры картинки и по результату создать PictureBox ?

Уже ненадо. Сам разобрался...

Код:

PictureBox1.Load("http://forum.oszone.net/image.php?u=91692&dateline=1209059773")
        Me.Size = PictureBox1.Image.Size

Только возникает следующий вопрос : как сделать чтобы изображение было по середине экрана?

[Admiral]

Uzvern, считать ничего не надо.
Создаём PictureBox

Код:

Dim PictureBox1 As New PictureBox()

Добавляем его к форме, по умолчанию в верхнем левом углу.

Код:

Controls.Add(PictureBox1)

и грузим картинку,

Код:

PictureBox1.Load("C:\Windows\Blue Lace 16.bmp")

он примет её размер.

Есть обратная задача, что б картинка приняла размер компонента.
Тогда несомненно указываем его размер

Код:

PictureBox1.Size = New System.Drawing.Size(10, 20)

выбираем режим Streetch, что б картинка приняла пропорции компонента

Код:

PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage

Подробнее здесь.

Me.Size = PictureBox1.Image.Size »

Этот код приводит размеры формы к размерам компонента PictureBox1, и как следствия к размерам загруженной картинки, а не процесс который требует

счиать размеры картинки и по результату создать PictureBox »

как сделать чтобы изображение было по середине экрана? »

Для предложенного варианта трактования изображения (форма изменяющая свой размер под размер картинки) это реализируэться следующим кодом

Код:

Me.Size = PictureBox1.Image.Size
Me.Left = Screen.PrimaryScreen.Bounds.Width / 2 - Me.Left / 2
Me.Top = Screen.PrimaryScreen.Bounds.Height / 2 - Me.Top / 2

См. также Get the Current Screen Resolution (VB.NET)

[Uzvern]

Можно ли как-то сделать эмуляцию нажатия клавишь?
Например запустил прогу, надал на пару кнопок, она автоматом сворачивается, открываешь например окно аси и она автоматом начинет печатать и отправлять. Возможно такое замутить?

[Admiral]

Можно. Отличают два вида нажатий: в свою прогу, через свойство нужной кнопки (или элемента) Button1.Value
и для чужой проги через упомянутый SendKey.
Только что б отправить необходимо нужное окно найти и активировать, прийдётся использовать Win32 Api
Сразу после Public Class Form1 пишем

Код:

    Declare Auto Function FindWindow Lib "USER32.DLL" (ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr
    Declare Auto Function SetForegroundWindow Lib "USER32.DLL" (ByVal hWnd As IntPtr) As Boolean

для использования необходимых Win32 Api

Код:

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim HWND As IntPtr = FindWindow(vbNullString, "ICQ")
        If HWND <> IntPtr.Zero Then
            Dim theForegroundWindow As Boolean = SetForegroundWindow(HWND)
            If theForegroundWindow = True Then
                For I As Integer = 0 To 10
                    SendKeys.SendWait(I)
                Next I
            End If
        End If
    End Sub